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: SDWLRQ2

Package: Scheduling

Routine: SDWLRQ2


Information

SDWLRQ2 ;;IOFO BAY PINES/TEH - ADHOC WAIT LIST REPORT PRIM CARE TEAM AND POSITION ASSIGNMENTS;06/12/2002 ; 29 Aug 2002 2:53 PM

Source Information

Source file <SDWLRQ2.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 5 ^%DT  ^DIC  YN^DICN  $$EXTERNAL^DILFD  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SD WAIT LIST PRM CARE/TEAM  

Entry Points

Name Comments DBIA/ICR reference
ACTIVE(Y) ;Active Team
IN2
CAT ;Report category selection
QUE1
DATE ;Date range selection
OPEN ;OPEN Wait List Entries
HD
DIS ;Display Parameters
PR
1
3
2
4
7
6
E1
EN ;Header
END
FORM ;Report Format
IS
IN
IN3
CT
CT1
CT2
CT3
INS ;Get Institution
QUE ;Queue Report
OP

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Print Report for ALL dates? "
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+5
Function Call: WRITE
  • Prompt: !,"Beginning Date must be greater than Ending Date."
  • Line Location: DATE+9
Function Call: WRITE
  • Prompt: !!," *** Report Category Selection ***"
  • Line Location: CAT+1
Function Call: WRITE
  • Prompt: *7," Invalid Selection."
  • Line Location: CAT+6
Function Call: WRITE
  • Prompt: !!,"Select Category for Report Output",!
  • Line Location: CAT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CT1+0
Function Call: WRITE
  • Prompt: !,"This Entry is Required."
  • Line Location: CT1+3
Function Call: WRITE
  • Prompt: !!,"Do you want only 'OPEN' Wait List Entries "
  • Line Location: OPEN+1
Function Call: WRITE
  • Prompt: *7,"Must Enter 'YES' or 'NO'."
  • Line Location: OPEN+2
Function Call: WRITE
  • Prompt: *7," Invalid Response"
  • 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: $P($G(^DIC(4,SDWLY(I),0)),U,1)
  • Line Location: IS+3
Function Call: WRITE
  • Prompt: !,?20,"Institution: ALL "
  • Line Location: IS+5
Function Call: WRITE
  • Prompt: $S(SDWLCT1["T":"Team",1:"Position"),!,?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["T":"Team",1:"Position"),!,?36
  • Line Location: CT+5
Function Call: WRITE
  • Prompt: $S(SDWLCT1["T":"Team",1:"Position"),!,?36
  • Line Location: CT+5
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+7
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !,?80-$L("Primary Care Team/Position Assignment Wait List Report")\2,"Primary Care Team/Position Assignment Wait List Report"
  • Line Location: HD+0
Routine Call
  • DIC
  • Line Location:
    • IN
    • CT1
Routine Call
  • DIR
  • Line Location:
    • CAT+3
    • FORM+3
    • PR+3
Routine Call
  • %ZIS
  • Line Location:
    • QUE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] IS+3
^SCTM(404.51 - [#404.51] IN+1
^SCTM(404.58 - [#404.58] ACTIVE+3, ACTIVE+4
^TMP("SDWLRQ2" 1!, 3+1*, IN+4*, IN2*, DATE+2*, DATE+10*, CAT+11*, CT1+2*, CT1+3, CT2*
, OPEN+4*, FORM+7*, DIS+3, QUE+4, QUE+5

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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