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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGA4001

Package: Registration

Routine: DGA4001


Information

DGA4001 ;ALB/MRL - LIST PENDING OR OPEN DISPOSITIONS ;01 JAN 1988@2300

Source Information

Source file <DGA4001.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Registration 7 UP^DGA400  (QUIT,QUIT1)^DGA4002  (,PMES)^DGA4003  ^DGA4004  H^DGUTL  ZIS^DGUTQ  PID^VADPT6  
Kernel 2 ^%ZIS  $$FMTE^XLFDT  
VA FileMan 2 ^%DT  C^%DTC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Registration 6 DG AMIS 400 PENDING  DGA400  DGA4002  DGA4004  DGA4005  DGA4006  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
EN2
Q
WR
HD
DV
SET
SET1
EN
EN1
UP
VAR
MES

External References

Name Field # of Occurrence
^%DT ENEN1VAR
C^%DTC EN1+3
^%ZIS VAR+3
UP^DGA400 DGA4001+2
QUIT^DGA4002 Q+1
QUIT1^DGA4002 Q
^DGA4003 Q+1
PMES^DGA4003 Q+2
^DGA4004 Q+2
H^DGUTL DGA4001+3, UP
ZIS^DGUTQ EN1+3
PID^VADPT6 SET+3
$$FMTE^XLFDT WR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"===> Checking for Pending/Open Dispositions..."
  • Line Location: DGA4001+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: DGL1,!!
  • Condition for execution: DGO!(DGP)
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: !,DGL1
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: !,$E($P(DGAP,",",1)_","_$E(DGAP,$F(DGAP,",")),1,20),?22,$P(X,"^",1)
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: ?29,X1,?50,$P(X,"^",2),?72,$P(X,"^",3)
  • Line Location: WR+3
Function Call: WRITE
  • Prompt: @IOF,!,DGH,!,"DIVISION: ",$P(DGDV,"^",2)
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: ?(78-$L(X1)),X1,!!,"Patient Name",?22,"PT ID",?29,"Reg. Date/Time",?50,"Application Type",?72,"Status",!,DGL,!
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !?4,*7,"MUST BE AFTER START DATE!"
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: !!,"'",+DGP,"' Pending Dispositions on file...",!,"'",+DGO,"' Open Dispositions on file..."
  • Line Location: MES+0
Function Call: WRITE
  • Prompt: !!,"I can't let you generate this report with ""open"" dispositions remaining!",!,"Clear them up and try again later please.",!
  • Line Location: MES+1
Routine Call
  • %ZIS
  • Line Location:
    • VAR+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DGA4001+3, HDEN1+1, EN1+2
^DG(40.8 - [#40.8] DVDV+1
^DG(43 - [#43] DGA4001+3*, DV, UP*
^DIC(37 - [#37] SET
^DPT - [#2] EN2SET+1
^DPT("ADIS" EN2
^UTILITY($J EN2!, EN2+1, SET+4*, SET1*

Label References

Name Line Occurrences
DV EN2+1
EN1 EN1
EN2 EN1+4
HD EN2+1, WR
MES Q+1
Q ENEN1EN1+3
SET EN2
SET1 SET
VAR DGA4001+3, EN
WR EN2+1

Naked Globals

Name Field # of Occurrence
^( EN2+1
^("AMIS" UP*
^("GL" DV
^(0 EN2DV+1, SETSET+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT Q+2!, EN*, EN1*, VAR*
%DT("A" EN*, EN1*
%DT(0 EN*, EN1*
DFN EN2*, Q+2!, SET+1, SET1
>> DGA Q+2*
DGA1 DGA4001+3, EN2Q+2!, EN*, EN1EN1+1, EN1+3*
DGAD EN2*, Q+2!, SETSET+1, SET+3, SET+4, SET1
DGAE1 EN2Q+2!, EN1+1*, EN1+2
DGAP EN2+1*, Q+2!, WR+1, SET+1*, SET+4
DGC Q+2!, SET1*, VAR+1*, VAR+3*
DGDATE Q+2!, UP!
>> DGDEV DGA4001+2, SET, EN*
DGDV Q+2!, HD, DV*, DV+1*
DGH DGA4001+3*, Q+2!, HDEN1+1*, EN1+2*
DGHOME Q+1, Q+2!
DGL Q+2!, HDVAR+1*, VAR+3*
DGL1 QQ+2!, WRVAR+1*, VAR+3*
DGO QQ+1, Q+2!, SETSET+2*, SET+4, VAR+1*, VAR+3*, MESMES+1
DGP QQ+2!, SET+1*, VAR+1*, VAR+3*, MES
DGPGM Q+2!, EN1+3*
DGQUIT QQ+2!, EN*
>> DGS SET+1*, SET+2*, SET+3
DGTIME DGA4001+3, Q+2!, UP!
>> DGVAR EN1+3*
DT HDENEN1VAR
DTIME VAR*
>> I EN2*, EN2+1*, DV+1, SET
>> I1 EN2*, EN2+1*, SET1
>> I2 EN2+1*, WR+2
IO DGA4001+2, SETENEN1+3, VAR+3
IOF HD
ION VAR+3
IOP VAR+3*!
IOSL WR
>> POP EN1+3
U SET, VAR*
VA SET+3!
VA("BID" SET+3
>> X DGA4001+3*, EN2+1*, WR+1, WR+3, SET+3*, SET+4, EN1+3, VAR*
>> X1 WR+2*, WR+3, HD*, EN1+3*
>> X2 EN1+3*
>> Y DGA4001+3*, HD*, ENEN1EN1+1*, EN1+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All