Routine: APCDLESF

Package	Total	Call Graph
VA Fileman	6	^DDS ^DIC (FILE,YN)^DICN ^DIE ^DIK ^DIR
IHS VA Utilities	5	$$VAL^XBDIQ1 ^XBFMK $$EXTSET^XBFUNC VIEWR^XBLM EN^XBVK
Registration	4	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2
Patient Care Component	2	INAC^APCDEA EP^APCDLES1
IHS Patient	1	(,$$COMMRES,$$DOB,$$HRN,$$TRIBE,KILL)^AUPNPAT
Kernel	1	DISP^XQORM1

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;EP - called from protocol
HELP	; -- help code
EOJ	;
ADDSF(APCDPAT)	;EP called from protocol to add a new form
EXPND	; -- expand code
PAUSE	;EP
DEL	;EP - called from protocol
HDR	; -- header code
CTR(X,Y)	;EP - Center X in a field Y wide.
INIT	; -- init variables and list array
HS	;EP called from protocol to generate hs
CHECK	; check record for completeness
GETDATE	;EP - GET DATE OF ENCOUNTER
EN	; --
END	;
UPI(P,D)	;
GETTYPE	;
GETPAT	;
START	;
EDIT	;EP - called from protocol
PROV	;
GATHER	;
ADDDS	;screenman call
EXIT	; -- exit code

External References

Name	Field # of Occurrence
INAC^APCDEA	GETPAT+7
EP^APCDLES1	DISP+8
^AUPNPAT	HS+2
$$COMMRES^AUPNPAT	HDR+3
$$DOB^AUPNPAT	HDR+2
$$HRN^AUPNPAT	HDR+2
$$TRIBE^AUPNPAT	HDR+3
KILL^AUPNPAT	EOJ+7
^DDS	ADDDS+2
^DIC	GETPAT+3, GETTYPE+7, PROV+3
FILE^DICN	GETDATE+7
YN^DICN	GETPAT+5
^DIE	EDIT+7
^DIK	DEL+12, CHECK+16
^DIR	DEL+9, GETDATE+2, CHECK+17, PAUSE+1
EN^VALM	EN+2
TERM^VALM0	EXIT+1
CLEAR^VALM1	EOJ+5
FULL^VALM1	EDIT+6, DISP+6, DEL+8, HS+1, ADDSF+1
EN^VALM2	EDIT+1, DISP+1, DEL+3
$$VAL^XBDIQ1	HDR+2, GATHER+8, GATHER+10, CHECK+2, CHECK+3
^XBFMK	PROV+1
$$EXTSET^XBFUNC	GATHER+11
VIEWR^XBLM	HS+7
EN^XBVK	START+1, HS+4, HS+8, EXIT+7, EOJ+1
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$CTR("Update Suicide Forms",80) Line Location: START+3
Function Call: WRITE	Prompt: !,"No records selected." Line Location: EDIT+2
Function Call: WRITE	Prompt: !,"No record selected." Line Location: EDIT+3
Function Call: WRITE	Prompt: !,"Not a valid SUICIDE RECORD." Line Location: EDIT+5
Function Call: WRITE	Prompt: !,"No records selected." Line Location: DISP+2
Function Call: WRITE	Prompt: !,"No record selected." Line Location: DISP+3
Function Call: WRITE	Prompt: !,"Not a valid SUICIDE RECORD." Line Location: DISP+5
Function Call: WRITE	Prompt: !!,"You do not have the security access to delete a Suicide Form.",!,"Please see your supervisor or program manager.",! Line Location: DEL+2
Function Call: WRITE	Prompt: !,"No records selected." Line Location: DEL+4
Function Call: WRITE	Prompt: !,"No record selected." Line Location: DEL+5
Function Call: WRITE	Prompt: !,"Not a valid SUICIDE RECORD." Line Location: DEL+7
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+8
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: ADDDS+3
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,$P(^DD(9002011.65,APCDF,0),U)," is a required data element." Line Location: CHECK+2
Function Call: WRITE	Prompt: !,$P(^DD(9002011.65,APCDF,0),U)," is a required data element." Line Location: CHECK+3
Function Call: WRITE	Prompt: !,"INTERVENTION is a required data element." Line Location: CHECK+4
Function Call: WRITE	Prompt: !!,"You must enter a METHOD." Line Location: CHECK+9
Function Call: WRITE	Prompt: !!,"You must enter a value for SUBSTANCE Use. None or Unknown are valid values." Line Location: CHECK+11
Function Call: WRITE	Prompt: !!,"You must enter a CONTRIBUTING FACTOR. Unknown is a valid value." Line Location: CHECK+15
Function Call: WRITE	Prompt: !!,"One or more required data elements are missing.",!! Line Location: CHECK+16
Function Call: WRITE	Prompt: !,"Deleting form..." Line Location: CHECK+16
Routine Call	VALM Line Location: EN+2
Routine Call	DIE Line Location: EDIT+7
Routine Call	DDS Line Location: ADDDS+2
Routine Call	DIC Line Location: GETPAT+3 GETTYPE+7 PROV+3
Routine Call	DIR Line Location: DEL+9 GETDATE+2 CHECK+17 PAUSE+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPSUIC - [#9002011.65]	GATHER+6, GATHER+11, EDIT+5, DISP+5, DEL+7, CHECK+5, CHECK+6, CHECK+7!, CHECK+10, CHECK+12 , CHECK+13
^AMHPSUIC("AC"	GATHER+3, GATHER+4
^APCCCTRL - [#9001000]	GETTYPE+3
^APCDSITE - [#9001001.2]	GETPAT+2
^APCHSCTL - [#9001015]	GETTYPE+4
^AUTTLOC - [#9999999.06]	UPI+2
^AUTTSITE(1	UPI+2*, UPI+4
^DD(9002011.65	CHECK+2, CHECK+3
^DISV(	GETTYPE+4
^DPT - [#2]	HDR+1, GATHER+3, HS+6
^VA(200 - [#200]	PROV+3
^XUSEC("APCDZ SUICIDE FORM DELETE"	DEL+2

Label References

Name	Line Occurrences
$$CTR	START+3
$$UPI	GETDATE+5
ADDDS	EDIT+8, GETDATE+10, CHECK+16
CHECK	ADDDS+4
EN	GETPAT+8
END	GETPAT+4
EOJ	END+1
EXIT	EDIT+2, EDIT+3, EDIT+5, EDIT+9, DISP+2, DISP+3, DISP+5, DISP+9, DEL+2, DEL+4 , DEL+5, DEL+7, DEL+10, DEL+11, DEL+13, HS+9, PROV+4, GETDATE+3, GETDATE+8, GETDATE+11 , ADDDS+3, CHECK+16
GATHER	INIT+2, EXIT+3
GETPAT	GETPAT+7
GETTYPE	HS+3
HDR	EXIT+5
PAUSE	EDIT+5, DISP+5, DEL+2, DEL+7, GETDATE+8, ADDDS+3, CHECK+16
PROV	GETDATE+3

Naked Globals

Name	Field # of Occurrence
^("^APCHSCTL("	GETTYPE+4
^(0	GETTYPE+3, GETTYPE+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	GETPAT+5, HS+6, HS+7, HS+8!, EOJ+4!
AMCHDAYS	HS+8!
AMCHDOB	HS+8!
>> AMHIISFE	ADDDS+1*
>> AMHSF	ADDDS+1*
>> APCDC	CHECK+1, CHECK+2, CHECK+3, CHECK+9, CHECK+11, CHECK+15, CHECK+16
APCDCASE	EN+3!
APCDD	EN+3!
APCDDATE	EN+3!, GETDATE+2, GETDATE+4, GETDATE+5
>> APCDDP	PROV+2*
>> APCDF	CHECK+2, CHECK+3
APCDLEAP	EN+1~
APCDLESF	GATHER+1!
APCDLESF(	GATHER+7, GATHER+9, GATHER+10, GATHER+12
APCDLESF("IDX"	GATHER+3, GATHER+7, GATHER+9, GATHER+10, GATHER+12*, EDIT+4, DISP+4, DEL+6
APCDLESF(1	GATHER+3*
APCDLINE	EN+3!, INIT+3, GATHER+2, GATHER+7, GATHER+9, GATHER+10, GATHER+12*, EXIT+4
APCDP	END+2!
APCDPAT	GETPAT+1, GETPAT+6, GETPAT+7*, HS+7~, ADDSF~, GETDATE+5
>> APCDPROV	PROV+5*, GETDATE+5
APCDQUIT	END+2!, ADDDS+3*
APCDRCNT	EN+3!, GATHER+2, GATHER+3, GATHER+5*, GATHER+6, GATHER+7, GATHER+9, GATHER+10, GATHER+12
APCDRDEL	EDIT+5!, DISP+5!, DEL+7!
APCDSF	GATHER+4, GATHER+6, GATHER+7, GATHER+8, GATHER+9, GATHER+10, GATHER+11, GATHER+12, EDIT+4, EDIT+5! , EDIT+7, DISP+4, DISP+5!, DISP+8, DEL+6, DEL+7!, DEL+12, GETDATE+9*, ADDDS+1, ADDDS+2 , CHECK+2, CHECK+3, CHECK+5, CHECK+6, CHECK+7, CHECK+10, CHECK+12, CHECK+13, CHECK+16
APCDW	END+2!
APCDX	EN+3!
>> APCHSPAT	HS+5*, HS+6
>> APCHSTYP	HS+4, GETTYPE+1, GETTYPE+9
>> AUPNLK("INAC"	GETPAT+2*
BALMON	EOJ+6!
D	UPI~, UPI+4
D0	GETDATE+5!, GETDATE+7!
DA	EDIT+7, DEL+9!, DEL+12, PROV+3!, GETDATE+5!, ADDDS+2, CHECK+16, CHECK+17!, EOJ+4!
DD	GETDATE+5!
DDS	EOJ+4!
DDSFILE	ADDDS+2*, EOJ+3!
DFN	GETPAT+1, GETPAT+6, HDR+1, HDR+2, HDR+3, GATHER+3, GATHER+4, HS+2, HS+5, HS+7~ , EOJ+2!
DIADD	PROV+3!, GETDATE+5*, GETDATE+7!
DIC	GETPAT+3!, GETTYPE+2!, GETTYPE+7!, PROV+3!, GETDATE+5!, GETDATE+7!, EOJ+4!
DIC("A"	GETTYPE+2, PROV+3
DIC("B"	GETTYPE+6, PROV+3
DIC("DR"	GETDATE+5, GETDATE+6
DIC(0	GETPAT+3, GETTYPE+2, PROV+3, GETDATE+5
DIE	EDIT+7*, GETDATE+7!
>> DIK	DEL+12, CHECK+16
DIMSG	ADDDS+3!
DINUM	GETDATE+5!
DIPGM	EOJ+3!
DIR	DEL+9!, GETDATE+2!, CHECK+17!, PAUSE+1!
DIR("A"	DEL+9, GETDATE+2, CHECK+17, PAUSE+1
DIR("B"	DEL+9, CHECK+17
DIR(0	DEL+9, GETDATE+2, CHECK+17, PAUSE+1
>> DIRUT	DEL+10, GETDATE+2, GETDATE+3, CHECK+18, PAUSE+1
DLAYGO	PROV+3!, GETDATE+5*, GETDATE+7!
DO	GETDATE+5!
DR	EDIT+7, PROV+3!, GETDATE+5!, GETDATE+7!, ADDDS+2, EOJ+4!
DT	EDIT+7, GETDATE+2, GETDATE+5
>> DUOUT	GETDATE+2, PAUSE+1
DUZ	EDIT+7, DEL+2, GETTYPE+4, PROV+3, GETDATE+5
DUZ(2	GETPAT+2, HDR+2, GETTYPE+3
>> G	CHECK+5, CHECK+6, CHECK+9, CHECK+10, CHECK+11, CHECK+12, CHECK+13*, CHECK+15
I	EXIT+6!
IOF	START+2, ADDSF+2
>> IOINORM	HDR+1
IOM	CTR+1
>> IORVON	HDR+1
P	UPI~, UPI+1, UPI+4
R	EDIT+3!, EDIT+4, EDIT+5!, DISP+3!, DISP+4, DISP+5!, DEL+5*!, DEL+6, DEL+7!
R1	EDIT+5!, DISP+5!, DEL+7!
U	GETPAT+2, HDR+1, GATHER+3, GATHER+6, GATHER+11, HS+6, GETTYPE+3, GETTYPE+4, PROV+3, CHECK+2 , CHECK+3, CHECK+6, CHECK+7, CHECK+10, CHECK+13, UPI+2, UPI+4
VALM	EOJ+6!
VALMAR	EOJ+6!
VALMBCK	EXIT+2*, EOJ+6!
VALMBG	EOJ+6!
VALMCAP	EOJ+6!
VALMCC	EOJ+6!
VALMCNT	INIT+3, EXIT+4, EOJ+6!
VALMCOFF	EOJ+6!
VALMCON	EOJ+6!
VALMEVL	EOJ+6!
VALMHDR	EOJ+6!
VALMHDR(1	HDR+1*
VALMHDR(2	HDR+2*
VALMHDR(3	HDR+3*
VALMIOXY	EOJ+6!
VALMKEY	EOJ+6!
VALMLFT	EOJ+6!
VALMLST	EOJ+6!
VALMMENU	EOJ+6!
>> VALMSG	INIT+1*
VALMSGR	EOJ+6!
VALMUP	EOJ+6!
VALMVAR	EOJ+6!
VALMWD	EOJ+5, EOJ+6!
VALMY	EDIT+2, EDIT+3!, DISP+2, DISP+3!, DEL+4, DEL+5!
VALMY(0	EDIT+3, DISP+3, DEL+5
X	GETPAT+7, CTR~, CTR+1, GATHER+6, GATHER+7, GATHER+8, GATHER+9, GATHER+10, GATHER+12, EDIT+4* , DISP+4, DEL+6, GETTYPE+3, GETTYPE+4, GETTYPE+5, GETTYPE+6, GETDATE+5, GETDATE+7!, HELP+1, CHECK+5 , CHECK+6, CHECK+7, CHECK+12*, CHECK+13, EXIT+6!, EOJ+4!
XQORNOD	EDIT+3!, DISP+3!, DEL+5!
XQORNOD(0	EDIT+1, DISP+1, DEL+3
Y	GETPAT+4, GETPAT+6, CTR~, CTR+1, GATHER+11, GATHER+12, EDIT+4, DISP+4, DEL+6, DEL+11 , HS+2, GETTYPE+4, GETTYPE+8, GETTYPE+9, PROV+4, PROV+5, GETDATE+4, GETDATE+8, GETDATE+9, CHECK+16 , CHECK+18*, EXIT+6!, EOJ+3!, EOJ+4!
Z	GATHER+11, CHECK+5, CHECK+12*, EXIT+6!

Customize PDF page

Package: Patient Care Component

Routine: APCDLESF

Information

Source Information

Call Graph

Call Graph Total: 19

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: