Routine: SCDXPOV1

Information

SCDXPOV1 ;ALB/SCK - VISIT REPORT BY NPCDB TRANSMISSION STATUS ;11/29/99 19:23

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Scheduling	2	CLEAR^SCDXPOV2 DTS^SDUTL
Registration	1	$$SITE^VASITE
VA FileMan	1	^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Scheduling	2	SCDXPOV SCDXPOV3

Entry Points

Name	Comments	DBIA/ICR reference
WRT	; Entry point for printing visit reprot
END
XMTPRT	; Print data for visit report
XMTQ
HDR1	; Print report header and column headers
NEWPAGE	;
VISIT	; Category of visits Displayed value/Stored value

External References

Name	Field # of Occurrence
^DIR	NEWPAGE+1
CLEAR^SCDXPOV2	NEWPAGE+1
DTS^SDUTL	HDR1+6, HDR1+8
$$SITE^VASITE	WRT+14, WRT+18, WRT+24

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?5,"VETERAN ELIGIBILITY",! Line Location: XMTPRT+11
Function Call: WRITE	Prompt: !?8,$P(^DIC(8,NUM,0),U),?40,$J(+$P(LL,U,1),6),?51,$J(+$P(LL,U,2),6),?65,$J(+$P(LL,U,3),6) Line Location: XMTPRT+16
Function Call: WRITE	Prompt: !?38,SDASH,!,?5,"Veteran Sub-Total",?40,$J(SBTT(1),6),?51,$J(SBTT(2),6),?65,$J(SBTT(3),6) Line Location: XMTPRT+19
Function Call: WRITE	Prompt: !!,?5,"NON-VETERAN ELIGIBILITY",! Line Location: XMTPRT+23
Function Call: WRITE	Prompt: !?8,$P(^DIC(8,NUM,0),U),?40,$J(+$P(LL,U,1),6),?51,$J(+$P(LL,U,2),6),?65,$J(+$P(LL,U,3),6) Line Location: XMTPRT+28
Function Call: WRITE	Prompt: !?38,SDASH,!,?5,"Non-Veteran Sub-Total",?40,$J(SBTT(1),6),?51,$J(SBTT(2),6),?65,$J(SBTT(3),6) Line Location: XMTPRT+31
Function Call: WRITE	Prompt: !!,?5,"CATEGORY OF VISIT",! Line Location: XMTPRT+35
Function Call: WRITE	Prompt: !?8,$P($T(VISIT+NUM),";",3),?40,$J($P(LL,U,1),6),?51,$J($P(LL,U,2),6),?65,$J($P(LL,U,3),6) Line Location: XMTPRT+40
Function Call: WRITE	Prompt: !?38,SDASH,!,?5,"Category Sub-Total",?40,$J(SBTT(1),6),?51,$J(SBTT(2),6),?65,$J(SBTT(3),6) Line Location: XMTPRT+43
Function Call: WRITE	Prompt: !!?2,SDBDASH,!?5,$S(DNAME["FACILITY":"Facility Total",1:"Total for "_$E(DNAME,1,25))_":",?40,$J(SCETOT(1),6),?51,$J(SCETOT(2),6),?65,$J(SCETOT(3),6) Line Location: XMTPRT+46
Function Call: WRITE	Prompt: !?16,"Total: ",SCETOT(1)+SCETOT(2)+SCETOT(3) Line Location: XMTPRT+47
Function Call: WRITE	Prompt: !!,?8,"Compensation and Pension appointments are included in the above",!?8,"categories and totals and are shown here for information only" Line Location: XMTPRT+50
Function Call: WRITE	Prompt: !!?8,"COMPENSATION AND PENSION",?40,$J($P(LL,U,1),6),?51,$J($P(LL,U,2),6),?65,$J($P(LL,U,3),6) Line Location: XMTPRT+52
Function Call: READ	Variable: LL Timeout: DTIME Line Location: XMTPRT+54
Function Call: WRITE	Prompt: @IOF Line Location: HDR1+2
Function Call: WRITE	Prompt: !?(IOM-$L(HD1))/2,"ENCOUNTER REPORT BY TRANSMISSION STATUS TO NPCDB" Line Location: HDR1+4
Function Call: WRITE	Prompt: !!,?54,"ENCOUNTERS",!?38,SDASH Line Location: HDR1+11
Function Call: WRITE	Prompt: !?40,"WAITING",?51,"TRANSMITTED",?65,"ACKNOWLEDGED" Line Location: HDR1+12
Function Call: WRITE	Prompt: !?2,SDBDASH Line Location: HDR1+13
Routine Call	DIR Line Location: NEWPAGE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	WRT+23
^DIC(8 - [#8]	XMTPRT+16, XMTPRT+28
^TMP("SCDXPOV"	WRT+22, XMTPRT+14, XMTPRT+15, XMTPRT+26, XMTPRT+27, XMTPRT+38, XMTPRT+39, XMTPRT+51
^VA(389.9 - [#389.9]	WRT+22

Label References

Name	Line Occurrences
END	WRT+13, WRT+17
HDR1	XMTPRT+9, NEWPAGE+2
NEWPAGE	XMTPRT+14, XMTPRT+21, XMTPRT+26, XMTPRT+33, XMTPRT+38, XMTPRT+44, XMTPRT+48
XMTPRT	WRT+15, WRT+19, WRT+25
XMTQ	XMTPRT+14, XMTPRT+21, XMTPRT+26, XMTPRT+33, XMTPRT+38, XMTPRT+44, XMTPRT+48

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DIR(0	NEWPAGE+1*
DNAME	WRT+9~, WRT+14, WRT+18, WRT+22, WRT+23, WRT+24*, XMTPRT+46, HDR1+10
DTIME	XMTPRT+54
DVN	WRT+9~, WRT+14, WRT+18, WRT+21, WRT+22, WRT+23, WRT+24, XMTPRT+14, XMTPRT+15, XMTPRT+26 , XMTPRT+27, XMTPRT+38, XMTPRT+39, XMTPRT+51, HDR1+10
HD1	HDR1+1~, HDR1+3*, HDR1+4
HD2	HDR1+1~, HDR1+5, HDR1+7, HDR1+9*, HDR1+10
IO	WRT+12
IOF	HDR1+2
IOM	HDR1+4, HDR1+10
IOSL	XMTPRT+14, XMTPRT+21, XMTPRT+26, XMTPRT+33, XMTPRT+38, XMTPRT+44, XMTPRT+48
IOST	XMTPRT+54, NEWPAGE+1
LL	XMTPRT+7~, XMTPRT+12!, XMTPRT+15, XMTPRT+16, XMTPRT+17, XMTPRT+24!, XMTPRT+27, XMTPRT+28, XMTPRT+29, XMTPRT+36! , XMTPRT+39, XMTPRT+40, XMTPRT+41, XMTPRT+51!, XMTPRT+52, XMTPRT+54!*
LL1	XMTPRT+7~, XMTPRT+17, XMTPRT+20, XMTPRT+29, XMTPRT+32, XMTPRT+41*
NUM	XMTPRT+7~, XMTPRT+13, XMTPRT+14, XMTPRT+15, XMTPRT+16, XMTPRT+25, XMTPRT+26, XMTPRT+27, XMTPRT+28, XMTPRT+37* , XMTPRT+38*, XMTPRT+39
SBTT	XMTPRT+7~, XMTPRT+12!, XMTPRT+24!, XMTPRT+36!
SBTT(	XMTPRT+17, XMTPRT+20, XMTPRT+29, XMTPRT+32, XMTPRT+41*
SBTT(1	XMTPRT+19, XMTPRT+31, XMTPRT+43
SBTT(2	XMTPRT+19, XMTPRT+31, XMTPRT+43
SBTT(3	XMTPRT+19, XMTPRT+31, XMTPRT+43
SCETOT	WRT+9~, XMTPRT+7~
SCETOT(	XMTPRT+20, XMTPRT+32
SCETOT(1	XMTPRT+46, XMTPRT+47
SCETOT(2	XMTPRT+46, XMTPRT+47
SCETOT(3	XMTPRT+46, XMTPRT+47
>> SCXABRT	WRT+22, XMTPRT+14, XMTPRT+21, XMTPRT+26, XMTPRT+33, XMTPRT+38, XMTPRT+44, XMTPRT+48, XMTPRT+54, NEWPAGE+1 , NEWPAGE+2
>> SCXBEG	WRT+14, WRT+18, WRT+24, HDR1+6
>> SCXEND	HDR1+8
>> SCXMD	WRT+13, HDR1+10
>> SCXOPT	XMTPRT+54
>> SCXTFLG	WRT+17
SDASH	WRT+9~, WRT+10*, XMTPRT+19, XMTPRT+31, XMTPRT+43, HDR1+11
SDBDASH	WRT+9~, WRT+10*, XMTPRT+46, HDR1+13
SDNM	WRT+9~, WRT+22*
U	WRT+14, WRT+18, WRT+22, WRT+23, WRT+24, XMTPRT+16, XMTPRT+17, XMTPRT+28, XMTPRT+29, XMTPRT+40 , XMTPRT+41, XMTPRT+52
>> Y	HDR1+6, HDR1+7, HDR1+8, HDR1+9, NEWPAGE+1

Marked Items

Name	Field # of Occurrence
$T(VISIT+NUM	XMTPRT+40

Customize PDF page

Package: Scheduling