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

Package: Scheduling

Routine: SDCD


Information

SDCD ;BSN/GRR - DISCHARGE PATIENT FROM CLINIC ;3/15/91 11:24 ;

Source Information

Source file <SDCD.m>

Entry Points

Name Comments DBIA/ICR reference
15
QUIT ;
DIS ;
NOPE
STAT ;ck if already discharged

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,">>> Patient not enrolled in '",$S($D(^SC(+SDCLN,0)):$P(^(0),"^"),1:"Unknown"),"' clinic."
  • Line Location: 15+5
Function Call: WRITE
  • Prompt: !!,*7,">>> Patient is not actively enrolled in any clinics."
  • Line Location: 15+9
Function Call: WRITE
  • Prompt: *7,*7,!,"PATIENT ALREADY DISCHARGED FROM '",$S($D(^SC(SC,0)):$P(^(0),U),1:"UNKNOWN"),"' CLINIC",*7,*7
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: !!,"***Discharging patient from ",$S($D(^SC(SC,0)):$P(^(0),U),1:"UNKNOWN")," Clinic***",!
  • Line Location: DIS+3
Function Call: WRITE
  • Prompt: !?10,*7,"PATIENT HAS FUTURE APPOINTMENT(S) IN THIS CLINIC"
  • Line Location: DIS+4
Function Call: WRITE
  • Prompt: !,*7,"PATIENT NOT ENROLLED IN ANY CLINICS!!"
  • Line Location: NOPE+0

FileMan Files Accessed Via FileMan Db Call

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