- 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 ---[H[J[2J[HDG53456P 795 printed Feb 19, 2025@00:03:34 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