Routine: ACHSEOB7

Package	Total	Call Graph
Contract Health Management Information System	5	($$PB,ERPT,NOW,RTRN)^ACHS ^ACHSEOB2 PRT^ACHSEOBB (BM,READ)^ACHSFU ^ACHSVAR
IHS VA Utilities	3	$$C^XBFUNC VIEWR^XBLM EN^XBVK
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Package

Total

Call Graph

($$PB,ERPT,NOW,RTRN)^ACHS ^ACHSEOB2 PRT^ACHSEOBB (BM,READ)^ACHSFU ^ACHSVAR

$$C^XBFUNC VIEWR^XBLM EN^XBVK

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHSEOB5 ACHSPRINTEOBRFI

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"NO EOBRS AVAILABLE.",!! Line Location: ACHSEOB7+4
Function Call: WRITE	Prompt: !!,"NOTE:",!?5,"Selecting a P.O. will print EACH transaction for that document",!?5,"in this batch, if more than one transaction exists.",! Line Location: ACHSEOB7+5
Function Call: WRITE	Prompt: !,"BEGIN WITH DOCUMENT : " Line Location: BDOC+2
Function Call: WRITE	Prompt: *7,"??",!! Line Location: BDOC+8
Function Call: WRITE	Prompt: *7," ??" Line Location: BDOCER+1
Function Call: WRITE	Prompt: !,"END WITH DOCUMENT : " Line Location: EDOC+2
Function Call: WRITE	Prompt: *7,"??",!! Line Location: EDOC+8
Function Call: WRITE	Prompt: *7," ??" Line Location: EDOCER+1
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+9
Function Call: WRITE	Prompt: @IOF Line Location: START+7
Function Call: WRITE	Prompt: !?7,"('^' to stop) Select: " Line Location: SHOW+3
Function Call: WRITE	Prompt: !?7,"('^' to stop) Select: " Line Location: SHOW+4
Function Call: WRITE	Prompt: " ",Y Line Location: SHOW2+2
Function Call: WRITE	Prompt: " ",Y Line Location: SHOW2+5
Function Call: WRITE	Prompt: !!!,"ENTER ENTRY NUMBER OF ",$S(ACHSBG:"BEGINNING",ACHSEG:"ENDING",1:"")," DOCUMENT TO PRINT",!! Line Location: SHOWH+1
Routine Call	%ZIS Line Location: DEV+6
Routine Call	%ZIS Line Location: DEV+5

Name	Line Occurrences (* Changed, ! Killed)
^ACHSEOBR	L2+4, PRNT+1
^ACHSEOBR("P"	ACHSEOB7+4, BDOC+8, BDOC2+1, EDOC+8, EDOC2+1, L2+1, L2+2, L2+4, L3A+1, SHOW+3 , SHOW2+2
^TMP("ACHSEOB"	START+3!, PRNT+3!

Name	Line Occurrences
BDOC	BDOC+7, BDOC+8, BDOCER+2, EDOC+5
BDOC2	BDOC+6, BDOC+7, BDOC+8
BDOCND	BDOC2+1
DEV	DEV+9, DEV+13
EDOC	EDOC+8, EDOCER+2
EDOC2	EDOC+6, EDOC+8
EDOCER	EDOC+7
EDOCND	EDOC2+1
K	ACHSEOB7+4, BDOC+5, EDOC+5, DEV+2, DEV+3, DEV+6, L2+1, L2+6, L3+1, L3A+2
L2	L2+7, L3A+3
L3	L2+3
PRNT	L2+5
SHOW	BDOC+7, BDOC+8, EDOC+7, EDOC+8
SHOW2	SHOW+3
SHOWH	SHOW+3, SHOW+7, SHOW2+3
START	DEV+7

Name	Field # of Occurrence
>> %	DEV+1, DEV+2, DEV+3, DEV+11
>> %ZIS	DEV+4*
>> ACHS	SHOW+3*
>> ACHSBDOC	ACHSEOB7+3, BDOC+3, BDOC+5, BDOC+6, BDOCND+1, DEV+10, START+1, L2+1, L2+2, L2+4 , L3+1, L3A+1*, L3A+2
>> ACHSBG	BDOC+1, EDOC+1, SHOWH+1
>> ACHSCTR	PRNT+1*
>> ACHSCTR(1	START+5, L2+2, L2+3, L2+4, PRNT+1
>> ACHSEDOC	ACHSEOB7+3, EDOC+3, EDOC+5, EDOC+6, EDOCND+1, DEV+10, START+1*, L3+1
>> ACHSEG	EDOC+1*, SHOWH+1
ACHSEOBR	PRNT+1*, PRNT+3!
>> ACHSEOIO	START+2*, START+6
>> ACHSFAC	L2+4*, PRNT+1
>> ACHSIO	ACHSEOB7+3*
>> ACHSOLD	START+2, L2+4, PRNT+1
ACHSP	SHOW+2!
ACHSP(	SHOW+3*, SHOW2+3, SHOW2+4
>> ACHSTERR	START+5*
>> ACHSTIME	START+5*
>> ACHSY	SHOW+1, SHOW+3
>> DTOUT	BDOC+5, EDOC+5, DEV+2, L2+6, SHOW+3, SHOW+6
>> DUOUT	BDOC+5, EDOC+5, DEV+2, L2+6, SHOW+3, SHOW+6
IO	ACHSEOB7+3, START+2
IO("Q"	DEV+7, DEV+8!
IO("S"	DEV+9
IOF	START+7
IOST	DEV+9
>> POP	DEV+6
U	DEV+2, L2+4
>> Y	BDOC+5, BDOC+6, BDOC+7, BDOC+8, BDOC2+1, BDOCND+1, EDOC+5, EDOC+6, EDOC+7, EDOC+8 , EDOC2+1, EDOCND+1, SHOW+3, SHOW+7, SHOW2+1, SHOW2+2, SHOW2+3, SHOW2+4, SHOW2+5
>> ZTDESC	DEV+10*
>> ZTRTN	DEV+10*
>> ZTSAVE(	DEV+11*
ZTSK	DEV+13, K+1!

Information