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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DGPMTS

Package: Registration

Routine: DGPMTS


Information

DGPMTS ;ALB/LM - TREATING SPECIALTY INPATIENT PRINT ; 2-2-93

Source Information

Source file <DGPMTS.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 ^%DT  YN^DICN  
Registration 1 START^DGPMTSI  

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

Package Total Caller Graph
Registration 1 DGPM TS INPATIENT INFORMATION  

Entry Points

Name Comments DBIA/ICR reference
EN ;
ENQ
READ
QUE() ; -- que job
; return: did job que [ 1|yes 0|no ]

External References

Name Field # of Occurrence
^%DT EN+3
^%ZIS EN+9
^%ZISC ENQ
^%ZTLOAD QUE+10
START^DGPMTSI EN+10
YN^DICN READ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Nothing Selected!",*7
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"Print ",X
  • Line Location: READ+0
Function Call: WRITE
  • Prompt: !?4,"Answer YES if you wish to generate a ",X,!?4,"for this date ...Otherwise answer NO."
  • Line Location: READ+1
Routine Call
  • %ZIS
  • Line Location:
    • EN+9

Label References

Name Line Occurrences
$$QUE EN+11
ENQ EN+3, EN+8, EN+9, EN+10
READ EN+5, EN+6, EN+7, READ+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % READ*
%DT EN+1*, EN+3!
%DT("A" EN+2*
>> %ZIS EN+9*
DGTSDT EN+4*, ENQ+1!
E EN+5, EN+6, EN+7, ENQ+1!, READ*
IO("Q" EN+10, QUE+3!
>> POP EN+9
PTCTS EN+7*, EN+8, ENQ+1!
PTLTS EN+6*, EN+8, ENQ+1!
PTLWD EN+5*, EN+8, ENQ+1!
>> X EN+5*, EN+6*, EN+7*, READREAD+1
>> X1 EN+5, EN+6, EN+7, READ*
>> Y EN+3, EN+4, EN+11*
>> ZTDESC QUE+4*
>> ZTQUEUED ENQ
>> ZTRTN QUE+9*
>> ZTSAVE("DGTSDT" QUE+5*
>> ZTSAVE("PTCTS" QUE+8*
>> ZTSAVE("PTLTS" QUE+7*
>> ZTSAVE("PTLWD" QUE+6*
ZTSK QUE+3!, QUE+10, QUE+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All