APCDPG1 ; IHS/CMI/LAB - GOAL list update from list manager ;
Source file <APCDPG1.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 6 | EN^DDIOL ^DIC FILE^DICN ^DIE (EN,GETS)^DIQ ^DIR |
Patient Care Component | 3 | STP^APCDAGOL ($$DATE,GATHER,HDR)^APCDPG (MN1,NO1,RNO1)^APCDPG2 |
IHS VA Utilities | 2 | ^XBFMK (DIQ,VIEWR)^XBLM |
Kernel | 2 | $$FMTE^XLFDT $$REPEAT^XLFSTR |
Registration | 2 | TERM^VALM0 ($$SETSTR,CLEAR,FULL)^VALM1 |
IHS Patient | 1 | ^AUPNPAT |
Name | Comments | DBIA/ICR reference |
---|---|---|
FS | ;EP -called from protcol to display face sheet
|
|
DIE | ;
|
|
DD | ;EP - called from protocol to display (DIQ) a GOAL in detail
|
|
REV | ;
|
|
DEL | ;EP - called from protocol to delete a GOAL on GOAL list
|
|
SET | ;set array
|
|
IG1 | ;
|
|
REVE | ;
|
|
FM12 | ;
|
|
KDIE | ;kill all vars used by DIE
|
|
FM13 | ;
|
|
HS | ;EP - called from protocol to display health summary
|
|
PAUSE | ;EP
|
|
BUILD1 | ;
|
|
GETGOAL | ;get record
|
|
REVE1 | ||
AN | ;EP - add a step, called from protocol
|
|
ADD | ;EP - called from protocol to add a GOAL to GOAL list
|
|
BUILD | ; build array
|
|
GETNUM(P) | ;EP - get GOAL number given ien of GOAL entry
|
|
FMD | ;
|
|
FME | ;
|
|
IG | ;EP - called from protocol to display health summary
|
|
FMA | ;
|
|
RNO | ;EP - called from protocol to remove a step
|
|
GOAL | ;
|
|
EDIT | ;EP - called from protocol to modify a GOAL on GOAL list
|
|
MN | ;EP - called from protocol to modify a step
|
|
EXIT | ;
|
Name | Field # of Occurrence |
---|---|
STP^APCDAGOL | ADD+20 |
$$DATE^APCDPG | REV+7 |
GATHER^APCDPG | EXIT+3 |
HDR^APCDPG | EXIT+5 |
MN1^APCDPG2 | MN+4 |
NO1^APCDPG2 | AN+4 |
RNO1^APCDPG2 | RNO+12 |
^AUPNPAT | HS+10 |
EN^DDIOL | REV+4, FM12+1, FME+1, FMD+1 |
^DIC | HS+5 |
FILE^DICN | ADD+13 |
^DIE | DIE+1, ADD+17, EDIT+11, DEL+20, REVE+7, REVE+16, FME+9, FMD+9, FMA+14 |
EN^DIQ | DEL+14 |
GETS^DIQ | GOAL+1 |
^DIR | GETGOAL+2, ADD+8, DEL+6, DEL+16, RNO+6, PAUSE+1, REVE+10, FM12+4, FME+3, FMD+3 , FMA+5, FMA+9 |
TERM^VALM0 | EXIT+1 |
$$SETSTR^VALM1 | BUILD1+1 |
CLEAR^VALM1 | IG+5 |
FULL^VALM1 | GETGOAL+7, ADD+1, DEL+1, RNO+1, HS+1, FS+1, IG+1 |
^XBFMK | DEL+21 |
DIQ^XBLM | DD+4 |
VIEWR^XBLM | HS+9, FS+3, IG+4 |
$$FMTE^XLFDT | FMA+5, FMA+14 |
$$REPEAT^XLFSTR | REV+4 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^AUPNGOAL - [#9000093] | Classic Fileman Calls, GETS^DIQ |
^APCHSCTL - [#9001015] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^APCCCTRL - [#9001000] | HS+2 |
^APCHSCTL - [#9001015] | HS+2, HS+3 |
^AUPNGOAL - [#9000093] | GETGOAL+6, ADD+20, EDIT+7, GETNUM+4, GETNUM+5, GETNUM+6, REVE+8, REVE+9, REV+3, REV+5 , REV+7, IG1+5, GOAL+22, GOAL+31 |
^AUPNGOAL("AA" | IG1+3, IG1+4, IG1+5 |
^AUTTLOC - [#9999999.06] | GETNUM+6 |
^DD( | GOAL+5, GOAL+17, GOAL+27, GOAL+36 |
^DD(9000093 | FME+7, FMD+7 |
^DD(9000093.01 | GOAL+13 |
^DISV( | HS+3 |
^DPT - [#2] | ADD+6, DEL+13, HS+8, FS+2, IG+3, BUILD+5 |
Name | Line Occurrences |
---|---|
@( | FM12+8 |
BUILD | IG1+11 |
BUILD1 | BUILD+5, GOAL+7, GOAL+15, GOAL+19, GOAL+29, GOAL+38 |
DIE | EDIT+10 |
EXIT | ADD+9, ADD+14, ADD+21, EDIT+3, EDIT+13, DEL+7, DEL+8, DEL+11, DEL+17, DEL+18 , DEL+21, AN+3, AN+5, MN+3, MN+5, RNO+7, RNO+8, RNO+11, RNO+13, HS+6 , HS+12, DD+3, DD+5, FS+5, REVE+3, REVE+11, REVE1+1, IG+6 |
FM12 | REV+3 |
FM13 | FM12+5, FM12+6 |
GETGOAL | EDIT+2, DEL+10, AN+2, MN+2, RNO+10, DD+2, REVE+2 |
KDIE | ADD+17, ADD+18, ADD+19, EXIT+7, FME+10, FMD+10 |
PAUSE | ADD+14, EDIT+3, DEL+11, DEL+17, DEL+18, DEL+21, AN+3, MN+3, MN+5, RNO+11 , RNO+13, HS+6, DD+3, REVE+3 |
REV | EDIT+12, REVE1, FM12+9 |
REVE1 | REVE+9, REVE+13 |
SET | IG1+10, BUILD+6, GOAL+22, GOAL+25, GOAL+31, GOAL+34, GOAL+39, BUILD1+2 |
Name | Field # of Occurrence |
---|---|
^("^APCHSCTL(" | HS+3 |
^(0 | DEL+13, HS+2, HS+3, GETNUM+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | KDIE+1! |
AGDENT | FS+4! |
AGMVDF | FS+4! |
AGOPT | FS+4! |
AMCHDAYS | HS+11! |
AMCHDOB | HS+11! |
APCDAF | EXIT+6! |
APCDAR | BUILD+1~, BUILD+3! |
APCDAR( | GOAL+3, GOAL+6, GOAL+11, GOAL+12, GOAL+14, GOAL+16, GOAL+18, GOAL+24, GOAL+26, GOAL+28 , GOAL+33, GOAL+35, GOAL+37 |
APCDC | REV+2*, REV+6*, REV+7, FM12+3, FM13+1!, FME+3, FMD+3 |
APCDCM | REV+2!, FM13+1! |
APCDCM( | REV+6*, FME+6, FMD+6 |
APCDCTR | BUILD+1~, BUILD+4* |
>> APCDDATE | ADD+5*, EDIT+6*, REVE+6* |
>> APCDDONE | FM12+6* |
APCDF | EXIT+6!, IG1+2~, IG1+3*, IG1+4, IG1+5, BUILD+1~, GOAL+3*, GOAL+4, GOAL+5, GOAL+6 , GOAL+11*, GOAL+12*, GOAL+13, GOAL+14, GOAL+16*, GOAL+17, GOAL+18, GOAL+24*, GOAL+26*, GOAL+27 , GOAL+28, GOAL+33*, GOAL+35*, GOAL+36, GOAL+37 |
APCDF1 | BUILD+1~ |
>> APCDGOAL | ADD+20* |
APCDH | BUILD+1~, BUILD+5*, GOAL+5*, GOAL+13*, GOAL+17*, GOAL+27*, GOAL+36*, BUILD1+1 |
APCDHDR | HS+8*, HS+9, HS+11!, FS+2*, FS+3, FS+4!, IG+3*, IG+4 |
APCDI | BUILD+1~, GOAL+2*, GOAL+3, GOAL+6, GOAL+16, GOAL+18 |
>> APCDIGS | ADD+7*, ADD+10*, ADD+12, ADD+17 |
APCDII | BUILD+1~, GOAL+10*, GOAL+11*, GOAL+12, GOAL+14, GOAL+23*, GOAL+24*, GOAL+26, GOAL+28, GOAL+32* , GOAL+33*, GOAL+35, GOAL+37 |
APCDJ | BUILD+1~ |
>> APCDLINE | EXIT+4 |
>> APCDLOC | ADD+4*, EDIT+5*, REVE+5* |
APCDNARR | BUILD+1~ |
>> APCDNDT | ADD+5, EDIT+6, REVE+6 |
APCDP | GETGOAL+4*, GETGOAL+5, GETGOAL+6!, EXIT+6! |
APCDP0 | EXIT+6!, IG1+5*, IG1+6, IG1+7, IG1+8, IG1+9, BUILD+5 |
APCDPAT | ADD+3*, EDIT+1~, EDIT+4*, DEL+9~, REVE+1~, REVE+4* |
>> APCDPG("IDX" | GETGOAL+5 |
>> APCDPGI | IG1+4*, IG1+5 |
>> APCDPGPT | ADD+2, ADD+3, ADD+6, EDIT+4, DEL+13, HS+7, HS+8, HS+10, FS+2, REVE+4 , IG+3, IG1+3, IG1+4, IG1+5 |
APCDPIEN | DIE+1, GETGOAL+1*, GETGOAL+5*, GETGOAL+6*, ADD+16*, ADD+17, ADD+20, EDIT+1~, EDIT+3, EDIT+7 , EDIT+11, DEL+9~, DEL+11, DEL+14, DEL+20, AN+1~, AN+3, MN+1~, MN+3, RNO+9~ , RNO+11, DD+1~, DD+3, DD+4, EXIT+6!, REVE+1~, REVE+3, REVE+7, REVE+8, REVE+9 , REVE+15, REV+3, REV+5, REV+7, FME+6, FME+7, FMD+6, FMD+7, FMA+14, IG1+5* , GOAL+1, GOAL+2, GOAL+22, GOAL+31 |
APCDPRB | EXIT+6! |
APCDPRMT | EXIT+6! |
>> APCDRCNT | GETGOAL+2 |
>> APCDREVD | FMA+4*, FMA+7*, FMA+14 |
>> APCDREVT | FMA+8*, FMA+12* |
>> APCDSS | REVE+8*, REVE+10, REVE+12*, REVE+13, REVE+14 |
APCDSTR | IG1+10*, SET+1, BUILD+1~, BUILD+4*, BUILD+6*, GOAL+22*, GOAL+25*, GOAL+31*, GOAL+34*, GOAL+39* , BUILD1+1* |
APCDTEMP | DIE+1, EDIT+8*, EXIT+6! |
APCDV | BUILD+1~, BUILD+5*, GOAL+6*, GOAL+14*, GOAL+18*, GOAL+28*, GOAL+37*, BUILD1+1 |
APCDVDG | BUILD+1~ |
APCDVFC | BUILD+1~ |
APCDVFLE | BUILD+1~ |
APCDVI | BUILD+1~ |
APCDVIGR | BUILD+1~ |
APCDVNM | BUILD+1~ |
APCDVREC | BUILD+1~ |
APCDX | IG1+2~ |
APCDY | IG1+2~ |
APCHSMTY | HS+11! |
APCHSPAT | HS+7*, HS+11! |
APCHSTAT | HS+11! |
APCHSTYP | HS+7*, HS+11! |
D0 | KDIE+1!, ADD+13!, HS+5! |
D1 | HS+5! |
DA | DIE+1*, KDIE+1!, GETGOAL+2!, ADD+8!, ADD+17*, EDIT+11*, DEL+6!, DEL+14*, DEL+20*!, RNO+6! , HS+5!, REVE+7*, REVE+10!, REVE+15*, REVE+17!, FM12+4!, FME+3!, FME+5!, FME+6*, FMD+3! , FMD+5!, FMD+6*, FMA+5!, FMA+9!, FMA+14*!, FMA+15! |
DA(1 | FME+6*, FMD+6* |
DD | ADD+13!, HS+5! |
>> DFN | HS+10* |
DI | KDIE+1! |
DIADD | KDIE+1!, ADD+12*, ADD+13! |
DIC | ADD+12!*, ADD+13!, DEL+14*, HS+5!*, FME+5!, FMD+5!, FMA+15! |
DIC("B" | HS+5* |
DIC("P" | FME+7*, FMD+7* |
DIC(0 | ADD+12*, HS+5* |
DIE | DIE+1*, KDIE+1!, ADD+13!, ADD+17*, EDIT+11*, DEL+20*!, REVE+7*, REVE+15*, REVE+17!, FME+7* , FMD+7*, FMA+14*! |
DIE("NO^" | ADD+17*, DEL+20* |
DIR | GETGOAL+2!, ADD+8!, DEL+6!, DEL+16!, RNO+6!, PAUSE+1!, REVE+10!, FM12+2!, FM12+4!, FME+2! , FME+3!, FMD+2!, FMD+3!, FMA+5!, FMA+9! |
DIR("A" | GETGOAL+2*, ADD+8*, DEL+6*, DEL+16*, RNO+6*, PAUSE+1*, REVE+10*, FM12+4*, FME+3*, FMD+3* , FMA+5*, FMA+9* |
DIR("B" | DEL+6*, DEL+16*, RNO+6*, REVE+10*, FM12+4*, FMA+5* |
DIR(0 | GETGOAL+2*, ADD+8*, DEL+6*, DEL+16*, RNO+6*, PAUSE+1*, REVE+10*, FM12+3*, FME+3*, FMD+3* , FMA+5*, FMA+9* |
>> DIRUT | GETGOAL+3, ADD+9, DEL+7, DEL+16*, DEL+17, RNO+7, PAUSE+1*, REVE+11, FM12+5, FME+4 , FMD+4, FMA+6, FMA+10 |
DIU | KDIE+1! |
DIV | KDIE+1! |
DIW | KDIE+1! |
DIY | KDIE+1! |
DLAYGO | KDIE+1!, ADD+12*, ADD+13!, ADD+21! |
DO | KDIE+1!, ADD+13! |
DQ | KDIE+1!, HS+5! |
DR | DIE+1*, KDIE+1!, ADD+13!, ADD+17*, EDIT+11*, DEL+20*!, HS+5!, REVE+7*, REVE+14*, REVE+17! , FME+5!, FME+8*, FMD+5!, FMD+8*, FMA+14*!, FMA+15! |
DR(2 | FMA+14* |
DT | FMA+5 |
>> DUOUT | DEL+16, PAUSE+1 |
DUZ | HS+3 |
DUZ(2 | ADD+4, EDIT+5, HS+2, REVE+5 |
F | GETNUM+1~, GETNUM+5*, GETNUM+6, BUILD+2~, GOAL+3*, GOAL+5, GOAL+6, GOAL+10*, GOAL+11, GOAL+12 , GOAL+14, GOAL+16*, GOAL+17, GOAL+18, GOAL+23*, GOAL+24, GOAL+26, GOAL+27, GOAL+28, GOAL+32* , GOAL+33, GOAL+35, GOAL+36, GOAL+37 |
F1 | BUILD+2~ |
H | BUILD+2~ |
IOF | ADD+6, EDIT+9, DEL+12 |
N | GETNUM+1~, GETNUM+2*, GETNUM+3, GETNUM+4, GETNUM+6*, GETNUM+7 |
P | GETNUM~, GETNUM+3, GETNUM+4, GETNUM+5, GETNUM+6 |
U | ADD+6, ADD+20, EDIT+7, DEL+13, HS+2, HS+3, HS+8, FS+2, GETNUM+5, GETNUM+6 , REVE+8, REVE+9, REV+7, FME+7, FMD+7, IG+3, IG1+6, IG1+7, IG1+8, IG1+9 , BUILD+5, GOAL+5, GOAL+13, GOAL+17, GOAL+27, GOAL+36 |
>> VALMBCK | EXIT+2* |
>> VALMCNT | EXIT+4* |
X | GETGOAL+5*, ADD+12*, ADD+13!, EDIT+7*, EDIT+8, HS+2*, HS+3*, HS+4*, HS+5, REV+5* , REV+6, REV+7, FMA+15!, BUILD+2~ |
Y | GETGOAL+4, GETGOAL+5*, ADD+10, ADD+14, ADD+16, ADD+18, DEL+8, DEL+18, RNO+8, HS+3* , HS+6, HS+7, HS+10*, REVE+12, FM12+6, FM12+7*, FM12+8, FM13+1!, FME+6, FMD+6 , FMA+7, FMA+11, FMA+12, FMA+15! |