Routine: ACHSPCC3

Package	Total	Call Graph
Contract Health Management Information System	6	($$AOP,$$OS,RTRN)^ACHS ADD^ACHSAOPO FILESEL^ACHSEXUT (DPSHJCL,DPSTJCL,END,FIHJCL,FITJCL,JOBABEND,PCCHJCL,PCCTJCL)^ACHSPCC4 (ERROR,OPENHFS)^ACHSTCK1 TXLOGADD^ACHSTXUT
VA Fileman	3	NOW^%DTC WAIT^DICD IX^DIK
Kernel	2	^%ZISC $$HTFM^XLFDT
IHS VA Utilities	1	^XBGSAVE
NCR Financial System	1	FRD^AFSLODF0

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHSPCC1 ACHSPCC4

Entry Points

Name	Comments	DBIA/ICR reference
END	; Kill vars, post 1166 open doc, quit.
UFMS	;SAVE AND SEND FILE; ACHS3.113 IHS/OIT/FCJ ADDED UFMS SECTION
AZGS1	;
AZGSHJCL	;
PADWRITE	;EP.
UNIX	;
NORMEND	;
GLOBS	;;ACHSGLBL;ACHSDESC;ACHSSUF
START	;
MSM	;
AZGS3	;
AZGS2	;
AZGSAV1M	;
CLOSE	;EP
AZGSTJCL	;
PCC4	;

External References

Name	Field # of Occurrence
NOW^%DTC	UNIX+12, UFMS+5
^%ZISC	CLOSE+1
$$AOP^ACHS	PCC4+6, END+4, UFMS+14
$$OS^ACHS	UFMS+15
RTRN^ACHS	CLOSE+4
ADD^ACHSAOPO	PADWRITE+36
FILESEL^ACHSEXUT	UNIX+7
DPSHJCL^ACHSPCC4	AZGSHJCL+3
DPSTJCL^ACHSPCC4	AZGSTJCL+3
END^ACHSPCC4	PCC4+4
FIHJCL^ACHSPCC4	AZGSHJCL+3
FITJCL^ACHSPCC4	AZGSTJCL+4
JOBABEND^ACHSPCC4	MSM+5, PCC4+1, UNIX+15
PCCHJCL^ACHSPCC4	AZGSHJCL+3
PCCTJCL^ACHSPCC4	AZGSTJCL+3, AZGSTJCL+4
ERROR^ACHSTCK1	UNIX+15
OPENHFS^ACHSTCK1	UNIX+14
TXLOGADD^ACHSTXUT	CLOSE+4
FRD^AFSLODF0	END+3, END+9
WAIT^DICD	AZGSAV1M+2
IX^DIK	NORMEND+7
^XBGSAVE	UFMS+16
$$HTFM^XLFDT	NORMEND+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Processing the ",ACHSGLBL," (",ACHSDESC,") transaction file." Line Location: MSM+2
Function Call: WRITE	Prompt: !,"Please Standby - Copying Data to File: ",!?10,ACHSZFN Line Location: UNIX+20
Function Call: WRITE	Prompt: !!?10,ACHSTXRC," Total Records Copied to Output Media",! Line Location: CLOSE+3
Function Call: WRITE	Prompt: !,*7,?5,"UNABLE TO POST ENTRY TO IHS DATA TRANSMISSION LOG - NOTIFY SUPERVISOR" Line Location: CLOSE+7
Function Call: WRITE	Prompt: !,"Begin Posting DHR file to 1166 Open Document File..." Line Location: END+7
Function Call: WRITE	Prompt: !,"End Posting DHR file to 1166 Open Document File..." Line Location: END+11
Function Call: WRITE	Prompt: ! Line Location: AZGSAV1M+5
Function Call: WRITE	Prompt: $J($S(ACHSRRCT>0:ACHSRRCT,1:RCTR),8) Line Location: AZGSTJCL+5
Function Call: WRITE	Prompt: X,! Line Location: PADWRITE+25
Function Call: WRITE	Prompt: $J(ACHSTXRC,8) Line Location: PADWRITE+33
Function Call: WRITE	Prompt: !!,"Processing the ",ACHSGLBL," (",ACHSDESC,") transaction file." Line Location: UFMS+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSUFMS("COUNT"	UFMS+1
^AFSTXLOG(	NORMEND+2, NORMEND+3, NORMEND+4*
^AFSTXLOG(0	NORMEND+1
^AUTTAREA - [#9999999.21]	UFMS+7
^AUTTLOC - [#9999999.06]	PCC4+9, UNIX+1, UFMS+7

Label References

Name	Line Occurrences
AZGS1	AZGS1+1, AZGS2+1
AZGS2	AZGS2+1, AZGS3+1
AZGS3	AZGS3+3
AZGSAV1M	UNIX+21
AZGSTJCL	AZGS1+1
CLOSE	UFMS+17
END	UNIX+8, CLOSE+9
NORMEND	CLOSE+5
PADWRITE	AZGS1+1, AZGS2+1, AZGS3+2
PCC4	ACHSPCC3+7, START+2, START+4, START+5, PCC4+3, PCC4+10
START	PCC4+6, PCC4+11
UFMS	PCC4+3
UNIX	MSM+4

Naked Globals

Name	Field # of Occurrence
^(	AZGS1+1, AZGS2+1, AZGS3+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	UNIX+12, UFMS+5
>> %I(3	UNIX+12, UFMS+5
ACHS	END+1!
ACHS7A	END+1!, PADWRITE+2*, PADWRITE+3, PADWRITE+6, PADWRITE+10, PADWRITE+12, PADWRITE+13, PADWRITE+14, PADWRITE+15, PADWRITE+16 , PADWRITE+17, PADWRITE+18, PADWRITE+19, PADWRITE+20, PADWRITE+22
>> ACHSCT2	START+2
>> ACHSDESC	MSM+2, PCC4+2*, UFMS+3
>> ACHSDHRN	UNIX+16*, END+8
>> ACHSEXFN	UNIX+9
>> ACHSEXFS	UFMS+10*
ACHSFAC	UNIX+1*, END+1!
>> ACHSFLG	ACHSPCC3+6, PCC4+1, CLOSE+8
>> ACHSGCTR	ACHSPCC3+6, START+2, PCC4+2, UNIX+16, AZGSAV1M+4, AZGSHJCL+3, AZGSTJCL+3, AZGSTJCL+4, PADWRITE+34
>> ACHSGLBL	START+3, MSM+2, PCC4+2*, PCC4+3, PCC4+4, PCC4+6, PCC4+9, PCC4+10, UNIX+5, AZGS1+1 , AZGS2+1, AZGS3+1, UFMS+3
>> ACHSHDNM	UNIX+3, UNIX+4, UNIX+5*
>> ACHSJFLG	MSM+5, UNIX+8, END+2
>> ACHSMED	MSM+3*, MSM+4
ACHSMSG	END+1!
>> ACHSPGNM	UNIX+6*
ACHSRCTR	END+1!, AZGSAV1M+3, AZGS1+1
>> ACHSREF	AZGS1+1, AZGS2+1, AZGS3+1*
ACHSRR	END+1!, AZGSAV1M+3, AZGS1+2, AZGS2+1*, AZGS3+1
ACHSRRCT	END+1!, AZGSAV1M+3, AZGS2+1, AZGS3+1*
>> ACHSRRR	AZGSAV1M+3, AZGS2+2, AZGS3+1*
>> ACHSRRRC	AZGSAV1M+3*
>> ACHSSUF	PCC4+2, PCC4+9, UNIX+3
>> ACHSTXRC	CLOSE+3, NORMEND+4, AZGSAV1M+3, PADWRITE+32, PADWRITE+33, UFMS+1*
>> ACHSY	CLOSE+5, NORMEND+2, NORMEND+3, NORMEND+4, NORMEND+6
>> ACHSZDEV	UNIX+17
>> ACHSZFN	UNIX+9, UNIX+13, UNIX+16, UNIX+20, END+5
>> ACHSZIN	UNIX+6, UNIX+9
>> ACHSZZA	UNIX+15
AFSXPFN	END+8*, END+10!
DA	NORMEND+5~, NORMEND+6*
DA(1	NORMEND+6*
DIK	NORMEND+5~, NORMEND+6*
DT	UNIX+11, UFMS+4
DUZ(2	PCC4+9, UNIX+1, NORMEND+2, NORMEND+3, NORMEND+4, NORMEND+6, UFMS+7
>> DX	AZGSAV1M+3*
>> DY	AZGSAV1M+3, AZGSAV1M+4
IO	UNIX+17*, PADWRITE+24
IO(0	MSM+1, UNIX+18, CLOSE+2, CLOSE+6, AZGSAV1M+1, PADWRITE+33, UFMS+2
>> R	AZGSAV1M+3, AZGS1+1, AZGS2+1, AZGS3+1
U	PCC4+9, UNIX+1, NORMEND+2, NORMEND+3, NORMEND+4, UFMS+7
>> X	START+3, START+4, START+5, UNIX+11, UNIX+12, UNIX+13, AZGS1+1, AZGS2+1, AZGS3+1, PADWRITE+1* , PADWRITE+2, PADWRITE+3, PADWRITE+6, PADWRITE+10, PADWRITE+12, PADWRITE+13, PADWRITE+14, PADWRITE+15, PADWRITE+16, PADWRITE+17 , PADWRITE+18, PADWRITE+19, PADWRITE+20, PADWRITE+22, PADWRITE+25, PADWRITE+34, PADWRITE+36, UFMS+4, UFMS+5, UFMS+6* , UFMS+9, UFMS+10
X1	END+1!, UFMS+7, UFMS+8, UFMS+9, UFMS+10
X2	END+1!
>> XBFLT	UFMS+11*
>> XBFN	UFMS+9*
>> XBGL	UFMS+11*
>> XBMED	UFMS+11*
>> XBNAR	UFMS+11*
>> XBQ	UFMS+12*
>> XBS1	UFMS+12*
>> XBUF	UFMS+14, UFMS+15

Marked Items

Name	Field # of Occurrence
$T(@"GLOBS"+ACHSGCTR	PCC4+2
$T(FRD^AFSLODF0	END+3

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSPCC3

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items