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

Package: Registration

Routine: DGYMTRT1


Information

DGYMTRT1 ;ALB/CAW/LD - Print changed specialty report ; 9/8/94

Source Information

Source file <DGYMTRT1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGYMTRT  

Entry Points

Name Comments DBIA/ICR reference
PRINT ;Print any facility treating specialties that point to changed
ENQ
QUE() ; -- queue job
; return: did job queue [ 1|yes 0|no ]
EN ; Print changed treating specialty report
FTSP ; Facility Treating Specialty

External References

Name Field # of Occurrence
^%ZIS EN+3
^%ZISC EN+4
^%ZTLOAD QUE+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?2,"The following report will list all existing entries in the FACILITY TREATING",!?2,"SPECIALTY file (#45.7) that point to entries in the SPECIALTY file (#42.4)",!?2,"which have been changed."
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: @IOF,!?24,"CHANGED TREATING SPECIALTY REPORT"
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !!,"FACILITY TREATING SPECIALTY (#45.7)",?45,"CHANGED SPECIALTY (#42.4)"
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,DGDASH
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !!?2,"No entries found in File #45.7 which correspond to changed treating",!?2,"specialties in File #42.4."
  • Line Location: PRINT+11
Routine Call
  • %ZIS
  • Line Location:
    • EN+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42.4 - [#42.4] PRINT+10
^DIC(45.7 - [#45.7] FTSP+3, PRINT+9

Label References

Name Line Occurrences
$$QUE EN+5
ENQ EN+3, EN+4
FTSP EN+1
PRINT EN+4

Naked Globals

Name Field # of Occurrence
^( FTSP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+3*!
DGDASH PRINT+4*, PRINT+7, PRINT+12!
DGTSP ENQ!, PRINT+11
DGTSP( FTSP+3*, PRINT+9
DGX PRINT+8~, PRINT+9*, PRINT+10
DGY FTSP+1~, FTSP+2*, FTSP+3*, PRINT+8~*, PRINT+9*
IO PRINT+3
IO("Q" EN+4, QUE+3!
IOF PRINT+5
POP EN+3, ENQ!
U FTSP+3, PRINT+10
Y EN+5*, ENQ!
ZTDESC ENQ!, QUE+4*
ZTRTN ENQ!, QUE+4*
ZTSAVE ENQ!
ZTSAVE("DGTSP(" QUE+5*
ZTSK QUE+3!, QUE+6, QUE+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All