Routine: ACHSPCC2

Information

ACHSPCC2 ; IHS/ITSC/PMF - CHS AREA SPLITOUT (2/5)(DHR) ;JUL 10, 2008

Package	Total	Call Graph
VA Fileman	3	COMMA^%DTC WAIT^DICD $$GET1^DIQ
Kernel	2	HOME^%ZIS ^%ZISC
Contract Health Management Information System	1	($$AOP,$$LOC,RTRN)^ACHS

Name	Comments	DBIA/ICR reference
LEND	;
HDR1	;
L5	; Set the 2nd half of the DHR, if Doc was canceled.
L2	; Process DHRs for a Facility.
L3	; Check for CANCELLED documents and add up totals.
L1	; Process a Facility.
L9	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,"GENERATING DHR RECORDS FOR HAS ",!! Line Location: ACHSPCC2+7
Function Call: WRITE	Prompt: $J(ACHSCT2,8) Line Location: L2+7
Function Call: WRITE	Prompt: !!,"TOTAL DHR RECORDS GENERATED = ",ACHSCT2,! Line Location: LEND+2
Function Call: WRITE	Prompt: ?10,$E($P(^DIC(4,$O(^AUTTLOC("C",ACHSFAC,0)),0),U),1,30),?46,$J(ACHSFCT(ACHSFAC),5),?55,X,!! Line Location: LEND+10
Function Call: WRITE	Prompt: ?10,$E(Y,1,60) Line Location: LEND+13
Function Call: WRITE	Prompt: !!?15,"TOTAL CHS TRANSACTIONS",?51-$L($J(ACHSCT2,0,0)),$J(ACHSCT2,0,0),?55,X,!!?10,"NUMBER OF OUTPUT DHR RECORDS = ",?46,$J((ACHSCT2+2)*2,5) Line Location: LEND+16
Function Call: WRITE	Prompt: !!?10,"NUMBER OF JCL RECORDS = ",?46,$J(ACHSJCLC,5),!!?10,$E(Y,1,41) Line Location: LEND+18
Function Call: WRITE	Prompt: !?15,"TOTAL RECORDS TO TRANSMIT = ",?46,$J(ACHSTXCT,5),!! Line Location: LEND+20
Function Call: WRITE	Prompt: @IOF Line Location: LEND+22
Function Call: WRITE	Prompt: @IOF,!?5,X,!?5,"",?10,"C H S DATA SPLIT-OUT (EXPORT) FOR: ",$E($$LOC^ACHS,1,25),?74,"",!?5,"",?5,$E(DT,4,5),"-",$E(DT,6,7),"-",$E(DT,2,3),?22,"TRANSACTION TOTALS BY FACILITY",?74,"",! Line Location: HDR1+3
Function Call: WRITE	Prompt: ?5,"",Y,"",!?5,"",?10,"NAME OF FACILITY",?44,"NUMB TRNS",?60,"DOLLAR AMT",?74,"",!?5,X,!! Line Location: HDR1+7
Routine Call	%ZIS Line Location: LEND+26

Name	Line Occurrences (* Changed, ! Killed)
^ACHSPCC(	L1+1, L2+1, L2+4, L2+5, L3+1, L3+3, L3+8, L5+4, L5+5, L5+6
^ACHSPCC("COUNT"	ACHSPCC2+10
^AUTTLOC("C"	LEND+10
^DIC(4 - [#4]	LEND+10

Name	Field # of Occurrence
^("COUNT"	ACHSPCC2+10

Name	Field # of Occurrence
>> ACHS2FY	L5+2*, L5+3
>> ACHSCT1	ACHSPCC2+10, ACHSPCC2+11, L2+7
>> ACHSCT2	ACHSPCC2+4, L2+6, L2+7, LEND+2, LEND+4*, LEND+16, LEND+19
ACHSDES1	L2+4*, L3+8, L5+6, LEND+5!
>> ACHSEFDT	L3+3
>> ACHSFAC	ACHSPCC2+4, L1+1, L1+2, L1+3, L2+1, L2+4, L2+5, L3+1, L3+3, L3+8 , L5+4, L5+5, L5+6, L9+1, LEND+6, LEND+7, LEND+8, LEND+10
ACHSFCT	ACHSPCC2+5!
ACHSFCT(	L1+3, L9+1, LEND+10
ACHSFTOT	ACHSPCC2+5!, LEND+27!
ACHSFTOT(	L1+3, L9+1, LEND+7, LEND+8
>> ACHSHASH	ACHSPCC2+4, L9+1, LEND+4*, LEND+14
>> ACHSHLD1	L3+5, L3+7, L5+1, L5+5
>> ACHSHLD2	L3+5, L5+4, L5+5
>> ACHSJCLC	LEND+17*, LEND+18, LEND+19
>> ACHSPTRD	LEND+25*
>> ACHSRR	ACHSPCC2+4, L2+1, L2+2, L2+3, L2+4, L2+5, L3+1, L3+3, L3+8, L5+4 , L5+6
>> ACHSTXCT	LEND+19*, LEND+20
ACHSZDOC	L2+5*, L3+8, LEND+5!
AFSJFLG	ACHSPCC2+5!
DT	HDR1+3
DUZ(2	LEND+24
IO	LEND+25, HDR1+1
IO(0	ACHSPCC2+6, L2+7, LEND+1
IOF	LEND+22, HDR1+3
IOSL	LEND+11
IOST	ACHSPCC2+9
U	LEND+10
>> X	ACHSPCC2+10, ACHSPCC2+11, L3+1, L3+2, L3+3, L3+7, L3+8, L5+2, L5+6, L9+1 , LEND+8, LEND+10, LEND+14, LEND+16, HDR1+2, HDR1+3, HDR1+7
>> X1	L3+3*
>> X2	LEND+8, LEND+14
>> X3	LEND+8, LEND+14
>> Y	LEND+13, LEND+18, HDR1+2*, HDR1+6, HDR1+7