source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53456P.m@ 767

Last change on this file since 767 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 772 bytes
Line 
1DG53456P ;ALB/CKN - Post Install for DG*5.3*454; 16 AUG 2002
2 ;;5.3;Registration;**456**; Aug 13,1993
3 ;
4POST ; Entry point for post init
5 ; Update MEANS TEST STATUS file (#408.32)
6 D MES^XPDUTL("*** Updating MEANS TEST STATUS file(#408.32)***")
7 N DIC,DA,DIE,X,Y,FILE,DATA,UPD,DGENDA
8 ; Modify entry #4
9 D MES^XPDUTL(" - Modifying entry #4")
10 S FILE="^DG(408.32,"
11 S DIC=FILE,DIC(0)="N",X=4 D ^DIC
12 I Y<0 D MES^XPDUTL(" ERROR: Entry #4 not updated")
13 E D
14 . S DATA(.01)="MT COPAY EXEMPT",DGENDA=4
15 . S UPD=$$UPD^DGENDBS(408.32,DGENDA,.DATA)
16 ; Modify entry #6
17 D MES^XPDUTL(" - Modifying entry #6")
18 S X=6 D ^DIC
19 I Y<0 D MES^XPDUTL(" ERROR: Entry #6 not updated")
20 E D
21 . S DATA(.01)="MT COPAY REQUIRED",DGENDA=6
22 . S UPD=$$UPD^DGENDBS(408.32,DGENDA,.DATA)
23 Q
Note: See TracBrowser for help on using the repository browser.