Routine: ACHSPCC7

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

Package

Total

Call Graph

Kernel

HOME^%ZIS ^%ZISC $$REPEAT^XLFSTR

VA Fileman

COMMA^%DTC WAIT^DICD $$GET1^DIQ

Contract Health Management Information System

($$AOP,$$LOC,RTRN)^ACHS JOBABEND^ACHSPCC4

IHS VA Utilities

$$VAL^XBDIQ1

Name	Comments	DBIA/ICR reference
HDR1	;
LEND	;
L2	; Process DHRs from a Facility.
L1	; Process a Facility.

Name	Field # of Occurrence
COMMA^%DTC	LEND+9, LEND+15
HOME^%ZIS	LEND+26
^%ZISC	LEND+24
$$AOP^ACHS	HDR1+4
$$LOC^ACHS	HDR1+3
RTRN^ACHS	LEND+3, LEND+11, LEND+21
JOBABEND^ACHSPCC4	L2+52
WAIT^DICD	ACHSPCC7+7
$$GET1^DIQ	LEND+24
$$VAL^XBDIQ1	L2+16
$$REPEAT^XLFSTR	L2+36

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,"GENERATING DHR RECORDS FOR CORE",!! Line Location: ACHSPCC7+6
Function Call: WRITE	Prompt: $J(ACHSCT2,8) Line Location: L2+30
Function Call: WRITE	Prompt: *7,!!,"A DHR for CORE was produced that was not 580 characters." Line Location: L2+52
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+5
Routine Call	%ZIS Line Location: LEND+26

Name	Line Occurrences (* Changed, ! Killed)
^ACHSCORE(	L1+1, L2+1, L2+3, L2+4, L2+5, L2+26!, L2+28!, L2+53*
^ACHSCORE("COUNT"	ACHSPCC7+9
^AUTTLOC("C"	LEND+10
^DIC(4 - [#4]	LEND+10

Name	Line Occurrences
HDR1	LEND+3, LEND+11
L1	L2+2
L2	L2+7, L2+8, L2+56
LEND	L1+2

Name	Field # of Occurrence
^(	L2+53*
^("COUNT"	ACHSPCC7+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	L2+50*
ACHS2	L2+3*, L2+7, L2+8, L2+20, L2+32, L2+33, L2+34, L2+35, L2+39, L2+40 , L2+41, L2+54, L2+55!
ACHS2B	L2+4, L2+9, L2+14, L2+15, L2+16, L2+22, L2+24, L2+31, L2+38, L2+42 , L2+43, L2+55!
ACHS2C	L2+5, L2+27, L2+45, L2+46, L2+47, L2+55!
>> ACHSCFY	L2+20
ACHSCORE	L2+55!
ACHSCORE(	L2+50
ACHSCORE(1	L2+31*
ACHSCORE(10	L2+34*, L2+36
ACHSCORE(11	L2+43*
ACHSCORE(12	L2+35, L2+36
ACHSCORE(13	L2+44*
ACHSCORE(19	L2+45*
ACHSCORE(2	L2+32*
ACHSCORE(20	L2+46*
ACHSCORE(21	L2+47*
ACHSCORE(3	L2+33*, L2+36
ACHSCORE(4	L2+37*
ACHSCORE(46	L2+48*, L2+51
ACHSCORE(5	L2+38*
ACHSCORE(6	L2+39*
ACHSCORE(7	L2+40*
ACHSCORE(8	L2+41*
ACHSCORE(9	L2+42*
>> ACHSCT1	ACHSPCC7+9, ACHSPCC7+10, L2+30
>> ACHSCT2	ACHSPCC7+3, L2+29, L2+30, LEND+2, LEND+4*, LEND+16, LEND+19
ACHSDES1	LEND+5!
>> ACHSEFDT	L2+37
>> ACHSFAC	ACHSPCC7+3, L1+1, L1+2, L1+3, L2+1, L2+3, L2+4, L2+5, L2+26, L2+28 , L2+53, L2+54, LEND+6, LEND+7, LEND+8, LEND+10
ACHSFCT	ACHSPCC7+4!
ACHSFCT(	L1+3, L2+54, LEND+10
ACHSFTOT	ACHSPCC7+4!, LEND+27!
ACHSFTOT(	L1+3, L2+54, LEND+7, LEND+8
>> ACHSFY	L2+21
>> ACHSHASH	ACHSPCC7+3, L2+54, LEND+4*, LEND+14
>> ACHSJCLC	LEND+17*, LEND+18, LEND+19
>> ACHSPTRD	LEND+25*
>> ACHSRR	ACHSPCC7+3, L2+1, L2+2, L2+3, L2+4, L2+5, L2+26, L2+28, L2+53
>> ACHSTXCT	LEND+19*, LEND+20
ACHSZDOC	LEND+5!
AFSJFLG	ACHSPCC7+4!
DT	HDR1+3
DUZ(2	L2+16, LEND+24
IO	LEND+25, HDR1+1
IO(0	ACHSPCC7+5, L2+30, LEND+1
IOF	LEND+22, HDR1+3
IOSL	LEND+11
IOST	ACHSPCC7+8
U	LEND+10
X	ACHSPCC7+9, ACHSPCC7+10, L2+19~, L2+20, L2+21, L2+22, L2+36, L2+49, L2+50, L2+51* , L2+52, L2+53, LEND+8, LEND+10, LEND+14, LEND+16, HDR1+2*, HDR1+3, HDR1+5
X2	L2+19~, L2+21, LEND+8, LEND+14*
>> X3	LEND+8, LEND+14
>> Y	LEND+13, LEND+18, HDR1+2*, HDR1+4, HDR1+5

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSPCC7

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: