Routine: APCDESF1

Package	Total	Call Graph
IHS VA Utilities	6	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK $$EXTSET^XBFUNC EN^XBNEW EN^XBVK
VA Fileman	5	^DIC FILE^DICN ^DIE ^DIR ^DIWP
Kernel	1	$$FMTE^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
EOJ	;
S1	;
SETARRAY	;set up array containing dm care summary
DISPLAY(APCDSF)	;
USR()	;EP - Return name of current user from ^VA(200.
WP	;
PRINT	;EP
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
DRUG	;
WPS	;
GETDATE	;EP - GET DATE OF ENCOUNTER
UPI(P,D)	;
EPDE	;EP
S(Y,F,C,T)	;set up array
HEADER	;
W	;write out array
EP2(APCDSF)	;
EP	;EP - called from input template
EXIT1	;
HEAD1	;
EDIT	;
PROV	;
MET	;
EXIT	;
HAVEONE(P,D)	;is there a suicide form on file for this patient, this date, pass back ien

External References

Name	Field # of Occurrence
^DIC	PROV+3
FILE^DICN	GETDATE+16
^DIE	EDIT+6
^DIR	GETDATE+2, GETDATE+11, EDIT+10, DISPLAY+3, HEADER+1
^DIWP	WP+4
^XBDBQUE	DISPLAY+5
$$VAL^XBDIQ1	GETDATE+10, SETARRAY+2, SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10 , SETARRAY+11, SETARRAY+12, SETARRAY+13, SETARRAY+14, DRUG+1, DRUG+9, DRUG+10, DRUG+11
^XBFMK	PROV+1, EXIT+2, EXIT1+1
$$EXTSET^XBFUNC	MET+1
EN^XBNEW	EPDE+1
EN^XBVK	EXIT+1
$$FMTE^XLFDT	GETDATE+8, SETARRAY+1, HEAD1+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Sorry I don't know the patient.",! Line Location: EP+1
Function Call: WRITE	Prompt: !! Line Location: PROV+3
Function Call: WRITE	Prompt: !,"No Provider Selected." Line Location: PROV+4
Function Call: WRITE	Prompt: !! Line Location: GETDATE+1
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Error creating Suicide form!! Deleting form.",! Line Location: GETDATE+17
Function Call: WRITE	Prompt: !!,"Please note: If while entering the data from the suicide form you make" Line Location: EDIT+1
Function Call: WRITE	Prompt: !,"a mistake, you can edit the field by '^' jumping to that field." Line Location: EDIT+2
Function Call: WRITE	Prompt: !,"For example: to go back to edit EMPLOYMENT STATUS after you have passed" Line Location: EDIT+3
Function Call: WRITE	Prompt: !," that field, type ^EMPLOY and you will be taken back to that" Line Location: EDIT+4
Function Call: WRITE	Prompt: !," field to edit it.",! Line Location: EDIT+5
Function Call: WRITE	Prompt: !!,"I will now display the form back to you so you can check" Line Location: DISPLAY+1
Function Call: WRITE	Prompt: !,"the accuracy of the entry of the data.",! Line Location: DISPLAY+2
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	DIE Line Location: EDIT+6
Routine Call	DIC Line Location: PROV+3
Routine Call	DIR Line Location: GETDATE+2 GETDATE+11 EDIT+10 DISPLAY+3 HEADER+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^AMHPSUIC - [#9002011.65]	Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
$$HAVEONE	GETDATE+6
$$UPI	GETDATE+14, HAVEONE+2
DISPLAY	EDIT+8
EDIT	GETDATE+7, EDIT+12
EOJ	W+9
EP2	PRINT+2
EXIT	PROV+4, GETDATE+3, GETDATE+7, GETDATE+17, EDIT+11, EDIT+13
PROV	GETDATE+3
S	SETARRAY+1, SETARRAY+2, SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10 , SETARRAY+11, SETARRAY+12, SETARRAY+13, SETARRAY+14, MET+6, MET+9, MET+14, DRUG+1, DRUG+5, DRUG+6 , DRUG+7, DRUG+8, DRUG+9, DRUG+10, DRUG+11, DRUG+12, WPS+1
S1	S+4, S+6, S+9
SETARRAY	EP2+4

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	S+7, S+8, S1+1*, S1+2, EOJ+3!
>> A	MET+3, MET+4, MET+8, MET+13, DRUG+5
APCDO	MET+1!, MET+7, EOJ+2!
APCDO(	MET+2*, MET+8
APCDOD	MET+1!, MET+10, EOJ+2!
APCDOD(	MET+4*, MET+12, MET+13
APCDOPT	EOJ+2!
APCDQUIT	W+2!, W+4, W+8, EOJ+2!, HEADER+1*
APCDSBEG	EOJ+2!
APCDSED	EOJ+2!
APCDSF	DISPLAY~, EP2~, EP2+1, SETARRAY+2, SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8 , SETARRAY+9, SETARRAY+10, SETARRAY+11, SETARRAY+12, SETARRAY+13, SETARRAY+14, MET+1, MET+2, MET+3, MET+4 , DRUG+1, DRUG+2, DRUG+4, DRUG+5, DRUG+6, DRUG+8, DRUG+9, DRUG+10, DRUG+11, WP+3 , WP+4, EOJ+2!
>> APCDSFDP	PROV+2*
>> APCDSFDT	GETDATE+2, GETDATE+4, GETDATE+6, GETDATE+8, GETDATE+14
>> APCDSFI	GETDATE+6, GETDATE+7, GETDATE+10, GETDATE+18, EDIT+6, EDIT+8, PRINT+2
>> APCDSFPR	PROV+5*, GETDATE+9, GETDATE+14
>> APCDSFQT	GETDATE+5, GETDATE+7, GETDATE+12, GETDATE+13*
APCDSQIT	W+8*, EOJ+2!
APCDSTOB	EOJ+2!
APCDSUPI	EOJ+2!
APCDTOB	EOJ+2!
APCDTOBN	EOJ+2!
APCDX	WP+2, WP+3, WP+4, WPS+3!, W+4*, W+6, EOJ+2!
APCDY	EOJ+2!
>> AUPNPAT	EP+1, GETDATE+6, GETDATE+8, GETDATE+14
B	EOJ+3!
C	S~, S+6, EOJ+3!
D	UPI~, UPI+4, HAVEONE~, HAVEONE+2
D0	GETDATE+14!, GETDATE+16!
DA	PROV+3!, GETDATE+11!, GETDATE+14!, EDIT+6*, EDIT+10!, DISPLAY+3!
DD	GETDATE+14!
>> DFN	EP2+1*
DIADD	PROV+3!, GETDATE+14*, GETDATE+16!
DIC	PROV+3!, GETDATE+14!, GETDATE+16!
DIC("A"	PROV+3*
DIC("B"	PROV+3*
DIC("DR"	GETDATE+14, GETDATE+15
DIC(0	PROV+3, GETDATE+14
DIE	GETDATE+16!, EDIT+6*
DINUM	GETDATE+14!
DIR	GETDATE+2!, GETDATE+11!, EDIT+10!, DISPLAY+3!, HEADER+1!
DIR("A"	GETDATE+2, GETDATE+11, EDIT+10, DISPLAY+3
DIR("B"	GETDATE+11, EDIT+10
DIR(0	GETDATE+2, GETDATE+11, EDIT+10, DISPLAY+3, HEADER+1*
>> DIRUT	GETDATE+2*, GETDATE+3, GETDATE+12, EDIT+11
DIWF	WPS+2!
DIWL	WP+3*, WPS+1, WPS+2!
DIWR	WP+3*, WPS+2!
DLAYGO	PROV+3!, GETDATE+14*, GETDATE+16!
DO	GETDATE+14!
DR	PROV+3!, GETDATE+14!, GETDATE+16!, EDIT+6*
DT	GETDATE+2, GETDATE+14, SETARRAY+1, HEAD1+2
>> DTOUT	HEADER+1
>> DUOUT	GETDATE+2
DUZ	PROV+3, GETDATE+14, HEAD1+2, USR+1
DUZ(2	LOC+1
E	EOJ+3!
F	S~, S+1, S+4, EOJ+3!
H	EOJ+3!
IO	HEADER+1
IO(0	HEADER+1
IOF	HEAD1+1
IOM	CTR+1
IOST	HEADER+1
L	S+6*, EOJ+3!
N	EOJ+3!
P	UPI~, UPI+1, UPI+4, HAVEONE~, HAVEONE+2, EOJ+3!
T	S~, S+2, S+6, S+7, S+8, EOJ+3!
U	PROV+3, GETDATE+8, GETDATE+9, UPI+2, UPI+4, EP2+1, SETARRAY+10, SETARRAY+13, MET+1, MET+2 , MET+4, DRUG+2, DRUG+5, DRUG+6, DRUG+8, DRUG+11, S1+1, HEAD1+2, USR+1, LOC+1
W	EOJ+3!
X	GETDATE+14, GETDATE+16!, SETARRAY+1, SETARRAY+2, SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8* , SETARRAY+9, SETARRAY+10, SETARRAY+11, SETARRAY+12, SETARRAY+13, SETARRAY+14, MET+6, MET+7, MET+8, MET+9 , MET+11, MET+13, MET+14, DRUG+1, DRUG+3, DRUG+5, DRUG+6, DRUG+7, DRUG+8, DRUG+9 , DRUG+10, DRUG+11, DRUG+12, WP+4, WPS+1, S+4, S+5, S+7, S+8*, S1+2 , EOJ+2!, EOJ+3!, CTR~, CTR+1
>> XBIOP	DISPLAY+5*
>> XBRC	DISPLAY+5*
>> XBRP	DISPLAY+4*
>> XBRX	DISPLAY+5*
Y	PROV+4, PROV+5, GETDATE+4, GETDATE+13, GETDATE+17, GETDATE+18, EDIT+12, HAVEONE+1~, HAVEONE+2, HAVEONE+3 , MET+1, MET+6, MET+12, MET+13, DRUG+4, DRUG+5, DRUG+6, S~, S+5, S+6 , S+8, EOJ+2!, EOJ+3!, HEADER+1, CTR~, CTR+1, EPDE+1!
Z	MET+1, MET+2, MET+3, MET+4, DRUG+8, WPS+1*, WPS+2!, EOJ+2!

Customize PDF page

Package: Patient Care Component

Routine: APCDESF1

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: