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

Package: Registration

Routine: DGGECSA


Information

DGGECSA ;ALB/RMO - Auto Generate Code Sheets for MAS AMIS(s) ; 13 AUG 90 8:52 am

Source Information

Source file <DGGECSA.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 1 ^%ZTLOAD  
Registration 1 (BLD,GEN,START)^DGGECS  
VA Fileman 1 YN^DICN  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Registration 6 DGA400  DGA4005  DGAINP  DGAINP2  DGANHD  DGANHD2  

Entry Points

Name Comments DBIA/ICR reference
ASK ;Prompt user to generate AMIS code sheets
; Input -- None Required
; Output -- %=1 user entered 'YES'
; %=2 user entered 'NO'
; %<0 user timeout or entered an '^'
Q
QUE ;Queue generation of AMIS code sheet to default MAS code sheet printer
; Input -- DGSEG Segment Number ie, 334
; DGDIV Medical Ctr Div File (#40.8) IFN ie, 1
; DGMYR Month/Year in internal date format ie, 2900200
; Output -- Task is Queued to Generate a Code Sheet
START ;Auto generation of AMIS code sheet

External References

Name Field # of Occurrence
^%ZTLOAD QUE+7
BLD^DGGECS START+3
GEN^DGGECS START+3
START^DGGECS START+5
YN^DICN ASK+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' to generate code sheets, or 'NO' not to."
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !!?3,"NOTE: AMIS Code Sheets will be queued to print on ",DGCODPRT,"."
  • Line Location: ASK+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] START+2
^DG(43 - [#43] ASK+5, QUE+7
^DIC(4 - [#4] START+2

Label References

Name Line Occurrences
ASK ASK+6
Q ASK+5, ASK+6

Naked Globals

Name Field # of Occurrence
^(0 ASK+5, QUE+7, START+2
^(99 START+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK+5*, ASK+6*, ASK+7
DGAMS START+6!
DGAMS( START+4*
DGCODPRT ASK+5*, ASK+7, Q!
>> DGDIV QUE+5, START+1, START+2
>> DGMYR QUE+5, START+1
>> DGSEG QUE+5
DGSTA START+2*, START+6!
DGSTR START+2*, START+6!
DGTTF START+1, START+3, START+4, START+5, START+6!
I START+4*, START+6!
IO START+1
SDABORT START+2*, START+3, START+6!
ZTDESC QUE+6*, QUE+8!
ZTDTH QUE+5*, QUE+8!
ZTIO QUE+7*, QUE+8!
ZTRTN QUE+5*, QUE+8!
ZTSAVE QUE+8!
ZTSAVE("DGDIV" QUE+5*
ZTSAVE("DGMYR" QUE+5*
ZTSAVE("DGTTF" QUE+5*
ZTSK QUE+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All