APCHPWHT ; IHS/CMI/LAB -- create/modify health summary type ; 06 Sep 2011 1:08 PM
Source file <APCHPWHT.m>
Package | Total | Call Graph |
---|---|---|
IHS VA Utilities | 5 | ^XBCLS ENPM^XBDIQ1 ^XBFMK VIEWR^XBLM EN^XBVK |
Registration | 3 | EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 |
VA Fileman | 3 | ^DIC ^DIE ^DIR |
Patient Care Component | 2 | EN2^APCHPWHG (HDR,INIT)^APCHPWHT |
IHS Patient | 1 | ^AUPNPAT |
Kernel | 1 | DISP^XQORM1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
HDR | ;EP -- header code
|
|
DH | ;EP called from protocol to generate PWH
|
|
EOJ | ;
|
|
S1 | ;
|
|
BACK | ;go back to listman
|
|
EXPND | ; -- expand code
|
|
PAUSE | ;EP; -- ask user to press ENTER
|
|
ALG(P) | ;
|
|
HELP | ; -- help code
|
|
CCI(P) | ;
|
|
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN,DIRA) | ;EP; calls reader, returns response
|
|
INIT | ;EP -- init variables and list array
|
|
PH | ;EP called from protocol to generate PWH
|
|
C | ;
|
|
EN | ; -- main entry point for APCH CREATE/MODIFY TYPE
|
|
TQMP | ;EP - called from protocol entry
|
|
S(Y,F,C,T) | ;EP - set up array
|
|
CCIP | ;EP - called from protocol entry
|
|
AS | ;EP
|
|
EP | ;EP - called from option
|
|
COMP(S,C) | ;EP
|
|
EXIT | ; -- EXIT code
|
|
MS | ;EP - called from protocol entry
|
|
TQM(P) | ;
|
Name | Field # of Occurrence |
---|---|
EN2^APCHPWHG | PH+10 |
HDR^APCHPWHT | BACK+4 |
INIT^APCHPWHT | BACK+3 |
^AUPNPAT | DH+6, PH+6 |
^DIC | EP+3, DH+3, PH+3 |
^DIE | EP+7, AS+3, CCIP+5, TQMP+6, MS+3 |
^DIR | READ+8 |
EN^VALM | EN+1 |
TERM^VALM0 | BACK+1 |
CLEAR^VALM1 | EN+2 |
FULL^VALM1 | EN+3, DH+1, PH+1, AS+1, CCIP+1, TQMP+1, MS+1 |
^XBCLS | PAUSE+2 |
ENPM^XBDIQ1 | INIT+15, INIT+16 |
^XBFMK | EP+3, EP+7, EOJ+2, AS+3, CCIP+5, TQMP+6, MS+3 |
VIEWR^XBLM | DH+9 |
EN^XBVK | EOJ+1 |
DISP^XQORM1 | HELP+1 |
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^AUPNPAT - [#9000001] | Classic Fileman Calls |
^APCHPWHT - [#9001026] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^APCHPWHC - [#9001025] | INIT+8, ALG+3, CCI+3, TQM+3 |
^APCHPWHC("B" | CCIP+2, TQMP+2 |
^APCHPWHE - [#9001025.05] | INIT+21 |
^APCHPWHF - [#9001025.06] | INIT+27, INIT+33 |
^APCHPWHT - [#9001026] | EP+5, HDR+1, INIT+7, INIT+8, INIT+19, INIT+20, INIT+25, INIT+26, INIT+31, INIT+32 , COMP+1, DH+8, PH+8, ALG+3, CCI+3, TQM+3 |
^DPT - [#2] | DH+8, PH+8 |
^TMP($J | INIT+1!, C+1, S1+2* |
^XUSEC( | EP+5 |
Name | Line Occurrences |
---|---|
$$ALG | AS+2 |
$$COMP | CCIP+2, TQMP+2 |
$$READ | PAUSE+2 |
BACK | DH+4, DH+10, PH+4, PH+12, AS+4, CCIP+6, TQMP+7, MS+4 |
EN | EP+8 |
EOJ | EP+4, EN+5 |
EP | EP+5 |
S | INIT+5, INIT+6, INIT+14, INIT+15, INIT+16, INIT+18, INIT+22, INIT+24, INIT+28, INIT+30 , INIT+34 |
S1 | S+4, S+6, S+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | EP+5*, S+7*, S+8*, DH+8*, DH+9, PH+8* |
A | INIT+3~, INIT+4*, INIT+8*, INIT+9*, INIT+15, ALG+1~, ALG+3*, CCI+1~, CCI+3*, TQM+1~ , TQM+3* |
>> APCHC | INIT+2*, S1+1*, S1+2 |
APCHITST | PH+9*, PH+11! |
>> APCHPWHT | EP+6*, EP+7, HDR+1, INIT+7, INIT+8, INIT+15, INIT+16, INIT+19, INIT+20, INIT+25 , INIT+26, INIT+31, INIT+32, DH+8, PH+8, PH+10, AS+2, AS+3, CCIP+2, CCIP+5 , TQMP+2, TQMP+6, MS+3 |
>> APCHSDFN | DH+7*, DH+8, PH+7*, PH+8 |
B | INIT+3~, INIT+4*, INIT+8*, INIT+11*, INIT+16, ALG+1~, ALG+3*, CCI+1~, CCI+3*, TQM+1~ , TQM+3* |
C | INIT+3~, INIT+8*, INIT+9, INIT+10, INIT+11, INIT+12, INIT+13, INIT+14, S~, S+6 , COMP~, COMP+1 |
DA | EP+3!, EP+7*, DH+3!, PH+3!, AS+3*, CCIP+5*, TQMP+6*, MS+3* |
DD | EP+3! |
DEFAULT | READ~, READ+5 |
>> DFN | DH+2*, DH+5*, DH+6, DH+7, PH+2*, PH+5*, PH+6, PH+7, PH+10 |
DIADD | DH+3!, PH+3! |
DIC | EP+3*!, DH+3*!, PH+3*! |
DIC(0 | EP+3*, DH+3*, PH+3* |
>> DIE | EP+7*, AS+3*, CCIP+5*, TQMP+6*, MS+3* |
DIR | BACK+5!, READ+1~ |
DIR("?" | READ+6* |
DIR("A" | READ+4*, READ+7* |
DIR("B" | READ+5* |
DIR("S" | READ+3* |
DIR(0 | READ+2* |
DIRA | READ~ |
DIRA( | READ+7 |
DIRA(1 | READ+7 |
DLAYGO | DH+3!, PH+3! |
DO | EP+3! |
DR | EP+3!, EP+7*, DH+3!, PH+3!, AS+3*, CCIP+5*, TQMP+6*, MS+3* |
DUZ | EP+5 |
E | INIT+3~, INIT+4*, INIT+8*, INIT+13*, INIT+29, INIT+31, INIT+32 |
F | S~, S+1*, S+4* |
G | ALG+1~, ALG+2*, ALG+3*, ALG+4, CCI+1~, CCI+2*, CCI+3*, CCI+4, TQM+1~, TQM+2* , TQM+3*, TQM+4 |
HELP | READ~, READ+6 |
I | INIT+3~, INIT+4*, INIT+8*, INIT+12*, INIT+23, INIT+25, INIT+26, BACK+6! |
IOF | EN+4 |
IOST | PAUSE+1 |
>> L | S+6* |
M | INIT+3~ |
O | INIT+3~, INIT+8*, INIT+14 |
P | ALG~, ALG+3, CCI~, CCI+3, TQM~, TQM+3 |
PROMPT | READ~, READ+4 |
S | COMP~, COMP+1 |
SCREEN | READ~, READ+3 |
T | INIT+3~, INIT+4*, INIT+8*, INIT+10*, INIT+17, INIT+19, INIT+20, S~, S+2*, S+6* , S+7, S+8 |
TYPE | READ~, READ+2 |
U | EP+5, HDR+1, INIT+8, INIT+20, INIT+21, INIT+26, INIT+27, INIT+32, INIT+33, COMP+1 , DH+8, PH+8, ALG+3, CCI+3, TQM+3 |
V | INIT+3~, INIT+19*, INIT+20, INIT+22, INIT+25*, INIT+26, INIT+28, INIT+31*, INIT+32, INIT+34 |
>> VALMBCK | BACK+2* |
>> VALMCNT | C+1* |
>> VALMHDR(1 | HDR+1* |
W | INIT+3~, INIT+20*, INIT+21*, INIT+22, INIT+26*, INIT+27*, INIT+28, INIT+32*, INIT+33*, INIT+34 |
X | INIT+3~, INIT+5*, INIT+6*, INIT+14*, INIT+15*, INIT+16*, INIT+22*, INIT+28*, INIT+34*, S+4* , S+5*, S+7*, S+8*, S1+2, HELP+1*, BACK+6!, COMP+1~*, READ+1~ |
Y | EP+4, EP+5, EP+6, INIT+3~, INIT+7*, INIT+8, INIT+9, INIT+10, INIT+11, INIT+12 , INIT+13, S~, S+5, S+6, S+8, BACK+6!, COMP+1~*, COMP+2, DH+4, DH+5 , DH+6*, PH+4, PH+5, PH+6*, PAUSE+2~*, READ+1~, READ+7*, READ+9 |
Z | INIT+15!, INIT+16!, BACK+6! |
Z( | INIT+15, INIT+16 |