MUMPS DELPHI NAME TAG ROUTINE RETURN TYPE DESCRIPTION PARAMETER (Multiple) RETURN PARAMETER DESCRIPTION Procedure Name Locations Broker Name Parameter DG RECORD ACCESS PTSEC DGSEC4 ARRAY This Remote Procedure Call (RPC) will: - Verify user is not accessing his/her own Patient file record if the Restrict Patient Record Access (#1201) field in the MAS parameters (#43) file is set to yes and the user does not hold the DG RECORD ACCESS security key. If parameter set to yes and user is not a key holder , a social security number must be defined in the New Person file for the user to access any Patient file record. - Determine if user accessing a sensitive record or an employee's record RESULT(1) = -1-RPC/API failed Required variable not defined 0-No display/action required Not an employee, not sensitive or not accessing own Patient record 1-Display warning message Sensitive - inpatient or a DG SENSITIVITY key holder or Employee and DG SECURITY OFFICER key holder 2-Display warning message, require OK to continue and call DG SENSITIVE RECORD BULLETIN RPC to update DG Security Log file and generate Sensitive Record Access mail message. Sensitive - not an inpatient and not a key holder or Employee/not a DG SECURITY OFFICER key holder 3-Access to record denied Accessing own Patient file record 4-Access to Patient file (#2) records denied SSN not defined RESULT(2-n) = error message or warning/Privacy Act message. and warning messages will begin in RESULT(2) array. The Privacy Act message is the longest message and will utilize RESULT(2)- RESULT(8). If RESULT(1)=1, the DG Security Log file is updated. If RESULT(1)=2, the user must acknowledge they want to access the restricted record and the application must call the DG SENSITIVE RECORD BULLETIN RPC to update the DG Security Log file and generate the Sensitive Record Access mail msg DG RECORD ACCESS' 'DG RECORD ACCESS' patientlist RPCBroker1 RPCBroker1 or or PType := literal; for all params PType := literal;
DG SENSITIVE RECORD BULLETIN' NOTICE DGSEC4 SINGLE This Remote Procedure Call (RPC) will add an entry to the DG SECURITY LOG (#38.1) file and/or generate the sensitive record access bulletin depending on the value in ACTION input parameter. If ACTION parameter not defined, defaults to update DG Security Log file and generate Sensitive Record Access mail message. NONE RESULT= 1 - successfully added entry and/or generated sensitive record access bulletin 0 - unsuccessful DG SENSITIVE RECORD BULLETIN' RpcBroker1 PatientIEN PType := literal; 'DVBA CAPRI GUI^Capri GUI (Broker)' PType := literal; ' ' PType := literal; DVBA EXAM LINK TIU LINK SINGLE VALUE Links an exam in CAPRI TEMPLATES #396.17 to TIU DOCUMENT #8925 EXAMIEN TIUIEN returns 1 if the exam has been successfully linked to the TIU DOCUMENT; otherwise return message DVBA CAPRI EXAM LINK TIU tiusign RpcBroker1 PType := literal; TIUNoteIEN; PType := literal;
DVBA CAPRI EXAM XML FILEIN DVBAXML SINGLE VALUE This RPC allows for the filling of the 2507 EXAM template in the XML version. EXAMIEN DAS XML XML is the array list format of the template being stored RETURN PARAMETER DESCRIPTION: Y Returns successful filing status or message DVBA CAPRI EXAM XML Tiusign RpcBroker1 AnExamIEN; PType := literal; PType := literal; List of uuEncodedFile PType := list; DVBA CAPRI GET EXAM IEN DVBXML SINGLE VALUE get an exam ien from the CAPRI TEMMPLATE #396.17 given a tiu ien from TIU DOCUMENT #8925 TIUIEN returns a integer greater than zero if the exam can be found; otherwise return -1^error message DVBA CAPRI GET EXAM IEN Tiusign RpcBroker1 TiuDocumentIen PType := literal; DVBA CAPRI DVBCANRS ARRAY This returns an of active 2507 EXAM Cancellation Reasons. New active reasons with Patch DVB*2.7*189. Old list of cancellation reasons set to inactive. LIST Returns a 1 when completed DVBA CAPRI RPCBroker1 No Params
DVBA CAPRI GETCT DVBACPR1 ARRAY This RPC returns a list (array) of Claim Types associated with a valid 2507 Request REQIEN Returns all Claim Types associated to the valid 2507 Request DVBA CAPRI RpcBroker1 RequestIEN; := literal; DVBA CAPRI DVBACPR1 ARRAY This RPC returns an array of special considerations linked to a 2507 request. 2507 REQUEST IEN NONE DVBA CAPRI RpcBroker1 RequestIEN; PType := literal; DVBA CAPRI LSTCT DVBACPR1 ARRAY This RPC returns a list (array) of valid Claim Types NONE List of valid Claim Types DVBA NewExam RpcBroker1 No params DVBA CAPRI DVBACPR1 ARRAY This RPC returns a list (array) of valid Insufficient Reasons that can be linked to a 2507 exam. NONE NONE DVBA CAPRI NewExam RpcBroker1 No params DVBA CAPRI LSTSC DVBACPR1 ARRAY This RPC returns an (listing) of valid special considerations that can be linked to a 2507 request. NONE NONE DVBA CAPRI NewExam RpcBroker1 No params
DVBA CAPRI DVBACPR1 ARRAY This RPC returns the status of Claim Types passed to be set to a valid 2507 Request ARRACT Returns status of Claim Type sets DVBA CAPRI NewExam RpcBroker1 RequestIEN PType:= literal; PType := List DVBA CAPRI SETSC DVBCAPR1 SINGLE VALUE This RPC sets the passed-in special considerations and them to the passed-in 2507 request. 2507 REQUEST IEN SPECIAL LIST NONE DVBA NewExam RpcBroker1 RequestIEN; PType := literal; PType := list; DVBA CHECK PATCH CHEC DVBAB1B SINGLE VALUE This RPC is a wrapper for the supported API to determine whether a given patch is installed or not "1^Patch Is Installed" is returned on success; otherwise "0^Patch Is Not Installed" is returned. DVBPATCH Returns Is Installed" on success; otherwise returns "0^Patch Is Not Installed". DVBA CHECK PATCH' RPCBroker1 No Params DIVISION DVBAB1 SINGLE VALUE None None None DVBAB DIVISION Main RpcBroker1 No Params
DVBA MVI GET IDS GETIDS DVBAMVI2 LITERAL This is the Integration Control Number (ICN) used to identify the patient that is selected from the MVI SEARCH PERSON web service results. Format: SOURCE ID List of VAMC treating facilities associated with the passed identifier. Each line contains INSTITUTION (#4) file IEN, station name ,and station number delimited by a caret ("^"). The first entry in the list contains the total number of stations returned. Format: Example: DVBOUT(0)=2 DVBOUT(1)="516^BAY PINES VA HCS^516" DVBOUT(2)="523^BOSTON HCS VAMC^523" DVBA MVI GET IDS RPCBroker1 None DVBA MVI SEARCH PERSON DVBAMVI1 ARRAY This remote procedure passes the delimited person traits to the MVI SEARCH PERSON web service and returns the results of the search. PERSON TRAITS INITIAL QUANTITY NAME FORMAT The zero array node returns the caret-delimited record count and search status results. Piece 1: Returned record count Piece 2: OK or error message text Array node 1 starts the list of caret-delimited matching patient records. Piece 1: FULLNAME 2: SSN (9 digits) Piece 3: DATE OF BIRTH (external format) Pieces 4-7 contain the MVI ID components Piece 4: ID Piece 5: IdType Piece 6: Assigning Location Piece 7: Assigning Issuer Example results: T DVBA MVI SEARCH PERSON RPCBroker1 SearchString PType:= literal; literal;
Default name format: R(0)=2^OK R(1)=CAPRI VistA name format:R(0)=1^OK R(1)=PATIENT,CAPRI Error: R(0)=0^Acknowledgement Error: Multiple Matches Found[4] DVBAB 2507 PENDING REPORT STRT DVBAB6 GLOBAL ARRAY Generates a report based on the status of 2507 requests. DVBCSORT ERDAYS OLDAYS ELTYP MSG is returned. DVBAB 2507 PENDING REPORT Not called in Delphi code Not called in Delphi code Not called in Delphi code DVBAB 8861 ENTER DVBANTFY SINGLE VALUE This will perform MailMan notifications for Form 8861 Requests based on the status of the request. IEN STAT The RPC returns either a success or failure to send the MailMan notification, either 0 or 1. DVBAB 8861 RPCBroker1 Value := PType := literal := MsgType PType := literal
DVBAB AMIS REPORT STRT DVBAB3 ARRAY Returns an AMIS report for specified search criteria. BDATE EDATE NONE DVBAB AMIS REPORT Reports RPCBroker1 Value := PType := literal; Value := := literal; := aRegionalOffice + '^' + '^', 2); PType := literal; Value := 'N'; // Just say NO to mailman PType := literal; Value := AuthorIEN; PType := literal; := PriorityFilter; PType := literal; DVBAB LIST DPA GLOBAL ARRAY Returns a list of past, future or all appointments. VAL1 VAL2 Returns LIST of appointments for the patient based on value of CHOICE. DVBAB LIST MAIN RPCBroker1 Value := PatientIEN; PType := literal; Value := 'P'; //A=All appt. F=Future appt. P=Past appt. PType := literal; DVBAB1
DVBAB EXAMS BY DATE GLOBAL Provides a report by date range of all AMIE/CAPRI exam requests. BEGDT ENDT DVBAB EXAMS BY DATE' REPORTS RPCBroker1 := PType := literal Value := PType := literal DVBAB FETCH 1U4N U1N4 GLOBAL Retrieve the 1u4n field for the list of patient IENS provided as the only argument. Each IEN will be sent back with field .0905 appended after a caret. ARR List of Patient IENs in piece 1,followed by 1U4N in piece 2 DVBAB FETCH 1U4N' unsigned RPCBroker1 Mult[IntToStr(i + 1)] := PType := list; DVBAB FIND DUPS DUP GLOBAL ARRAY Find potential duplicates within the PATIENT File (#2) At least one of NAM, DOB, or SSN must be passed Possible matches are "better" when more than one of these is passed NAM DOB SSN BYREF - Passed by reference, will contain name of a TMP Global housing the results Subscript 0: (in the event of an error) OR Subscript 0: Number of potential matches found (if no errors) Subscript 1-K: Patient's matching ALL 3 of NAM, DOB, SSN have a weighting of 3 (see Note) Subscript K+1-L: Patient's matching ANY 2 of NAM, DOB, SSN have a weighting of 2 (see Note) DVBAB FIND DUPS' 'DVBAB FIND DUPS' EnterPt entersimple RPCBroker1 RPCBroker1 nam := LastName.text + ',' + FirstName.text; nam := LastName.text + ',' + FirstName.text;
DVBAB FIND EXAMS DVBAB1 Lists all of the patient's AMIE II C&P exam requests whether complete, new or pending. INPUT1 DVBAB FIND EXAMS' 'DVBAB FIND EXAMS' 'DVBAB FIND EXAMS' 'DVBAB FIND EXAMS' 'DVBAB FIND EXAMS' 'DVBAB FIND EXAMS' newexam tiusign viewexam RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 PType := literal; PType := literal; PType := literal; Value := PType := literal; Value := PType := literal; PType := literal; PType := literal;
PType := literal; or SaveName + ' / ' + VersionUser; PType := literal; or + ' / ' + AuthorName; DVBAB FORM DATA BACKUP DELETE DELETE SINGLE VALUE String returned is "^" piece separated, as follows: Piece Item 1 IEN DVBAB FORM DATA BACKUP DELETE'; tiusign RPCBroker1 Value := ',', 1); PType := literal; DVBAB FORM DATA BACKUP RESTORE SINGLE VALUE IEN SIEN DVBAB FORM DATA BACKUP RESTORE' PNCSMain RPCBroker1 ',', 1); PType := literal; PType := literal;
GET SET GETSET ARRAY This remote procedure retrieves the SET OF CODES for a given file and field for use in populating controls. DVBFIL DVBFLD The results will be returned as an array of strings, each containing the internal set of codes value and the external set of codes value delimited by a caret ("^"). Example results: DVBRSLT(1)="T^TERMINAL" DVBRSLT(2)="P^POW" DVBRSLT(3)="OS^ORIGINAL SC" DVBRSLT(4)="ON^ORIGINAL NSC" DVBRSLT(5)="I^INCREASE" DVBRSLT(6)="R^REVIEW" DVBRSLT(7)="OTR^OTHER" GET SET NewExam, RPCBroker1 RPCBroker1 RPCBroker1 ‘396.3’ PType := literal ‘9’ PType := literal ‘396.9’ PType := literal ‘16’ PType := literal ‘396.9’ := literal ‘13’ := literal
DVBAB GET URL URL DVBABURL SINGLE VALUE Returns a URL for some items used within CAPRI 1=VBA's AMIE Worksheet Website 2=CAPRI training website 3=VistAWeb website 5=HIA download website 6=VIRTUAL VA web service server website 8=VLER DAS web service server 9=JLV website INDEX NONE DVBAB GET URL Main RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 Value := ‘1’ PType := literal Value := ‘2’ PType := literal Value := ‘3’ Ptype := literal Value := ‘5’ Ptype := literal Value := ‘6’ PType := literal Value := ‘7’ PType := literal := ‘8’ PType := literal Value := ‘9’ PType := literal
DVBAB MPI ASSIGN ICN MPI SINGLE VALUE This call should be made after a new patient is added into the patient file. It will call the MPI to assign an ICN. If no ICN can be obtained after 30 seconds, a local ICN will be assigned and the local ICN flag set. DFN DVBAB MPI ASSIGN ICN' 'DVBAB MPI ASSIGN ICN' 'DVBAB MPI ASSIGN ICN' 'DVBAB MPI ASSIGN ICN' EnterPt entersimple enterpt140 RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 PatientIEN, ',', 1 PatientIEN, ',', 1 Value := Piece(PatientIEN, ',', 1); PType := literal; Value := Piece(PatientIEN, ',', 1); PType := literal; DVBAB NEW PERSON FILE START GLOBAL ARRAY NONE NONE NONE DVBAB NEW PERSON FILE AuditOld RPCBroker1 No Params DVBAB NOTE TITLES ARRAY Returns list of note titles from TIU in format name+" "+type+" "+status 'DVBAB NOTE TITLES' PNCSMain RPCBroker1 No Params DVBAB ORIGINAL DATE XDA GLOBAL ARRAY DFN 'DVBAB ORIGINAL DATE' REPORTS RPCBroker1 Value := PatientIEN; PType := literal 4
DVBAB PENDING C&P REPORT STRT DVBAB6 GLOBAL Generates a report containing the pending C&P exam requests RSTAT ERDAYS OLDAYS ADIVNUM ELTYP 'DVBAB PENDING C&P REPORT' REPORTS RPCBroker1 Mulitpule parms are set depending on evaluation conditions, however all Values are of type Literal DVBAB PTINQ PTINQ DVBAB1 GLOBAL ARRAY Returns a patient inquiry text report. NONE NONE DVBAB PTINQ Main RPCBroker1 Value := PatientIEN; := literal; DVBAB REPORT 7131INQ STRT GLOBAL ARRAY Returns a 7131 inquiry report. ZDFN RECIEN YES REPORT 7131INQ Main RPCBroker1 Value := PatientIEN; PType := literal; Value := PType := literal; DVBAB REPORT ADMINQ GLOBAL ARRAY Generates an admission inquiry report, in either standard or delimited format, for the specified parameters. BDATE EDATE ROYESNO RONUM DVBAB REPORT ADMINQ REPORTS RPCBroker1 Value := PType := literal Value := := literal Value := RegOfcYesNo PType := literal Value := RegOfcNum PType := literal Value := := literal
DVBAB REPORT INQUIRY ARRAY Returns display text indicating when the report was last run DVBAB REPORT INQUIRY' REPORTS RPCBroker1 No Params REPORT STRT DVBAB54 GLOBAL ARRAY Generates an admission report, in either standard or delimited format, for the specified date EDATE NONE REPORT REPORTS RPCBroker1 Value := FromDate PType := literal Value := ToDate PType := literal Value := PType := literal REPORT DVBAB9 ARRAY Generates an exam worksheet. NONE NONE DVBAB REPORT Not called in Delphi code Not called in Delphi code Not called in Delphi code REPORT STRT ARRAY Returns a detailed summary of a specific C&P request. DFN ZREQDA NONE REPORT Main RPCBroker1 Value := PatientIEN; .PType := literal; Value := := literal; REPORT STRT GLOBAL ARRAY Generates a discharge report, in either standard or delimited format, for the specified parameters. BDATE EDATE ADTYPE NONE DVBAB REPORT REPORTS RPCBroker1 := FromDate PType := literal; Value := ToDate := literal; Value := DoYouWant PType := literal
REPORT STRT GLOBAL ARRAY Generates a list of pending 7131 requests. SELDIV DIV NONE 'DVBAB REPORT REPORTS RPCBroker1 Value := '' PType := literal; Note: the Value param is set base on multiple conditions. See code for conditions. DVBAB REPORT READMIT STRT GLOBAL ARRAY Generates a report, in either standard or delimited format, for the specified date BDATE DVBAH NONE REPORT READMIT Reports RPCBroker1 Value := PType := literal; DVBAB REPORT SPECIAL GLOBAL ARRAY Generates a Special Report for Pension and Advisory & Assistance (A&A), in either standard or delimited format, for the specified parameters. DCTYPES EDATE RONUM REP 'DVBAB REPORT SPECIAL' specialreport RPCBroker1 This RPC has 6 possible parms that can be set base on evaluation conditions. All of the Parms have a Type set to Literal.
DVBAB REPORTS START GLOBAL CAPRI REGIONAL OFFICE 21 DAY CERTIFICATE PRINTING REPORT TYPE REPORT STRING 'DVBAB REPORTS' REPORTS' 'DVBAB REPORTS' REPORTS REPORTS REPORTS RPCBroker1 RPCBroker1 RPCBroker1 Value := '1'; // 21 Day Cert Print PType := literal; Value := '' PType := literal; Has two Parms with the type equal to literal. This RPC is called times depending on which report is to be executed. Value := '3'; // C&P FINAL (MANUAL) PType := literal; Value := ''; // PType := literal; LIST PATIENTS GLOBAL ARRAY Returns a list of restricted patients for when in remote mode. DUZ NONE LIST PATIENTS Main RPCBroker1 Value := := literal; DVBAB SAVE FORM SAVE SINGLE Set DVBIEN to the internal entry number of the form Set DVBLINES to the lines to be saved Set DVBLINEN to the starting line # in the global. This allows for to be sent in chunks. DVBIEN NONE DVBAB SAVE FORM PNCSMain RPCBroker1 Value := IEN PType := literal; := + y]; PType := list; Value := inttostr(y); PType := literal; Value := inttostr(x); PType := literal; Value := whichglobal; PType := literal;
DVBAB SC VETERAN REPORT EN DVBAB4 ARRAY Generates a service-connected veterans report. INPUT1 INPUT2 NONE SC VETERAN REPORT Not called in Delphi code Not called in Delphi code Not called in Delphi code DVBAB SEND MSG MSG DVBAB1 SINGLE VALUE Used to generate e-mail messages for specific CAPRI actions, such as changing a C&P exam request. VAL1 VAL2 VAL3 VAL4 VAL5 SEND MSG' 'DVBAB SEND MSG' 'DVBAB SEND MSG' EnterPt entersimple viewexam RPCBroker1 RPCBroker1 RPCBroker1 AuthorIEN New C&P Veteran Added to Patient File' 'DVBA C NEW C&P VETERAN AuthorIEN 'CAPRI: New C&P Veteran Added to Patient File' 'DVBA C NEW C&P VETERAN' Value := AuthorIEN; //DUZ Of Author of Note PType := literal; Value := 'CAPRI: Cancellation of 2507 Exams'; //Max 45 Chars PType := literal; PType := list; Mult[IntToStr(i + 1)] := Value := 'DVBA C 2507 //Mail Group
Name PType := literal; DVBAB SEND MSG TWO MSG2 SINGLE VALUE THIS RPC IS THE SECOND FOR THE CAPRI MSG 2507 EXAM THIS ONE PRODUCES A MESSAGE FOR EACH EXAM THAT IS COMPLETED DUZ RIEN ERR RETURNS THE MESSAGE OR THE 'MESSAGE SENT' DVBAB SEND MSG TWO RPCBroker1 Value := SenderDUZ; PType := literal; Value := RequestIEN; := literal; ExamIENs[I] := list; DVBAB SET DIVISION DUZ2 SINGLE VALUE Set the Division NUM Return O^ERR_MESSAGE (upon failure) IEN^INSTITUTION_NAME (upon success) DVBAB SET DIVISION' REPORTS RPCBroker1 := PType := literal; DVBAB SURGERY CASE START GLOBAL NONE DFN NONE DVBAB SURGERY CASE Main RPCBroker1 := PatientIEN; PType := literal; DVBAB TEAM PATIENTS DVBAB1 GLOBAL ARRAY Function returns an array of patients on a team. TEAM ID Array of patients on a team in the format: patient id (DFN)^patient name. DVBAB TEAM PATIENTS Main RPCBroker1 := PType := literal; DVBAB DEFINE GLOBAL ARRAY C&P Worksheet Templates are made of 3 files: a form definition, a code definition, and a script definition. DVBIEN DVBTYPE NONE DVBAB Pncsmain, Pncsshow, RPCBroker1 No params
Set DVBIEN to the internal entry number of the form Set DVBTYPE to the definition you want: 1= Form, 2=Script, 3=Report LIST DVBAB1 GLOBAL Returns complete list of CAPRI templates. NONE NONE DVBAB LIST Main RPCBroker1 None DVBAB REPORT FULL GLOBAL ARRAY Returns report of exam templates, including current status STRTDT ENDDT DVBAB REPORT FULL'; REPORTS RPCBroker1 Value := PType := literal; Value := PType := literal;
DVBAB VERSION DVBAB1 SINGLE VALUE Used to ensure GUI and VISTA are on the same version of CAPRI. DVBGUIV NONE DVBAB VERSION Main RPCBroker1 Value := VersionUser; PType := literal; DVBAB ZIP2CITY ARRAY The remote procedure returns a list containing city, county, and state for DVBZIP ZIP code value in ZIP+4 format. RETURN PARAMETER DESCRIPTION: DVBAB ZIP2CITY 'DVBAB ZIP2CITY' EnterPt entersimple RPCBroker1 RPCBroker1 Zipcode as text aZipCode
DVBAD EXAM CRYPTO EN SINGLE Allows the demTRAN (GUI) application to Encrypt/Decrypt information for storage to or retrieval from the VistA environment. Encrypted or Decrypted result(s) based on the cryptography action performed. If multiple values passed ('^' delimitted) then the results RETURN to continue or '^' to exit: will be returned in the same position as the original value that was acted upon. EXAM CRYPTO clsVendConn Value := '2'; PType := literal; FUsername + '^' + FPassword; PType := literal; EXAM REPORTS CERPTS GLOBAL ARRAY Allows demTRAN (GUI) to execute the Detailed, Summary and Timeliness contracted exam reports. NONE DVBAD EXAM REPORTS _CCOWBrkr _RptType PType := literal; PType := List; ORPRF GETFLG ARRAY ORPRF GETFLG' RPCBroker1 := literal; '^', 1); PType := literal; ORPRF HASFLG ORPRF ARRAY HASFLG' patientlist RPCBroker1 PatientDFN := literal;
ORPRF TRIGGER POPUP ORPRF SINGLE VALUE Returns 1 if popup flag display should be triggered for given patient upon patient selection. If not, returns 0. Does not require clean-up after calling it since it does not set arrays or globals. Returns 1 if flag display should be triggered for given patient upon patient selection. If not, returns 0. 'ORPRF TRIGGER POPUP' patientlist RPCBroker1 ',', 1); PType := literal; ORWCIRN FACLIST ORWCIRN ARRAY Returns a list of the remote VA facilities at which the selected patient has been seen. ORWCIRN FACLIST' FACLIST' patientlist RPCBroker1 RPCBroker1 ',', 1); PType := literal; PType := literal; ORWLRR CHART ORWLRR GLOBAL ARRAY 'ORWLRR CHART' frmLabGraph RPCBroker1 PatientIEN; // Patient IEN := literal; + '.2359'; //Stop Date PType := literal; //Start Date PType := literal; '0'; // 0 for "All Specimens" PType := literal; ' '
ORWORB ORWORB GLOBAL Function returns notifications for current user. 'ORWORB RPCBroker1 No Params ORWPT ORWPT ARRAY Returns a list of admissions for a patient (for visit selection). 'ORWPT PNCSMain RPCBroker1 PType := literal; ORWU DT DT ORWU SINGLE VALUE Returns date in internal VA FileMan format. ORWU DT' 'ORWU DT' 'ORWU DT' 'ORWU DT' 'ORWU DT' 'ORWU DT' 'ORWU DT' 'ORWU DT' 'ORWU DT' 'ORWU DT' 'ORWU DT' MailMan tiusign EnterPt entersimple PNCSMain viewexam RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 NOW' PType := literal; Value := 'NOW' PType := literal; 'NOW' 'NOW' 'NOW' 'NOW' PType := literal; 'NOW' PType := literal; 'NOW' PType := literal; Value := 'NOW'; PType := literal; Value := 'NOW'; PType := literal; Value := 'NOW'; PType := literal; Value := 'NOW'; PType := literal;
'ORWU DT' ORWU VALIDSIG ORWU SINGLE VALUE Validates a broker encrypted electronic signature. 'ORWU tiusign RPCBroker1 Value := encrypt(Edit3.Text); PType := literal; TIU CREATE RECORD TIUSRVP SINGLE VALUE This Remote Procedure allows the creation of addenda to TIU Documents. This is the record number of the resulting addendum. NOTE: If no addendum record may be created, then the return variable will look as follows: "-1^Could not create addendum." 'TIU CREATE RECORD' RPCBroker1 Value := CoSigTIUNoteIEN; PType := literal; Mult['1202'] := authorIEN; Mult['1301'] := dttm PType := list; Value := '1'; PType := literal; TIU CREATE RECORD MAKE TIUSRVP SINGLE VALUE This remote procedure allows the creation of TIU DOCUMENT records. If the call is successful, this will be the record number (IEN) of the resulting entry in the TIU DOCUMENT FILE (#8925). In the event of a filing error, the first will be zero, and the second "^"-piece of this scalar return variable will be a textual message describing the nature of the error (e.g., 0^Invalid TITLE Selected."). 'TIU CREATE RECORD' tiusign RPCBroker1 Value := // Patient PType := literal; Value := aTitleIEN; // Title PType := literal; Value := ''; // VDT PType := literal; Value := ''; // VLOC PType := literal; Value := ''; // VisitIDIEN; //VSIT PType := literal; Mult['1202'] := AuthorIEN; Mult['1301'] := Piece(aVisitIDIEN,
';', 2); // Reference Date Mult['1205'] := Piece(aVisitIDIEN, ';', 1); // Location Mult['1208'] := FMEdit16.Text; // Cosigner Mult['1701'] := ''; //Subject PType := list; Value := aVisitIDIEN; // Visit Location; Date/Time; Service category (Optional) PType := literal; .Value := '1'; //Suppress? PType := literal; TIU DELETE RECORD TIUSRVP SINGLE Deletes TIU Document records...Evaluates authorization. Returns error message with ERR=1^Explanation text if the user is NOT authorized to delete the named record (e.g., it's his, but signed; or it's not his, and he better keep his paws off it). 'TIU DELETE RECORD' tiusign RPCBroker1 Value := aTIUNoteIEN; PType := literal; Value := PType := literal; TIU GET INFO TIUSRVP SINGLE VALUE Given a TIU XQAID, return the patient anddocument type for the item being alerted. TIUDA^DFN^gui tab indicator where TIUDA is the document IEN in ^TIU(8925 DFN is the patient IEN gui tab indicator is an arbitrarily set constant based on the document type. 'TIU GET ALERT INFO' RPCBroker1 := '^', 8); PType := literal;
TIU GET RECORD TEXT TGET TIUSRVR1 GLOBAL This RPC will get the textual portion of a TIU Document Record. TIU GET RECORD TEXT' 'TIU GET RECORD TEXT' 'TIU GET RECORD TEXT' 'TIU GET RECORD TEXT' tiusign tiudisplayunit RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 Value := aTIUNoteIEN; PType := literal; Value := TIUNoteIEN; //TIU Document number PType := literal; Value := '^', 8), ';', 1), 'U', 2); PType := literal; Value := PType := literal; No Params TIU LOAD TEXT TIUSRVD GLOBAL ARRAY This RPC will load the boilerplate text associated with the selected title, and execute the methods for any objects embedded in the boilerplate text. 'TIU LOAD TEXT' PNCSMain RPCBroker1 Pos(' IEN#', + 6, 99); PType := literal; {Patient IEN} PType := literal;
TIU TIUSRVA SINGLE This Boolean RPC simply evaluates whether the current user requires cosignature for TIU DOCUMENTS, and returns a 1 if true, or a 0 if false. Boolean result: 0 if FALSE, OR 1 if TRUE. 'TIU tiusign RPCBroker1 Value := Pos(' IEN#', + 6, 99); PType := literal; Value := '0'; PType := literal; Value := AuthorIEN; PType := literal; TIU SET TEXT TIUSRVPT SINGLE VALUE This RPC buffers the transmittal of text (i.e., the body of TIU Documents) from the Client to the Server. It allows documents of indefinite size to be filed, without risk of an allocate error on the M Server. Four '^'-piece scalar result formatted as follows: If successful: <IEN in TIU DOCUMENT If unsuccessful: 0^0^0^Explanatory text 'TIU SET TEXT'; RPCBroker1 Value := addendIEN; PType := literal; Mult['"TEXT",' + inttostr(x + 1) + ',0'] := or Mult['"HDR"'] := '1^1'; PType := list; Value := '0'; PType := literal; TIU SIGN RECORD SIGN TIUSRVP SINGLE VALUE This API Supports the application of the user's electronic signature to a TIU document while evaluating authorization, and validating the user's electronic signature. This is the error code which may result if the user enters an invalid code, or if the Authorization/Subscription Utility determines that the user is NOT authorized to sign (or cosign) the document, as specified by the site's business rules. TIU SIGN RECORD' 'TIU SIGN RECORD' tiusign RPCBroker1 RPCBroker1 Value := aTIUNoteIEN; PType := literal; Value := PType := literal; Value := addendIEN; PType := literal; Value := PType := literal;
TIU UPDATE RECORD TIUSRVP SINGLE VALUE This API updates the record named in the TIUDA parameter, with the information contained in the TIUX(Field #) array. The body of the modified TIU document should be passed in the subscript, where i is the line number (i.e., the "TEXT" node should be ready to MERGE with a word processing field). Any filing errors which may occur will be returned in the single valued ERR parameter (which is passed by reference). 'TIU UPDATE RECORD' RPCBroker1 Value := addendIEN; PType := literal; Mult['1202'] := authorIEN; Mult['1301'] := dttm Mult['1701'] := ''; PType := list; Value := '1'; PType := literal; XUS SET VISITOR SINGLE VALUE XUS SET VISITOR' 'XUS SET VISITOR' RPCBroker1 RPCBroker1 No Params No Params
XWB GET VALUE XWBLIB SINGLE VALUE This RPC accepts the name of a variable which will be evaluated and its value returned to the server. For example, this RPC may be called with a parameter like DUZ which will be returned as 123456. XWB GET VALUE' 'XWB GET VALUE' 'XWB GET VALUE' 'XWB GET VALUE' 'XWB GET VALUE' essoselect PNCSMain REPORTS telnet tiudisplayunit RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 RPCBroker1 DUZ' 'DUZ' PType := reference; Value := 'DUZ("2")' PType := reference Value := 'DUZ("2")'; PType := reference; := 'DUZ("2")'; PType := reference; DVBA WPGET ARRAY This gets the remarks sent to the contractor concerning the 2507 REQUEST in file 396.3. The remarks are stored in the word processing field #103 of the 2507 EXAM file 396.4. DVBEIEN Returns a 1 if remarks exist DVBA CAPRI procedure RPCBroker1 [Exm] Exm is the IEN of one of the exams in the list of exams associated with an exam request.