Routine: APCHPWHG

Information

APCHPWHG ; IHS/CMI/LAB - PCC HEALTH SUMMARY ;

Source Information

Source file <APCHPWHG.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE ^XBFMK EN^XBNEW EN^XBVK
VA Fileman	4	^DIC FILE^DICN ^DIE ^DIR
Kernel	1	($$FMTE,$$NOW)^XLFDT
Patient Care Component	1	EP^APCHPWH1
Registration	1	(CLEAR,FULL)^VALM1
iCare	1	LOG^BQINOTR

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Patient Care Component	2	APCHPMH APCHPWHT
IHS Changes To Pharmacy	1	APSPNE4
IHS Changes To Scheduling	1	BSDROUT
IHS RPMS CHR System	1	BCHRPWH

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
EXIT1	;
ZIS	;EP
HEAD1	;
HEADER	;
BROWSE	;
EOJ	;
EHR(DFN,APCHPWHT)
W	;write out array
SELTYP	;
USR()	;EP - Return name of current user from ^VA(200.
LOC()	;EP - Return location name from file 4 based on DUZ(2).
EXIT	;
EN1(APCHPWHT)	;EP
ENCOMP	;EP
CTR(X,Y)	;EP - Center X in a field Y wide.
PRINT	;EP
SELPT	;
UPDDEF	;EP - called from option to update default PWH for the site
EN2(APCHPWHT,P)	;EP
UPDLOG(P,T,D)	;EP - update pwh log

External References

Name	Field # of Occurrence
EP^APCHPWH1	PRINT+4
LOG^BQINOTR	UPDLOG+3
^DIC	SELTYP+8, SELPT+3, UPDDEF+4
FILE^DICN	UPDLOG+8
^DIE	UPDDEF+6
^DIR	ZIS+1, W+14, HEADER+2
CLEAR^VALM1	EXIT1+1
FULL^VALM1	EXIT1+2
^XBDBQUE	ZIS+6, BROWSE+2
^XBFMK	SELTYP+2, EXIT+3, EXIT1+4, EOJ+5, UPDLOG+9, UPDDEF+7
EN^XBNEW	EHR+3
EN^XBVK	EXIT+1, EOJ+3, EOJ+4
$$FMTE^XLFDT	HEAD1+3, HEAD1+4
$$NOW^XLFDT	UPDLOG+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR("* Patient Wellness Handout *"),!! Line Location: EN+1
Function Call: WRITE	Prompt: ! Line Location: SELPT+1
Function Call: WRITE	Prompt: !,"Warning: This handout is designed for patients 18 and older. This",!,"patient is under 18. Please select a different patient." Line Location: SELPT+6
Function Call: WRITE	Prompt: !! Line Location: ZIS+1
Function Call: WRITE	Prompt: ! Line Location: W+14
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"My Wellness Handout",?45,"Report Date: ",$$FMTE^XLFDT(DT),?72,"Page: ",APCHPG,!,$TR($J("",(IOM-2))," ","-"),! Line Location: HEAD1+3
Function Call: WRITE	Prompt: "******** CONFIDENTIAL PATIENT INFORMATION ["_$P(^VA(200,DUZ,0),U,2)_"] "_$$FMTE^XLFDT(DT)_" ********",! Line Location: HEAD1+4
Function Call: WRITE	Prompt: !!,"This option is used to set the default Patient Wellness Handout" Line Location: UPDDEF+1
Function Call: WRITE	Prompt: !,"for a site." Line Location: UPDDEF+2
Function Call: WRITE	Prompt: !! Line Location: UPDDEF+3
Routine Call	DIE Line Location: UPDDEF+6
Routine Call	DIC Line Location: SELTYP+8 SELPT+3 UPDDEF+4
Routine Call	DIR Line Location: ZIS+1 W+14 HEADER+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APCCCTRL - [#9001000]	Classic Fileman Calls
^APCHPWHT - [#9001026]	Classic Fileman Calls
^APCHPWHL - [#9001027]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	SELTYP+4, EHR+1, ENCOMP+2
^APCHPWHT - [#9001026]	SELTYP+5
^APCHPWHT("B"	EHR+2, ENCOMP+3
^AUPNPAT - [#9000001]	SELPT+5
^DIC(4 - [#4]	LOC+1, UPDDEF+4
^DISV(	SELTYP+5
^TMP($J	PRINT+2!, W+5, W+7, W+10, EOJ+2!
^VA(200 - [#200]	HEAD1+4, USR+1

Label References

Name	Line Occurrences
$$CTR	EN+1
BROWSE	ZIS+4
EHR	ENCOMP+6
EOJ	W+15
EXIT	SELTYP+9, SELPT+12, ZIS+2, ZIS+4, ZIS+7
HEAD1	HEADER+1
HEADER	W+3, W+8
PRINT	EN1+2
SELTYP	SELPT+4
UPDLOG	PRINT+3
ZIS	SELPT+11, EN2+3

Naked Globals

Name	Field # of Occurrence
^("^APCHPWHT("	SELTYP+5
^(0	SELTYP+4, SELTYP+5, SELPT+5, USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+8!
>> A	W+7*
>> APCHITST	PRINT+3
APCHOLD	EN1+1~
>> APCHOPT	ZIS+3*
>> APCHPG	W+3, HEADER+1, HEAD1+2, HEAD1+3, HEAD1+4
APCHPWHT	SELTYP+10, EN2~, EHR~, EHR+1, EHR+2, ENCOMP+1~, ENCOMP+2, ENCOMP+3*, ENCOMP+4, ENCOMP+6 , EN1~, PRINT+3, PRINT+4
APCHQUIT	W+2!, W+4, W+5, W+8, W+12, HEADER+2*
>> APCHSCVD	PRINT+1*
>> APCHSPAT	ENCOMP+6
>> APCHSQIT	W+12*
>> APCHX	W+5*, W+7, W+10
AUPNDAYS	EOJ+7!
AUPNDOB	EOJ+7!
AUPNDOD	EOJ+7!
AUPNPAT	EOJ+7!
AUPNSEX	EOJ+7!
B	EOJ+8!
BIDLLID	EOJ+6!
BIDLLPRO	EOJ+6!
BIDLLRUN	EOJ+6!
BIRESULT	EOJ+6!
BISITE	EOJ+6!
C	W+7*, W+8, EOJ+8!
D	UPDLOG~, UPDLOG+6
D0	UPDLOG+4~, UPDLOG+7!
DA	ZIS+1!, UPDDEF+6*
DD	UPDLOG+4~, UPDLOG+7!
DFN	SELPT+2, SELPT+5, EN2+1~, EN2+2*, EHR~, EXIT+2!, EXIT1+3!, PRINT+3, PRINT+4
DIADD	SELTYP+1!, UPDLOG+5*, UPDLOG+10!
DIC	SELTYP+3!, SELTYP+8!, SELPT+3!, UPDLOG+4~, UPDLOG+5, UPDDEF+4!
DIC("A"	SELTYP+3, SELPT+3
DIC("B"	SELTYP+7, UPDDEF+4
DIC("DR"	UPDLOG+6*
DIC(0	SELTYP+3, SELPT+3, UPDLOG+5, UPDDEF+4
>> DIE	UPDDEF+6*
DIR	ZIS+1!, W+14!, HEADER+2!
DIR("A"	ZIS+1, W+14
DIR("B"	ZIS+1*
DIR(0	ZIS+1, W+14, HEADER+2*
>> DIRUT	ZIS+2
DLAYGO	SELTYP+1!, UPDLOG+5*, UPDLOG+10!
DO	UPDLOG+4~
>> DR	UPDDEF+6*
DT	HEAD1+3, HEAD1+4, UPDLOG+6
>> DTOUT	HEADER+2
DUZ	SELTYP+5, PRINT+3, HEAD1+4, USR+1
DUZ(2	SELTYP+4, SELPT+5, EHR+1, ENCOMP+2, LOC+1, UPDLOG+6, UPDDEF+4
E	EOJ+8!
F	EOJ+8!
H	EOJ+8!
IO	W+14, HEADER+2
IO(0	W+14, HEADER+2
IOF	ENCOMP+5, HEAD1+1
IOM	HEAD1+3, CTR+1
IOSL	W+8
IOST	W+14, HEADER+2
J	EOJ+8!
L	EOJ+8!
N	EOJ+8!
P	EN2~, EN2+2, EOJ+8!, UPDLOG~, UPDLOG+1, UPDLOG+3, UPDLOG+5
ST	EOJ+8!
ST0	EOJ+8!
T	ENCOMP+1~, EOJ+8!, UPDLOG~, UPDLOG+2, UPDLOG+3, UPDLOG+6
U	SELTYP+4, SELTYP+5, SELPT+5, EHR+1, ENCOMP+2, HEAD1+4, USR+1, LOC+1, UPDDEF+4
W	EOJ+8!
X	SELTYP+4, SELTYP+5, SELTYP+6, SELTYP+7, EOJ+8!, CTR~, CTR+1, UPDLOG+4~, UPDLOG+5
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+5*
>> XBRC	ZIS+5, BROWSE+2
>> XBRP	ZIS+5, BROWSE+1
>> XBRX	ZIS+5, BROWSE+2
Y	SELTYP+5*, SELTYP+9, SELTYP+10, SELPT+4, SELPT+5, ZIS+3, ZIS+4, EOJ+8!, HEADER+2, CTR~ , CTR+1, UPDDEF+5, UPDDEF+6

Customize PDF page

Package: Patient Care Component

Routine: APCHPWHG

Call Graph Total: 12

Caller Graph Total: 5