Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGYPREG3

DGYPREG3.m

Go to the documentation of this file.
  1. DGYPREG3 ;ALB/REW - POST-INIT CONVERSION/REPORTING ;5-APR-93
  1. ;;5.3;Registration;;Aug 13, 1993
  1. ;
  1. ENDLOOP ;
  1. I '$D(DGDOMB)&('$D(DGDOCFL)) N DGDOMB,DGDOCFL S (DGDOMB,DGDOCFL)=1
  1. I $G(DGDOMB) D
  1. .D TOTVAREP^DGYPREG1
  1. .W:'$D(ZTQUEUED) !?5,"You will be receiving a Mail Message indicating records whose "
  1. .W:'$D(ZTQUEUED) !?5,"monetary benefit amount fields can not be converted into the"
  1. .W:'$D(ZTQUEUED) !?5,"TOTAL ANNUAL VA CHECK AMOUNT field",!!
  1. ;
  1. I $G(DGDOCFL) D
  1. .D CFLREP^DGYPREG1
  1. .W:'$D(ZTQUEUED) !?5,"You will be receiving a Mail Message regarding the formatting "
  1. .W:'$D(ZTQUEUED) !?5,"of your Claim Folder Location fields in the Patient File"
  1. K DGCFLCN,DGCFLBD,DGTOTCN,DGTOTBD
  1. Q