Routine: ACHSRDOS

Package	Total	Call Graph
IHS VA Utilities	3	$$DIR^XBDIR VIEWR^XBLM EN^XBVK
Kernel	3	(,HOME)^%ZIS ^%ZTLOAD $$FMTE^XLFDT
Contract Health Management Information System	2	($$DATE,$$EBB,$$PB,ERPT,RTRN)^ACHS (BM,SLV)^ACHSFU

Package

Total

Call Graph

$$DIR^XBDIR VIEWR^XBLM EN^XBVK

(,HOME)^%ZIS ^%ZTLOAD $$FMTE^XLFDT

($$DATE,$$EBB,$$PB,ERPT,RTRN)^ACHS (BM,SLV)^ACHSFU

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHS REPORT DOS

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Report for Actual or Estimated DOS with Issue Date" Line Location: ACHSRDOS+5
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !,*7,"No device specified." Line Location: DEV+9
Function Call: WRITE	Prompt: *7,!,"Please queue to printers only." Line Location: DEV+12
Function Call: WRITE	Prompt: ! Line Location: TRNS+1
Function Call: WRITE	Prompt: !,ACHSDOC,?10,ACHSPAT,?36,ACHSDOS,?48,ACHSORDT,?60,ACHSCLRK Line Location: PRINT+3
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: !,"DOCUMENT LISTING BY PAID DATE OF SERVICE",?68,"PAGE: ",ACHSPG Line Location: HDR+3
Function Call: WRITE	Prompt: "DOCUMENT LISTING BY ESTIMATE DATE OF SERVICE",?68,"PAGE: ",ACHSPG Line Location: HDR+4
Function Call: WRITE	Prompt: !!,"P.O. NO. PATIENT NAME "_$S(ACHSRPT=1:"ACT",1:"EST")_" D.O.S. DATE ISSUED ISSUED BY",! Line Location: HDR+5
Function Call: WRITE	Prompt: "-" Line Location: HDR+6
Routine Call	%ZIS Line Location: DEV+9
Routine Call	%ZIS Line Location: DEV+7

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	TRNS+3, TRNS+4, TRNS+5, TRNS+7, TRNS+8, TRNS2+2, TRNS2+8, TRNS2+9
^DPT - [#2]	TRNS2+5
^VA(200 - [#200]	TRNS2+7

Name	Field # of Occurrence
>> %	DEV+2, DEV+3, DEV+4, DEV+14
%ZIS	DEV+5!, DEV+6*, DEV+8!
>> ACHSBDT	BDT+1*, BDT+2, EDT+2, DEV+13, TRNS+2
ACHSBDT1	TRNS+2, TRNS+3, TRNS+4, TRNS+5, TRNS+7*, TRNS+8, EXT+1!
>> ACHSBM	PRINT+1
ACHSCLRK	TRNS2+1, TRNS2+7, PRINT+3, EXT+1!
ACHSDIEN	TRNS+4, TRNS+5, TRNS+8, TRNS2+2, TRNS2+8, TRNS2+9, EXT+1!
ACHSDOC	TRNS2+3*, PRINT+3, EXT+1!
ACHSDOS	TRNS2+1, TRNS2+8, TRNS2+9*, PRINT+3, EXT+1!, EXT+2!
>> ACHSEDT	EDT+1*, EDT+2, DEV+13, TRNS+3, TRNS+7
>> ACHSIO	ACHSRDOS+3*
ACHSORDT	TRNS2+1, TRNS2+6, PRINT+3, EXT+1!
ACHSPAT	TRNS2+1, TRNS2+4, TRNS2+5*, PRINT+3, EXT+1!
>> ACHSPG	ACHSRDOS+3, PRINT+2, HDR+1, HDR+3, HDR+4
>> ACHSQIO	DEV+13*
ACHSQUIT	TRNS+2*, TRNS+3, TRNS+4, TRNS+7, TRNS+8, TRNS+9, EXT+2!
ACHSREC	TRNS2+2*, TRNS2+3, TRNS2+4, TRNS2+5, TRNS2+6, TRNS2+7, EXT+1!
>> ACHSRPT	DOCS+1*, DOCS+3, TRNS+3, HDR+3, HDR+5
ACHSRPT1	DOCS+3*, BDT+1, EDT+1, DEV+13, TRNS2+8, EXT+2!
ACHSTIEN	TRNS+5*, TRNS2+8, EXT+1!
>> DTOUT	DOCS+2, BDT+2, EDT+2, DEV+3, PRINT+1
>> DUOUT	DOCS+2, BDT+2, EDT+2, DEV+3, PRINT+1
DUZ(2	TRNS+3, TRNS+4, TRNS+5, TRNS+7, TRNS+8, TRNS2+2, TRNS2+8, TRNS2+9
>> I	HDR+6*
IO	ACHSRDOS+3
IO("Q"	DEV+10, DEV+11!
IO("S"	DEV+7
IOF	HDR+2
IOM	DEV+13
ION	DEV+13
IOP	DEV+5!
IOSL	DEV+13
IOST	DEV+12, DEV+13
>> POP	DEV+9
U	DEV+3
>> ZTDESC	DEV+13*
>> ZTIO	DEV+13*
>> ZTRTN	DEV+13*
>> ZTSAVE(	DEV+14*
>> ZTSK	DEV+16, TRNS+9, PRINT+1

Information