Routine: APCLPSU1

Package	Total	Call Graph
IHS VA Utilities	5	^XBDBQUE ($$VAL,$$VALI)^XBDIQ1 ^XBFMK $$EXTSET^XBFUNC EN^XBVK
VA Fileman	3	C^%DTC ^DIC ^DIR
IHS Patient	1	KILL^AUPNPAT
Kernel	1	($$FMADD,$$FMTE)^XLFDT
PCC Medical Query	1	PEP^AMQQGTX0
Patient Care Component Reports	1	($$DEMO,DEMOCHK)^APCLUTL

Entry Points

Name	Comments	DBIA/ICR reference
BD	;
EOJ	;
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
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	;;Self Destructive Act:
V1	;
3	;;Event logged by Provider:
2	;;Event logged by Discipline:
5	;;Employed:
LBLK(V,L)	;left blank fill
7	;;Community of Residence:
DEMO	;
9	;;Education:
8	;;Relationship:
4	;;Sex:
HEAD	;EP
PAUSE	;
ZIS	;
XTMP(N,D)	;EP - set xtmp 0 node
ED	;
6	;;Tribe of Enrollment:
START	;
COMM	;
V	; Run by visit date
11	;;Previous Attempts:
10	;;Method:
13	;;Location of Act:
12	;;Substance Use Involved:
15	;;Disposition:
14	;;Lethality:
HEAD1	;
16	;;Contributing Factors:
GETDATES	;
PROC	;EP

External References

Name	Field # of Occurrence
C^%DTC	ED+5
PEP^AMQQGTX0	COMM+10
$$DEMO^APCLUTL	V1+2
DEMOCHK^APCLUTL	DEMO+1
KILL^AUPNPAT	EOJ+3
^DIC	COMM+6, COMM+9
^DIR	BD+1, ED+1, COMM+2, DEMO+3, PAUSE+1, DONE+1, HEAD+2, EOP+5
^XBDBQUE	DEMO+7, BROWSE+2
$$VAL^XBDIQ1	V1+5, V1+11, V1+17, V1+22, V1+28, V1+30
$$VALI^XBDIQ1	V1+11, V1+17, V1+22, V1+28, V1+30
^XBFMK	EOJ+4
$$EXTSET^XBFUNC	V1+15, V1+20
EN^XBVK	EOJ+1
$$FMADD^XLFDT	XTMP+2
$$FMTE^XLFDT	HEAD1+2, HEAD1+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"IHS Aggregated Data from Suicide Reporting Forms" Line Location: START+4
Function Call: WRITE	Prompt: !!,"This report will tally the data items specific to the Suicide Reporting form ",!,"for a date range and community specified by the user.",! Line Location: START+5
Function Call: WRITE	Prompt: ! Line Location: START+6
Function Call: WRITE	Prompt: !,"Ending date must be greater than or equal to beginning date!" Line Location: ED+3
Function Call: WRITE	Prompt: !!,"All communities will be included in the report.",! Line Location: COMM+4
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: COMM+9
Function Call: WRITE	Prompt: !! Line Location: DEMO+6
Function Call: WRITE	Prompt: !!,"No Suicide Forms to Report" Line Location: PRINT+3
Function Call: WRITE	Prompt: !?1,$$LBLK(APCLL,28) Line Location: PRINT+9
Function Call: WRITE	Prompt: ?72,$J(((X/T)*100),3,0)_"%",! Line Location: PRINT+13
Function Call: WRITE	Prompt: !,"Age Range: ","ALL AGES",?30,"Total # of Suicide Forms: ",APCLTOT,!?63,"REPORT TOTALS" Line Location: PRINT+18
Function Call: WRITE	Prompt: !?1,$$LBLK(APCLL,28) Line Location: PRINT+21
Function Call: WRITE	Prompt: ?72,$J(((X/APCLTOT)*100),3,0)_"%",! Line Location: PRINT+25
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: !,$$LOC,?35,$$FMTE^XLFDT(DT),?70,"Page ",APCLPG,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: !,?((80-$L(X))/2),X,! Line Location: HEAD1+3
Function Call: WRITE	Prompt: $$CTR(X),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: $$CTR(X),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: $TR($J("",80)," ","-"),! Line Location: HEAD1+6
Routine Call	DIC Line Location: COMM+6 COMM+9
Routine Call	DIR Line Location: BD+1 ED+1 COMM+2 DEMO+3 PAUSE+1 DONE+1 HEAD+2 EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMQQ(5 - [#9009075]	Classic Fileman Calls
^AUTTCOM - [#9999999.05]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPSUIC - [#9002011.65]	V1+2, V1+4, V1+14, V1+15, V1+20, V1+25, V1+26
^AMHPSUIC("AD"	V+2, V1+1
^AMHTSCF - [#9002014.9]	V1+26
^AUTTCOM - [#9999999.05]	HEAD1+5
^DIC(4 - [#4]	LOC+1
^VA(200 - [#200]	USR+1
^XTMP(	XTMP+2*
^XTMP("APCLPSU1"	PROC+2!, V1+12, V1+16, V1+18, V1+21, V1+23, V1+27, V1+29, V1+31, PRINT+4 , PRINT+7, PRINT+10, PRINT+11, PRINT+12, PRINT+19, PRINT+22, PRINT+23, PRINT+24, DONE+2!

Label References

Name	Line Occurrences
$$CTR	HEAD1+4, HEAD1+5
$$LBLK	PRINT+9, PRINT+21
$$LOC	HEAD1+2
BROWSE	DEMO+5
COMM	COMM+5, COMM+11, DEMO+2
DONE	PRINT+3, PRINT+16
ED	ED+3
EOJ	START+2, BD+2, ED+2, DEMO+4, DEMO+5, DEMO+8
GETDATES	COMM+3, COMM+9
HEAD	PRINT+3, PRINT+5, PRINT+8, PRINT+17, PRINT+20
HEAD1	HEAD+1
V1	V+2
XTMP	PROC+3
ZIS	COMM+4, COMM+5

Naked Globals

Name	Field # of Occurrence
^(	V1+12, V1+16, V1+18, V1+21, V1+23, V1+27, V1+29, V1+31
^(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	V1+5*, V1+6
>> APCLAGEG	V1+6, V1+7, V1+12, V1+16, V1+18, V1+21, V1+23, V1+27, V1+29, V1+31 , PRINT+4, PRINT+6, PRINT+7, PRINT+10, PRINT+11, PRINT+12, PRINT+13
>> APCLBD	BD+3*, ED+3, ED+5, HEAD1+4
>> APCLC	V1+9, V1+10, V1+12, V1+14, V1+16, V1+17, V1+18, V1+20, V1+21, V1+22 , V1+23, V1+25, V1+27, V1+28, V1+29, V1+30*, V1+31
APCLCOMM	COMM+1!, COMM+5, COMM+11, COMM+12!, V1+4, HEAD1+5
APCLCOMM(	COMM+8*, V1+4
APCLCOMM("*"	COMM+12
APCLCOMM(0	HEAD1+5
APCLCS	V+1!*
>> APCLDEMO	DEMO+1, DEMO+2, V1+2
>> APCLED	ED+4*, V+2, HEAD1+4
>> APCLH	PROC+1*, PROC+2, V1+12, V1+16, V1+18, V1+21, V1+23, V1+27, V1+29, V1+31 , PRINT+4, PRINT+7, PRINT+10, PRINT+11, PRINT+12, PRINT+19, PRINT+22, PRINT+23, PRINT+24, DONE+2
APCLIA	V+1!*
>> APCLJ	PROC+1*, PROC+2, V1+12, V1+16, V1+18, V1+21, V1+23, V1+27, V1+29, V1+31 , PRINT+4, PRINT+7, PRINT+10, PRINT+11, PRINT+12, PRINT+19, PRINT+22, PRINT+23, PRINT+24, DONE+2
>> APCLL	PRINT+9, PRINT+21
>> APCLPG	PRINT+1, HEAD+1, HEAD1+1, HEAD1+2
APCLQUIT	PAUSE+2, PRINT+2!, PRINT+4, PRINT+5, PRINT+7, PRINT+8, PRINT+10, PRINT+11, PRINT+16, PRINT+17 , PRINT+19, PRINT+20, PRINT+22, PRINT+23, HEAD+2
>> APCLSD	ED+5, V+2, V1+1
>> APCLSUC	V1+4*
APCLTOT	V+1!, V1+3, PRINT+3, PRINT+18, PRINT+25
APCLTOT(	V1+7*, PRINT+6, PRINT+13
>> APCLV	PRINT+7, PRINT+10, PRINT+11, PRINT+12, PRINT+19, PRINT+22, PRINT+23, PRINT+24
>> APCLVDFN	V1+1*, V1+2, V1+4, V1+5, V1+11, V1+14, V1+15, V1+17, V1+20, V1+22 , V1+25, V1+26, V1+28, V1+30
>> APCLX	V1+9, V1+11, PRINT+11, PRINT+12, PRINT+13, PRINT+23*, PRINT+24, PRINT+25
>> APCLY	PRINT+10, PRINT+11, PRINT+12, PRINT+22, PRINT+23, PRINT+24
B	EOJ+2!
D	XTMP~, XTMP+2
DA	ED+1!, COMM+2!, COMM+9!, DEMO+3!, PAUSE+1!
DFOUT	EOP+4!
DIC	COMM+6!, COMM+9!
DIC("A"	COMM+6*
DIC("S"	COMM+9*
DIC(0	COMM+6, COMM+9
DIR	BD+1!, ED+1!, COMM+2!, DEMO+3!, PAUSE+1!, DONE+1!, HEAD+2!, EOP+3~
DIR("?"	BD+1*
DIR("A"	BD+1, ED+1, COMM+2, DEMO+3, PAUSE+1, DONE+1
DIR("B"	COMM+2, DEMO+3
DIR(0	BD+1, ED+1, COMM+2, DEMO+3, PAUSE+1, DONE+1, HEAD+2, EOP+5
DIRUT	BD+1, BD+2, ED+1, ED+2, COMM+3, DEMO+4, PAUSE+2, DONE+1*, EOP+4!
DLOUT	EOP+4!
DT	HEAD1+2, XTMP+2
DTOUT	HEAD+2, 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, HEAD+2
IO("S"	EOP+2
IO(0	DONE+1, HEAD+2
IOF	START+1, START+3, PAUSE+3, HEAD1+1
IOM	CTR+1
IOSL	PRINT+8, PRINT+20
IOST	DONE+1, HEAD+2, 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!, PRINT+13*
U	V1+2, V1+4, V1+15, V1+20, V1+26, HEAD1+5, USR+1, LOC+1
V	LBLK~, LBLK+2, LBLK+3, RBLK~, RBLK+2, RBLK+3
X	ED+5, COMM+9, EOJ+2!, V1+11, V1+12, V1+15, V1+16, V1+17, V1+18, V1+20 , V1+21, V1+22, V1+23, V1+26, V1+27, V1+28, V1+29, V1+30, V1+31, PRINT+12 , PRINT+13, PRINT+24, PRINT+25, HEAD1+3, HEAD1+4, HEAD1+5, 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, COMM+4, COMM+5, COMM+7, COMM+8, COMM+9, COMM+10, DEMO+5 , EOJ+2!, V1+11, V1+12, V1+15, V1+16, V1+17, V1+18, V1+20, V1+21, V1+22* , V1+23, V1+26, V1+27, V1+28, V1+29, V1+30, V1+31*, HEAD+2, CTR~, CTR+1
Z	EOJ+2!, V1+14, V1+15, V1+25, V1+26, LBLK+2, RBLK+2
>> ZTQUEUED	EOP+2

Marked Items

Name	Field # of Occurrence
$T(@APCLV	PRINT+9, PRINT+21

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLPSU1

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:

Marked Items