DGYPREG3 ;ALB/REW - POST-INIT CONVERSION/REPORTING ;5-APR-93
;;5.3;Registration;;Aug 13, 1993
;
ENDLOOP ;
I '$D(DGDOMB)&('$D(DGDOCFL)) N DGDOMB,DGDOCFL S (DGDOMB,DGDOCFL)=1
I $G(DGDOMB) D
.D TOTVAREP^DGYPREG1
.W:'$D(ZTQUEUED) !?5,"You will be receiving a Mail Message indicating records whose "
.W:'$D(ZTQUEUED) !?5,"monetary benefit amount fields can not be converted into the"
.W:'$D(ZTQUEUED) !?5,"TOTAL ANNUAL VA CHECK AMOUNT field",!!
;
I $G(DGDOCFL) D
.D CFLREP^DGYPREG1
.W:'$D(ZTQUEUED) !?5,"You will be receiving a Mail Message regarding the formatting "
.W:'$D(ZTQUEUED) !?5,"of your Claim Folder Location fields in the Patient File"
K DGCFLCN,DGCFLBD,DGTOTCN,DGTOTBD
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGYPREG3 711 printed Nov 22, 2024@18:10:31 Page 2
DGYPREG3 ;ALB/REW - POST-INIT CONVERSION/REPORTING ;5-APR-93
+1 ;;5.3;Registration;;Aug 13, 1993
+2 ;
ENDLOOP ;
+1 IF '$DATA(DGDOMB)&('$DATA(DGDOCFL))
NEW DGDOMB,DGDOCFL
SET (DGDOMB,DGDOCFL)=1
+2 IF $GET(DGDOMB)
Begin DoDot:1
+3 DO TOTVAREP^DGYPREG1
+4 if '$DATA(ZTQUEUED)
WRITE !?5,"You will be receiving a Mail Message indicating records whose "
+5 if '$DATA(ZTQUEUED)
WRITE !?5,"monetary benefit amount fields can not be converted into the"
+6 if '$DATA(ZTQUEUED)
WRITE !?5,"TOTAL ANNUAL VA CHECK AMOUNT field",!!
End DoDot:1
+7 ;
+8 IF $GET(DGDOCFL)
Begin DoDot:1
+9 DO CFLREP^DGYPREG1
+10 if '$DATA(ZTQUEUED)
WRITE !?5,"You will be receiving a Mail Message regarding the formatting "
+11 if '$DATA(ZTQUEUED)
WRITE !?5,"of your Claim Folder Location fields in the Patient File"
End DoDot:1
+12 KILL DGCFLCN,DGCFLBD,DGTOTCN,DGTOTBD
+13 QUIT
