MAGGNTI2 ;WOIFO/GEK - Imaging interface to TIU. RPC Calls etc. ; OCT 12, 2020@10:02 AM
Source file <MAGGNTI2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LIST(MAGRY,CLASS,MYLIST) | ; RPC [MAG3 TIU LONG LIST OF TITLES]
; Get a list of Document Titles ; CLASS = ("," delimited string of one or More of) "NOTE,DS,CONS,CP,SUR,<CLASS IEN>" ; CLASS IEN is any IEN of TIU 8925.1 that is a Class ; "|" delimited string of Class| text | Direction ; 3.0.282 if 'text' contains ';1' i.e. 'text;1' ; then the result array will only contain exact ; matches to 'text' ; MYLIST = [1|""] optional ; If MYLIST=1 then return ; TIU PERSONAL TITLE LIST PERSLIST^TIUSRVD ; ; Note : sending CLASS IEN isn't used in p282. ; |
|
| INACL(INTXT,CLID,CLNAME,CLIEN,DESC) | ;
; Here we check to see if our IEN (CLIEN) is in the ; ACL Index for the Class (CLID) ; DESC is passed by Reference and returned formatted. |
|
| EXACTHIT(MAGRY,INTXT,CLID,CLNAME) | ;
; We are here if INTXT is formatted xxx;1 this tells us the caller ; wants ONLY TIU TITLEs that Match the input xxx for the CLASS. ; CLID is the ID of the CLASS of Title. ; i.e. (NOTE,CONS,DS etc) that we are looking for. |
|
| MYLIST(CLN,TARR) | ;
; if not short list, default is listed twice, (This is how CPRS displays it) |
|
| BLDLIST(CLN,TARR,STC,UPDN) | ;
|
|
| ADMNCLOS(MAGRY,MAGDFN,MAGTIUDA,MAGMODE) | ; calls TIU API to set as Admin Closed.
; RPC Call to Administratively Close a TIU Note. ; - - - Required - - - ; MAGDFN - Patient DFN ; MAGTIUDA - Note IEN in File 8925 ; - - - Optional - - - ; MAGMODE - "S" Scanned Document "M" - Manual closure "E" - Electronically Filed. |
|
| VALES(X) | ; Validate the esig
|
|
| VALDATA(RY,MAGDFN,MAGTIUDA) | ; Validate the TIUDA and the DFN
|
| RPC Name | Call Tags |
|---|---|
| MAG3 TIU LONG LIST OF TITLES | LIST |
