Routine: DGGECSA

Information

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

Source file <DGGECSA.m>

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

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

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

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

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

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

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!