DG53456P.m

DG53456P ;ALB/CKN - Post Install for DG*5.3*454; 16 AUG 2002

 ;;5.3;Registration;**456**; Aug 13,1993

 ;

POST ; Entry point for post init

 ; Update MEANS TEST STATUS file (#408.32)

 D MES^XPDUTL("*** Updating MEANS TEST STATUS file(#408.32)***")

 N DIC,DA,DIE,X,Y,FILE,DATA,UPD,DGENDA

 ; Modify entry #4

 D MES^XPDUTL("  - Modifying entry #4")

 S FILE="^DG(408.32,"

 S DIC=FILE,DIC(0)="N",X=4 D ^DIC

 I Y<0 D MES^XPDUTL("    ERROR: Entry #4 not updated")

 E  D

 . S DATA(.01)="MT COPAY EXEMPT",DGENDA=4

 . S UPD=$$UPD^DGENDBS(408.32,DGENDA,.DATA)

 ; Modify entry #6

 D MES^XPDUTL("  - Modifying entry #6")

 S X=6 D ^DIC

 I Y<0 D MES^XPDUTL("    ERROR: Entry #6 not updated")

 E  D

 . S DATA(.01)="MT COPAY REQUIRED",DGENDA=6

 . S UPD=$$UPD^DGENDBS(408.32,DGENDA,.DATA)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53456P   795     printed  Apr 09, 2024@21:55:45                                                                                                                                                                                                     Page 2

DG53456P  ;ALB/CKN - Post Install for DG*5.3*454; 16 AUG 2002

 +1       ;;5.3;Registration;**456**; Aug 13,1993

 +2       ;

POST      ; Entry point for post init

 +1       ; Update MEANS TEST STATUS file (#408.32)

 +2        DO MES^XPDUTL("*** Updating MEANS TEST STATUS file(#408.32)***")

 +3        NEW DIC,DA,DIE,X,Y,FILE,DATA,UPD,DGENDA

 +4       ; Modify entry #4

 +5        DO MES^XPDUTL("  - Modifying entry #4")

 +6        SET FILE="^DG(408.32,"

 +7        SET DIC=FILE

           SET DIC(0)="N"

           SET X=4

           DO ^DIC

 +8        IF Y<0

               DO MES^XPDUTL("    ERROR: Entry #4 not updated")

 +9       IF '$TEST

               Begin DoDot:1

 +10               SET DATA(.01)="MT COPAY EXEMPT"

                   SET DGENDA=4

 +11               SET UPD=$$UPD^DGENDBS(408.32,DGENDA,.DATA)

               End DoDot:1

 +12      ; Modify entry #6

 +13       DO MES^XPDUTL("  - Modifying entry #6")

 +14       SET X=6

           DO ^DIC

 +15       IF Y<0

               DO MES^XPDUTL("    ERROR: Entry #6 not updated")

 +16      IF '$TEST

               Begin DoDot:1

 +17               SET DATA(.01)="MT COPAY REQUIRED"

                   SET DGENDA=6

 +18               SET UPD=$$UPD^DGENDBS(408.32,DGENDA,.DATA)

               End DoDot:1

 +19       QUIT