Routine: APCLVLP

Package	Total	Call Graph
Patient Care Component Reports	5	$$VREC^APCLVDR COVPAGE^APCLVLP1 (DONE,HEAD,WRITEF)^APCLVLP2 DELIMIT^APCLVLP8 $$LOINC^APCLVLU1
VA Fileman	1	EN^DIQ1

Entry Points

Name	Comments	DBIA/ICR reference
FLAT	;
HEAD	;ENTRY POINT
FLATX
NEXT	;
START	;EP - Set up header line, dash line
SINGLE	;process single valued item
DONE	;
MULT	;
V	;GETS DATA HITS
PRINT	;
PROC	;process printing of report
DIQ	;
LABLOINC	;
WRITEF	;write flat file from global

External References

Name	Field # of Occurrence
$$VREC^APCLVDR	FLAT+3, FLAT+6, FLAT+9
COVPAGE^APCLVLP1	START+8
DONE^APCLVLP2	DONE+1
HEAD^APCLVLP2	HEAD+1
WRITEF^APCLVLP2	WRITEF+1
DELIMIT^APCLVLP8	START+1
$$LOINC^APCLVLU1	LABLOINC+8
EN^DIQ1	DIQ+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"Total ",$S(APCLPTVS="P":"Patients",1:"Visits"),": ",APCLRCNT Line Location: PROC+16
Function Call: WRITE	Prompt: !,"Total Patients: ",APCLPTCT Line Location: PROC+17
Function Call: WRITE	Prompt: !!,"SUB-TOTAL for ",APCLSORV," ",APCLSRTR,": ",APCLSCNT Line Location: V+15
Function Call: WRITE	Prompt: " # of PATIENTS: ",$S($D(^XTMP("APCLVL",APCLJOB,APCLBTH,"SUB PAT COUNT",APCLSRTV)):^XTMP("APCLVL",APCLJOB,APCLBTH,"SUB PAT COUNT",APCLSRTV),1:0) Line Location: V+15
Function Call: WRITE	Prompt: !,?10,$E(APCLSRTR,1,30),?45,$J(APCLSCNT,8)," (V)",?60,$S($D(^XTMP("APCLVL",APCLJOB,APCLBTH,"SUB PAT COUNT",APCLSRTV)):$J(^XTMP("APCLVL",APCLJOB,APCLBTH,"SUB PAT COUNT",APCLSRTV),8),1:0)," (P)" Line Location: V+16
Function Call: WRITE	Prompt: !,?10,$E(APCLSRTR,1,30),?45,$J(APCLSCNT,8) Line Location: V+17

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCLVRPT - [#9001003.8]	START+4, START+5, PRINT+5, SINGLE+4, SINGLE+5, MULT+5, MULT+10, NEXT+4, NEXT+5, NEXT+8 , NEXT+9, NEXT+10, NEXT+11, NEXT+12
^APCLVSTS - [#9001003.7]	START+4, V+5, V+6, PRINT+6, SINGLE+3, MULT+2, MULT+7, DIQ+2
^AUPNVLAB - [#9000010.09]	LABLOINC+3, LABLOINC+4, LABLOINC+6
^AUPNVSIT - [#9000010]	V+5, V+10
^XTMP("APCLLINE"	PRINT+3!, PRINT+9, PRINT+11, SINGLE+5, SINGLE+6, NEXT+5, NEXT+9, NEXT+11, NEXT+12, NEXT+13
^XTMP("APCLVL"	PROC+4, PROC+6, V+4, V+9, V+15, V+16
^XTMP($J	START+3!, FLAT+12, FLAT+13, FLAT+14*

Label References

Name	Line Occurrences
DONE	PROC+1, PROC+2, PROC+3, PROC+4, PROC+7, PROC+8, PROC+15
FLAT	PRINT+1
FLATX	FLAT+7, FLAT+8, FLAT+11
HEAD	PROC+15, V+7, V+14, PRINT+4, PRINT+10
LABLOINC	MULT+7
MULT	PRINT+7
NEXT	MULT+7
PRINT	V+10, V+11
SINGLE	PRINT+6
V	PROC+6
WRITEF	PROC+9

Naked Globals

Name	Field # of Occurrence
^(0	DIQ+2
^(3	V+5, V+6, SINGLE+3, MULT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCLBTH	PROC+4, PROC+6, V+4, V+9, V+15, V+16
>> APCLCRIT	V+4, PRINT+5, PRINT+6, SINGLE+3, MULT+2, MULT+7, MULT+10, DIQ+2
>> APCLCTYP	START+1, PROC+1, PROC+2, PROC+3, PROC+8, V+16, V+17, PRINT+1, PRINT+2
>> APCLDASH	START+7*
>> APCLFCNT	START+2, PROC+12, FLAT+12, FLAT+13, FLAT+14
APCLFIEL	DIQ+1!, DIQ+2*, DIQ+3, DIQ+4, DIQ+5
APCLFILE	DIQ+1!, DIQ+2*, DIQ+3, DIQ+4, DIQ+5
APCLFRST	PROC+5*, V+7, V+8!
>> APCLHDR	START+4*, START+5
>> APCLHEAD	START+4, START+5
>> APCLI	PRINT+5*, SINGLE+4, SINGLE+5, MULT+5, NEXT+4, NEXT+5, NEXT+8, NEXT+9, NEXT+10, NEXT+11 , NEXT+12
>> APCLJOB	PROC+4, PROC+6, V+4, V+9, V+15, V+16
>> APCLLABT("LAB"	LABLOINC+5
>> APCLLENG	START+4, SINGLE+4, NEXT+4, NEXT+8, NEXT+10*
>> APCLOUTF	PROC+10
>> APCLPCNT	MULT+1*
>> APCLPG	PROC+4*
APCLPRNM	MULT+1!, NEXT+2!, NEXT+3
APCLPRNM(	LABLOINC+1, LABLOINC+7!, LABLOINC+9!, MULT+8, MULT+9!, MULT+10!, NEXT+1, NEXT+2*, NEXT+6, NEXT+10
APCLPRNM(1	NEXT+8
APCLPRNT	V+3!, V+5, V+6, SINGLE+1!, SINGLE+4, SINGLE+5, MULT+1!, NEXT+3, NEXT+4, NEXT+5 , NEXT+8, NEXT+9, NEXT+10, NEXT+12, DIQ+1!, DIQ+5
APCLPRNT(	DIQ+4*, DIQ+5
>> APCLPTCT	PROC+17
>> APCLPTVS	PROC+16, PROC+17, V+5, V+6, V+10, V+15, V+16, V+17
APCLQUIT	PROC+5!, PROC+6, PROC+7, PROC+15, V+7, V+9, V+13, V+14, PRINT+4, PRINT+5 , PRINT+9, PRINT+10
>> APCLRCNT	PROC+11, PROC+16
>> APCLRPT	START+4, START+5, PRINT+5, SINGLE+4, SINGLE+5, MULT+5, MULT+10, NEXT+4, NEXT+5, NEXT+8 , NEXT+9, NEXT+10, NEXT+11, NEXT+12
>> APCLSCNT	V+1, V+15, V+16, V+17, PRINT+2
>> APCLSORT	V+4, V+5, V+6
>> APCLSORV	V+15
>> APCLSPAG	V+7, V+15
>> APCLSRTR	V+4, V+5, V+6*, V+15, V+16, V+17
>> APCLSRTV	PROC+5, PROC+6, V+4, V+9, V+15, V+16
>> APCLTCW	START+7
APCLV0	FLATX!
>> APCLVIEN	V+4, V+5, V+6, V+9, V+10, V+11, FLAT+3, FLAT+6, FLAT+9
>> APCLVREC	V+5, V+10
>> APCLX	PRINT+9, PRINT+11, SINGLE+2, MULT+1*
APCLX1	FLAT+2!, FLAT+3*, FLAT+4, FLAT+5, FLAT+12, FLATX!
APCLX2	FLAT+2!, FLAT+6*, FLAT+7, FLAT+8, FLAT+13, FLATX!
APCLX3	FLAT+2!, FLAT+9*, FLAT+10, FLAT+11, FLAT+14, FLATX!
APCLY	MULT+1!
>> C	NEXT+1*
>> DA	DIQ+4, DIQ+5
>> DFN	V+5, V+6, V+10, V+11
DIC	DIQ+3*!
DIQ	DIQ+3*!
DIQ(0	DIQ+3*
DR	DIQ+3*!
>> I	START+5, SINGLE+5, SINGLE+6, NEXT+5, NEXT+9, NEXT+12, NEXT+13*
IOSL	PROC+15, V+14, PRINT+4, PRINT+10
>> J	START+5, SINGLE+5, SINGLE+6, LABLOINC+6, LABLOINC+7, LABLOINC+8, NEXT+5, NEXT+9, NEXT+12, NEXT+13
>> K	START+5, SINGLE+5, SINGLE+6, NEXT+5, NEXT+9, NEXT+11, NEXT+12, NEXT+13
U	START+4, START+5, V+5, V+10, PRINT+5, PRINT+6, SINGLE+4, SINGLE+5, LABLOINC+4, LABLOINC+6 , MULT+5, MULT+7, NEXT+4, NEXT+5, NEXT+8, NEXT+9, NEXT+10, NEXT+11, NEXT+12, DIQ+2
>> X	START+4, START+5, SINGLE+6, LABLOINC+1, LABLOINC+7, LABLOINC+9, MULT+8, MULT+9, MULT+10, NEXT+1* , NEXT+2, NEXT+6, NEXT+7, NEXT+10, NEXT+11, NEXT+12, NEXT+13*
Y	LABLOINC+1*, LABLOINC+2, LABLOINC+3, LABLOINC+4, LABLOINC+6, NEXT+1!
Y(	NEXT+1*, NEXT+2
>> Z	LABLOINC+4, LABLOINC+5, MULT+9, MULT+10
>> ZTQUEUED	PROC+10, PROC+11, PROC+12, PROC+13, PROC+14

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLVLP

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: