Routine: ADGCRB0

Name	Comments	DBIA/ICR reference
A
EN(DFN,DGFN)	;EP; -- predefined DFN entry point
ZIS	; -- select device
QUE1	; -- queued output
DSSD	; -- select day surgery date
Q	; -- cleanup
BOT	; -- bottom half form?
DS1	;EP; -- ds main
LP1	; -- loop admission date
NOC	; -- number of copies
1	; -- admission
EN1	;EP; -- A Sheet by Admission date
EN2
QUE	; -- queued output
ASK	; -- print?
DT	; -- Admission date
MAIN	; -- main
DS	;EP; -- day surgery

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: A+3
Function Call: WRITE	Prompt: !?5,"No admissions on file." Line Location: 1+3
Function Call: WRITE	Prompt: !!,"Admission(s)" Line Location: 1+4
Function Call: WRITE	Prompt: !?5,I,". ",Y Line Location: 1+7
Function Call: WRITE	Prompt: ! Line Location: BOT+1
Function Call: WRITE	Prompt: !,"No Day Surgery for ",$P(^DPT(DFN,0),U),! Line Location: DSSD+2
Function Call: WRITE	Prompt: @IOF,!!!?24,"PRINT A SHEETS BY ADMISSION DATE",!! Line Location: EN1+1
Routine Call	%ZIS Line Location: Q+3
Routine Call	DIC Line Location: ADGCRB0+4 DS+2 DSSD+5
Routine Call	DIR Line Location: ASK+2 1+9 BOT+7 NOC+2
Routine Call	%ZIS Line Location: ZIS+1

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ADGDS - [#9009012]	DSSD+1, DSSD+4
^AUPNPAT - [#9000001]	MAIN+1
^DD("DD"	1+7
^DGPM - [#405]	1+7
^DGPM("AMV1"	LP1+1, LP1+2, LP1+3
^DGPM("APCA"	1+2
^DGPM("ATID1"	1+5, 1+6
^DPT - [#2]	MAIN+1, DSSD+2

Name	Line Occurrences
@(	MAIN+4
A	MAIN+9, DS1+7, LP1+3
BOT	MAIN+5, DS1+3, EN1+3
DSSD	DS1+1
DT	EN1+2
LP1	EN2
MAIN	EN+1
NOC	MAIN+6, DS1+4, EN1+4
Q	ADGCRB0+4, MAIN+4, MAIN+5, MAIN+6, MAIN+7, MAIN+8, MAIN+9, DS+2, DS1+1, DS1+3 , DS1+4, DS1+5, DS1+6, DS1+7, EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN2
QUE	MAIN+8, DS1+6
QUE1	EN1+6
ZIS	MAIN+7, DS1+5, EN1+5

Name	Field # of Occurrence
^(0	DSSD+4

Name	Field # of Occurrence
>> %DT	DT+1*
>> %DT("A"	DT+1*
%ZIS	ZIS+1*, Q+1!
DFN	ADGCRB0+4, MAIN+1, EN~, 1+2, 1+5, 1+6, Q+2!, DS+2, DSSD+1, DSSD+2 , DSSD+3, DSSD+4, LP1+2*, LP1+3
DGDS	MAIN+2, BOT+3, Q+2!, DSSD+5, EN1+1*
>> DGDT	LP1+1*, LP1+2, LP1+3
DGFN	MAIN+2, MAIN+4, EN~, ASK+2, 1+6, 1+7, 1+8, 1+10, 1+11, 1+12* , Q+1!, LP1+3*
DGLIN	Q+1!
DGLIN1	Q+1!
DGN	Q+2!
DGN0	Q+2!
DGN11	Q+2!
DGN21	Q+2!
DGN33	Q+2!
DGPOVDA	Q+2!
DGPOVN0	Q+2!
DGVSDA	A+2, Q+2!
DGZC	A, NOC+2*, Q+1!
DGZCNT	A*, Q+1!
DGZN	A+3, BOT+1!, BOT+7*, DS1+2!
DGZP	A+2, BOT+1, Q+2!, DS1+2*
DIC	ADGCRB0+3, ADGCRB0+4!, Q+1!, DS+1, DS+2!, DSSD+3*
DIC("A"	ADGCRB0+3, DS+1
DIC("B"	DSSD+4*
DIC(0	ADGCRB0+3, DS+1, DSSD+3*
DIR	1+9!, BOT+1!, NOC+1!, Q+1!
DIR("?"	BOT+3, BOT+4, BOT+5, BOT+6
DIR("A"	ASK+1, 1+9, BOT+2, NOC+1
DIR("B"	ASK+1, 1+9, BOT+3, NOC+1
DIR(0	ASK+1, 1+9, BOT+3, NOC+1
>> DIRUT	MAIN+5, MAIN+6, 1+11, DS1+3, DS1+4, EN1+3, EN1+4
>> DTOUT	EN1+2
>> ED	DT+2*, LP1+1
I	1+1~, 1+4, 1+7, 1+8, 1+9, QUE+2, QUE1+2
ID	1+1~, 1+5*, 1+6
IO	A
IO("Q"	MAIN+8, Q+1!, DS1+6, EN1+6
IOF	A+3, EN1+1
J	1+1~
J(	1+7*, 1+8, 1+12
J(1	1+10
>> POP	MAIN+7, DS1+5, EN1+5
>> SD	DT+2*, LP1+1
U	DSSD+2, DSSD+4
X	MAIN+4~*, 1+1~, Q+1!, EN1+2
Y	ADGCRB0+4, ASK+2, 1+1~, 1+7, 1+10, 1+11, 1+12, BOT+7, NOC+2, Q+1! , DS+2, DS1+1, DSSD+1, DSSD+5, DT+1, DT+2
>> ZTDESC	QUE+1, QUE1+1
>> ZTRTN	QUE+1, QUE1+1
>> ZTSAVE(	QUE+2, QUE1+2
ZTSK	Q+1!

Information