- 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 Feb 19, 2025@00:26:33 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