Routine: AGADDINF

Information

AGADDINF ; IHS/ASDS/EFG - PRINT ADDITIONAL REG. INFORMATION ;

Source file <AGADDINF.m>

Name	Comments	DBIA/ICR reference
START	;EP - From TaskMan.
DEV

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: Y Line Location: AGADDINF+3
Function Call: WRITE	Prompt: !!,*7,"This patient has no entry in the ""ADDITIONAL INFO."" file.",!,"Press RETURN..." Line Location: AGADDINF+3
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+2
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),"Additional registration information....",!!,"PATIENT: ",$P(^DPT(DFN,0),U),!,"CHART #: ",$P(^AUPNPAT(DFN,41,DUZ(2),0),U,2)," (",$P(^DIC(4,DUZ(2),0),U),")",!!,"DATE: " Line Location: START+1
Function Call: WRITE	Prompt: Y,!,AG("="),!!!! Line Location: START+1
Function Call: WRITE	Prompt: ^AUPNPAT(DFN,13,AG,0),! Line Location: START+2
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: START+3
Routine Call	%ZIS Line Location: DEV

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV+3
^AUPNPAT - [#9000001]	AGADDINF+3, START+1, START+2
^DIC(4 - [#4]	START+1
^DPT - [#2]	DEV+3, START+1

Name	Line Occurrences
DEV	DEV+2, DEV+4
START	DEV+1

Name	Field # of Occurrence
>> %ZIS	DEV*
AG	DEV+4!, START+2*, START+3!
AG("="	START+1
AGIO	DEV*, DEV+4!, START+3!
DFN	AGADDINF+3, DEV+3, DEV+4!, START+1, START+2, START+3!
DT	START+1
DTIME	AGADDINF+3
DUZ(2	START+1
>> G	DEV+3*
IO	DEV, START+1
IO("Q"	DEV+1!
IO("S"	DEV+2
ION	DEV
>> IOP	DEV*
IOST	DEV+2
>> POP	DEV
U	DEV+3, START+1
>> Y	AGADDINF+3, DEV+3, START+1
ZTDESC	DEV+3*, DEV+4!
>> ZTQUEUED	START+3
ZTRTN	DEV+3*, DEV+4!
>> ZTSAVE(	DEV+3*
ZTSK	DEV+4!
ZTUCI	DEV+3*, DEV+4!