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 |  Local Variables  | All
Print Page as PDF
Routine: SDWLRQ1

Package: Scheduling

Routine: SDWLRQ1


Information

SDWLRQ1 ;IOFO BAY PINES/TEH - ADHOC WAIT LIST REPORT ;1/5/16 10:44am

Source Information

Source file <SDWLRQ1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 5 (,DD)^%DT  ^DIC  YN^DICN  $$EXTERNAL^DILFD  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SD WAIT LIST APPT REPORT  

Entry Points

Name Comments DBIA/ICR reference
EN ;Header
1
2
3
4
5
6
INS ;Get Institution
IN
IN2
IN3
CAT ;Report category selection
CT1
CT2
CT3
DATE ;Date range selection
E1
OPEN ;OPEN Wait List Entries
FORM ;Report Format
DIS ;Display Parameters
IS
CT
DA ;W !,?13,"Date Desired Range: " S Y=$P(SDWLDATE,U,1) D DD^%DT S SDWLBD=Y S Y=$P(SDWLDATE,U,2) D DD^%DT S SDWLED=Y
OP
PR
QUE ;Queue Report
QUE1
END ;
HD

External References

Name Field # of Occurrence
^%DT DATE+8, DATE+14
DD^%DT DA+1
^%ZIS QUE+2
^%ZISC END+3
^%ZTLOAD QUE+8
^DIC IN, CT1
YN^DICN DATE+2, OPEN+1, PR+2
$$EXTERNAL^DILFD CT+4
^DIR CAT+4, FORM+3, PR+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," *** Report Category Selection ***"
  • Line Location: CAT+2
Function Call: WRITE
  • Prompt: *7
  • Line Location: CAT+5
Function Call: WRITE
  • Prompt: *7
  • Line Location: CAT+6
Function Call: WRITE
  • Prompt: *7," Invalid Selection."
  • Line Location: CAT+8
Function Call: WRITE
  • Prompt: !!,"Select Category for Report Output",!
  • Line Location: CAT+9
Function Call: WRITE
  • Prompt: !,"This Entry is Required."
  • Line Location: CT1+1
Function Call: WRITE
  • Prompt: !!,"Print Report for ALL dates? "
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+8
Function Call: WRITE
  • Prompt: !,"Beginning Date must be greater than Ending Date."
  • Line Location: DATE+16
Function Call: WRITE
  • Prompt: !!,"Do you want only 'OPEN' Wait List Entries "
  • Line Location: OPEN+1
Function Call: WRITE
  • Prompt: " Response must be 'YES' or 'NO'."
  • Line Location: OPEN+2
Function Call: WRITE
  • Prompt: *7,"?? "
  • Line Location: OPEN+3
Function Call: WRITE
  • Prompt: *7,"Required!"
  • Line Location: FORM+6
Function Call: WRITE
  • Prompt: !!,?80-$L("*** Selected Report Parameters ***")\2,"*** Selected Report Parameters ***",!
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: !,?33
  • Condition for execution: I>1
  • Line Location: IS+3
Function Call: WRITE
  • Prompt: SDWLY(I)
  • Line Location: IS+3
Function Call: WRITE
  • Prompt: !,?20,"Institution: ALL "
  • Line Location: IS+5
Function Call: WRITE
  • Prompt: $S(SDWLCT1["C":"Clinic",1:"Service Specialty"),!,?36
  • Line Location: CT+3
Function Call: WRITE
  • Prompt: "All "
  • Line Location: CT+3
Function Call: WRITE
  • Prompt: !,?35
  • Condition for execution: I>1
  • Line Location: CT+4
Function Call: WRITE
  • Prompt: $$EXTERNAL^DILFD(SDWLF,.01,,SDWLY(I))
  • Line Location: CT+4
Function Call: WRITE
  • Prompt: !,?16,"Report Category: "
  • Line Location: CT+5
Function Call: WRITE
  • Prompt: $S(SDWLCT1["C":"Clinic",1:"Service Specialty"),!,?36
  • Line Location: CT+5
Function Call: WRITE
  • Prompt: $S(SDWLCT1["C":"Clinic",1:"Service Specialty"),!,?36
  • Line Location: CT+5
Function Call: WRITE
  • Prompt: !,?7,"CID/Preferred Date Range: "
  • Line Location: DA+1
Function Call: WRITE
  • Prompt: " ",SDWLBD
  • Line Location: DA+2
Function Call: WRITE
  • Prompt: " to ",SDWLED
  • Line Location: DA+3
Function Call: WRITE
  • Prompt: !,?18,"Output Format: ",$S(SDWLFORM="D":" Detailed",1:" Summary")
  • Line Location: OP+0
Function Call: WRITE
  • Prompt: !,?25,"Printing 'OPEN' Entries Only."
  • Line Location: PR+0
Function Call: WRITE
  • Prompt: !,?25,"Printing ALL Entries."
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: !!,"Are these Parameters Correct "
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: !," This Report will NOT be queued to print."
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: !,"REQUEST QUEUED"
  • Line Location: QUE+8
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !,?80-$L("Appointment Wait List Report")\2,"Appointment Wait List Report"
  • Line Location: HD+0
Routine Call
  • DIC
  • Line Location:
    • IN
    • CT1
Routine Call
  • DIR
  • Line Location:
    • CAT+4
    • FORM+3
    • PR+3
Routine Call
  • %ZIS
  • Line Location:
    • QUE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("SDWLRQ1" EN+3!, IN+3*, IN2*, CAT+15*, CT1*, CT1+1, CT2*, DATE+3*, DATE+17*, OPEN+4*
, FORM+7*, DIS+3, QUE+4, QUE+5

Label References

Name Line Occurrences
1 2
2 2, 3
3 4
4 5
@( DIS+4, QUE1
CAT 2, CAT+8, CT1+1
CT1 CT1+3, CT2
CT2 CT1+2
CT3 CT1
DATE 3, DATE+14, DATE+15, DATE+16
DIS 6
E1 DATE+3, DATE+10
EN 6
END 1, 3, 6, QUE+8
FORM 5, FORM+6
HD EN+2
IN IN+4
IN2 IN+1
IN3 IN+3
INS 1
OPEN 4, OPEN+2
QUE 6+1
QUE1 QUE+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DATE+2*, DATE+3, DATE+4, DATE+5, OPEN+1*, OPEN+2, OPEN+3, OPEN+4, PR+2*
%DT DATE+1!, DATE+8*
%DT("A" DATE+8*, DATE+14*!
%DT(0 DATE+14*!
%ZIS QUE+2!*
DIC EN+3!, IN*, CAT+1!, CAT+14!, CT1*, END+2!
DIC("A" IN*, CAT+15*, CT1+3*
DIC("S" IN*
DIC(0 IN*, CT1*
DIE EN+3!, CAT+1!, END+2!
DIR EN+3!, CAT+1!, CAT+14!, END+2!
DIR("L" CAT+3*, FORM+1*, FORM+2*
DIR(0 CAT+3*, FORM+1*, PR+3*
DR EN+3!, CAT+1!, CAT+14!, END+2!
>> DUOUT 1, 2, 3, 4, 5, IN, IN+1, DATE+11, DATE+15, FORM+5*
I IS+1*, IS+3*, CT+2*, CT+4*, END+1!
IO QUE1
IO("Q" QUE+8!
IOC QUE+2!
IOF HD
IOP QUE+2!
IOST QUE1
POP QUE+1~, QUE+2
SDLFD END+2!
>> SDWLBD DA+1*, DA+2
>> SDWLBDT DATE+10*, DATE+14, DATE+16, DATE+17
>> SDWLCAT CAT+3*, CT1+3*, CT2
>> SDWLCT1 CT+1, CT+3, CT+5
>> SDWLCT2 CT, CT+2, CT+5
SDWLCTX CAT+13*, CAT+15, END+2!
SDWLDAT END+2!
SDWLDATE DA+1, END+1!
>> SDWLE CAT+15*, CT1, CT1+3*
SDWLED DA+1*, DA+3, END+1!
>> SDWLEDT DATE+14*, DATE+16, DATE+17
SDWLERR EN+3*, 2, 3, 4, 5, 6, INS+2*, IN, IN+4*, CAT+2*
, CAT+3*, CAT+5*, CAT+6*, DATE+8*, DATE+9*, OPEN+3*, FORM+1*, DIS+1*, PR+2*, PR+3*
, END+2!
SDWLF CAT+11*, CAT+15, CT1, CT+1*, CT+4, END+2!
>> SDWLFD CAT+12*, CAT+15
SDWLFORM FORM+4*, FORM+6, FORM+7, OP, QUE+3, END+1!
SDWLI DIS+2*, DIS+3, END+2!
>> SDWLINS IS, IS+1, IS+5
SDWLINST EN+3*, INS+1~*, IN+2*, IN+3*, IN+4*, IN2, END+2!
SDWLOPEN PR, END+1!
SDWLPRI END+1!
SDWLPROM INS+2*, IN, IN+4*, END+2!
SDWLSPT QUE1*!
SDWLTAG DIS+4*, END+2!
SDWLTASK QUE+4*, QUE+5, QUE+6, END+1!
>> SDWLTK QUE+5*, QUE+6
SDWLX CAT+10*, CAT+15, CT1+3, END+2!
SDWLY IS+1!*, IS+3, IS+4!, CT+2!*, CT+4, END+1!, END+2!
SDWLY( IS+1*, IS+3, CT+2*, CT+4
U IS+1, CT+1, CT+2, DA+1
WDWLBD END+1!
X CAT+5, CAT+6, CAT+7*, CAT+8, CAT+10, CAT+11, CAT+12, CAT+13, DATE+1!, DATE+9
, FORM+4, FORM+5, DIS+3*, CT+3, PR+3
Y IN*, IN+1, IN+2, IN+3, IN+4, CT1, CT1+1, CT1+2, CT1+3, DATE+1!
, DATE+10, DATE+14, DA+1*
ZCODE EN+1~
ZTDESC EN+1~, QUE+3*
ZTDTH EN+1~, QUE+3*
ZTIO EN+1~, QUE+2!
ZTQUEDED EN+1~
ZTQUEUED QUE+1~, END+3
ZTREQ EN+1~, END+3*
ZTRTN EN+1~, QUE+3*, QUE1
ZTSAVE EN+1~
ZTSAVE( QUE+6*
ZTSAVE("SDWLF" QUE+7*
ZTSK EN+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All