PXKMASC ;ISL/JVS - Build and Pass to auto-check-out ;03/12/2020
Source file <PXKMASC.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 |
---|---|---|
PCE Patient Care Encounter | 1 | PXKMAIN |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN1 | ;Build the Temp global for MAS AND THE WORLD.
|
|
PXGO | ;
|
|
DUP | ;Overwrite if a duplicate just the After Node
|
|
ORG | ;If original copy both
|
|
DEL | ;DELETE IF BOTH ARE NULL
|
|
PTR | ; Set the Provider Narrative equal to the pointer in the files etc.
|
|
EVENT | ; EVENT TO PRESENT THE DATA TO OTHER USERS
|
|
UPD | ;UP DATE VISIT FILE
|
|
CHKACCT | ;
|
|
PXKVDERTN | ;Execute the PXK VISIT DATA EVENT protocol.
|
|
PXKVDETASK | ;Task the PXK VISTA DATA EVENT protocol event.
|
Name | Field # of Occurrence |
---|---|
^%ZTLOAD | PXKVDETASK+8 |
$$GETACCT^IBBAPI | CHKACCT+33 |
$$SWSTAT^IBBAPI | UPD+2, CHKACCT+1 |
ORACTREF^ORWPFSS | CHKACCT+13, CHKACCT+19 |
COEVENT^PXKENC | EVENT+15 |
FINAL^SCDXHLDR | EVENT+21 |
EN^SDPCE | EVENT+18 |
$$GETARN^SDPFSS2 | CHKACCT+11 |
GETARN^SDPFSS2 | CHKACCT+11 |
$$PKG2IEN^VSIT | CHKACCT+7 |
UPD^VSIT | UPD+4 |
$$NOW^XLFDT | PXKVDETASK+6 |
EN^XQOR | UPD+9, PXKVDERTN+3 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVSIT - [#9000010] | EVENT+4, EVENT+7, EVENT+8, EVENT+9, EVENT+10, EVENT+11, UPD+4, UPD+6, UPD+7, CHKACCT+4 , CHKACCT+5, CHKACCT+6, CHKACCT+7, CHKACCT+9, CHKACCT+11, CHKACCT+21, CHKACCT+22, CHKACCT+29, CHKACCT+30, CHKACCT+31 , CHKACCT+32 |
^DIC(8 - [#8] | CHKACCT+31 |
^ORD(101 - [#101] | UPD+8, PXKVDERTN+2 |
^PX(839.7 - [#839.7] | EN1+5, EVENT+5 |
^SCE - [#409.68] | EVENT+14, CHKACCT+23 |
^SCE("AVSIT" | EVENT+14, CHKACCT+23 |
^TMP("PXKCO" | PXGO+4, PXGO+7, DUP+5*, DUP+7*, DUP+9*, ORG+8*, ORG+12*, ORG+15*, ORG+16*, ORG+18* , ORG+20*, DEL+1, DEL+2!, DEL+3, DEL+4, DEL+5!, DEL+6, DEL+7!, PTR+6, PTR+7* , EVENT+1, EVENT+6, EVENT+7*, EVENT+8*, EVENT+9*, EVENT+10*, EVENT+11*, EVENT+12*, EVENT+13*, EVENT+14* , UPD+6, UPD+7*, UPD+10!, CHKACCT+14, CHKACCT+15, CHKACCT+16, CHKACCT+26, CHKACCT+27, PXKVDERTN+4! |
^TMP("PXKENC" | UPD+11! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
OUTENC | CHKACCT+2~, CHKACCT+23* |
PXCPT | CHKACCT+2~, CHKACCT+19* |
PXCPT0 | CHKACCT+2~, CHKACCT+16*, CHKACCT+17, CHKACCT+18, CHKACCT+19 |
PXJ | PTR+1~, PTR+2*, PTR+3, PTR+4, PTR+5, PTR+6, PTR+7 |
PXJJ | PTR+1~, PTR+3*, PTR+4, PTR+5, PTR+6, PTR+7 |
PXJJJ | PTR+1~, PTR+4*, PTR+7 |
>> PXKAFT( | EN1+8, EN1+11, EN1+12 |
>> PXKBEF( | ORG+7, ORG+8, ORG+16, ORG+19, ORG+20 |
>> PXKCAT | EN1+9, PXGO+3, PXGO+4, PXGO+7, DUP+1, DUP+5, DUP+7, DUP+9, ORG+2, ORG+8 , ORG+12, ORG+15, ORG+16, ORG+18, ORG+20, DEL+1, DEL+2, DEL+3, DEL+4, DEL+5 , DEL+6, DEL+7, PTR+6, PTR+7 |
PXKCO | UPD+10! |
PXKCO("SOR" | EVENT+3 |
PXKGG | EN1+4~, EN1+6*, PXGO+1*, PXGO+4*, PXGO+7*, PXGO+9 |
>> PXKGN | PXGO+2*, PXGO+5*, PXGO+8*, DUP+4, DUP+5, DUP+7, DUP+8, DUP+9, ORG+11, ORG+12 , ORG+15, ORG+17, ORG+18 |
PXKMIEN | DUP+2~, DUP+3*, DUP+4*, DUP+5, ORG+3~, ORG+6*, ORG+7*, ORG+8, ORG+10*, ORG+11* , ORG+12 |
PXKMOD | EN1+4~, EN1+12*, PXGO+7 |
PXKOE | EN1+4~, EVENT+14* |
>> PXKPIEN | PXGO+2, PXGO+4, PXGO+7, DUP+5, DUP+7, DUP+9, ORG+8, ORG+12, ORG+15, ORG+16 , ORG+18, ORG+20, DEL+1, DEL+2, DEL+3, DEL+4, DEL+5, DEL+6, DEL+7 |
>> PXKPTR | PTR+2 |
>> PXKPTR( | PTR+2, PTR+3, PTR+4 |
PXKR | PTR+1~, PTR+5*, PTR+7 |
PXKSEQ | EN1+4~, EN1+10*, EN1+11*, EN1+12, PXGO+8, ORG+19, ORG+20 |
>> PXKSOR | EN1+5 |
PXKSUB | EN1+4~, EN1+7*, EN1+8*, EN1+9, EN1+11, EN1+12, PXGO+3, PXGO+4, PXGO+5, PXGO+6 , PXGO+7, PXGO+8, DUP+1, DUP+5, DUP+6, DUP+7, DUP+9, ORG+2, ORG+7, ORG+8 , ORG+12, ORG+14, ORG+15, ORG+16, ORG+18, ORG+19, ORG+20 |
PXKVAL | EN1+4~ |
>> PXKVST | PXGO+4, PXGO+7, DUP+5, DUP+7, DUP+9, ORG+8, ORG+12, ORG+15, ORG+16, ORG+18 , ORG+20, DEL+1, DEL+2, DEL+3, DEL+4, DEL+5, DEL+6, DEL+7, PTR+6, PTR+7 , EVENT+21 |
PXKVVST | EVENT+4, EVENT+6*, EVENT+7, EVENT+8, EVENT+9, EVENT+10, EVENT+11, EVENT+12, EVENT+13, EVENT+14 , EVENT+15, EVENT+21, UPD+4, UPD+6, UPD+7, UPD+10!, CHKACCT+4, CHKACCT+5, CHKACCT+6, CHKACCT+7 , CHKACCT+9, CHKACCT+11, CHKACCT+14, CHKACCT+15, CHKACCT+16, CHKACCT+21, CHKACCT+22, CHKACCT+23, CHKACCT+26, CHKACCT+27 , CHKACCT+29, CHKACCT+30, CHKACCT+31, CHKACCT+32 |
PXOERR | CHKACCT+2~, CHKACCT+13*, CHKACCT+14*, CHKACCT+15, CHKACCT+17*, CHKACCT+18*, CHKACCT+19* |
PXORREF | CHKACCT+2~, CHKACCT+19 |
PXPROS | CHKACCT+2~ |
PXPRV0 | CHKACCT+2~, CHKACCT+27*, CHKACCT+28 |
PXPV1 | CHKACCT+2~, CHKACCT+33 |
PXPV1(18 | CHKACCT+29* |
PXPV1(2 | CHKACCT+21* |
PXPV1(3 | CHKACCT+22* |
PXPV1(4 | CHKACCT+23* |
PXPV1(44 | CHKACCT+30* |
PXPV1(7 | CHKACCT+25*, CHKACCT+26, CHKACCT+28* |
PXPV2 | CHKACCT+2~, CHKACCT+33 |
PXPV2(7 | CHKACCT+31* |
PXSWINFO | UPD+2~*, UPD+5, UPD+6, CHKACCT+1~*, CHKACCT+3, CHKACCT+4 |
SEQ | CHKACCT+2~, CHKACCT+15*, CHKACCT+16, CHKACCT+26*, CHKACCT+27 |
SOR | EVENT+2~, EVENT+3*, EVENT+4*, EVENT+5, EVENT+12, EVENT+13 |
SOURCE | EVENT+2~, EVENT+5*, EVENT+12, EVENT+13 |
U | EVENT+4 |
VSIT | UPD+3~, UPD+10! |
VSIT("ACT" | CHKACCT+9*, CHKACCT+11*, CHKACCT+33* |
VSIT("COD" | UPD+4* |
VSIT("IEN" | UPD+4* |
VSIT("PAT" | CHKACCT+32*, CHKACCT+33, CHKACCT+34! |
X | UPD+8*, PXKVDERTN+1~, PXKVDERTN+2* |
>> ZTDESC | PXKVDETASK+5* |
ZTDTH | PXKVDETASK+1~, PXKVDETASK+6* |
ZTIO | PXKVDETASK+1~, PXKVDETASK+7* |
ZTREQ | PXKVDETASK+1~, PXKVDETASK+2* |
ZTRTN | PXKVDETASK+1~, PXKVDETASK+4* |
ZTSAVE | PXKVDETASK+1~ |
ZTSAVE("^TMP(""PXKCO"",$J," | PXKVDETASK+3* |
ZTSK | PXKVDETASK+1~ |