SD53459P ;ALB/MRY - Pre/Post-Install; 9/29/05
;;5.3;Scheduling;**459**;Aug 13, 1993
;
;
ENV ;Main entry point for Environment check point.
;
S XPDABORT=""
D PROGCHK(.XPDABORT) ;checks programmer variables
I XPDABORT="" K XPDABORT
Q
;
;
PRE ;Main entry point for Pre-init items.
;
;Do AmbCare pre-install (copied from SD53142)
;Remove ERROR CODE DESCRIPTION (field #11) as an identifier of the
; TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE file (#409.76)
; (this causes problems when installing error codes)
I ($D(^DD(409.76,0,"ID",11))) D
.N TMP,X
.S X(1)=" "
.S X(2)="Removing ERROR CODE DESCRIPTION (field #11) as an identifier"
.S X(3)="of the TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE file"
.S X(4)="(#409.76) as it causes problems when installing error codes."
.S X(5)=" "
.D MES^XPDUTL(.X) K X
.K ^DD(409.76,0,"ID",11)
.Q:($D(^DD(409.76,0,"ID")))
.S TMP=$P(^SD(409.76,0),U,2)
.S TMP=$TR(TMP,"I","")
.S $P(^SD(409.76,0),U,2)=TMP
.Q
Q
;
;
;
PROGCHK(XPDABORT) ;checks for necessary programmer variables
;
I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") DO
.D BMES^XPDUTL("*****")
.D MES^XPDUTL("Your programming variables are not set up properly.")
.D MES^XPDUTL("Installation aborted.")
.D MES^XPDUTL("*****")
.S XPDABORT=2
Q
;
;
POST ;Main entry point for Post-init items.
;
;Make ERROR CODE DESCRIPTION (field #11) an identifier of the
; TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE file (#409.76)
; (this was removed by the pre init routine)
I ('$D(^DD(409.76,0,"ID",11))) D
.N TMP
.S ^DD(409.76,0,"ID",11)="D EN^DDIOL($P(^(1),U,1))"
.S TMP=$P(^SD(409.76,0),U,2)
.S TMP=$TR(TMP,"I","")
.S $P(^SD(409.76,0),U,2)=TMP_"I"
;
;Re-queue Ambcare records
D POST^SD53459A
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53459P 1796 printed Apr 09, 2024@21:49:38 Page 2
SD53459P ;ALB/MRY - Pre/Post-Install; 9/29/05
+1 ;;5.3;Scheduling;**459**;Aug 13, 1993
+2 ;
+3 ;
ENV ;Main entry point for Environment check point.
+1 ;
+2 SET XPDABORT=""
+3 ;checks programmer variables
DO PROGCHK(.XPDABORT)
+4 IF XPDABORT=""
KILL XPDABORT
+5 QUIT
+6 ;
+7 ;
PRE ;Main entry point for Pre-init items.
+1 ;
+2 ;Do AmbCare pre-install (copied from SD53142)
+3 ;Remove ERROR CODE DESCRIPTION (field #11) as an identifier of the
+4 ; TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE file (#409.76)
+5 ; (this causes problems when installing error codes)
+6 IF ($DATA(^DD(409.76,0,"ID",11)))
Begin DoDot:1
+7 NEW TMP,X
+8 SET X(1)=" "
+9 SET X(2)="Removing ERROR CODE DESCRIPTION (field #11) as an identifier"
+10 SET X(3)="of the TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE file"
+11 SET X(4)="(#409.76) as it causes problems when installing error codes."
+12 SET X(5)=" "
+13 DO MES^XPDUTL(.X)
KILL X
+14 KILL ^DD(409.76,0,"ID",11)
+15 if ($DATA(^DD(409.76,0,"ID")))
QUIT
+16 SET TMP=$PIECE(^SD(409.76,0),U,2)
+17 SET TMP=$TRANSLATE(TMP,"I","")
+18 SET $PIECE(^SD(409.76,0),U,2)=TMP
+19 QUIT
End DoDot:1
+20 QUIT
+21 ;
+22 ;
+23 ;
PROGCHK(XPDABORT) ;checks for necessary programmer variables
+1 ;
+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.")
+6 DO MES^XPDUTL("*****")
+7 SET XPDABORT=2
End DoDot:1
+8 QUIT
+9 ;
+10 ;
POST ;Main entry point for Post-init items.
+1 ;
+2 ;Make ERROR CODE DESCRIPTION (field #11) an identifier of the
+3 ; TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE file (#409.76)
+4 ; (this was removed by the pre init routine)
+5 IF ('$DATA(^DD(409.76,0,"ID",11)))
Begin DoDot:1
+6 NEW TMP
+7 SET ^DD(409.76,0,"ID",11)="D EN^DDIOL($P(^(1),U,1))"
+8 SET TMP=$PIECE(^SD(409.76,0),U,2)
+9 SET TMP=$TRANSLATE(TMP,"I","")
+10 SET $PIECE(^SD(409.76,0),U,2)=TMP_"I"
End DoDot:1
+11 ;
+12 ;Re-queue Ambcare records
+13 DO POST^SD53459A
+14 QUIT
