Routine: ACHSHV01

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ($$OPEN,$$STATUS)^%ZISH $$REPEAT^XLFSTR
Contract Health Management Information System	2	$$AOP^ACHS NODIR^ACHSMD0
IHS VA Utilities	1	$$DIR^XBDIR
VA Fileman	1	^%DT

Package

Total

Call Graph

^%ZIS ^%ZISC ($$OPEN,$$STATUS)^%ZISH $$REPEAT^XLFSTR

$$AOP^ACHS NODIR^ACHSMD0

$$DIR^XBDIR

^%DT

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSHV04

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
SEARCH	; Skip records of 0 length, or begin with below literals.
END	; Write totals, close device(s), kill vars, quit.
HDR1	; Print header.
INDRD	;
SRCHSKP	;
SPREMOV	; Remove trailing spaces from X.
A1	; Open file selected in ACHSHV04.
A0	; Select printer for report.
A3	; Read from file, loop.
L2	;
L3	;
L1	; Set data into ^ACHSHVOP(.
ABEND	; Display error if device noopen or read fail.

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,$$REPEAT^XLFSTR("",52),!," READ CHS HV NOTIFICATION REPORT ",!,$$REPEAT^XLFSTR("",52) Line Location: ACHSHV01+5
Function Call: WRITE	Prompt: !,*7,"Device Not Available -- Job Aborted" Line Location: A0+3
Function Call: WRITE	Prompt: !!,"OPEN FAILURE ON DEVICE FOR FILE ",$P(^ACHSHVLG(ACHSV,1,ACHSNO,0),U,4) Line Location: A1+2
Function Call: WRITE	Prompt: ?10,"MISSING CHART NUMB",?35,$P(^ACHSHVOP(ACHSPTCT),U,1),?65,$P(^ACHSHVOP(ACHSPTCT),U,8),! Line Location: L3+6
Function Call: WRITE	Prompt: ?10,"MISSING FIN CLASS",?35,$P(^ACHSHVOP(ACHSPTCT),U,1),?65,$P(^ACHSHVOP(ACHSPTCT),U,8),! Line Location: L3+7
Function Call: WRITE	Prompt: ?10,"MISSING SOC. SEC. #",?35,$P(^ACHSHVOP(ACHSPTCT),U,1),?65,$P(^ACHSHVOP(ACHSPTCT),U,8),! Line Location: L3+8
Function Call: WRITE	Prompt: !?10,"TOTAL RECORDS CONVERTED = ",ACHSPTCT Line Location: END+2
Function Call: WRITE	Prompt: @IOF,?10,"OUTPATIENT NOTIFICATION REPORT -- CONVERSION ERRORS",?73,"PAGE ",ACHSPGNO,!?25,"FOR ",ACHSFN,!?10,$$REPEAT^XLFSTR("-",62),!?10,"TYPE OF ERROR",?35,"PATIENT NAME",?65,"ACCT # ",!?10,$$REPEAT^XLFSTR("-",62),!! Line Location: HDR1+3
Function Call: WRITE	Prompt: !!,"ABNORNAL END OF JOB" Line Location: ABEND+2
Routine Call	%ZIS Line Location: A0+2

Name	Line Occurrences (* Changed, ! Killed)
^ACHSHVLG - [#9002078]	A1+2
^ACHSHVOP(	L1+7, L1+9, L1+11, L1+16, L2+3, L3+5, L3+6, L3+7, L3+8
^AUTTVNDR - [#9999999.11]	A1+3

Name	Field # of Occurrence
%DT	L1+12!
>> %ZIS	A0+1*
>> %ZIS("A"	A0+1*
>> ACHSBLCT	ACHSHV01+7, INDRD+2, SEARCH+3*
ACHSBLFG	A3+5, INDRD+2, END+6!, SEARCH+2
ACHSDATA	A3+2*, INDRD+1, L1+3, L1+7, L1+9, L1+13, L1+16, L2+1, L3+1, END+6! , SEARCH+2, SEARCH+3, SEARCH+4, SEARCH+5, SEARCH+6, SEARCH+7
ACHSFLG	ACHSHV01+7, L1+1, L1+16, L2+3, L3+11, END+6!
>> ACHSFN	A1+3*, HDR1+3
>> ACHSI	SPREMOV+1*
>> ACHSLCT	ACHSHV01+7, L3+9, L3+10, HDR1+2*
>> ACHSNO	A1+2, A1+3
>> ACHSPGNO	ACHSHV01+7, HDR1+2, HDR1+3
ACHSPTCT	ACHSHV01+7, L1+2, L1+7, L1+9, L1+11, L1+16, L2+3, L3+5, L3+6, L3+7 , L3+8, END+2, END+6!
ACHSSKIP	A3+7, END+6!, SEARCH+1, SEARCH+7, SRCHSKP+1*
>> ACHSUFLS(	A1+3
>> ACHSV	A1+2
>> ACHSX	A1+3*
>> ACHSZDEV	A1+1, A1+4, A3+1, END+4
>> ACHSZDEV(1	A1+4*, A1+5!
I	END+6!
IO	A1+1, A1+4, L3+6, L3+7, L3+8, END+4, HDR1+1
IO(0	A0+3, A1+2, END+1, ABEND+1
IOF	ACHSHV01+5, HDR1+3
>> IONOFF	END+4*
>> POP	A0+3
U	A1+2, A1+3, L1+7, L1+9, L1+11, L1+16, L2+3, L3+5, L3+6, L3+7 , L3+8
>> W	L3+3*, L3+5
X	L1+3, L1+5, L1+6, L1+7, L1+8, L1+9, L1+10, L1+11, L1+13, L2+1 , L2+3, L3+1, L3+3, L3+5, END+6!, SPREMOV+1*
Y	L1+5, L1+6, L1+15, L1+16, L3+1, L3+5, END+6!
Z	L3+3, L3+4, L3+5, END+6!

Information