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

Package: Scheduling

Routine: SDWLEC


Information

SDWLEC ;;IOFO BAY PINES/ESW - CLOSED WAITING LIST-EDIT;06/12/2002; Compiled April 17, 2009 14:22:44

Source Information

Source file <SDWLEC.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;ENTRY POINT - INTIALIZE VARIABLES
OPT ;
EN1
ENO
END ;
PAT ;SELECT PATIENT
PAT1
DIS ;DISPLAY DATA FOR PATIENT
EDITC(SDWLDA,SDCAN) ;edit closed entry
SB1
HD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"PATIENT: ",VADM(1),?40,VA("PID")
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,*7,"PATIENT'S DATE OF DEATH HAS BEEN RECORDED"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,"PATIENT: ",VADM(1),?40,VA("PID")
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+8
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: EN1+12
Function Call: WRITE
  • Prompt: !,"ANOTHER TERMINAL IS EDITING THIS ENTRY. TRY LATER."
  • Line Location: ENO+8
Function Call: WRITE
  • Prompt: !,"This process has been canceled."
  • Line Location: ENO+12
Function Call: WRITE
  • Prompt: !,"The requested entry has been opened."
  • Line Location: ENO+13
Function Call: WRITE
  • Prompt: !,*7,"PATIENT'S DATE OF DEATH HAS BEEN RECORDED"
  • Line Location: PAT+3
Function Call: WRITE
  • Prompt: !," ENTERED IN ERROR - NOT TO BE OPENED"
  • Line Location: EDITC+2
Function Call: WRITE
  • Prompt: !,"Reopen comment required to open this entry. Reopen reason: O - Other.",!
  • Line Location: EDITC+3
Function Call: WRITE
  • Prompt: !,"At least 10 char comment required"
  • Line Location: EDITC+7
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !,?80-$L("Scheduling/PCMM Open Closed Wait Entry")\2,"Scheduling/PCMM Open Closed Wait List Entry",!!
  • Line Location: HD+0

FileMan Files Accessed Via FileMan Db Call

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