Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 9

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  

Entry Points

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

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

Global Variables Directly Accessed

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*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All