MAGGNTI2 ;WOIFO/GEK - Imaging interface to TIU. RPC Calls etc. ; OCT 12, 2020@10:02 AM
Source file <MAGGNTI2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Imaging | 3 | MAG3 TIU LONG LIST OF TITLES MAGGNTI1 MAGGNTI3 |
| 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
|
| Name | Field # of Occurrence |
|---|---|
| LKP^MAGGNLKP | EXACTHIT+11 |
| HASH^ROUTINE | VALES+2 |
| ISCNSLT^TIUCNSLT | EXACTHIT+22 |
| CPCLASS^TIUCP | LIST+32 |
| $$CANENTR^TIULP | INACL+13 |
| $$CANPICK^TIULP | INACL+13 |
| CNSLCLAS^TIUSRVD | LIST+33 |
| LONGLIST^TIUSRVD | BLDLIST+4 |
| PERSLIST^TIUSRVD | MYLIST+3 |
| SURGCLAS^TIUSRVD | LIST+34 |
| ADMNCLOS^TIUSRVPT | ADMNCLOS+14 |
| RPC Name | Call Tags |
|---|---|
| MAG3 TIU LONG LIST OF TITLES | LIST |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | VALDATA+3 |
| ^TIU(8925 - [#8925] | VALDATA+5, VALDATA+6 |
| ^TIU(8925.1 - [#8925.1] | INACL+8, INACL+10 |
| ^VA(200 - [#200] | VALES+3 |
| Name | Line Occurrences |
|---|---|
| $$INACL | EXACTHIT+25 |
| $$VALDATA | ADMNCLOS+9 |
| BLDLIST | LIST+56 |
| EXACTHIT | LIST+54 |
| MYLIST | LIST+42 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ALTLKP | LIST+17~, LIST+21*, LIST+24*, LIST+54 |
| CL | LIST+16~, LIST+39*, LIST+40, LIST+50, LIST+54, LIST+62, INACL+21 |
| CLASS | LIST~, LIST+22, LIST+26, LIST+27*, LIST+28, LIST+35, LIST+38, LIST+39 |
| CLCONS | LIST+16~, LIST+33, LIST+40 |
| CLCP | LIST+16~, LIST+32, LIST+40 |
| CLDS | LIST+16~, LIST+31*, LIST+40 |
| CLID | INACL~, INACL+8, INACL+10, EXACTHIT~, EXACTHIT+25 |
| CLIEN | INACL~, INACL+11 |
| CLN | LIST+16~, LIST+40*, LIST+42, LIST+54, LIST+56, MYLIST~, MYLIST+3, BLDLIST~, BLDLIST+4 |
| CLNAME | INACL~, EXACTHIT~, EXACTHIT+21, EXACTHIT+25 |
| CLNOTE | LIST+16~, LIST+30* |
| CLSUR | LIST+16~, LIST+34, LIST+40 |
| DA | INACL+4~, INACL+9*, INACL+10*, INACL+11, INACL+13, INACL+18 |
| DESC | INACL~, INACL+21*, EXACTHIT+5~, EXACTHIT+24*, EXACTHIT+25, EXACTHIT+26 |
| DFLT | LIST+16~, LIST+47*, LIST+66 |
| DONE | INACL+4~ |
| DUZ | MYLIST+3, VALES+3 |
| ECT | EXACTHIT+5~, EXACTHIT+14* |
| FANY | EXACTHIT+5~, EXACTHIT+13*, EXACTHIT+26*, EXACTHIT+28 |
| FOUND | INACL+4~, INACL+7*, INACL+8, INACL+15*, INACL+23 |
| FROM | INACL+4~, INACL+6*, INACL+8*, INACL+10, INACL+17 |
| I | LIST+16~, LIST+37*, LIST+38*, LIST+39, INACL+4~, INACL+5* |
| IL | LIST+16~, EXACTHIT+5~, EXACTHIT+15*, EXACTHIT+16*, EXACTHIT+18, EXACTHIT+20, EXACTHIT+29*, EXACTHIT+30 |
| IN29 | EXACTHIT+5~, EXACTHIT+10*, EXACTHIT+11 |
| INTXT | LIST+17~, LIST+22*, LIST+23*, LIST+24, LIST+25*, LIST+35, LIST+54, LIST+56, INACL~, INACL+6 , EXACTHIT~, EXACTHIT+10, EXACTHIT+18, EXACTHIT+25 |
| ISCONS | EXACTHIT+6~, EXACTHIT+19*, EXACTHIT+21, EXACTHIT+22 |
| J | LIST+16~, LIST+44*, LIST+45, LIST+49, LIST+57*, LIST+58, LIST+59 |
| MAGDFN | ADMNCLOS~, ADMNCLOS+8*, ADMNCLOS+9, VALDATA~, VALDATA+1*, VALDATA+2, VALDATA+3, VALDATA+6 |
| MAGM | EXACTHIT+5~ |
| MAGM( | EXACTHIT+26*, EXACTHIT+29, EXACTHIT+30 |
| MAGMODE | ADMNCLOS~, ADMNCLOS+8*, ADMNCLOS+14 |
| MAGRY | LIST~, LIST+14!, LIST+54, EXACTHIT~, ADMNCLOS~, ADMNCLOS+9, ADMNCLOS+14, ADMNCLOS+17* |
| MAGRY( | LIST+50*, LIST+62*, EXACTHIT+30* |
| MAGRY("" | LIST+50, LIST+62, EXACTHIT+30 |
| MAGRY(0 | LIST+28*, LIST+35*, LIST+43*, LIST+47*, LIST+66* |
| MAGRY(1 | LIST+36*, LIST+65! |
| MAGRY(2 | LIST+65 |
| MAGTIUDA | ADMNCLOS~, ADMNCLOS+8*, ADMNCLOS+9, ADMNCLOS+14, VALDATA~, VALDATA+1*, VALDATA+4, VALDATA+5, VALDATA+6 |
| MAGY | VALES+1~*, VALES+3*, VALES+4 |
| MCT | EXACTHIT+5~, EXACTHIT+13*, EXACTHIT+26* |
| MYLIST | LIST~, LIST+18*, LIST+41 |
| RY | VALDATA~, VALDATA+2*, VALDATA+3*, VALDATA+4*, VALDATA+5*, VALDATA+6*, VALDATA+7* |
| STC | BLDLIST~, BLDLIST+4 |
| T | LIST+16~ |
| TARR | LIST+17~, LIST+42, LIST+55!, LIST+56, MYLIST~, MYLIST+2!, MYLIST+3, BLDLIST~, BLDLIST+3!, BLDLIST+4 |
| TARR( | LIST+44, LIST+45, LIST+49, LIST+57, LIST+58, LIST+59 |
| TARR("" | LIST+43 |
| THIEN | EXACTHIT+5~, EXACTHIT+20*, EXACTHIT+22, EXACTHIT+25 |
| TLST | EXACTHIT+5~, EXACTHIT+11 |
| TLST( | EXACTHIT+16, EXACTHIT+18, EXACTHIT+20 |
| TLST(0 | EXACTHIT+12, EXACTHIT+14 |
| TX | LIST+16~, LIST+49*, LIST+50, LIST+58*, LIST+60*, LIST+61*, LIST+62, INACL+4~, INACL+17*, INACL+19* , INACL+20*, INACL+21 |
| TX1 | LIST+16~, LIST+45*, LIST+47, LIST+48*, LIST+50, LIST+59*, LIST+62, INACL+4~, INACL+18*, INACL+21 |
| TX2 | LIST+16~, LIST+49*, LIST+50, INACL+4~ |
| TXC | LIST+16~ |
| U | VALES+3 |
| UPDN | LIST+17~, LIST+26*, LIST+56, BLDLIST~, BLDLIST+2*, BLDLIST+4 |
| X | VALES~, VALES+3 |
