Routine: APCDSFR

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

Entry Points

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

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$CTR("Review/Update Suicide Reporting Forms by Date",80) Line Location: START+2
Function Call: WRITE	Prompt: ! Line Location: D+2
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: D+8
Function Call: WRITE	Prompt: !! Line Location: HELP+1
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: !!,"No patient entered..." Line Location: ADD+4
Function Call: WRITE	Prompt: ! Line Location: GETPAT+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+8
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: ADDDS+3
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 and 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+6
Routine Call	DIE Line Location: EDIT+7
Routine Call	DDS Line Location: ADDDS+2
Routine Call	DIC Line Location: GETTYPE+7 GETPAT+4 PROV+3
Routine Call	DIR Line Location: D+3 D+5 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+7, EDIT+5, EDIT+8, DISP+5, DEL+7, CHECK+5, CHECK+6, CHECK+7!, CHECK+10, CHECK+12 , CHECK+13, ALLOW+2
^AMHPSUIC("AD"	GATHER+4, GATHER+5
^AMHSITE - [#9002013]	ALLOW+1
^APCCCTRL - [#9001000]	GETTYPE+3
^APCDSITE - [#9001001.2]	GETPAT+3
^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]	GATHER+7, GATHER+8, HS+6
^VA(200 - [#200]	PROV+3
^XUSEC("APCDZ SUICIDE FORM DELETE"	DEL+2

Label References

Name	Line Occurrences
$$ALLOW	GATHER+6
$$CTR	START+2
$$UPI	GETDATE+5
ADDDS	EDIT+9, GETDATE+10, CHECK+16
ADDSF	ADD+7
CHECK	ADDDS+4
D	D+7
DONE	START+3
EN	D+9
EXIT	D+9, EDIT+2, EDIT+3, EDIT+5, EDIT+10, DISP+2, DISP+3, DISP+5, DISP+9, DEL+2 , DEL+4, DEL+5, DEL+7, DEL+10, DEL+11, DEL+13, HS+9, ADD+4, ADD+9, PROV+4 , GETDATE+3, GETDATE+8, GETDATE+11, ADDDS+3, CHECK+16
GATHER	EN+2, INIT+1, EXIT+4
GETPAT	ADD+3
GETTYPE	HS+3
HDR	EXIT+6
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
%	HS+6, HS+7, HS+8!, GETPAT+6, EOJ+4!
AMCHDAYS	HS+8!
AMCHDOB	HS+8!
AMHIIESF	EXIT+1!
>> AMHIISFE	ADDDS+1*
>> AMHPAT	ADDDS+1*
>> AMHSF	ADDDS+1*
APCDBD	D+1!, D+3*, D+7, GATHER+3, HDR+1
APCDC	CHECK+1, CHECK+2, CHECK+3, CHECK+9, CHECK+11, CHECK+15, CHECK+16, EXIT+1!
>> APCDDATE	GETDATE+2, GETDATE+4, GETDATE+5
>> APCDDOB	GATHER+7*, GATHER+8
>> APCDDP	PROV+2*
APCDED	D+1!, D+5*, D+7, GATHER+4, HDR+1
APCDF	CHECK+2, CHECK+3, EXIT+1!
APCDLINE	GATHER+2, GATHER+8, GATHER+11, INIT+2, EXIT+1!, EXIT+5
APCDPAT	EDIT+8, HS+7~, ADD+2, ADD+4, ADD+5, ADD+6, ADD+7, GETPAT+2, GETPAT+7, GETPAT+8* , GETPAT+9*, ADDSF~, GETDATE+5, ADDDS+1, EXIT+1!
>> APCDPROV	PROV+5*, GETDATE+5
>> APCDQUIT	D+3, D+5, ADDDS+3*
APCDRDEL	EDIT+5!, DISP+5!, DEL+7!
>> APCDSD	GATHER+3, GATHER+4, GATHER+5, GATHER+8
APCDSF	EDIT+4, EDIT+5!, EDIT+7, EDIT+8, 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, EXIT+1!
APCDSFR	EN+1!, GATHER+1!
APCDSFR(	GATHER+11*
APCDSFR("IDX"	GATHER+11*, EDIT+4, DISP+4, DEL+6
APCDX	GATHER+5*, GATHER+6, GATHER+7, GATHER+9, GATHER+10, GATHER+11, EXIT+1!
>> APCHSPAT	HS+5*, HS+6
>> APCHSTYP	HS+4, GETTYPE+1, GETTYPE+9
>> AUPNLK("INAC"	GETPAT+3*
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	GATHER+7, GATHER+8, EDIT+8, HS+2, HS+5, HS+7~, ADD+6*, EXIT+1!, EOJ+2!
DIADD	PROV+3!, GETDATE+5*, GETDATE+7!
DIC	GETTYPE+2!, GETTYPE+7!, GETPAT+4!, 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	GETTYPE+2, GETPAT+4, PROV+3, GETDATE+5
DIE	EDIT+7*, GETDATE+7!
>> DIK	DEL+12, CHECK+16
DIMSG	ADDDS+3!
DINUM	GETDATE+5!
DIPGM	EOJ+3!
DIR	D+2!, D+4!, DEL+9!, GETDATE+2!, CHECK+17!, PAUSE+1!
DIR("A"	D+2, D+4, DEL+9, GETDATE+2, CHECK+17, PAUSE+1
DIR("B"	DEL+9, CHECK+17
DIR(0	D+2, D+4, 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, ALLOW+1, ALLOW+2
DUZ(2	GATHER+8, GETTYPE+3, GETPAT+3, ALLOW+1
>> G	CHECK+5, CHECK+6, CHECK+9, CHECK+10, CHECK+11, CHECK+12, CHECK+13*, CHECK+15
I	EXIT+7!
IOF	START+1, ADDSF+2
IOM	CTR+1
P	UPI~, UPI+1, UPI+4, ALLOW~
Q	ALLOW~
R	EDIT+3!, EDIT+4, EDIT+5!, DISP+3!, DISP+4, DISP+5!, DEL+5*!, DEL+6, DEL+7!, ALLOW~ , ALLOW+2
R1	EDIT+5!, DISP+5!, DEL+7!
U	GATHER+7, GATHER+8, EDIT+8, HS+6, GETTYPE+3, GETTYPE+4, GETPAT+3, PROV+3, CHECK+2, CHECK+3 , CHECK+6, CHECK+7, CHECK+10, CHECK+13, UPI+2, UPI+4, ALLOW+2
>> VALMBCK	EXIT+3*
VALMCNT	EN+3~, INIT+2, EXIT+5
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2*
>> VALMHDR(3	HDR+3*
VALMY	EDIT+2, EDIT+3!, DISP+2, DISP+3!, DEL+4, DEL+5!
VALMY(0	EDIT+3, DISP+3, DEL+5
X	GATHER+8, GATHER+9, GATHER+10, GATHER+11, CTR~, CTR+1, HDR+2, HDR+3, HELP+1, GETTYPE+3* , GETTYPE+4, GETTYPE+5, GETTYPE+6, GETPAT+8, GETDATE+5, GETDATE+7!, CHECK+5, CHECK+6, CHECK+7, CHECK+12* , CHECK+13, EXIT+7!, EOJ+4!
XQORNOD	EDIT+3!, DISP+3!, DEL+5!
XQORNOD(0	EDIT+1, DISP+1, DEL+3
Y	D+3, D+5, CTR~, CTR+1, DEL+11, HS+2, GETTYPE+4, GETTYPE+8, GETTYPE+9, ADD+5* , GETPAT+5, GETPAT+7, GETPAT+9, PROV+4, PROV+5, GETDATE+4, GETDATE+8, GETDATE+9, CHECK+16, CHECK+18* , EXIT+7!, EOJ+3!, EOJ+4!
Z	CHECK+5, CHECK+12, EXIT+7!

Customize PDF page

Package: Patient Care Component

Routine: APCDSFR

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: