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

Package: Scheduling

Routine: SDWLDISP


Information

SDWLDISP ;;IOFO BAY PINES/TEH - WAIT LIST - DISPOSITION WAIT LIST ENTRY;06/12/2002 ; 20 Aug 2002 2:10 PM ; Compiled January 26, 2007 10:21:25

Source Information

Source file <SDWLDISP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
EN1
PAT ;PATIENT LOOK-UP
PAT1
DIS ;DISPLAY DATA FOR PATIENT
GETDATA ;PATIENT DATA RETRIEVAL
EDIT ;ENTER/EDIT DISPOSITION
PKAPP(SDWLDA,SDWLTY,SDWLDATA) ;identify appointemnt to close with
SING(SDWLDA,SDWLTY,SDWLDATA) ;called for filing with appointment if any
HD ;HEADER
END ;QUIT OPTION

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,VADM(1),?40,VA("PID"),*7,!,"This Patient has NO entries on the Electronic Wait List."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,VADM(1),?40,VA("PID")
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"Patient has no Wait List Entries to Disposition."
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: *7," Invalid Entry"
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: *7," Invalid Entry"
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: " Invalid Entry "
  • Line Location: EN1+18
Function Call: WRITE
  • Prompt: !,"Another User is Editing this Entry. Try Later."
  • Line Location: EN1+23
Function Call: WRITE
  • Prompt: !,"*** Patient has been removed from Wait List. ***"
  • Line Location: EN1+33
Function Call: WRITE
  • Prompt: !!,*7,"PATIENT'S DATE OF DEATH HAS BEEN RECORDED"
  • Line Location: PAT+5
Function Call: WRITE
  • Prompt: *7,"Invalid Entry"
  • Line Location: EDIT+14
Function Call: WRITE
  • Prompt: !,"Disposition canceled by user",!
  • Line Location: PKAPP+15
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !!,?80-$L("Wait List - Disposition Patient")\2,"Wait List - Disposition Patient",!!
  • Line Location: HD+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^SDWL(409.3 - [#409.3] Classic Fileman Calls,  EXTERNAL^DILFD,  GET1^DIQ
^SDWL(409.31 - [#409.31] GET1^DIQ
^SDWL(409.32 - [#409.32] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call