- DGJ1P3 ;ALB/MRY - Patch #3 Environment Check ; 8/23/04 10:04 AM
- ;;1.0;Incomplete Records Tracking;**3**;Jun 25, 2001
- ;
- EN ;
- S XPDABORT=""
- I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D G ABRT
- . D BMES^XPDUTL("*****")
- . D MES^XPDUTL("Your programming variables are not set up properly.")
- . D MES^XPDUTL("Installation aborted.")
- W !!,">> Environment check complete and okay."
- Q
- ;
- ABRT ; Abort transport, but leave in ^XTMP.
- S ^XPDABORT=2 Q
- ;
- PRE ; Kill DD field (#10.04) of file (#393). Rebuild in Build.
- S DIK="^DD(393,",DA=10.04,DA(1)=393
- D ^DIK
- Q
- ;
- POST ;Post init - Disable Corefls option.
- N DIC,TEXT
- S DIC="^DIC(19,",DIC(0)="X"
- S X="DGJ LOCAL VENDOR ADD" D
- . D ^DIC Q:Y<0 D
- .. D BMES^XPDUTL("*****")
- .. D MES^XPDUTL("Putting ["_X_"] option - 'out of order'")
- .. S TEXT="CoreFLS Disabled (DGJ*1*3)"
- .. D OUT^XPDMENU(X,TEXT)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGJ1P3 893 printed Feb 18, 2025@23:26:50 Page 2
- DGJ1P3 ;ALB/MRY - Patch #3 Environment Check ; 8/23/04 10:04 AM
- +1 ;;1.0;Incomplete Records Tracking;**3**;Jun 25, 2001
- +2 ;
- EN ;
- +1 SET XPDABORT=""
- +2 IF '$GET(DUZ)!($GET(DUZ(0))'="@")!('$GET(DT))!($GET(U)'="^")
- Begin DoDot:1
- +3 DO BMES^XPDUTL("*****")
- +4 DO MES^XPDUTL("Your programming variables are not set up properly.")
- +5 DO MES^XPDUTL("Installation aborted.")
- End DoDot:1
- GOTO ABRT
- +6 WRITE !!,">> Environment check complete and okay."
- +7 QUIT
- +8 ;
- ABRT ; Abort transport, but leave in ^XTMP.
- +1 SET ^XPDABORT=2
- QUIT
- +2 ;
- PRE ; Kill DD field (#10.04) of file (#393). Rebuild in Build.
- +1 SET DIK="^DD(393,"
- SET DA=10.04
- SET DA(1)=393
- +2 DO ^DIK
- +3 QUIT
- +4 ;
- POST ;Post init - Disable Corefls option.
- +1 NEW DIC,TEXT
- +2 SET DIC="^DIC(19,"
- SET DIC(0)="X"
- +3 SET X="DGJ LOCAL VENDOR ADD"
- Begin DoDot:1
- +4 DO ^DIC
- if Y<0
- QUIT
- Begin DoDot:2
- +5 DO BMES^XPDUTL("*****")
- +6 DO MES^XPDUTL("Putting ["_X_"] option - 'out of order'")
- +7 SET TEXT="CoreFLS Disabled (DGJ*1*3)"
- +8 DO OUT^XPDMENU(X,TEXT)
- End DoDot:2
- End DoDot:1
- +9 QUIT