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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SDWLI

Package: Scheduling

Routine: SDWLI


Information

SDWLI ;BPOI/TEH - DISPLAY PENDING APPOINTMENTS ;1/11/16 10:31am

Source Information

Source file <SDWLI.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;NEW AND INITIALIZE VARIABLES
EN1
PAT ;PATIENT LOOK-UP
PATEND
SEL
SEL1
GETFILE ;GET DATA - OPTIONAL DATE RANGE IF SDWLDBT AND SDWLEDT VALID DATE RANGE
DISP ;Display Wait List Data
HD ;Header
END ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!,"This Patient has NO entries on the Electronic Wait List."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !!,"No 'OPEN' Wait List Records to Display.",!!
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: X
  • Line Location: DISP+19
Function Call: WRITE
  • Prompt: !,"Priority - ",$$EXTERNAL^DILFD(409.3,10,,SDWLPRI)
  • Line Location: DISP+20
Function Call: WRITE
  • Prompt: !,"Service Connected Priority - ",$$EXTERNAL^DILFD(409.3,15,,SDWLSCP)
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: "Institution - ",$$EXTERNAL^DILFD(409.3,2,,SDWLIN)
  • Line Location: DISP+22
Function Call: WRITE
  • Prompt: X
  • Line Location: DISP+23
Function Call: WRITE
  • Prompt: !,"Requested By - ",$$EXTERNAL^DILFD(409.3,11,,SDWLPRV),?55,"Date Desired - ",SDWLDTD
  • Line Location: DISP+25
Function Call: WRITE
  • Prompt: !,"Requested By - ",$$EXTERNAL^DILFD(409.3,11,,SDWLPRV),?49,"CID/Preferred Date - ",SDWLDTD
  • Line Location: DISP+26
Function Call: WRITE
  • Prompt: !,"Provider - ",$$EXTERNAL^DILFD(409.3,12,,SDWLPROV)
  • Line Location: DISP+27
Function Call: WRITE
  • Prompt: !,"Comments - ",SDWLCOM
  • Line Location: DISP+28
Function Call: WRITE
  • Prompt: !,"Reopen Reason: ",$P(SDOP,U)
  • Line Location: DISP+29
Function Call: WRITE
  • Prompt: !,"Reopen comment: ",$P(SDOP,U,2)
  • Line Location: DISP+30
Function Call: WRITE
  • Prompt: !,"Non Removal Reason - ",SDREMR,!,"Non Remove Reason entered by - ",$$GET1^DIQ(200,SDREMU_",",.01,"I")
  • Line Location: DISP+31
Function Call: WRITE
  • Prompt: !,"Non Removal Comment - ",SDREMRC
  • Line Location: DISP+32
Function Call: WRITE
  • Prompt: !,"Disposition - ",$$EXTERNAL^DILFD(409.3,21,,SDWLDIS),?51,"Disposition Date - ",SDWLDIDT
  • Line Location: DISP+34
Function Call: WRITE
  • Prompt: Y
  • Line Location: DISP+37
Function Call: WRITE
  • Prompt: Y,?30,"For clinic: "
  • Line Location: DISP+38
Function Call: WRITE
  • Prompt: SDC
  • Line Location: DISP+38
Function Call: WRITE
  • Prompt: !,"Appointment Status: Canceled by Clinic"
  • Line Location: DISP+43
Function Call: WRITE
  • Prompt: !,IOINHI,"In transfer to ",SDWLINNM," (",SDWLSTN,")",IOINORM
  • Line Location: DISP+50
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !!,?80-$L("Wait List - Inquiry")\2,"Wait List - Inquiry ",!
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,VADM(1),?40
  • Condition for execution: $D(VADM)
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: VA("PID")
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: HD+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^DIC(40.7 - [#40.7] GET1^DIQ
^SDWL(409.3 - [#409.3] EXTERNAL^DILFD,  GET1^DIQ,  GETS^DIQ
^SC - [#44] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call