Routine: APCLPSU3

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE ^XBFMK $$EXTSET^XBFUNC EN^XBVK
VA Fileman	2	C^%DTC ^DIR
IHS Patient	1	KILL^AUPNPAT
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Patient Care Component Reports	1	($$DEMO,DEMOCHK)^APCLUTL

Entry Points

Name	Comments	DBIA/ICR reference
BD	;
DEMO	;
RBLK(V,L)	;EP right blank fill
LABEL	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
DONE	;
PRINT	;EP called from xbdbque
20	;;Lethality;;S X=$$VAL^XBDIQ1(9002011.65,APCLVDFN,.24)
21	;;Disposition;;S X=$$VAL^XBDIQ1(9002011.65,APCLVDFN,.25)
LOC()	;EP - Return location name from file 4 based on DUZ(2).
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
1	;;Unique Case ID;;S X=$P(^AMHPSUIC(APCLVDFN,0),U)
V1	;
3	;;Event logged by;;S X=$$VAL^XBDIQ1(9002011.65,APCLVDFN,.031)
2	;;Local Case #;;S X=$P(^AMHPSUIC(APCLVDFN,0),U,2)
5	;;Unique ID of Patient;;S X=$P(^AMHPSUIC(APCLVDFN,0),U,4),X=$$UID^AGTXID(X)
LBLK(V,L)	;left blank fill
7	;;Age of Patient on date of act;;S X=$$VAL^XBDIQ1(9002011.65,APCLVDFN,.043)
EOJ	;
9	;;Community of Residence;;S X=$$VAL^XBDIQ1(9002011.65,APCLVDFN,.045)
8	;;Tribe of Enrollment;;S X=$$VAL^XBDIQ1(9002011.65,APCLVDFN,.044)
4	;;Discipline of Prov;;S X=$$VAL^XBDIQ1(9002011.65,APCLVDFN,.032)
PAUSE	;
ZIS	;
XTMP(N,D)	;EP - set xtmp 0 node
ED	;
6	;;Sex of Patient;;S X=$$VAL^XBDIQ1(9002011.65,APCLVDFN,.041)
START	;
V	; Run by visit date
11	;;Date of Act;;S X=$$VAL^XBDIQ1(9002011.65,APCLVDFN,.06)
10	;;Employment Status;;S X=$$VAL^XBDIQ1(9002011.65,APCLVDFN,.05)
13	;;Relationship Status;;S X=$$VAL^XBDIQ1(9002011.65,APCLVDFN,.08)
12	;;Community where act occurred;;S X=$$VAL^XBDIQ1(9002011.65,APCLVDFN,.07)
15	;;Education Level;;S X=$$VAL^XBDIQ1(9002011.65,APCLVDFN,.11)
14	;;Relationship if Other;;S X=$$VAL^XBDIQ1(9002011.65,APCLVDFN,.09)
17	;;Self Destructive Act;;S X=$$VAL^XBDIQ1(9002011.65,APCLVDFN,.13)
16	;;If less than 12;;S X=$$VAL^XBDIQ1(9002011.65,APCLVDFN,.12)
19	;;Location of Act;;S X=$$VAL^XBDIQ1(9002011.65,APCLVDFN,.15)
18	;;Previous Attempts;;S X=$$VAL^XBDIQ1(9002011.65,APCLVDFN,.14)
GETDATES	;
PROC	;EP

External References

Name	Field # of Occurrence
C^%DTC	ED+5
$$DEMO^APCLUTL	V1+2
DEMOCHK^APCLUTL	DEMO+1
KILL^AUPNPAT	EOJ+3
^DIR	BD+1, ED+1, DEMO+3, PAUSE+1, DONE+1, EOP+5
^XBDBQUE	DEMO+7, BROWSE+2
^XBFMK	EOJ+4
$$EXTSET^XBFUNC	V1+11, V1+14
EN^XBVK	EOJ+1
$$FMADD^XLFDT	XTMP+2
$$FMTE^XLFDT	PRINT+2, PRINT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Extract Suicide Form Data Elements in Delimited format" Line Location: START+4
Function Call: WRITE	Prompt: !!,"This report will extract all data elements on the Suicide Form in a ",!,"delimited form for a date range specified by the user.",!! Line Location: START+5
Function Call: WRITE	Prompt: !,"Ending date must be greater than or equal to beginning date!" Line Location: ED+3
Function Call: WRITE	Prompt: !! Line Location: DEMO+6
Function Call: WRITE	Prompt: !,$$LOC,"^^^",$$FMTE^XLFDT(DT) Line Location: PRINT+2
Function Call: WRITE	Prompt: !,X,! Line Location: PRINT+3
Function Call: WRITE	Prompt: "Act Occurred","^",$$FMTE^XLFDT(APCLBD),"^",$$FMTE^XLFDT(APCLED),! Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,X Line Location: PRINT+9
Routine Call	DIR Line Location: BD+1 ED+1 DEMO+3 PAUSE+1 DONE+1 EOP+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPSUIC - [#9002011.65]	V1+2, V1+9, V1+11, V1+12, V1+14, V1+15, V1+17
^AMHPSUIC("AD"	V+1, V1+1
^AMHTSCF - [#9002014.9]	V1+17
^DIC(4 - [#4]	LOC+1
^VA(200 - [#200]	USR+1
^XTMP(	XTMP+2*
^XTMP("APCLPSU3"	PROC+2!, V1+18*, PRINT+10, PRINT+11, DONE+2!

Label References

Name	Line Occurrences
$$LOC	PRINT+2
BROWSE	DEMO+5
ED	ED+3
EOJ	START+2, BD+2, ED+2, DEMO+4, DEMO+5, DEMO+8
GETDATES	DEMO+2
V1	V+1
XTMP	PROC+3

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LBLK+1~, LBLK+2, RBLK+1~, RBLK+2
A	EOJ+2!
>> APCLBD	BD+3*, ED+3, ED+5, PRINT+4
>> APCLC	V1+9, V1+10, V1+11, V1+12, V1+13, V1+14, V1+15, V1+16, V1+17
>> APCLDEMO	DEMO+1, DEMO+2
>> APCLED	ED+4*, V+1, PRINT+4
>> APCLH	PROC+1*, PROC+2, V1+18, PRINT+10, PRINT+11, DONE+2
>> APCLJ	PROC+1*, PROC+2, V1+18, PRINT+10, PRINT+11, DONE+2
>> APCLP	V1+4*, V1+6
>> APCLQUIT	PAUSE+2*
>> APCLREC	V1+3, V1+6, V1+11, V1+14, V1+17*, V1+18
>> APCLSD	ED+5, V+1, V1+1
>> APCLT	V1+3, V1+4, PRINT+5
>> APCLV	V1+4*, V1+5
>> APCLVDFN	V1+1, V1+2, V1+9, V1+11, V1+12, V1+14, V1+15, V1+17, V1+18, PRINT+10 , PRINT+11
>> APCLX	V1+3, V1+9, V1+11, V1+12, V1+15, V1+17, PRINT+5, PRINT+6, PRINT+7, PRINT+8
B	EOJ+2!
D	XTMP~, XTMP+2
DA	ED+1!, DEMO+3!, PAUSE+1!
DFOUT	EOP+4!
DIR	BD+1!, ED+1!, DEMO+3!, PAUSE+1!, DONE+1!, EOP+3~
DIR("?"	BD+1*
DIR("A"	BD+1, ED+1, DEMO+3, PAUSE+1, DONE+1*
DIR("B"	DEMO+3*
DIR(0	BD+1, ED+1, DEMO+3, PAUSE+1, DONE+1, EOP+5
DIRUT	BD+1, BD+2, ED+1, ED+2, DEMO+4, PAUSE+2, DONE+1*, EOP+4!
DLOUT	EOP+4!
DT	PRINT+2, XTMP+2
DTOUT	EOP+4!
DUOUT	BD+1, ED+1, DONE+1, EOP+4!
DUZ	USR+1
DUZ(2	LOC+1
I	LBLK+1~, LBLK+2, RBLK+1~, RBLK+2
IO	DONE+1
IO("S"	EOP+2
IO(0	DONE+1
IOF	START+1, START+3, PAUSE+3, PRINT+1
IOM	CTR+1
IOST	DONE+1, EOP+1
>> IOT	EOP+2
L	EOJ+2!, LBLK~, LBLK+2, RBLK~, RBLK+2
M	EOJ+2!
N	XTMP~, XTMP+1, XTMP+2
S	EOJ+2!
T	EOJ+2!
U	V1+2, V1+6, V1+11, V1+12, V1+14, V1+17, PRINT+5, PRINT+6, PRINT+7, PRINT+8 , USR+1, LOC+1
V	LBLK~, LBLK+2, LBLK+3, RBLK~, RBLK+2, RBLK+3
X	ED+5, EOJ+2!, V1+6, PRINT+3, PRINT+5, PRINT+6, PRINT+7, PRINT+8*, PRINT+9, CTR~ , CTR+1
X1	ED+5*, EOJ+2!
X2	ED+5*, EOJ+2!
>> XBIOP	BROWSE+2*
>> XBNS	DEMO+6, BROWSE+2
>> XBRC	DEMO+6, BROWSE+2
>> XBRP	DEMO+6, BROWSE+1
>> XBRX	DEMO+6, BROWSE+2
Y	BD+3, ED+3, ED+4, DEMO+5, EOJ+2!, V1+11, V1+14, V1+17*, CTR~, CTR+1
Z	EOJ+2!, LBLK+2, RBLK+2
>> ZTQUEUED	EOP+2

Marked Items

Name	Field # of Occurrence
$T(@APCLX	V1+3, PRINT+5

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLPSU3

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items