Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 5 IN^DGHELP  OLD^DGSCHAD2  ^DGTEMP  (DIV,H)^DGUTL  DIVISION^VAUTOMA  
VA Fileman 3 (,DD)^%DT  C^%DTC  EN1^DIP  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG SCHED ADMIT PRINT  

Entry Points

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

External References

Name Field # of Occurrence
^%DT F, F+1
DD^%DT TEMP+4
C^%DTC F
IN^DGHELP 1
OLD^DGSCHAD2 DGSCHAD3+3
^DGTEMP 3
DIV^DGUTL 1+2
H^DGUTL 1, 1+7, 2
EN1^DIP 3
DIVISION^VAUTOMA 1+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DGSCHAD3+3, F+1, TEMP
^DGPM - [#405] TEMP+4
^DGS(41.1 - [#41.1] TEMP
^DIC(42 - [#42] TEMP+1
^DIC(45.7 - [#45.7] TEMP+1
^DPT - [#2] TEMP
^VA(200 - [#200] TEMP+2, TEMP+5

Label References

Name Line Occurrences
1 1+1
2 1+2, 1+4
3 1+8
Q DGSCHAD3+3, F, F+1, 1, 1+3, 3

Naked Globals

Name Field # of Occurrence
^( TEMP
^(0 TEMP, TEMP+1, TEMP+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % 1+1
%DT F*!, F+1*!
%DT("A" F*, F+1*
%DT("B" F*, F+1*
%DT(0 F*, F+1*
>> BY 1+2*, 1+4*, 1+5*, 1+7*, 2*
>> D0 TEMP
DFN TEMP*, TEMP+7!
DGDATE Q!
DGDIV 1+2, 1+5*, Q!
DGERR DGSCHAD3+3, Q!
>> DGFR F*, F+1*, F+2
>> DGFR1 F*, 1+7, 2
DGHFR F*, F+1!
DGNO 3*, Q!
DGOLD DGSCHAD3+3, Q!
DGOLD1 DGSCHAD3+3, F, Q!
DGPT TEMP*, TEMP+6, TEMP+7!
DGSA TEMP*, TEMP+1, TEMP+2, TEMP+3, TEMP+4, TEMP+5, TEMP+7!
DGSCH 1+2*, 1+7, 2, Q!
>> DGTD DGSCHAD3+3*, F
DGTEMP Q!
DGTIME Q!
>> DGTO F+1*, F+2
>> DGTO1 F+1*, 1+7, 2
>> DHD F+2*
>> DIC 3*
DIS 1+6~
DIS(0 1+6*
DT DGSCHAD3+3
DTIME 1
>> FLDS 3*
FR 1+2*, 1+4*, 1+5!, 2*
FR(1 1+5*
FR(2 1+7*
FR(3 1+7*
FR(4 1+7*
>> L 3*
TO 1+2*, 1+4*, 1+5!, 2*
TO(1 1+5*
TO(2 1+7*
TO(3 1+7*
TO(4 1+7*
U TEMP, TEMP+1, TEMP+2, TEMP+3, TEMP+4, TEMP+5
>> VAUTD 1+3, 1+4
>> VAUTD(0 1+3
X F, 1*, 1+2, 3*, Q!
>> X1 F*
>> X2 F*
Y DGSCHAD3+3*, F, F+1*, 1+3, TEMP*, TEMP+4*, TEMP+7!
>> Z 1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All