Routine: APCLYV12

Package	Total	Call Graph
VA Fileman	2	^%DTC ^DIR
Patient Care Component Reports	1	DONE^APCLOSUT

Entry Points

Name	Comments	DBIA/ICR reference
P2
P3
HEAD	;print page heading
P1
END	;
P4
P5
PRV9
TOTALS	;print visit totals
WRITE	;print line
INIT	;
PRVTINS	;does patient have co dep info in prvt ins file?
PRINT	;
MAIN
PAGE	;form feed to new page

External References

Name	Field # of Occurrence
^%DTC	WRITE+8
DONE^APCLOSUT	END+1
^DIR	PAGE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No visits to report" Line Location: INIT+2
Function Call: WRITE	Prompt: ! Line Location: WRITE+3
Function Call: WRITE	Prompt: ?97,X Line Location: WRITE+5
Function Call: WRITE	Prompt: ?110,X Line Location: WRITE+8
Function Call: WRITE	Prompt: ?123,X Line Location: WRITE+8
Function Call: WRITE	Prompt: !?132-$L(APCLFAC)/2,APCLFAC Line Location: HEAD+2
Function Call: WRITE	Prompt: !?45,"COMMISSIONED OFFICERS & DEPENDENTS VISITS" Line Location: HEAD+3
Function Call: WRITE	Prompt: !?55,APCLBD," to ",APCLED Line Location: HEAD+4
Function Call: WRITE	Prompt: !?132-$L(X)/2,X,! Line Location: HEAD+6
Function Call: WRITE	Prompt: "-" Line Location: HEAD+7
Function Call: WRITE	Prompt: !,"Patient Name",?23,"Chart #",?36,"SSN",?45,"CO or Dep" Line Location: HEAD+8
Function Call: WRITE	Prompt: ?58,"Sponsor",?80,"SSN" Line Location: HEAD+9
Function Call: WRITE	Prompt: ?97,$S(APCLII="I":"Admit Date",1:"Visit Date") Line Location: HEAD+10
Function Call: WRITE	Prompt: ?110,$S(APCLII="I":"Dsch Date",1:"No. of Visits") Line Location: HEAD+11
Function Call: WRITE	Prompt: ?122,"# of Days" Line Location: HEAD+12
Function Call: WRITE	Prompt: ! Line Location: HEAD+13
Function Call: WRITE	Prompt: "-" Line Location: HEAD+13
Function Call: WRITE	Prompt: ! Line Location: HEAD+14
Function Call: WRITE	Prompt: ! Line Location: PAGE+2
Function Call: WRITE	Prompt: ?58,$P(APCLSTR1,"^",4) Line Location: PRVTINS+4
Function Call: WRITE	Prompt: ?80,$E(X,1,3),"-",$E(X,4,5),"-",$E(X,6,9) Line Location: PRVTINS+5
Function Call: WRITE	Prompt: !!?80,"TOTAL OUTPATIENT VISITS:",?112,$J(APCLTOT,3) Line Location: TOTALS+3
Function Call: WRITE	Prompt: !!?95,"TOTAL INPATIENT DAYS:",?121,$J(APCLTOT,3) Line Location: TOTALS+4
Function Call: WRITE	Prompt: !!?80,"TOTAL DENTAL VISITS:",?112,$J(APCLTOT,3) Line Location: TOTALS+5
Function Call: READ	Prompt: "Enter <return> to continue or '^' to stop" Formatting: !! Timeout: DTIME Variable: APCLSTOP Line Location: TOTALS+7
Routine Call	DIR Line Location: PAGE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	INIT+4
^AUPNPRVT - [#9000006]	PRVTINS+4
^AUPNPRVT("I"	PRVTINS+3
^AUTNINS("B"	INIT+7, INIT+8
^AUTTBEN - [#9999999.25]	P5+2
^DIC(4 - [#4]	INIT+1
^DPT - [#2]	P5+5
^XTMP("APCLYV1"	INIT+2, END+4!, P1, P2, P3, P4, P5

Label References

Name	Line Occurrences
END	INIT+2, MAIN, MAIN+1
HEAD	INIT+2, PRINT+1, P5+3, PAGE+1, PAGE+3
P1	P2
P2	P3
P3	P4
P4	P5
P5	WRITE+6, WRITE+9
PAGE	WRITE+1, TOTALS+2
PRINT	MAIN, MAIN+1, MAIN+2
PRV9	PRVTINS+1, PRVTINS+2, PRVTINS+3
PRVTINS	WRITE+4
TOTALS	MAIN, MAIN+1, MAIN+2, P5+3

Naked Globals

Name	Field # of Occurrence
^(	P5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCLBD	INIT+5*, END+2!, HEAD+4
APCLBEN	END+2!, PRINT+1, P1, P2, P3, P4, P5, P5+2
APCLBENP	END+3!, P5+2, P5+3, P5+4, WRITE+2, PRVTINS+2
>> APCLBT	INIT+2, END+4, P1, P2, P3, P4, P5
APCLCFLG	END+3!, P5+2*, P5+3!
APCLCHMP	INIT+7, INIT+8, END+2!, PRVTINS+1, PRVTINS+3
APCLDEN	MAIN+2, END+4!
APCLDSCH	END+3!, P5+1*, WRITE+7, WRITE+8
APCLED	INIT+6*, END+2!, HEAD+4
APCLFAC	INIT+1*, END+3!, HEAD+2
APCLHRCN	END+2!, P5+1*, WRITE+2
APCLIDFN	END+3!
APCLII	MAIN, MAIN+1, MAIN+2*, END+2!, P1, P2, P3, P4, P5, P5+1 , WRITE+3, WRITE+6, HEAD+5, HEAD+10, HEAD+11, HEAD+12, TOTALS+3, TOTALS+4, TOTALS+5
APCLIP	MAIN+1, END+3!
>> APCLJOB	INIT+2, END+4, P1, P2, P3, P4, P5
APCLNAME	END+2!, P1, P2, P3, P4, P5, WRITE+2
APCLOP	MAIN, END+3!
APCLPAT	END+2!, P2, P3, P4, P5, P5+5, PRVTINS+3, PRVTINS+4
APCLRET	END+2!
APCLRETD	END+2!
APCLSSN	END+3!, P5+5, P5+6, WRITE+2
APCLSTOP	INIT+3, MAIN, MAIN+1, END+2!, WRITE+1, PAGE+2, TOTALS+1, TOTALS+7*
APCLSTR	END+3!, P5*, P5+1
>> APCLSTR1	PRVTINS+4*, PRVTINS+5
APCLSUB	END+2!, P2, P3, WRITE+2, WRITE+3, WRITE+6
APCLTOT	INIT+3, END+2!, WRITE+6, WRITE+9, TOTALS+3, TOTALS+4, TOTALS+5, TOTALS+6
APCLVDFN	END+3!, P4, P5
APCLVDT	END+3!, P3+2, P4, P5, WRITE+5, WRITE+8
DIR	PAGE+2!
DIR(0	PAGE+2*
DTIME	TOTALS+7
>> DTOUT	PAGE+2
DUZ(2	INIT+1
>> INS	PRVTINS+3*, PRVTINS+4
IO	PAGE+2
IO(0	PAGE+2
IOF	HEAD+1
IOSL	WRITE+1, TOTALS+2
IOST	PAGE+1, PAGE+2, TOTALS+7
J	END+3!, HEAD+7, HEAD+13
X	INIT+4, END+3!, WRITE+5, WRITE+7, WRITE+8, WRITE+9, HEAD+5, HEAD+6, PRVTINS+5
>> X1	WRITE+8*
>> X2	WRITE+8*
Y	END+2!, PAGE+2

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLYV12

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: