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
Print Page as PDF
Routine: SCRPW6

Package: Scheduling

Routine: SCRPW6


Information

SCRPW6 ;RENO/KEITH - Trend of Facility Uniques by 12 Month Date Ranges ; 15 Jul 98 02:38PM

Source Information

Source file <SCRPW6.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls