Routine: ACHSPCC4

Information

ACHSPCC4 ; IHS/ITSC/PMF - CHS AREA SPLITOUT (4/5)(EOJ) ; [ 12/06/2002 10:36 AM ]

Source file <ACHSPCC4.m>

Package	Total	Call Graph
Contract Health Management Information System	4	($$JDT,$$OS,RTRN)^ACHS TARBKUP^ACHSARCH PADWRITE^ACHSPCC3 ^ACHSPCC5
Kernel	2	^%ZISC $$HTFM^XLFDT
IHS VA Utilities	1	$$DIR^XBDIR
NCR Financial System	1	(,TX)^AFSLODF
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Contract Health Management Information System	3	ACHSPCC1 ACHSPCC3 ACHSPCC7

Name	Comments	DBIA/ICR reference
COPYZ	;
DPSTJCL	;EP - Generate Tail JCL for Data center.
PROD1
PROD2
PROD3
ENTRETRN	;EP
TEST2	; S X="//STEP01 EXEC IHS003,AREA=RMT"_$E(1000+ACHSFIRN,2,4) D PADWRITE^ACHSPCC3
END1	;
END3	;
END2	;
END5	; Kill vars, do *PCC5, quit.
FITJCL	;EP - Generate Tail JCL for Fiscal Intemediary.
TEST1	; S X="//IHS003 JOB (1103,SBSP),'PRODUCTION',CLASS=Q,MSGCLASS=H" D PADWRITE^ACHSPCC3
TEST3	; S X="//STEP010.SYSUT1 DD *" D PADWRITE^ACHSPCC3
JOBABEND	;EP
END	;EP
FIHJCL	;EP - Generate Head JCL for Fiscal Intermediary.
ERROR	; ENTRY POINT.
EXIT1	;EP
PCCTJCL	;EP - Generate Tail JCL for Parklawn Computer Center.
PCCHJCL	;EP - Generate Head JCL for Parklawn Computer Center.
BKASK	;
DPSHJCL	;EP - Generate Head JCL for Data center.

Name	Field # of Occurrence
^%ZISC	END3+1, ERROR+3
$$JDT^ACHS	COPYZ+4
$$OS^ACHS	COPYZ+6
RTRN^ACHS	END5+4
TARBKUP^ACHSARCH	COPYZ+7
PADWRITE^ACHSPCC3	PCCHJCL+2, PCCHJCL+4, PCCHJCL+6, PCCHJCL+8, PCCHJCL+10, PCCHJCL+12, PCCHJCL+14, PCCHJCL+16, PCCTJCL+2, PCCTJCL+4 , PCCTJCL+7, PCCTJCL+9, PROD1, PROD2, PROD3, PROD3+4, FITJCL+2, DPSHJCL+2, DPSHJCL+4, DPSHJCL+6 , DPSHJCL+9, DPSTJCL+1
^ACHSPCC5	END5+4
^AFSLODF	END2+4
TX^AFSLODF	END2+8
$$GET1^DIQ	END2+2
$$DIR^XBDIR	BKASK+3, COPYZ+10, COPYZ+13, ENTRETRN+2
$$HTFM^XLFDT	END2+13

Name	Line Occurrences
Function Call: WRITE	Prompt: 7,!!,"WARNING ***** -- TX FILES HAVE NOT BEEN SAVED TO TAPE" Line Location: COPYZ+10
Function Call: WRITE	Prompt: !!,*7,"Make sure an appropriate TAPE (Write Enabled) is in the ",ACHSDNAM," DRIVE",! Line Location: COPYZ+12
Function Call: WRITE	Prompt: !,"Begin Posting to 1166 Open Document file..." Line Location: END2+6
Function Call: WRITE	Prompt: !,"End Posting to 1166 Open Document file..." Line Location: END2+11
Function Call: WRITE	Prompt: !!?10,"ABNORMAL END OF AO CHS SPLIT-OUT / EXPORT",! Line Location: JOBABEND+2
Function Call: WRITE	Prompt: ! Line Location: ENTRETRN+1
Function Call: WRITE	Prompt: !,"AN ERROR HAS OCCURRED == PLEASE DO AGAIN" Line Location: ERROR+2
Function Call: WRITE	Prompt: !!?10,"JOB TERMINATED BY OPERATOR" Line Location: EXIT1+1

Name	Line Occurrences (* Changed, ! Killed)
^ACHSAOP - [#9002079]	END2+2
^ACHSPCC("COUNT"	END+2, END+3!
^ACHSPCC("ODF-POST"	END2+13*
^ACHSZOCT	END+2*
^AUTTAREA - [#9999999.21]	DPSHJCL+1
^AUTTLOC - [#9999999.06]	DPSHJCL+1
^AUTTSITE(1	DPSHJCL+3

Name	Line Occurrences
COPYZ	COPYZ+14
END	COPYZ+10, ENTRETRN+3, ERROR+4, EXIT1+2
END1	END+1, BKASK+2, BKASK+3, BKASK+4, COPYZ+8, COPYZ+14
END3	END1+1

Name	Field # of Occurrence
>> %	END2+3*
ACHSAPN	END5+1!, PCCHJCL+1, PCCHJCL+9
ACHSAREA	END5+1!, PCCHJCL+1
ACHSCT1	END5+1!
ACHSCT2	END5+1!, PCCTJCL+1
ACHSDESC	END5+1!
>> ACHSDHRN	END1+1
>> ACHSDNAM	COPYZ+10, COPYZ+12
>> ACHSDTJL	COPYZ+4*, COPYZ+5
>> ACHSDTYP	COPYZ+5*
ACHSEFDT	END5+1!
>> ACHSEXFN	COPYZ+5*
ACHSFCT	END5+1!
ACHSFIRN	END5+3!, PROD2
>> ACHSFLG	END+1, END1+1, JOBABEND+1*
ACHSGCTR	END5+4!, PCCTJCL+5
ACHSGLBL	END5+1!, DPSHJCL+8
ACHSHASH	END5+1!, PCCTJCL+1
ACHSIO	END5+5!
ACHSJFLG	END+1, COPYZ+1!, COPYZ+10*, END1+1
ACHSMED	END5+2!
ACHSPFX	END5+1!, PCCHJCL+13, PCCTJCL+1, PROD3+3
ACHSPRN	END5+1!, PCCHJCL+5
ACHSPSWD	END5+1!, PCCHJCL+3
ACHSQUIT	END5+3!
ACHSREF	END5+2!
ACHSRR	END5+2!
>> ACHSRTCD	COPYZ+4*, COPYZ+8
ACHSSFX1	END5+2!
ACHSSUF	END5+2!
ACHSUID	END5+1!, PCCHJCL+1
>> ACHSX	PCCHJCL+1, PCCHJCL+3, PCCHJCL+5, PCCHJCL+7, PCCHJCL+9, PCCHJCL+11, PCCTJCL+1, PCCTJCL+6, PCCTJCL+8
ACHSXY	END5+2!
>> ACHSZDIR	COPYZ+6*
>> ACHSZFN	COPYZ+5*, END2+2, END2+7
AFSXPFN	END2+7*, END2+9!
AUOK	END5+1!
DIC	END5+3!
DIR	END5+3!
DT	COPYZ+4, PCCHJCL+13, PCCTJCL+1, PROD3+3
>> DTOUT	BKASK+4
>> DUOUT	BKASK+4
DUZ(2	END2+2, DPSHJCL+1
DX	END5+1!
DY	END5+1!
IO(0	BKASK+1, COPYZ+9, COPYZ+10, COPYZ+11, END2+5, END2+10, ERROR+1
J	END5+2!
L	END5+2!
N	END5+2!
R	END5+2!
U	END2+2, DPSHJCL+1, DPSHJCL+3
X	END5+3!, PCCHJCL+1, PCCHJCL+3, PCCHJCL+5, PCCHJCL+7, PCCHJCL+9, PCCHJCL+11, PCCHJCL+13, PCCHJCL+15, PCCTJCL+1* , PCCTJCL+3, PCCTJCL+6, PCCTJCL+8, PROD1, PROD2, PROD3, PROD3+3, FITJCL+1, DPSHJCL+1, DPSHJCL+3 , DPSHJCL+5, DPSHJCL+7, DPSHJCL+8, DPSTJCL+1
X1	END5+2!
Y	COPYZ+13*, COPYZ+14, END5+3!

Name	Field # of Occurrence
$T(@%^AFSLODF	END2+4