Routine: SCRPW8

Information

SCRPW8 ;RENO/KEITH - Outpatient Encounter Workload Statistics ; 04 Feb 99 4:53 PM

Source Information

Source file <SCRPW8.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Scheduling	4	DISP0^SCRPW23 ($$XY,END)^SCRPW50 (DPRT,PARM,UNARL)^SCRPW9 $$GETOE^SDOE
VA Fileman	3	NOW^%DTC $$GET1^DIQ ^DIR
Registration	2	(,KVA)^VADPT $$PRIM^VASITE
Kernel	1	$$S^%ZTLOAD

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Scheduling	4	SCRPW24 SCRPW7 SCRPW9 SD53P215

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	PST+2
$$S^%ZTLOAD	STOP+1
$$GET1^DIQ	PST+3
^DIR	XHDR
DISP0^SCRPW23	PST+10
$$XY^SCRPW50	XHDR+1
END^SCRPW50	EXIT+2
DPRT^SCRPW9	PST+13
PARM^SCRPW9	QS+1
UNARL^SCRPW9	PST+13
$$GETOE^SDOE	PST+6
^VADPT	UL, DETAIL+2
KVA^VADPT	EXIT+1
$$PRIM^VASITE	PST+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?(80-$L(SDX)\2),SDX Line Location: PST+8
Function Call: READ	Timeout: SDOUT Variable: W O R K L O A D") Q Line Location: PRPT+3
Function Call: READ	Timeout: SDOUT Variable: K L O A D") Q Line Location: PRPT+7
Function Call: WRITE	Prompt: !! Line Location: PRPT+7
Function Call: WRITE	Prompt: !! Line Location: PRPT+8
Function Call: WRITE	Prompt: !?10,"Act. Req./not accepted visits",?47,$J(^TMP(SDS1,$J,SDS2,"VISIT","NWK"),12),?62,$J($S(SDCT=0:0,1:(^TMP(SDS1,$J,SDS2,"VISIT","NWK")*100/SDCT)),8,2) Line Location: PRPT+9
Function Call: WRITE	Prompt: !?10,"Transmitted, accepted visits",?47,$J(^TMP(SDS1,$J,SDS2,"VISIT","OWK"),12),?62,$J($S(SDCT=0:0,1:(^TMP(SDS1,$J,SDS2,"VISIT","OWK")*100/SDCT)),8,2) Line Location: PRPT+10
Function Call: WRITE	Prompt: !! Line Location: PRPT+12
Function Call: WRITE	Prompt: !?10,"Act. Req./not accepted unique pts.",?47,$J(SDUNAR,12),?62,$J($S(SDCT=0:0,1:SDUNAR*100/SDCT),8,2) Line Location: PRPT+14
Function Call: WRITE	Prompt: !?10,"Transmitted, accepted unique pts.",?47,$J(SDUNCO,12),?62,$J($S(SDCT=0:0,1:SDUNCO*100/SDCT),8,2) Line Location: PRPT+15
Function Call: WRITE	Prompt: $$XY^SCRPW50(IOF,1,0) Condition for execution: SDPAGE>1!($E(IOST)="C") Line Location: XHDR+1
Function Call: WRITE	Prompt: $$XY^SCRPW50("",0,0) Condition for execution: $X Line Location: XHDR+1
Function Call: WRITE	Prompt: SDLINE,!?15,"<> OUTPATIENT ENCOUNTER WORKLOAD STATISTICS <>" Line Location: XHDR+1
Function Call: WRITE	Prompt: !?(80-$L(X)\2),X Line Location: XHDR+2
Function Call: WRITE	Prompt: !,SDLINE,!,"For encounter dates ",SDDTPF," to ",SDDTPL,!,"Date printed: ",SDPNOW,?(74-$L(SDPAGE)),"Page: ",SDPAGE,!,SDLINE,! Line Location: XHDR+3
Function Call: WRITE	Prompt: !?47,"============ =========",!?39,"TOTAL:",?47,$J(SDCT,12),?64,"100.00" Line Location: TOT+0
Function Call: WRITE	Prompt: !!?(80-$L(SDTX)\2),SDTX,!?(80-$L(SDTX)\2) Line Location: SHDR+0
Function Call: WRITE	Prompt: "-" Line Location: SHDR+0
Function Call: WRITE	Prompt: !!?39,"Status",?54,"Count",?63,"Percent",!?10,"----------------------------------- ------------ ---------" Line Location: SHDR+1
Function Call: WRITE	Prompt: !?10,$P(^SD(409.63,+SDI,0),U),?47,$J(^TMP(SDS1,$J,SDS2,SDI),12),?62,$J($S(SDCT=0:0,1:(^TMP(SDS1,$J,SDS2,SDI)*100/SDCT)),8,2) Line Location: LIST+1
Function Call: WRITE	Prompt: !?15,SDSTAT,?47,$J(^TMP(SDS1,$J,SDS2,2,SDI,SDSTAT),12),?62,$J($S(SDCT=0:0,1:(^TMP(SDS1,$J,SDS2,2,SDI,SDSTAT)*100/SDCT)),8,2) Line Location: COT+0
Function Call: WRITE	Prompt: !?15,SDSTAT,?47,$J(^TMP(SDS1,$J,SDS2,"8-CC",SDI,SDSTAT),12),?62,$J($S(SDCT=0:0,1:(^TMP(SDS1,$J,SDS2,"8-CC",SDI,SDSTAT)*100/SDCT)),8,2) Line Location: IAP+0
Routine Call	DIR Line Location: XHDR

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PST+2
^DG(40.8 - [#40.8]	PST+3, DIV+1
^DG(43 - [#43]	PST+2
^SC - [#44]	CLGR+1, COUNT+1
^SCE("B"	PST+5, PST+6
^SD(409.63 - [#409.63]	LIST+1
^SD(409.67 - [#409.67]	CLGR+1
^SD(409.73 - [#409.73]	STX+5, STX+6
^SD(409.75 - [#409.75]	STX+8
^SD(409.76 - [#409.76]	STX+8
^TMP(	PST+4!, PST+9, PST+11, STCT+1, STCT+2, STCT+3, STCT+4, STCT+5, PRPT+2, PRPT+4 , PRPT+5, PRPT+6, PRPT+8, PRPT+9, PRPT+10, PRPT+13, EXIT+1!, NCT1, NCT1+1, CT1 , CT1+1, UL, LIST, LIST+1, COT, IAP, C1+6, VIS, VIS+2, VIS+3* , VIS+4, DETAIL+3, DETAIL+4, DSET
^TMP("SCRPW"	PST+8, XHDR+2

Label References

Name	Line Occurrences
$$CLGR	PST+6
$$DIV	PST+6
$$HD1	XHDR+2
$$HD2	PRPT+8, PRPT+12
$$STX	VIS+3, DETAIL+12
C1	COUNT+3
COT	PRPT+4
COUNT	PST+6
CT1	STCT+4
DETAIL	C1+5
DSET	DETAIL+8, DETAIL+11, DETAIL+12
EXIT	PST+8, PST+10, PST+12, PST+13
IAP	PRPT+5
LIST	PRPT+3, PRPT+7
NCT1	STCT+3
PRPT	PST+11
SHDR	PRPT+3, PRPT+7, PRPT+8, PRPT+12
STCT	PST+9
STOP	STCT, PRPT+1, COUNT+2
TOT	PRPT+6, PRPT+8, PRPT+11, PRPT+15
UL	NCT1, CT1
VIS	C1+7
XHDR	PST+8, PRPT+3, PRPT+4, PRPT+5, PRPT+9, PRPT+10, PRPT+14, PRPT+15, SHDR, LIST , COT, IAP

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PST+1~, PST+2
DFN	STCT, STCT+1, STCT+2, STCT+3, STCT+4, EXIT!, NCT1, NCT1+1, CT1, CT1+1 , UL, C1+4, VIS, VIS+4, DETAIL+3, DETAIL+4, DSET
DIR	XHDR~
DIR(0	XHDR*
DTOUT	EXIT!
DUOUT	EXIT+1!
I	PST+4, EXIT+1, EXIT+2!
IOF	XHDR+1
IOSL	PRPT+4, PRPT+5, PRPT+9, PRPT+10, PRPT+14, PRPT+15, SHDR, LIST, COT, IAP
IOST	PST+10, XHDR, XHDR+1
SDARCT	EXIT+1!
SDCG	PST+6*, EXIT+1!, COUNT+3
SDCLGR	EXIT+1!, COUNT+3
SDCT	STCT, STCT+1, STCT+2, STCT+5, PRPT+2, PRPT+6, PRPT+8, PRPT+9, PRPT+10, PRPT+13* , PRPT+14, PRPT+15, EXIT!, NCT1+1, CT1+1, TOT, LIST+1, COT, IAP
SDDIV	PST+6*, EXIT+1!, COUNT+3, C1+5
SDDNAM	PST+3*, PST+13, EXIT+1!, COUNT+3
SDDT	PST+2, PST+5, PST+6, STCT+1, EXIT!, NCT1+1, CT1+1, UL, VIS, VIS+4 , DETAIL+4, DSET
SDDTF	PST+2, EXIT!
SDDTL	PST+5, EXIT!
SDDTPF	XHDR+3, EXIT!
SDDTPL	XHDR+3, EXIT!
SDFF	PST+2*, EXIT+2!
SDH	EXIT+1!
SDHL	EXIT+1!
SDI	PRPT+2, PRPT+3, PRPT+4, PRPT+5, PRPT+6, PRPT+7, EXIT!, UL~, LIST~, LIST+1 , COT, IAP
SDIF	DETAIL+1~, DETAIL+6, DETAIL+7, DETAIL+8, DETAIL+9, DETAIL+10, DETAIL+11*
SDLINE	XHDR+1*, XHDR+3, EXIT!
SDMC	PST+2*, PST+3, EXIT+1!
SDMD	PST+2*, EXIT+1!, COUNT+3
SDNCOU	EXIT+2!, COUNT+1*, C1+4, VIS, DETAIL+3, DETAIL+4
SDOE	PST+5, PST+6, EXIT!, VIS+3, STX~, STX+5, DETAIL+12, DSET
SDOE0	PST+6*, EXIT!, DIV+1, CLGR+1, COUNT+1, C1+4, VIS+1, VIS+3, STX~, STX+4 , DETAIL+12, DSET
SDOUT	PST+2, PST+5, PST+6, PST+9, PST+10, PST+11, PST+12, PST+13, STCT, PRPT+1 , PRPT+3, PRPT+4, PRPT+5, PRPT+7, PRPT+8, PRPT+9, PRPT+10, PRPT+12, PRPT+14, PRPT+15 , XHDR, EXIT+2!, SHDR, LIST, COT, IAP, STOP+1*, COUNT+2
SDPAGE	PST+2, XHDR, XHDR+1, XHDR+3, EXIT+1!
SDPNAM	EXIT+1!, DETAIL+2*, DETAIL+3, DETAIL+4, DSET
SDPNOW	PST+2*, XHDR+3, EXIT!, EXIT+1!
SDPT0	EXIT+1!
SDS1	PST+9, PST+11, STCT+1, STCT+2, STCT+3, STCT+4, STCT+5, PRPT+2, PRPT+4, PRPT+5 , PRPT+6, PRPT+8, PRPT+9, PRPT+10, PRPT+13, EXIT+1!, HD1+1, HD2+1, NCT1, NCT1+1 , CT1, CT1+1, UL, LIST, LIST+1, COT, IAP, C1~, C1+5, C1+6 , VIS, VIS+2, VIS+3, VIS+4, DETAIL+3, DETAIL+4, DSET
SDS2	PST+9, PST+11, STCT+1, STCT+2, STCT+3, STCT+4, STCT+5, PRPT+2, PRPT+4, PRPT+5 , PRPT+6, PRPT+8, PRPT+9, PRPT+10, PRPT+13, EXIT+1!, HD1+1, NCT1, NCT1+1, CT1 , CT1+1, UL, LIST, LIST+1, COT, IAP, C1~, C1+6, VIS, VIS+2 , VIS+3, VIS+4, DETAIL+3, DETAIL+4, DSET
SDSSN	EXIT+1!, DETAIL+2*, DETAIL+3, DETAIL+4, DSET
SDST	EXIT+1!
SDSTAT	PRPT+4, PRPT+5, EXIT!, COT, IAP, C1+4*, C1+6, C1+7, VIS, VIS+1 , VIS+2, VIS+3, DETAIL+3, DETAIL+4, DETAIL+6, DETAIL+7, DETAIL+9, DETAIL+10
SDSTOP	PST+2, EXIT+2!, COUNT+2
SDSTX	EXIT!, VIS+3*, VIS+4
SDTOE	EXIT!, STX+3~, STX+5*, STX+6, STX+8
SDTOE0	EXIT!, STX+6*
SDTOE1	EXIT!, STX+6*, STX+9, STX+10
SDTOEE	EXIT!, STX+3~, STX+8*
SDTX	EXIT!, SHDR~
SDTXS	EXIT!, STX+10*, STX+11, STX+12
SDUL	PST+13, EXIT+1!, NCT1, CT1
SDUNAR	STCT+2, STCT+5, PRPT+13, PRPT+14, EXIT!, NCT1, CT1
SDUNCO	STCT, STCT+1, STCT+2, PRPT+13*, PRPT+15, EXIT!
SDX	PST+8, EXIT!, SHDR
SDZ	EXIT!
SDZ(0	PST+13, C1+5
SDZ(1	DETAIL+3, DETAIL+4
SDZ(2	DETAIL+5, DETAIL+6, DETAIL+7, DETAIL+9
SDZ(3	DETAIL+7, DETAIL+11, DETAIL+12
SDZ(4	C1+5
U	PST+2, PST+3, PST+6, DIV+1, CLGR+1, UL, LIST+1, COUNT+1, C1+4, VIS+1 , VIS+3, VIS+4, STX+4, STX+6, STX+8, STX+9, STX+10, DETAIL+2, DSET
>> VADM(1	UL, DETAIL+2
>> VADM(2	UL, DETAIL+2
X	PST+1~, XHDR+2, EXIT!, DIV+1~, CLGR+1~*
X1	EXIT+1!
X2	EXIT+1!
Y	PST+1~, PST+2*, XHDR, EXIT!
ZTDESC	EXIT!
>> ZTQUEUED	STOP+1
ZTRTN	EXIT!
ZTSAVE	EXIT!
>> ZTSTOP	STOP+1*

Name	Comments	DBIA/ICR reference
COT
LIST(SDI)
STOP	;Check for stop task request
CLGR()	;Return CLINIC GROUP pointer
TOT
STX(SDOE,SDOE0)	;Determine transmission status
STCT
DIV()	;Return division name
C1(SDS1,SDS2)	;Set ^TMP global
NCT1
HD1()	;Report subheader 1
COUNT	;Count encounters
HD2()	;Report subheader 2
DSET
XHDR
IAP
UL(SDI)
QS	;Queue outpatient encounter workload report
CT1
SHDR(SDTX)
DETAIL	;Set global for detailed list
VIS
PRPT	;Print statistics page
EXIT
PST	;Print stats

Customize PDF page

Package: Scheduling

Routine: SCRPW8

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: