Routine: SCDXPOV3

Information

SCDXPOV3 ; ALB/SCK - VISIT REPORT BY NPCDB TRANSMISSION STATUS ; 05 Oct 98 8:38 PM

Source Information

Source file <SCDXPOV3.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Scheduling	4	INIT^SCDXPOV ^SCDXPOV1 ($$COVPRI,$$ELGPRI,CLEAR)^SCDXPOV2 DTS^SDUTL
Registration	1	$$SITE^VASITE
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Scheduling	1	SCDXPOV

Entry Points

Name	Comments	DBIA/ICR reference
NEWPAGE	;
VISQ
HDR	; Print the report header ; Variables ; LINEOUT - Message line for header ; END - Timeout or Uparrow flag for read
VISRPT	; Print body of the Visit report consolidated by number of visits.
WRT	; Call procedures to initialize report data global, build the report global, and then print the report.
VISIT(SCXDT,SCXP,SCXE,SCXET,SCXV,SCXC)	; Update visit count for this encounter ; Input: ; SCXDT - Visit date ; SCXP - Patients DFN ; SCXE - Vet Eligibility status of encounter ; SCXET - Vet. or Non-Vet status ; SCXV - Category of visit ; SCXC - C&P status of encounter
MSG	;
BLDRPT	; Build data global for report. Order through date/patient TMP global, and count the number of unique ; visits. Increment the appropriate report data global.

External References

Name	Field # of Occurrence
^DIR	NEWPAGE+2
INIT^SCDXPOV	WRT+11
^SCDXPOV1	VISRPT+32
$$COVPRI^SCDXPOV2	VISIT+23, VISIT+25
$$ELGPRI^SCDXPOV2	VISIT+17, VISIT+19
CLEAR^SCDXPOV2	NEWPAGE+2
DTS^SDUTL	HDR+11, HDR+13
$$SITE^VASITE	WRT+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?5,"VETERAN ELIGIBILITY",! Line Location: VISRPT+11
Function Call: WRITE	Prompt: !?8,$P(^DIC(8,NUM,0),U),?45,$J($P(^TMP("SCDXPOV",$J,"VISITS","VELIG",NUM),U),6) Line Location: VISRPT+14
Function Call: WRITE	Prompt: !?42,SDASH,!,?5,"Veteran Sub-Total",?45,$J(SBTT,6) Line Location: VISRPT+17
Function Call: WRITE	Prompt: !!,?5,"NON-VETERAN ELIGIBILITY",! Line Location: VISRPT+20
Function Call: WRITE	Prompt: !?8,$P(^DIC(8,NUM,0),U),?45,$J($P(^TMP("SCDXPOV",$J,"VISITS","NVELIG",NUM),U),6) Line Location: VISRPT+23
Function Call: WRITE	Prompt: !?42,SDASH,!,?5,"Non-Veteran Sub-Total",?45,$J(SBTT,6) Line Location: VISRPT+26
Function Call: WRITE	Prompt: !!,?5,"CATEGORY OF VISIT",! Line Location: VISRPT+29
Function Call: WRITE	Prompt: !?8,$P($T(VISIT+NUM^SCDXPOV1),";",3),?45,$J($P(^TMP("SCDXPOV",$J,"VISITS","COV",NUM),U),6) Line Location: VISRPT+32
Function Call: WRITE	Prompt: !?42,SDASH,!,?5,"Category Sub-Total",?45,$J(SBTT,6) Line Location: VISRPT+35
Function Call: WRITE	Prompt: !!,?8,"Compensation and Penison appointments are included in the above",!?8,"categories and totals and are shown here for information only" Line Location: VISRPT+38
Function Call: WRITE	Prompt: !!?8,"COMPENSATION AND PENSION",?45,$J($P(^TMP("SCDXPOV",$J,"VISITS","CP"),U),6) Line Location: VISRPT+39
Function Call: WRITE	Prompt: @IOF Line Location: HDR+7
Function Call: WRITE	Prompt: !?(IOM-$L(HD2))/2,HD2 Line Location: HDR+9
Function Call: WRITE	Prompt: !?2,"Facility: "_DNAME,?(IOM-$L(HD1))-5,HD1 Line Location: HDR+15
Function Call: WRITE	Prompt: !! Line Location: HDR+16
Function Call: WRITE	Prompt: !?8,LINEOUT Line Location: HDR+17
Function Call: WRITE	Prompt: !!?48,"VISITS" Line Location: HDR+18
Function Call: WRITE	Prompt: !,SDBDASH Line Location: HDR+19
Function Call: READ	Timeout: DTIME Variable: LL Line Location: NEWPAGE+3
Routine Call	DIR Line Location: NEWPAGE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(8 - [#8]	VISRPT+14, VISRPT+23
^TMP("SCDXPOV"	BLDRPT+15, BLDRPT+16, BLDRPT+21, BLDRPT+22, BLDRPT+27*, VISRPT+13, VISRPT+14, VISRPT+15, VISRPT+22, VISRPT+23 , VISRPT+24, VISRPT+31, VISRPT+32, VISRPT+33, VISRPT+39
^TMP("SCDXV"	VISIT+15, VISIT+16, VISIT+18, VISIT+19, VISIT+21, VISIT+22, VISIT+24, VISIT+25, VISIT+27, VISIT+28* , BLDRPT+12, BLDRPT+13, BLDRPT+14, BLDRPT+19, BLDRPT+20, BLDRPT+21, BLDRPT+22, BLDRPT+25, BLDRPT+26

Label References

Name	Line Occurrences
BLDRPT	WRT+11
HDR	VISRPT+9, NEWPAGE+4
NEWPAGE	VISRPT+10, VISRPT+13, VISRPT+18, VISRPT+22, VISRPT+27, VISRPT+31, VISRPT+36
VISQ	VISRPT+10, VISRPT+13, VISRPT+18, VISRPT+22, VISRPT+27, VISRPT+31, VISRPT+36
VISRPT	WRT+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DIR(0	NEWPAGE+2*
DNAME	WRT+6~, WRT+10*, HDR+15
DVN	WRT+6~, WRT+10*
END	HDR+5~
HD1	HDR+5~, HDR+10, HDR+12, HDR+14*, HDR+15
HD2	HDR+5~, HDR+8*, HDR+9
IO	WRT+8
IOF	HDR+7
IOM	HDR+9, HDR+15
IOSL	VISRPT+10, VISRPT+13, VISRPT+18, VISRPT+22, VISRPT+27, VISRPT+31, VISRPT+36
IOST	NEWPAGE+2
L1	VISIT+13~, VISIT+17, VISIT+18, VISIT+23, VISIT+24, VISRPT+7~
LINEOUT	HDR+5~, HDR+17*
LL	HDR+5~, HDR+17*, NEWPAGE+1~
LV1	BLDRPT+9~, BLDRPT+15, BLDRPT+16, BLDRPT+21, BLDRPT+22
NUM	VISRPT+7~, VISRPT+12, VISRPT+13, VISRPT+14, VISRPT+15, VISRPT+21, VISRPT+22, VISRPT+23, VISRPT+24, VISRPT+30* , VISRPT+31*, VISRPT+32, VISRPT+33
SBTT	VISRPT+7~, VISRPT+12, VISRPT+15, VISRPT+17, VISRPT+21, VISRPT+24, VISRPT+26, VISRPT+30, VISRPT+33, VISRPT+35
SCHL	VISIT+13~, VISIT+16, VISIT+17, VISIT+22, VISIT+23
SCX	BLDRPT+9~, BLDRPT+14*, BLDRPT+15, BLDRPT+16
>> SCXABRT	VISRPT+10, VISRPT+13, VISRPT+18, VISRPT+22, VISRPT+27, VISRPT+31, VISRPT+36, NEWPAGE+2*, NEWPAGE+4
>> SCXBEG	WRT+10, HDR+11
SCXC	VISIT~, VISIT+27
SCXDT	VISIT~, VISIT+15, VISIT+16, VISIT+18, VISIT+19, VISIT+21, VISIT+22, VISIT+24, VISIT+25, VISIT+27 , VISIT+28, BLDRPT+9~, BLDRPT+10, BLDRPT+12, BLDRPT+13, BLDRPT+14, BLDRPT+19, BLDRPT+20, BLDRPT+21, BLDRPT+22 , BLDRPT+25, BLDRPT+26
SCXE	VISIT~, VISIT+17, VISIT+18, VISIT+19
>> SCXEND	HDR+13
SCXET	VISIT~, VISIT+18, VISIT+19
SCXP	VISIT~, VISIT+15, VISIT+16, VISIT+18, VISIT+19, VISIT+21, VISIT+22, VISIT+24, VISIT+25, VISIT+27 , VISIT+28, BLDRPT+9~, BLDRPT+13, BLDRPT+14, BLDRPT+20, BLDRPT+21, BLDRPT+22, BLDRPT+26*
SCXV	VISIT~, VISIT+23, VISIT+24, VISIT+25
SDASH	WRT+6~, WRT+7*, VISRPT+17, VISRPT+26, VISRPT+35
SDBDASH	WRT+6~, WRT+7*, HDR+19
U	VISIT+16, VISIT+18, VISIT+19, VISIT+22, VISIT+24, VISIT+25, WRT+10, BLDRPT+15, BLDRPT+16, BLDRPT+21 , BLDRPT+22, BLDRPT+27, VISRPT+14, VISRPT+15, VISRPT+23, VISRPT+24, VISRPT+32, VISRPT+33, VISRPT+39
>> Y	HDR+11, HDR+12, HDR+13, HDR+14, NEWPAGE+2

Marked Items

Name	Field # of Occurrence
$T(MSG+(3)	HDR+17
$T(VISIT+NUM^SCDXPOV1	VISRPT+32

Customize PDF page

Package: Scheduling

Routine: SCDXPOV3

Call Graph Total: 6

Caller Graph Total: 1