Routine: APCLHCT1

Package	Total	Call Graph
VA Fileman	2	COMMA^%DTC ^DIR
Kernel	1	$$REPEAT^XLFSTR
Patient Care Component Reports	1	DONE^APCLOSUT

Entry Points

Name	Comments	DBIA/ICR reference
HEAD
MAJTOT	;print major sort totals
HEAD1	;
MINOR1	;
CTR(X,Y)	;EP - Center X in a field Y wide.
START	;
DONE	;
C(X,X2,X3)	;
MAJTOT1
MINOR	;

External References

Name	Field # of Occurrence
COMMA^%DTC	C+1
DONE^APCLOSUT	DONE+1
^DIR	HEAD+1
$$REPEAT^XLFSTR	HEAD1+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: START+8
Function Call: WRITE	Prompt: ?J,"-------" Line Location: START+9
Function Call: WRITE	Prompt: ! Line Location: START+10
Function Call: WRITE	Prompt: ?12,"Total:",?24,$$C(APCL1,0,7),?31,$$C(APCL2,0,7),?38,$$C(APCL3,0,7),?45,$$C(APCL4,0,7),?52,$$C(APCL5,0,7),?59,$$C(APCL6,0,7),?66,$$C(APCL7,0,7),?73,$$C(APCL8,0,7),! Line Location: START+11
Function Call: WRITE	Prompt: !,$E(APCLMAJ,1,28) Line Location: MINOR+2
Function Call: WRITE	Prompt: ! Condition for execution: APCLSUB=1 Line Location: MINOR+2
Function Call: WRITE	Prompt: !?1,$E(APCLMIN,1,20) Line Location: MINOR1+7
Function Call: WRITE	Prompt: ?APCLT,$$C((@APCLVAR),0,7) Line Location: MINOR1+7
Function Call: WRITE	Prompt: !! Line Location: MAJTOT+3
Function Call: WRITE	Prompt: ?J,"-------" Line Location: MAJTOT+4
Function Call: WRITE	Prompt: ! Line Location: MAJTOT+5
Function Call: WRITE	Prompt: ?12,"Subtotal:" Line Location: MAJTOT+7
Function Call: WRITE	Prompt: ?APCLI,$$C($P(^XTMP("APCLHCTR",APCLJOB,APCLBT,"SUBTOTAL",APCLMAJ),U,APCLP),0,7) Line Location: MAJTOT1+0
Function Call: WRITE	Prompt: ! Line Location: MAJTOT1+1
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: $P(^DIC(4,DUZ(2),0),U),?60,APCLDTP,?72,"Page ",APCLPG,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: !,"Inpatient Discharges and Days for ",$S(APCLIND=1:"Indian",1:"all")," Patients." Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,"Discharge Dates between ",APCLSDY," and ",APCLEDY,".",! Line Location: HEAD1+5
Function Call: WRITE	Prompt: "The report is sorted by ",$S(APCLSORT="C":"Community of Residence",APCLSORT="T":"Tribe of Membership",1:"Service Unit of Residence"),$S(APCLSUB=1:" and by ",1:".") Line Location: HEAD1+6
Function Call: WRITE	Prompt: !,"A '*' after the Community name indicates a Non-Service Unit Community.",! Line Location: HEAD1+8
Function Call: WRITE	Prompt: !,$S(APCLSORT="C":"Current Community of",APCLSORT="T":"Tribe of Membership",1:"Service Unit of Residence") Line Location: HEAD1+9
Function Call: WRITE	Prompt: ?24,"# Adult",?32,"# Adult",?40,"# NB",?47,"# NB",?54,"# TX",?61,"# MCR",?68,"# MCD",?74,"# PI" Line Location: HEAD1+10
Function Call: WRITE	Prompt: !,$S(APCLSORT="C":" residence",1:""),?24,"/Peds",?32,"/Peds",?40,"Dsch",?47,"Days",?54,"IN" Line Location: HEAD1+11
Function Call: WRITE	Prompt: !?24,"Dsch",?32,"Days" Line Location: HEAD1+12
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HEAD1+14
Routine Call	DIR Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	HEAD1+2, HEAD1+4
^XTMP("APCLHCT"	START+4, DONE+2!, MINOR+3, MINOR1+2, MINOR1+3
^XTMP("APCLHCTR"	DONE+2!, MINOR1+1, MINOR1+2, MAJTOT1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCL1	START+2*, START+11
>> APCL2	START+2*, START+11
>> APCL3	START+2*, START+11
>> APCL4	START+2*, START+11
>> APCL5	START+2*, START+11
>> APCL6	START+2*, START+11
>> APCL7	START+2*, START+11
>> APCL8	START+2*, START+11
>> APCL80D	START+1*
>> APCLBT	START+4, DONE+2, MINOR+3, MINOR1+1, MINOR1+2, MINOR1+3, MAJTOT1
>> APCLDTP	HEAD1+2
>> APCLEDY	HEAD1+5
>> APCLI	MINOR1+2, MINOR1+3, MINOR1+4, MINOR1+7, MAJTOT1*
>> APCLIND	HEAD1+3
>> APCLJOB	START+4, DONE+2, MINOR+3, MINOR1+1, MINOR1+2, MINOR1+3, MAJTOT1
>> APCLLOC	HEAD1+4
>> APCLMAJ	START+3, START+4, MINOR+2, MINOR+3, MINOR1+1, MINOR1+2, MINOR1+3, MAJTOT1
>> APCLMIN	MINOR+3*, MINOR1+2, MINOR1+3, MINOR1+7
>> APCLP	MINOR1+3, MAJTOT1
>> APCLPG	START+2, HEAD, HEAD1+1, HEAD1+2
APCLQUIT	START+3!, START+4, START+5, START+6, MINOR+1, MINOR+3, MINOR+4, MINOR1+6, HEAD+1*
>> APCLSDY	HEAD1+5
>> APCLSORT	HEAD1+6, HEAD1+7, HEAD1+9, HEAD1+11, HEAD1+13
>> APCLSUB	MINOR+1, MINOR+2, MINOR1+5, MAJTOT+2, HEAD1+6, HEAD1+7, HEAD1+13
>> APCLT	MINOR1+7*
>> APCLVAR	MINOR1+3, MINOR1+7
>> APCLVAR1	MINOR1+4*
>> APCLVAR2	MINOR1+4*
DIR	HEAD+1!
DIR(0	HEAD+1*
>> DTOUT	HEAD+1
DUZ(2	HEAD1+2
>> I	START+4*
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOM	CTR+1
IOSL	START+6, MINOR+1, MINOR1+6
IOST	HEAD+1
>> J	START+9, MAJTOT+4
U	MINOR1+2, MINOR1+3, MAJTOT1, HEAD1+2, HEAD1+4
X	CTR~, CTR+1, C~, C+2, HEAD1+4*
X2	C~
X3	C~
Y	CTR~, CTR+1, HEAD+1

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLHCT1

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
$$C	START+11, MINOR1+7, MAJTOT1
$$CTR	HEAD1+4
DONE	START+5, START+6
HEAD	START+2, START+6, MINOR+1, MINOR1+6
HEAD1	HEAD
MAJTOT	MINOR+5
MAJTOT1	MAJTOT+2
MINOR	START+4
MINOR1	MINOR+3