Routine: SCRPW6

Package	Total	Call Graph
Scheduling	5	$$DIVA^SCRPW17 DISP0^SCRPW23 DHDR^SCRPW46 ($$XY,END,SUBT,TITL)^SCRPW50 $$GETOE^SDOE
Kernel	2	$$S^%ZTLOAD EN^XUTMDEVQ
VA Fileman	2	NOW^%DTC ^DIR

Package

Total

Call Graph

Scheduling

$$DIVA^SCRPW17 DISP0^SCRPW23 DHDR^SCRPW46 ($$XY,END,SUBT,TITL)^SCRPW50 $$GETOE^SDOE

Kernel

$$S^%ZTLOAD EN^XUTMDEVQ

VA Fileman

NOW^%DTC ^DIR

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	UNIQ+1
$$S^%ZTLOAD	STOP+1
^DIR	SCRPW6+5, UNIQ+16, HDR
$$DIVA^SCRPW17	SCRPW6+2
DISP0^SCRPW23	QUE+2, UNIQ+6, UNIQ+14
DHDR^SCRPW46	DPRT+1
$$XY^SCRPW50	HDR+1
END^SCRPW50	EXIT
SUBT^SCRPW50	SCRPW6+3
TITL^SCRPW50	SCRPW6+2
$$GETOE^SDOE	OENC1
EN^XUTMDEVQ	QUE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report requires 132 column output.",! Line Location: QUE+0
Function Call: WRITE	Prompt: !!?(IOM-$L(SDX)\2),SDX Line Location: UNIQ+6
Function Call: WRITE	Prompt: ! Line Location: UNIQ+16
Function Call: WRITE	Prompt: !!?(IOM-$L(SDX)\2),SDX Line Location: DPRT+1
Function Call: WRITE	Prompt: ! Line Location: DPRT+3
Function Call: WRITE	Prompt: !?25,"Uniques in this report are based on OUTPATIENT ENCOUNTER file records with a" Line Location: DPRT+4
Function Call: WRITE	Prompt: !?25,"status of '"_$S(SDSTA=2:"",SDSTA=8:"inpatient appointment ",1:"Out/Inpatient ")_"checked out'. This excludes any 'action required' activity." Line Location: DPRT+5
Function Call: WRITE	Prompt: $$XY^SCRPW50(IOF,1,0) Condition for execution: SDPAGE>1!($E(IOST)="C") Line Location: HDR+1
Function Call: WRITE	Prompt: $$XY^SCRPW50("",0,0) Condition for execution: $X Line Location: HDR+1
Function Call: WRITE	Prompt: SDLINE,!?36,"<> TREND OF FACILITY UNIQUES BY 12 MONTH DATE RANGES <>" Line Location: HDR+1
Function Call: WRITE	Prompt: !,?53,SDI Line Location: HDR+2
Function Call: WRITE	Prompt: !?(132-$L(SDTIT(SDI))\2),SDTIT(SDI) Line Location: HDR+3
Function Call: WRITE	Prompt: !,SDLINE,!,"Date printed: ",SDPNOW,?125,"Page: ",SDPAGE,!,SDLINE Line Location: HDR+4
Function Call: WRITE	Prompt: !!,"12 mo. date range",?23,"Uniques",?32,"\| Histogram (each ""*"" equals ",SDFIG," unique",$S(SDFIG=1:"",1:"s"),")",!,$E(SDLINE,1,SDFIG1) Line Location: HD1+0
Function Call: WRITE	Prompt: !,SDMO,"/",SDYR," thru ",SDXMO,"/",SDXYR,?24,$J(SDCT,6,0),?32,"\| " Line Location: LINE+4
Function Call: WRITE	Prompt: "*" Line Location: LINE+4
Routine Call	DIR Line Location: SCRPW6+5 UNIQ+16 HDR

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	UNIQ+1
^DG(40.8 - [#40.8]	UNIQ+11
^SC - [#44]	OE+4
^SCE("ADFN"	OENC+1, OENC1
^TMP("SCRPW"	UNIQ+2!, UNIQ+3, UNIQ+4, UNIQ+5, UNIQ+6, UNIQ+11, UNIQ+15, DPRT+1, DPRT+2, SET1* , LOOK, L1, L1+1, LSET, FIG, LINE+2

Label References

Name	Line Occurrences
$$DIV	OENC1
$$DTINC	UNIQ+5
$$OE	OENC1
$$YDTINC	UNIQ+4, UNIQ+5
DPRT	UNIQ+14, UNIQ+15
EXIT	SCRPW6+2, SCRPW6+5, UNIQ+2, UNIQ+6, UNIQ+14, UNIQ+15
FIG	DPRT+2
HD1	DPRT+2, LINE+2
HDR	UNIQ+6, DPRT+1, DPRT+2, DPRT+3, LINE+2
L1	LOOK
LINE	DPRT+2
LOOK	UNIQ+4, UNIQ+5
LSET	L1, L1+1
OENC	UNIQ+2
OENC1	OENC+1
SET	OENC1
SET1	SET+2
STOP	UNIQ+3, SET+1, HDR

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	UNIQ+1, EXIT!
DIR	SCRPW6+2~, UNIQ+16~, HDR~
DIR("A"	SCRPW6+4*
DIR("B"	SCRPW6+4*
DIR(0	SCRPW6+4, UNIQ+16, HDR*
DT	UNIQ+2
DTOUT	SCRPW6+5, EXIT!
DUOUT	SCRPW6+5, EXIT!
IOF	HDR+1
IOM	UNIQ+6, DPRT+1
IOSL	DPRT+3, LINE+2
IOST	UNIQ+6, UNIQ+14, UNIQ+16, HDR, HDR+1
SDBDT	UNIQ+2*, UNIQ+4, EXIT!, DPRT+2, OENC
SDCT	EXIT!, LINE+2*, LINE+4
SDD	DIV~, DIV+3
SDDFN	EXIT!, SET1, OENC, OENC+1, OENC1, LOOK*, L1, L1+1
SDDIV	SCRPW6+2~, UNIQ+1, UNIQ+7, UNIQ+10, UNIQ+13, EXIT!, DIV+2
SDDIV(	UNIQ+1, UNIQ+8, DIV+3
SDDIV(0	UNIQ+1
SDDT	UNIQ+4, UNIQ+5, EXIT!, DPRT+2, SET1, OENC+1, OENC1, DTINC~, DTINC+3, DTINC+4 , LOOK, L1, L1+1, LSET, YDTINC~, YDTINC+3, LINE~, LINE+2
SDEDT	UNIQ+2*, EXIT!, OENC+1
SDFIG	EXIT!, HD1, FIG*, FIG+1, LINE+4
SDFIG1	EXIT!, HD1, FIG+1*
SDI	SCRPW6+2~, UNIQ+8, UNIQ+11, EXIT!, HDR+2~, HDR+3, LINE+4*
SDIV	UNIQ+3, UNIQ+4, UNIQ+5, UNIQ+13, UNIQ+14, UNIQ+15, EXIT!, DPRT~, DPRT+1, DPRT+2 , SET~, SET+2, SET1~, OENC1, LOOK, L1, L1+1, LSET, FIG, LINE+2
SDIV(	UNIQ+8, UNIQ+11, UNIQ+13*, UNIQ+14
SDIVN	UNIQ+14*, EXIT!
SDLINE	UNIQ+1*, EXIT!, HDR+1, HDR+4, HD1
SDMAX	EXIT!, FIG*, FIG+1
SDMD	UNIQ+1, UNIQ+15, EXIT!, SET+2
SDMO	EXIT!, LINE+2*, LINE+4
SDOE	EXIT!, OENC1*
SDOE0	EXIT!, OENC1*, OE~, OE+4, OE+6
SDOUT	UNIQ+1, UNIQ+2, UNIQ+3, UNIQ+6, UNIQ+14, UNIQ+15, UNIQ+16, EXIT!, DPRT+1, DPRT+2 , DPRT+3, SET+1, STOP+1, HDR*, HD1, LINE+2
SDPAGE	UNIQ+1, EXIT!, HDR+1, HDR+4
SDPNOW	UNIQ+1*, EXIT!, HDR+4
SDSTA	SCRPW6+2~, SCRPW6+6, DPRT+5, OENC1, OE~, OE+5, OE+6, HDR+2
SDSTOP	UNIQ+1, EXIT!, SET+1
SDTIT	DPRT+1!
SDTIT(	HDR+3
SDX	UNIQ+6, UNIQ+11, EXIT!, DPRT+1, L1+1
SDXDT	UNIQ+4, UNIQ+5, EXIT!, OENC*, OENC+1, L1+1
SDXEDT	UNIQ+2*, UNIQ+5, EXIT!
SDXMO	EXIT!, LINE+2*, LINE+3, LINE+4
SDXYR	EXIT!, LINE+3*, LINE+4
SDYR	EXIT!, LINE+2*, LINE+3, LINE+4
U	UNIQ+1, UNIQ+7, UNIQ+10, UNIQ+11, UNIQ+13, OENC1, OE+4, OE+6
X	QUE+1*, EXIT!
Y	SCRPW6+5, SCRPW6+6, UNIQ+1*, EXIT!, HDR
>> ZTQUEUED	STOP+1
ZTSAVE	QUE+1~, QUE+2
ZTSAVE(	QUE+1*
>> ZTSTOP	STOP+1*

Name	Comments	DBIA/ICR reference
LOOK
LSET
OENC
HD1
STOP	;Check for stop task request
L1
SET(SDIV)	;Set TMP global
LINE(SDDT)	;Print statistics line
DIV(SDD)	;Check division
OE(SDOE0,SDSTA)	;Evaluate (in)outpatient encounter
DPRT(SDIV)	;Print division
SET1(SDIV)
YDTINC(SDDT)	;Increment date by one year
EXIT
FIG
DTINC(SDDT)	;Increment date by one month
OENC1
QUE
UNIQ	;Calculate/print uniques
HDR

Customize PDF page

Package: Scheduling

Routine: SCRPW6

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: