Routine: AGCO

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+1
Function Call: WRITE	Prompt: $P(^DPT(DFN,0),U),?45,$J($P(^AUPNPAT(DFN,41,DUZ(2),0),U,2),6) Line Location: PRINT+0
Function Call: WRITE	Prompt: ?54,^(DR) Condition for execution: $D(^(DR)) Line Location: PRINT+1
Function Call: WRITE	Prompt: ?68,$S(AGBEN=3:"C. O.",AGBEN=4:"DEPENDENT",AGBEN=28:"RET C. O.",AGBEN=29:"RET C. O. DEP",1:"") Line Location: PRINT+1
Function Call: WRITE	Prompt: ?54,^(DR) Condition for execution: $D(^(DR)) Line Location: PRINT+2
Function Call: WRITE	Prompt: ?68,$S(AGBEN=3:"C. O.",AGBEN=4:"DEPENDENT",AGBEN=28:"RET C. O.",AGBEN=29:"RET C. O. DEP",1:"") Line Location: PRINT+2
Function Call: WRITE	Prompt: ! Line Location: PRINT+3
Function Call: WRITE	Prompt: !!,"Total Listings: ",AGTOT Line Location: END+0
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: END+0
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),!!,AG("USR"),?72,"page ",AGPGPG,!,AG("LOC"),!?27,"COMM. OFFICERS & DEPENDENTS",!,AGUCI,!?32,"(""*"" = INACTIVE)",!,AGTIME Line Location: HDR+1
Function Call: WRITE	Prompt: !!!?18,"Name",?46,"IHS #",?58,"SSN",?69,"CLASS.",!,"----------------------------------------",?45,"------ ----------- ----------",! Line Location: HDR+2
Routine Call	%ZIS Line Location: DEV START+5

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV+2, START+3
^AUPNPAT - [#9000001]	START+1, PRINT, PRINT+2
^AUPNPAT("AD"	START+1
^DIC(4 - [#4]	START+2
^DPT - [#2]	START+1, PRINT
^TMP($J	START+1!*, START+8, K!
^UTILITY("DIQ1"	START+2!, PRINT+2!, K!
^VA(200 - [#200]	START+2

Name	Field # of Occurrence
^(	START+8, PRINT+2
^(0	START+1