SD53459P.m

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 ---SD53459P   1796     printed  Mar 13, 2025@21:50:07                                                                                                                                                                                                    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