Routine: ACHSIC3

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$REPEAT^XLFSTR
Contract Health Management Information System	3	($$PB,RTRN)^ACHS BRPT^ACHSFU FC^ACHSUF
IHS VA Utilities	3	$$C^XBFUNC VIEWR^XBLM EN^XBVK
DRG Grouper	1	$$ICDDX^ICDEX

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$REPEAT^XLFSTR

Contract Health Management Information System

($$PB,RTRN)^ACHS BRPT^ACHSFU FC^ACHSUF

IHS VA Utilities

$$C^XBFUNC VIEWR^XBLM EN^XBVK

DRG Grouper

$$ICDDX^ICDEX

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSRPTICDERROR

Package

Total

Caller Graph

Contract Health Management Information System

ACHSRPTICDERROR

Entry Points

Name	Comments	DBIA/ICR reference
A	; Main loop.
P3	; Ask RTRN if EOP, do header, go main loop.
B	;
E	;
HDR	; Print report header.
TITLE	;;ICD UPDATED DOCUMENTS FROM ICD CODE ERROR
K	;
DEV	;
ST	;
KILL	; Do ERPT, kill vars, quit.
PRINT	;EP - From TaskMan.
END	; Print totals, ask RTRN, write IOF.

Name	Field # of Occurrence
^%ZIS	DEV+6
HOME^%ZIS	DEV+7
^%ZISC	DEV+10, K+2
^%ZTLOAD	DEV+13
$$PB^ACHS	DEV+1
RTRN^ACHS	P3+2, END+3
BRPT^ACHSFU	PRINT+4
FC^ACHSUF	PRINT+2
$$ICDDX^ICDEX	E+4
$$C^XBFUNC	HDR+2
VIEWR^XBLM	DEV+4
EN^XBVK	DEV+4
$$REPEAT^XLFSTR	HDR+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"THERE ARE NOT ANY ICD ERRORS FOUND FOR THIS FACILITY" Line Location: ST+1
Function Call: WRITE	Prompt: !!,"REPORT FOR DOCUMENTS WITH 3 DIGIT ICD CODE ERRORS." Line Location: ST+4
Function Call: WRITE	Prompt: !,"This report is for FI processed PO's only. After the ICD file is processed" Line Location: ST+5
Function Call: WRITE	Prompt: !,"from the FI, this report will display the PO and ICD codes that were changed." Line Location: ST+6
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+10
Function Call: WRITE	Prompt: $E(ACHSNAME,1,24),?25,$E(ACHSVNDR,1,26),?52,$E(ACHSIDT,4,7),$E(ACHSIDT,2,3) Line Location: E+2
Function Call: WRITE	Prompt: !,ACHSDOC,?25,$P($$ICDDX^ICDEX(ICD2),U,2),?52,$P($$ICDDX^ICDEX(ICD3),U,2) Line Location: E+4
Function Call: WRITE	Prompt: !! Line Location: P3+1
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: !!,"TOTAL UPDATES = ",CT,! Line Location: END+2
Function Call: WRITE	Prompt: @IOF,!!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,$$C^XBFUNC("* CONTRACT HEALTH MANAGEMENT SYSTEM *",80),!!,ACHSLOC,!?24,"ICD 3 digit Purchase Order Report" Line Location: HDR+2
Function Call: WRITE	Prompt: ?77-$L(ZTSK),"(",ZTSK,")" Line Location: HDR+3
Function Call: WRITE	Prompt: !,ACHSTIME,!!,"Patient Name",?25,"Provider of Service",?52,"Issue" Line Location: HDR+4
Function Call: WRITE	Prompt: !,"Document number",?25,"DX CODE",?52,"NEW DX CODE",!,$$REPEAT^XLFSTR("=",79),! Line Location: HDR+5
Routine Call	%ZIS Line Location: DEV+7
Routine Call	%ZIS Line Location: DEV+6

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	A+6
^ACHSICD(	ST+1, A+2, A+3, A+4, A+5
^AUTTVNDR - [#9999999.11]	B+3
^DPT - [#2]	B+6

Name	Line Occurrences
A	B+3
B	A+7
DEV	DEV+10, DEV+14
END	A+8
HDR	PRINT+5, P3+2
K	DEV+2, DEV+4, DEV+7
KILL	PRINT+3
PRINT	DEV+8
TITLE	DEV+11

Name	Field # of Occurrence
^(0	B+3, B+6

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEV+1*, DEV+2, DEV+4
>> %ZIS	DEV+5*
ACHS	DEV+12*, K+1!
ACHSBDT	K+1!
ACHSBLNK	KILL+2!
>> ACHSBM	P3+2
ACHSCNX	KILL+2!
ACHSDOC	B+4*, E+4, KILL+2!
ACHSDOC1	B+2*, B+4, KILL+2!
ACHSDOC2	B+2*, B+4, KILL+2!
ACHSDOS	KILL+2!
ACHSEDT	K+1!
ACHSEIN	KILL+2!
>> ACHSERR	PRINT+3
ACHSFC	B+4, KILL+1!
>> ACHSIDT	E+1*, E+2
ACHSIO	ST+2*, K+1!
>> ACHSLOC	HDR+2
ACHSNAME	B+5!, B+6, B+7, E+2, KILL+2!
ACHSOPEN	KILL+2!
>> ACHSPG	HDR+1*, HDR+2
ACHSQ	A+1, A+2, A+3, P3+2, KILL+3!
ACHSQIO	DEV+11*, K+1!
ACHSQUIT	KILL+3!
ACHSREC	A+6*, B+2, B+6, B+7, E+1, KILL+3!
ACHSRPT	K+1!
ACHSSTS	KILL+2!
>> ACHSTIME	HDR+4
ACHSTOS	KILL+2!
ACHSTOTP	KILL+2!
ACHSTYPE	KILL+2!
>> ACHSUSR	HDR+2
ACHSVNDR	B+3*, E+2, KILL+2!
ACHSVPTR	B+2*, B+3, KILL+2!
AZUCHSCAN	KILL+2!
CT	A+1, B+1, END+2, KILL+3!
DA	A+6*, KILL+3!
DFN	B+6*, KILL+3!
>> DTOUT	DEV+2, P3+2
>> DUOUT	DEV+2, P3+2
DUZ(2	ST+1, A+1
>> ICD2	A+4*, E+4
>> ICD3	A+5*, E+4
IO	ST+2
IO("Q"	DEV+8, DEV+9!
IO("S"	DEV+10
IOF	END+1, HDR+2
IOM	DEV+11
ION	DEV+11
IOSL	DEV+11
IOST	DEV+10, DEV+11
>> L	A+1*, A+2, A+3, A+4, A+5, A+6
>> L1	A+1, A+2, A+3, A+4, A+5, A+6
>> L2	A+3*, A+4, A+5
>> POP	DEV+7
U	DEV+2, A+4, A+5, B+2, B+3, B+6, B+7, E+1, E+4
X2	ST+3!, KILL+3!
X3	ST+3!, PRINT+6*, KILL+3!
>> ZTDESC	DEV+11*
ZTIO	DEV+11*, K+1!
>> ZTQUEUED	KILL+1, HDR+3
>> ZTRTN	DEV+11*
>> ZTSAVE(	DEV+12*
ZTSK	DEV+14, K+1!, PRINT+3!, HDR+3

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSIC3

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items