MAGGNTI1 ;WOIFO/GEK - Imaging interface to TIU. RPC Calls etc. ; 04 Apr 2002 2:37 PM
Source file <MAGGNTI1.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 | 6 | MAG3 TIU CREATE ADDENDUM MAG3 TIU MODIFY NOTE MAG3 TIU NEW MAG3 TIU SIGN RECORD MAGDTR03 MAGGNTI |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NEW(MAGRY,MAGDFN,MAGTITLE,MAGADCL,MAGMODE,MAGES,MAGESBY,MAGLOC,MAGDATE,MAGCNSLT,MAGTEXT) | ;RPC [MAG3 TIU NEW]
|
|
| NEWADD(MAGRY,MAGDFN,MAGTIUDA,MAGADCL,MAGMODE,MAGES,MAGESBY,MAGDATE,MAGTEXT) | ; RPC [MAG3 TIU CREATE ADDENDUM]
; RPC call to create an Addendum to a Note ; and Optionally : ; Electronically Sign, ; Administratively Close, ; or Add Text to the Addendum ; ; - - - Required - - - ; MAGDFN - Patient DFN ; MAGTIUDA - IEN of TIU NOTE in file 8925 ; - - - Optional - - - ; MAGTEXT - Array of Text to add to the New Note. ; MAGES - The encrypted Electronic Signature ; MAGESBY - The DUZ of the Signer (Defaults to DUZ) ; MAGADCL - 1 = Mark this Note as Administratively Closed ; MAGMODE - Mode of Admin Closure: "S" = Scanned Document "M" = Manual closure "E" = Electronically Filed ; MAGDATE - Date of the Addendum. |
|
| MOD(MAGRY,MAGDFN,MAGTIUDA,MAGADCL,MAGMODE,MAGES,MAGESBY,MAGTEXT) | ; RPC [MAG3 TIU MODIFY NOTE]
; After a Note is filed, we call this to Modify the Note. We do this to sign it. ; That way the Signed Date is After the Image Association Date/Time. |
|
| ERR | ; ERROR TRAP
|
|
| SIGN(MAGRY,MAGDFN,MAGTIUDA,MAGES,MAGESBY) | ;RPC [MAG3 TIU SIGN RECORD]
; RPC Call to 'Sign' a Note. |
| Name | Field # of Occurrence |
|---|---|
| $$EC^%ZOSV | ERR+1 |
| $$GET1^DIQ | NEWADD+45 |
| $$VALDATA^MAGGNTI2 | NEWADD+23 |
| $$VALES^MAGGNTI2 | NEW+51 |
| ADMNCLOS^MAGGNTI2 | NEW+89, NEWADD+61 |
| MOD^MAGGNTI3 | MOD+9 |
| SIGN^MAGGNTI3 | NEW+95, NEWADD+55, SIGN+2 |
| $$VALID^MAGGSIV1 | NEW+53, NEW+77, NEWADD+42 |
| ISCNSLT^TIUCNSLT | NEW+59 |
| $$CANENTR^TIULP | NEW+57 |
| MAKE^TIUSRVP | NEW+71 |
| MAKEADD^TIUSRVP | NEWADD+32 |
| UPDATE^TIUSRVP | NEW+84, NEWADD+49 |
| $$NOW^XLFDT | NEW+54 |
| RPC Name | Call Tags |
|---|---|
| MAG3 TIU NEW | NEW |
| MAG3 TIU CREATE ADDENDUM | NEWADD |
| MAG3 TIU SIGN RECORD | SIGN |
| MAG3 TIU MODIFY NOTE | MOD |
| FileNo | Call Tags |
|---|---|
| ^TIU(8925 - [#8925] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("ERRTN" | ERR+3 |
| ^DPT - [#2] | NEW+45 |
| ^TIU(8925.1 - [#8925.1] | NEW+49 |
| ^VA(200 - [#200] | NEW+47 |
| Name | Line Occurrences |
|---|---|
| @( | ERR+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CT | NEWADD+24~, NEWADD+25*, NEWADD+28* |
| DUZ | NEW+27, NEW+80, NEWADD+20, NEWADD+47, MOD+8 |
| ERR | ERR+1~*, ERR+2 |
| I | NEW+30~, NEW+40*, NEW+41*, NEW+42, NEWADD+24~, NEWADD+25*, NEWADD+27*, NEWADD+28 |
| ISVAL | NEW+30~ |
| MAGADCL | NEW~, NEW+26*, NEW+88, NEWADD~, NEWADD+19*, NEWADD+60, MOD~, MOD+5*, MOD+9 |
| MAGCNSLT | NEW~, NEW+29*, NEW+62, NEW+64, NEW+82 |
| MAGDATE | NEW~, NEW+29*, NEW+53, NEW+54*, NEW+67, NEW+77, NEW+78, NEWADD~, NEWADD+21*, NEWADD+42 , NEWADD+44 |
| MAGDFN | NEW~, NEW+25*, NEW+45, NEW+71, NEW+89, NEW+95, NEWADD~, NEWADD+19*, NEWADD+23, NEWADD+55 , NEWADD+61, MOD~, MOD+4*, MOD+9, SIGN~, SIGN+2 |
| MAGES | NEW~, NEW+26*, NEW+51, NEW+94, NEW+95, NEWADD~, NEWADD+19*, NEWADD+54, NEWADD+55, MOD~ , MOD+7*, MOD+9, SIGN~, SIGN+2 |
| MAGESBY | NEW~, NEW+27*, NEW+47, NEW+80, NEW+95, NEWADD~, NEWADD+20*, NEWADD+47, NEWADD+55, MOD~ , MOD+8*, MOD+9, SIGN~, SIGN+2 |
| MAGISC | NEW+30~, NEW+59, NEW+60, NEW+62*, NEW+64, NEW+82 |
| MAGLOC | NEW~, NEW+25*, NEW+67, NEW+71 |
| MAGMODE | NEW~, NEW+28*, NEW+33, NEW+34, NEW+35, NEW+89, NEWADD~, NEWADD+20*, NEWADD+61, MOD~ , MOD+6*, MOD+9 |
| MAGRES | NEW+77, NEWADD+24~, NEWADD+42 |
| MAGRY | NEW~, NEW+35*, NEW+45*, NEW+47*, NEW+49*, NEW+51*, NEW+53*, NEW+57*, NEW+60*, NEW+64* , NEW+72*, NEW+73*, NEW+74, NEW+77*, NEW+83*, NEW+90*, NEW+96*, NEWADD~, NEWADD+23, NEWADD+32 , NEWADD+36*, NEWADD+37, NEWADD+38*, NEWADD+42*, NEWADD+50*, NEWADD+56*, NEWADD+62*, MOD~, MOD+9, ERR+2* , SIGN~, SIGN+2 |
| MAGTEXT | NEW~, NEWADD~, NEWADD+27, MOD~ |
| MAGTEXT( | NEW+33*, NEW+34*, NEW+38*, NEW+41, NEW+42, NEWADD+27, NEWADD+28 |
| MAGTEXT("" | NEW+38 |
| MAGTITLE | NEW~, NEW+25*, NEW+49, NEW+57, NEW+59, NEW+71 |
| MAGTIUDA | NEW+30~, NEW+71, NEW+72, NEW+73, NEW+84, NEW+89, NEW+95, NEWADD~, NEWADD+19*, NEWADD+23 , NEWADD+32, NEWADD+45, MOD~, MOD+4*, MOD+9, SIGN~, SIGN+2 |
| MAGTIUX | NEW+30~, NEW+71 |
| MAGTIUX("TEXT" | NEW+42* |
| MAGTY | NEW+30~, NEW+74*, NEW+89, NEW+90, NEW+95, NEW+96, NEWADD+55, NEWADD+56, NEWADD+61, NEWADD+62 |
| MAGUPD | NEWADD+24~, NEWADD+41!, NEWADD+48, NEWADD+49 |
| MAGUPD("1202" | NEWADD+47* |
| MAGUPD(1211 | NEWADD+45* |
| MAGUPD(1301 | NEWADD+44* |
| MAGVSTR | NEW+30~, NEW+67*, NEW+71 |
| MAGX | NEW+30~, NEW+53 |
| MAGXT | NEWADD+24~, NEWADD+32 |
| MAGXT("TEXT" | NEWADD+26*, NEWADD+28* |
| MAGY | NEWADD+24~, NEWADD+49, NEWADD+50 |
| MTXT | NEW+30~, NEW+83, NEW+84 |
| MTXT("1202" | NEW+80* |
| MTXT("1405" | NEW+82* |
| MTXT(1301 | NEW+78* |
| MUPD | NEW+30~, NEW+83, NEW+84 |
| NEWTIUDA | NEWADD+24~, NEWADD+37*, NEWADD+49, NEWADD+55, NEWADD+61 |
| NODE | NEW+30~, NEW+40*, NEW+42* |
| Name | Field # of Occurrence |
|---|---|
| $T( | NEW+24, NEWADD+18, MOD+3 |
