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

Package: Registration

Routine: DGSCHAD3


Information

DGSCHAD3 ;ALB/MTC - OUTPUT FUTURE SCHEDULED ADMISSION DATA ;11 MAY 87

Source Information

Source file <DGSCHAD3.m>

Entry Points

Name Comments DBIA/ICR reference
F
1
2
3
Q
TEMP

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: !!?4,"C - To list only future scheduled admissions which have been cancelled.",!?4,"S - To list only active future scheduled admissions.",!?4,"B - To list all future scheduled admissions regardless of status."
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !!?15,*7,"This output requires 132 columns",!!
  • Line Location: 3+0
Function Call: WRITE
  • Prompt: ?28,$E($P(DGPT,U,9),6,9),?35,"Phone: ",$S($D(^DPT(DFN,.13)):$P(^(.13),U),1:"UNKNOWN"),?60,"Reservation: ",Y
  • Line Location: TEMP+0
Function Call: WRITE
  • Prompt: ?95,$S($P(DGSA,U,10)="W":"Ward Loc: "_$S($D(^DIC(42,+$P(DGSA,U,8),0)):$P(^(0),U),1:"UNKNOWN"),$P(DGSA,U,10)="T":"Treat Sp: "_$S($D(^DIC(45.7,+$P(DGSA,U,9),0)):$P(^(0),U),1:"UNKNOWN"),1:"")
  • Line Location: TEMP+1
Function Call: WRITE
  • Prompt: !?32,"Provider: "_$S($P(DGSA,U,5)]""&($D(^VA(200,+$P(DGSA,U,5),0))):$P(^(0),U),1:"UNKNOWN"),?96,"Surgery: "_$S($P(DGSA,U,6)="Y":"YES",$P(DGSA,U,6)="N":"NO",1:"UNKNOWN")
  • Line Location: TEMP+2
Function Call: WRITE
  • Prompt: !?34,"Status: "
  • Line Location: TEMP+3
Function Call: WRITE
  • Prompt: "SCHEDULED - Admitting Diagnosis '"_$S($P(DGSA,U,4)]"":$P(DGSA,U,4),1:"UNKNOWN")_"',"
  • Line Location: TEMP+3
Function Call: WRITE
  • Prompt: "ADMITTED - "
  • Line Location: TEMP+4
Function Call: WRITE
  • Prompt: Y
  • Line Location: TEMP+4
Function Call: WRITE
  • Prompt: "CANCELLED by: "_$S($P(DGSA,U,14)]"":$P(^VA(200,$P(DGSA,U,14),0),U),1:"UNKNOWN")
  • Line Location: TEMP+5
Function Call: WRITE
  • Prompt: !,"**PATIENT DELETED FROM PATIENT FILE - CONTACT IRM SERVICE",!!
  • Line Location: TEMP+6

FileMan Files Accessed Via FileMan Db Call

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