Routine: DGGECSA

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

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

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

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!