source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SD53459P.m@ 1078

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

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1SD53459P ;ALB/MRY - Pre/Post-Install; 9/29/05
2 ;;5.3;Scheduling;**459**;Aug 13, 1993
3 ;
4 ;
5ENV ;Main entry point for Environment check point.
6 ;
7 S XPDABORT=""
8 D PROGCHK(.XPDABORT) ;checks programmer variables
9 I XPDABORT="" K XPDABORT
10 Q
11 ;
12 ;
13PRE ;Main entry point for Pre-init items.
14 ;
15 ;Do AmbCare pre-install (copied from SD53142)
16 ;Remove ERROR CODE DESCRIPTION (field #11) as an identifier of the
17 ; TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE file (#409.76)
18 ; (this causes problems when installing error codes)
19 I ($D(^DD(409.76,0,"ID",11))) D
20 .N TMP,X
21 .S X(1)=" "
22 .S X(2)="Removing ERROR CODE DESCRIPTION (field #11) as an identifier"
23 .S X(3)="of the TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE file"
24 .S X(4)="(#409.76) as it causes problems when installing error codes."
25 .S X(5)=" "
26 .D MES^XPDUTL(.X) K X
27 .K ^DD(409.76,0,"ID",11)
28 .Q:($D(^DD(409.76,0,"ID")))
29 .S TMP=$P(^SD(409.76,0),U,2)
30 .S TMP=$TR(TMP,"I","")
31 .S $P(^SD(409.76,0),U,2)=TMP
32 .Q
33 Q
34 ;
35 ;
36 ;
37PROGCHK(XPDABORT) ;checks for necessary programmer variables
38 ;
39 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") DO
40 .D BMES^XPDUTL("*****")
41 .D MES^XPDUTL("Your programming variables are not set up properly.")
42 .D MES^XPDUTL("Installation aborted.")
43 .D MES^XPDUTL("*****")
44 .S XPDABORT=2
45 Q
46 ;
47 ;
48POST ;Main entry point for Post-init items.
49 ;
50 ;Make ERROR CODE DESCRIPTION (field #11) an identifier of the
51 ; TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE file (#409.76)
52 ; (this was removed by the pre init routine)
53 I ('$D(^DD(409.76,0,"ID",11))) D
54 .N TMP
55 .S ^DD(409.76,0,"ID",11)="D EN^DDIOL($P(^(1),U,1))"
56 .S TMP=$P(^SD(409.76,0),U,2)
57 .S TMP=$TR(TMP,"I","")
58 .S $P(^SD(409.76,0),U,2)=TMP_"I"
59 ;
60 ;Re-queue Ambcare records
61 D POST^SD53459A
62 Q
Note: See TracBrowser for help on using the repository browser.