Routine: APCDLES1

Name	Comments	DBIA/ICR reference
EN	;
ZIS	;
PRINT	;
HEADER	;
BROWSE	;
EOJ	;
S1	;
EP(APCDSF)	;EP - when form is known
USR()	;EP - Return name of current user from ^VA(200.
DRUG	;
WPS	;
CTR(X,Y)	;EP - Center X in a field Y wide.
MET	;
HEAD1	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
EXIT	;
S(Y,F,C,T)	;set up array
W	;write out array
SETARRAY	;set up array containing dm care summary
WP	;
EP2(APCDSF)	;PEP - CALLED BY ICARE

External References

Name	Field # of Occurrence
^DIC	EN+3
^DIR	ZIS+1, HEADER+1
^DIWP	WP+4
^XBDBQUE	ZIS+6, BROWSE+2
$$VAL^XBDIQ1	SETARRAY+2, SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+12 , SETARRAY+13, SETARRAY+14, MET+15, DRUG+1, DRUG+7, DRUG+8, DRUG+12, DRUG+13
^XBFMK	EXIT+3
$$EXTSET^XBFUNC	MET+1
$$FMTE^XLFDT	SETARRAY+1, W+3, HEAD1+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR("* Print Suicide Form *"),!! Line Location: EN+2
Function Call: WRITE	Prompt: ! Line Location: EN+6
Function Call: WRITE	Prompt: ! Line Location: ZIS+1
Function Call: WRITE	Prompt: !,"******** CONFIDENTIAL PATIENT INFORMATION ["_$P(^VA(200,DUZ,0),U,2)_"] "_$$FMTE^XLFDT(DT)_" ********" Line Location: W+3
Function Call: WRITE	Prompt: ! Line Location: HEADER+1
Function Call: WRITE	Prompt: !,"******** CONFIDENTIAL PATIENT INFORMATION ["_$P(^VA(200,DUZ,0),U,2)_"] "_$$FMTE^XLFDT(DT)_" ********",!! Line Location: HEAD1+2
Routine Call	DIC Line Location: EN+3
Routine Call	DIR Line Location: ZIS+1 HEADER+1

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPSUIC - [#9002011.65]	EP2+2, SETARRAY+13, MET+1, MET+2, MET+3, MET+4, DRUG+2, DRUG+4, DRUG+5, DRUG+6 , DRUG+8, DRUG+11, DRUG+13, WP+3, WP+4
^AMHTSCF - [#9002014.9]	DRUG+11
^AMHTSDRG - [#9002014.7]	MET+4
^AMHTSSU - [#9002014.71]	DRUG+5
^DIC(4 - [#4]	LOC+1
^TMP("APCDS"	EP2+3!, EP2+4, S1+1, S1+2*, PRINT+1!, W+4, W+6, EOJ+1!
^UTILITY($J	WP+1!, WPS+1, WPS+3!
^VA(200 - [#200]	W+3, HEAD1+2, USR+1

Label References

Name	Line Occurrences
$$CTR	EN+2
BROWSE	ZIS+4
EOJ	W+9
EP	EN+7
EP2	PRINT+2
EXIT	EN+4, EN+8, ZIS+2, ZIS+4, ZIS+7
HEADER	W+5
S	SETARRAY+1, SETARRAY+2, SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10 , SETARRAY+12, SETARRAY+13, SETARRAY+14, MET+6, MET+9, MET+14, MET+15, DRUG+1, DRUG+5, DRUG+6 , DRUG+7, DRUG+8, DRUG+10, DRUG+11, DRUG+12, DRUG+13, DRUG+16, WPS+1
S1	S+5, S+7, S+10
SETARRAY	EP2+5

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	S+8, S+9, S1+1*, S1+2, EOJ+3!
A	EP2+1~, MET+3, MET+4, MET+8, MET+13, DRUG+5
APCDO	EXIT+1!, EP2+1~, MET+1!, MET+7, EOJ+2!
APCDO(	MET+2*, MET+8
APCDOD	EXIT+1!, EP2+1~, MET+1!, MET+10, EOJ+2!
APCDOD(	MET+4*, MET+12, MET+13
APCDOPT	ZIS+3*, EXIT+1!, EOJ+2!
APCDQUIT	EXIT+1!, W+2!, W+4, W+5, W+8, EOJ+2!, HEADER+1*
APCDSBEG	EOJ+2!
APCDSED	EOJ+2!
APCDSF	EP~, EXIT+1!, EP2~, EP2+2, SETARRAY+2, SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7 , SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+12, SETARRAY+13, SETARRAY+14, MET+1, MET+2, MET+3, MET+4 , MET+15, DRUG+1, DRUG+2, DRUG+4, DRUG+5, DRUG+6, DRUG+7, DRUG+8, DRUG+11, DRUG+12 , DRUG+13, WP+3, WP+4, PRINT+2, EOJ+2!
APCDSQIT	EXIT+1!, W+8*, EOJ+2!
APCDSTOB	EOJ+2!
APCDSUPI	EOJ+2!
APCDTOB	EOJ+2!
APCDTOBN	EOJ+2!
APCDX	EXIT+1!, EP2+1~, WP+2, WP+3, WP+4, WPS+3!, W+4*, W+6, EOJ+2!
APCDY	EOJ+2!
B	EOJ+3!
C	S~, S+7, EOJ+3!
DA	ZIS+1!
DFN	EN+5, EN+7, EP2+1~, EP2+2
>> DIC	EN+3*
>> DIC(0	EN+3*
DIR	ZIS+1!, HEADER+1!
DIR("A"	ZIS+1*
DIR("B"	ZIS+1*
DIR(0	ZIS+1, HEADER+1
>> DIRUT	ZIS+2
DIWF	EP2+1~, WPS+2!
DIWL	EP2+1~, WP+3*, WPS+1, WPS+2!
DIWR	EP2+1~, WP+3*, WPS+2!
DT	SETARRAY+1, W+3, HEAD1+2
>> DTOUT	HEADER+1
DUZ	W+3, HEAD1+2, USR+1
DUZ(2	LOC+1
E	EOJ+3!
F	S~, S+2, S+5, EOJ+3!
H	EOJ+3!
IO	HEADER+1
IO(0	HEADER+1
IOF	EN+1, W+1, HEAD1+1
IOM	CTR+1
IOSL	W+5
IOST	HEADER+1
L	S+1~, S+7*, EOJ+3!
N	EOJ+3!
P	EOJ+3!
T	S~, S+3, S+7, S+8, S+9, EOJ+3!
U	EP2+2, SETARRAY+13, MET+1, MET+2, MET+4, DRUG+2, DRUG+5, DRUG+6, DRUG+8, DRUG+11 , DRUG+13, S1+1, W+3, HEAD1+2, USR+1, LOC+1
W	EOJ+3!
X	EP2+1~, SETARRAY+1, SETARRAY+2, SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9* , SETARRAY+10, SETARRAY+12, SETARRAY+13, SETARRAY+14, MET+6, MET+7, MET+8, MET+9, MET+11, MET+13* , MET+14, MET+15, DRUG+1, DRUG+3, DRUG+5, DRUG+6, DRUG+7, DRUG+8, DRUG+10, DRUG+11* , DRUG+12, DRUG+13, DRUG+16, WP+4, WPS+1, S+1~, S+5, S+6, S+8, S+9* , S1+2, EOJ+2!, EOJ+3!, CTR~, CTR+1
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+5*
>> XBRC	ZIS+5, BROWSE+2
>> XBRP	ZIS+5, BROWSE+1
>> XBRX	ZIS+5, BROWSE+2
Y	EN+4, EN+5, ZIS+3, ZIS+4, EP2+1~, MET+1, MET+6, MET+12, MET+13, DRUG+4* , DRUG+5, DRUG+6, S~, S+6, S+7, S+9, EOJ+2!, EOJ+3!, HEADER+1, CTR~ , CTR+1
Z	EP2+1~, MET+1, MET+2, MET+3, MET+4, DRUG+11, WPS+1*, WPS+2!, EOJ+2!

Customize PDF page

Package: Patient Care Component

Routine: APCDLES1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: