Routine: APCHPWHT

Information

APCHPWHT ; IHS/CMI/LAB -- create/modify health summary type ; 06 Sep 2011 1:08 PM

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

Package

Total

Call Graph

IHS VA Utilities

^XBCLS ENPM^XBDIQ1 ^XBFMK VIEWR^XBLM EN^XBVK

Registration

EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1

VA Fileman

^DIC ^DIE ^DIR

Patient Care Component

EN2^APCHPWHG (HDR,INIT)^APCHPWHT

IHS Patient

^AUPNPAT

Kernel

DISP^XQORM1

Package	Total	Caller Graph
Patient Care Component	1	APCHPWHT

Package

Total

Caller Graph

Patient Care Component

APCHPWHT

Entry Points

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)	;

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"This option will allow you to create a new or modify an existing" Line Location: EP+1
Function Call: WRITE	Prompt: !,"Patient Wellness Handout type.",!! Line Location: EP+2
Function Call: WRITE	Prompt: !!,"Goodbye",! Line Location: EP+4
Function Call: WRITE	Prompt: !,"This Patient Wellness handout type is currently locked to prevent alteration.",! Line Location: EP+5
Function Call: WRITE	Prompt: S Line Location: INIT+21
Function Call: WRITE	Prompt: S Line Location: INIT+27
Function Call: WRITE	Prompt: S Line Location: INIT+33
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,"No Patient Selected." Line Location: DH+4
Function Call: WRITE	Prompt: !,"No Patient Selected." Line Location: PH+4
Function Call: WRITE	Prompt: !!,"You have not added Allergies as a component to this Patient Wellness Handout",!,"type. Don't forget to do so.",! Line Location: AS+2
Function Call: WRITE	Prompt: !!,"WARNING: CCI MEASURES has not been added to the Handout Structure.",!,"CCI MEASURES will not display until they are part of the handout",!,"structure." Line Location: CCIP+2
Function Call: WRITE	Prompt: !!,"You can add a new CCI Measure by entering a new sequence number",!,"and CCI Measure name. To remove a CCI Measure from this handout type select the measure",! Line Location: CCIP+3
Function Call: WRITE	Prompt: "by sequence number and type an '@',",! Line Location: CCIP+4
Function Call: WRITE	Prompt: !!,"You can add a new Quality of Care Transparency Measure by entering a ",!,"new sequence number and measure name. ",!,"To remove a Measure from this handout type select the measure",! Line Location: TQMP+4
Function Call: WRITE	Prompt: "by sequence number and type an '@',",! Line Location: TQMP+5
Function Call: WRITE	Prompt: !!,"You can add a new component by entering a new order number and",!,"component name. To remove a component from this PWH type select the",!,"component by name or order and then enter an '@'.",! Line Location: MS+2
Routine Call	VALM Line Location: EN+1
Routine Call	DIE Line Location: EP+7 AS+3 CCIP+5 TQMP+6 MS+3
Routine Call	DIC Line Location: EP+3 DH+3 PH+3
Routine Call	DIR Line Location: READ+8

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^APCHPWHT - [#9001026]	Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>>	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

Customize PDF page

Package: Patient Care Component