Routine: AZAXFCD

Information

AZAXFCD ;IHS/PHXAO/AEF - FIX COVERED DAYS FIELD IN 3P BILL BATCHES

Name	Comments	DBIA/ICR reference
EN	;EP -- MAIN ENTRY POINT
ARCH(NOW,EXPDT,BILL,CD)	;
NOW()	;
PROC(EXPDT)	;
ONE(DA)	;
EXP(EXPDT,OUT,QUIT)	;
EXTDT(Y)	;
TXT	;----- PRINT ROUTINE DESCRIPTION TEXT
DESC	;----- ROUTINE DESCRIPTION

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"PROCESSING BATCH #",EXPDT," ",$$EXTDT($P($G(^ABMDTXST(DUZ(2),EXPDT,0)),U)),"..." Line Location: PROC+13
Function Call: WRITE	Prompt: "." Line Location: PROC+18
Function Call: WRITE	Prompt: !,CNT," BILLS PROCESSED" Line Location: PROC+25
Function Call: WRITE	Prompt: ! Line Location: EXP+16
Function Call: WRITE	Prompt: ! Line Location: EXP+24
Function Call: WRITE	Prompt: ! Line Location: EXP+30
Function Call: WRITE	Prompt: !,$P(X,";;",2) Line Location: TXT+4
Routine Call	%ZIS Line Location: EN+5
Routine Call	DIE Line Location: ONE+10
Routine Call	DIC Line Location: EXP+20
Routine Call	DIR Line Location: EXP+37

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	PROC+21
^ABMDTXST - [#9002274.6]	PROC+13, PROC+16, PROC+19
^AZAX3PBF(	ARCH+18*
^AZAX3PBF(0	ARCH+14, ARCH+15, ARCH+16
^DD("DD"	EXTDT+6

Name	Field # of Occurrence
%	NOW+3~, NOW+5
%I	NOW+3~
BILL	PROC+6~, PROC+19*, PROC+20, PROC+21, PROC+22, PROC+23, ARCH~, ARCH+18
CD	PROC+6~, PROC+21*, PROC+22, ARCH~, ARCH+18
CNT	PROC+6~, PROC+10, PROC+17, PROC+18, PROC+25
D0	EXP+11~
D1	PROC+6~, PROC+15, PROC+16, PROC+19
DA	ONE~, EXP+11~, EXP+25*, EXP+41
DIC	EXP+11~, EXP+17*
DIC("S"	EXP+19*
DIC(0	EXP+18*
DIE	ONE+6~, ONE+8*
DIQ	EXP+11~
DIQ(0	EXP+27*
DIR	EXP+11~
DIR("A"	EXP+31, EXP+32, EXP+33, EXP+34
DIR("B"	EXP+35*
DIR(0	EXP+36*
DIROUT	EXP+11~, EXP+38
DIRUT	EXP+11~, EXP+38
DR	ONE+6~, ONE+9, EXP+11~, EXP+26
DTOUT	EXP+11~, EXP+21, EXP+38
DUOUT	EXP+11~, EXP+21, EXP+38
DUZ	ARCH+18
DUZ(2	PROC+13, PROC+16, PROC+19, PROC+21, ONE+8, EXP+17, ARCH+18
EXPDT	EN+2~, EN+10, EN+14, PROC~, PROC+8, PROC+13, PROC+16, PROC+19, PROC+22, EXP~ , EXP+41*, ARCH~, ARCH+18
I	TXT+2~, TXT+3*
NOW	PROC+6~, PROC+11*, PROC+22, ARCH~, ARCH+18
OUT	EN+2~, EN+10, EN+12, EXP~, EXP+13, EXP+38, EXP+39
QUIT	EN+2~, EN+9, EN+10, EN+11, EXP~, EXP+14, EXP+21, EXP+22
U	PROC+13, PROC+19, PROC+21, ARCH+18
X	ONE+6~, EXP+11~, TXT+2~, TXT+3*, TXT+4, NOW+3~
Y	ONE+6~, EXP+11~, EXP+21, EXP+25, EXP+38, EXTDT~, EXTDT+7

Name	Field # of Occurrence
$T(DESC+I	TXT+3