Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SCRPW8

Package: Scheduling

Routine: SCRPW8


Information

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

Source Information

Source file <SCRPW8.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?(80-$L(SDX)\2),SDX
  • Line Location: PST+8
Function Call: READ
  • Variable: W O R K L O A D") Q
  • Timeout: SDOUT
  • Line Location: PRPT+3
Function Call: READ
  • Variable: K L O A D") Q
  • Timeout: SDOUT
  • 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call