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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SDCWL

Package: Scheduling

Routine: SDCWL


Information

SDCWL ;ALB/MLI - CLINIC WORKLOAD REPORT ; 18 APRIL 88

Source Information

Source file <SDCWL.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Scheduling 7 ^SDCWL1  (ADDON,PREV)^SDCWL2  (ERR,LEG,NONE,SET)^SDCWL3  ASK2^SDDIV  CL^SDSCP  DATE^SDUTL  $$OKAE^SDVSIT2  
Registration 2 IN^DGHELP  (CLOSE,ZIS)^DGUTQ  
VA Fileman 2 ^%DT  YN^DICN  
IHS Changes To Scheduling 1 CLINIC^BSDU  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Scheduling 3 SD IHS WORKLOAD  SDCLINIC WORKLOAD  SDOUTPUT  

Entry Points

Name Comments DBIA/ICR reference
RT
Q
SCAN ; -- scan ^SCE for date range
3
ST
1
ADD
2
5
6
DT
PN

External References

Name Field # of Occurrence
^%DT 6
CLINIC^BSDU DT+4, 1+2
IN^DGHELP 1+2, RT+2, 3+1
CLOSE^DGUTQ ST
ZIS^DGUTQ ST
YN^DICN ADD, PN, 5
^SDCWL1 6+7
ADDON^SDCWL2 SCAN+17
PREV^SDCWL2 6+7
ERR^SDCWL3 6+7
LEG^SDCWL3 6+7
NONE^SDCWL3 6+6
SET^SDCWL3 6+2
ASK2^SDDIV 1+3
CL^SDSCP 2
DATE^SDUTL SDCWL+8
$$OKAE^SDVSIT2 SCAN+14
$$FMTE^XLFDT DT, DT+1, 6+1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Totals by (C)LINIC or (S)TOP CODE?: C//"
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: !,"Type:",!?10,"'C' for CLINIC totals only, or",!?10,"'S' for STOP CODE and CLINIC totals",!
  • Condition for execution: X["?"
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: X
  • Line Location: 1+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: 2+0
Function Call: WRITE
  • Prompt: !,"Enter Stop Code: "
  • Line Location: 2+0
Function Call: WRITE
  • Prompt:
  • Condition for execution: '$D(SDCL) "ALL//" R X:DTIME Q:(X="^")!'$T!(X="")
  • Line Location: 2+0
Function Call: WRITE
  • Prompt: !,"Enter a stop code or return when all stop codes have been entered"
  • Condition for execution: X["?"
  • Line Location: 2+0
Function Call: WRITE
  • Prompt: !,"Do you want to include add/edits"
  • Line Location: ADD+0
Function Call: WRITE
  • Prompt: !,"Answer 'Y'es to see add/edits entered through the ADD/EDIT STOP CODES option or",!,"'N'o to leave them out"
  • Condition for execution: %Y["?"
  • Line Location: ADD+0
Function Call: READ
  • Prompt: "Brief or Expanded Report? E//"
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: RT+1
Function Call: WRITE
  • Prompt: !,"Enter 'B'rief to see a comparison of data to previous year only",!,"or 'E'xpanded to see patient breakdown by clinic/stop code"
  • Condition for execution: X["?"
  • Line Location: RT+1
Function Call: WRITE
  • Prompt: X
  • Line Location: RT+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: 3+0
Function Call: WRITE
  • Prompt: !,"TYPE:",!?10,"'D' for report by individual clinic meeting",!?10,"'S' for report by month"
  • Condition for execution: X["?"
  • Line Location: 3+0
Function Call: WRITE
  • Prompt: X
  • Line Location: 3+0
Function Call: WRITE
  • Prompt: !,"Do you want to see patient names"
  • Line Location: PN+0
Function Call: WRITE
  • Prompt: "ANSWER 'Y'ES OR 'N'O"
  • Condition for execution: %Y["?"
  • Line Location: PN+0
Function Call: WRITE
  • Prompt: !,"Do you want to compare this data to the same period in the previous year"
  • Line Location: 5+0
Function Call: WRITE
  • Prompt: "ANSWER 'Y'ES OR 'N'O"
  • Condition for execution: %Y["?"
  • Line Location: 5+0
Function Call: WRITE
  • Prompt: !!,"Report will cover the period from: ",SDB1," through ",SDE1
  • Line Location: 5+1
Function Call: WRITE
  • Prompt: !,"Comparison will be done against the same period for the previous year"
  • Condition for execution: SDPRE
  • Line Location: 5+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: 5+1
Function Call: WRITE
  • Prompt: !
  • Line Location: Q+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(40.7 - [#40.7] SCAN+7
^SC - [#44] 6+2
^SCE - [#409.68] SCAN+6
^SCE("B" SCAN+3, SCAN+5
^TMP($J 6+6, 6+7, Q!

Label References

Name Line Occurrences
1 1+2
3 RT, 3+1
5 5
6 ST, 6+5
ADD ADD
DT SDCWL+8
PN PN
Q SDCWL+7, SDCWL+8, DT+4, 1, 1+2, 1+3, 2+1, ADD, RT+1, 3
, PN, 5, ST, 6+6, 6+7
RT DT+4, 1+2, RT+2
SCAN 6+4
ST RT+2

Naked Globals

Name Field # of Occurrence
^("SC" 6+6, 6+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% 1+2, ADD*, RT+2, 3+1, PN*, 5*, Q!
%DT 6*, Q!
%Y ADD, PN, 5, Q!
BEGDATE Q!
DFN Q!
DGPGM ST*, Q!
DGVAR ST*, Q!
DIV Q!
DTIME 1, 2, RT+1, 3
ENDDATE Q!
I 6+2*, Q!
I1 Q!
IO ST
IOP ST!
J Q!
J1 Q!
K Q!
K1 Q!
L Q!
L1 Q!
M Q!
M1 Q!
N Q!
N1 Q!
P Q!
P1 Q!
POP SDCWL+8, ST, Q!
Q Q!
Q1 Q!
R Q!
S Q!
SD1 6*, Q!
SDADD SDCWL+8*, ADD*, 6+4, Q!
SDAED Q!
SDALL SDCWL+8*, 2+1*, Q!
SDAPT Q!
SDAS Q!
SDB DT+1*, Q!
SDB1 DT*, 5+1, Q+1!
SDBD SDCWL+8, SDCWL+9*, DT, DT+1, DT+2*, RT, 5, 6+5*, Q!, SCAN+2
SDBO Q!
SDCA Q!
SDCL 2, 2+1*, Q!
SDCR Q!
SDCUR Q!
SDD Q!
SDDIV Q!
SDE DT+1*, Q!
SDE1 DT*, 5+1, Q+1!
SDED SDCWL+8, SDCWL+9*, DT, DT+1, DT+2*, DT+4, 6+5*, Q!, SCAN+3
SDEO Q!
SDF 3+1*, PN, Q!
SDF1 Q!
SDF2 Q+1!
SDFL 6+5*, Q!
SDHK Q!
SDHR 6*, Q!
SDI 2*, 2+1, Q+1!
SDIN Q+1!
SDN Q+1!
SDNAM SDCWL+8*, PN*, Q+1!
SDNM Q+1!
SDNOW 6+1*, Q+1!
SDNS Q+1!
SDNUM Q+1!
SDOB 6*, Q+1!
SDOE SCAN+1~, SCAN+4*, SCAN+5*, SCAN+6, SCAN+14
SDOE0 SCAN+1~, SCAN+6*, SCAN+7, SCAN+8, SCAN+9
SDOLD Q+1!
SDORG SCAN+1~, SCAN+9*, SCAN+12
SDP Q+1!
SDPAR SCAN+1~, SCAN+8*, SCAN+13
SDPG 6*, Q+1!
SDPN Q+1!
SDPRE SDCWL+8*, 5*, 5+1, 6+5, 6+7, Q+1!
SDRT RT*, RT+2*, 6+5, 6+7, Q+1!
SDS DT+4*, 1+2*, 1+3, ADD, RT, 5, 6+2, Q+1!
SDSC Q+1!, SCAN+1~, SCAN+7*, SCAN+15
SDSCC Q+1!
SDSCH Q+1!
SDSCI Q+1!
SDSCN Q+1!
SDSCO Q+1!
SDSCS Q+1!
SDSCU Q+1!
SDSSN Q+1!
SDST Q+1!
SDSTAT Q+1!
SDSUB Q+1!
SDT Q+1!, SCAN+1~, SCAN+2*, SCAN+3*, SCAN+5
SDTOT Q+1!
SDUN Q+1!
SDV Q+1!
U SDCWL+7*, SCAN+7, SCAN+8, SCAN+9
VAUTC SDCWL+8*, 6+2, Q+1!
VAUTC( 6+2
VAUTC("" DT+4, 1+2
VAUTD Q+1!
VAUTNI Q+1!
X 1*, 1+2, 2*, 2+1, RT+1*, RT+2, 3*, 3+1, 6*, Q+1!
Y 1+3, 6+1, Q+1!
Z 1*, RT+1*, 3+1*, Q+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All