DGYPREG3.m

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 ---DGYPREG3   711     printed  Apr 09, 2024@21:40:30                                                                                                                                                                                                     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