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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ADGDEM

Package: IHS Changes To ADT

Routine: ADGDEM


Information

ADGDEM ; IHS/ADC/PDW/ENM - DAY SURGERY PATIENT INQUIRY ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGDEM.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
IHS VA Utilities 1 $$VAL^XBDIQ1  

Entry Points

Name Comments DBIA/ICR reference
END
A1
B5
A2
B1
B10
B3

External References

Name Field # of Occurrence
$$VAL^XBDIQ1 A2+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"DAY SURGERY Date/Time: "
  • Line Location: A2+4
Function Call: WRITE
  • Prompt: $E(DGX,4,5)_"/"_$E(DGX,6,7)_"/"_$E(DGX,2,3)
  • Line Location: A2+5
Function Call: WRITE
  • Prompt: !?35,"Srvc: ",$E(DGSRV,1,3),?47,"Prov: ",$E(DGPRV,1,15)
  • Line Location: A2+14
Function Call: WRITE
  • Prompt: ?47,"LOS: ",$$VAL^XBDIQ1(9009012.01,"DFN,DGA",8)," hrs"
  • Line Location: A2+18
Function Call: WRITE
  • Prompt: !!?10,"Scheduled Admit for "
  • Line Location: B10+6
Function Call: WRITE
  • Prompt: $E(DGX,4,5)_"/"_$E(DGX,6,7)_"/"_$E(DGX,2,3)
  • Line Location: B10+7
Function Call: WRITE
  • Prompt: !!?10,"Scheduled for Day Surgery on "
  • Line Location: B3+0
Function Call: WRITE
  • Prompt: $E(DGX,4,5)_"/"_$E(DGX,6,7)_"/"_$E(DGX,2,3)
  • Line Location: B3+1
Function Call: WRITE
  • Prompt: !!?10,"Scheduled for Quarters on "
  • Line Location: B5+0
Function Call: WRITE
  • Prompt: $E(DGX,4,5)_"/"_$E(DGX,6,7)_"/"_$E(DGX,2,3)
  • Line Location: B5+1
Function Call: WRITE
  • Prompt: ?50,"Provider: "
  • Line Location: B5+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADGAUTH - [#9009013.1] B1, B10, B10+1
^ADGDS - [#9009012] ADGDEM+5, A1, A2+1, A2+2, A2+8, A2+9, A2+15
^DIC(42 - [#42] A2+7, B10+8
^DIC(45.7 - [#45.7] A2+12, B10+9, B3+2
^VA(200 - [#200] A2+13, B5+3

Label References

Name Line Occurrences
A1 A1+1
A2 A1
B1 ADGDEM+5, A2, A2+1, A2+2, A2+15
B10 B10+4, B10+10, B3+3, B5+4
B3 B10+2
B5 B10+3
END B1, B10

Naked Globals

Name Field # of Occurrence
^(0 A2+2
^(2 A2+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA END!
>> DFN ADGDEM+5, A1, A2+1, A2+2, A2+8, A2+9, A2+15, B1, B10, B10+1
>> DG1 B1*, B10*, B10+1
>> DGA A2+1*, A2+2, A2+8, A2+9, A2+15
DGPRV A2+11*, A2+13*, A2+14, END!
DGSRV A2+11*, A2+12*, A2+14, END!
DGSTR A2+2*, A2+7, A2+10, A2+11, B10+1*, B10+2, B10+8, B10+9, B3+2, B5+3
, END!
>> DGX A2+2*, A2+5, A2+6, A2+7*, A2+15*, A2+16, A2+17, B10+1*, B10+7, B3+1
, B5+1
>> DGX1 B10+2*, B10+3, B10+4
DGZDT ADGDEM+6*, A1*, A1+1, END!
DGZZ ADGDEM+6*, A1+1*, A2, A2+1, END!
DIC END!
DR END!
LKPRINT END!
U A2+2, A2+7, A2+8, A2+9, A2+10, A2+11, A2+12, A2+13, A2+15, B10+1
, B10+2, B10+8, B10+9, B3+2, B5+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All