TIU341P.m

TIU341P ;SPFO/AJB - Environment Check & Post Install ;Jul 14, 2021@07:11:36

 ;;1.0;TEXT INTEGRATION UTILITIES;**341**;Jun 20, 1997;Build 23

 ;

 Q

 ;

POST ; clean up object(s) from previous installs & create new objects

 ; clean & rename object(s) if necessary

 N OBJECT,RES,X,Y F OBJECT="PULSE OXIMETRY","VA-WH EXPECTED DUE DATE" D

 . N IEN,METHOD

 . S IEN=0 F  S IEN=$O(^TIU(8925.1,"B",OBJECT,IEN)) Q:'+IEN  D

 . . I $P(^TIU(8925.1,IEN,0),U,4)'="O" Q  ; not an object

 . . S METHOD=$S(OBJECT="PULSE OXIMETRY":"S X=$$PO2^TIULO(+$G(DFN))",1:"S X=$$GETEDD^WVRPCPT(DFN)")

 . . N NODE9 S NODE9=$G(^TIU(8925.1,IEN,9))

 . . I METHOD=NODE9 D  Q

 . . . N DA,DIK S DA=IEN,DIK="^TIU(8925.1," D ^DIK ; remove object with same method

 . . ; different method, make a copy then remove

 . . N NODE0 S NODE0=$G(^TIU(8925.1,IEN,0)) I +$P(NODE0,U,5) N POWNER S POWNER=$P(NODE0,U,5)

 . . ; create a copy, increment copy until successful

 . . N COPY F COPY=1:1 S RES=$$CROBJ^TIUCROBJ($P(NODE0,U)_" COPY ("_COPY_")","","",NODE9,$G(POWNER)) Q:+RES

 . . N DA,DIK S DA=IEN,DIK="^TIU(8925.1," D ^DIK ; remove original

 ; install objects

 F X=1:1 S Y=$P($T(OBJECTS+X),";;",2) Q:Y=""  D

 . S RES=$$CROBJ^TIUCROBJ($P(Y,U),$P(Y,U,2),$P(Y,U,3),$P(Y,";",2))

 . I '+RES D BMES^XPDUTL(RES) S XPDABORT=2 Q

 . D BMES^XPDUTL($P(Y,U)_" object created successfully.")

 Q

 ;

LU(FILE,NAME,FLAGS,SCREEN,INDEXES) ;

 Q $$FIND1^DIC(FILE,"",$G(FLAGS),NAME,$G(INDEXES),$G(SCREEN))

 ;

OBJECTS ;

 ;;PULSE OXIMETRY^POX^^;S X=$$PO2^TIULO(+$G(DFN))

 ;;VA-WH EXPECTED DUE DATE^EDD^EXPECTED DUE DATE^;S X=$$GETEDD^WVRPCPT(DFN)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---TIU341P   1611     printed  Apr 09, 2024@21:41:48                                                                                                                                                                                                     Page 2

TIU341P   ;SPFO/AJB - Environment Check & Post Install ;Jul 14, 2021@07:11:36

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**341**;Jun 20, 1997;Build 23

 +2       ;

 +3        QUIT 

 +4       ;

POST      ; clean up object(s) from previous installs & create new objects

 +1       ; clean & rename object(s) if necessary

 +2        NEW OBJECT,RES,X,Y

           FOR OBJECT="PULSE OXIMETRY","VA-WH EXPECTED DUE DATE"

               Begin DoDot:1

 +3                NEW IEN,METHOD

 +4                SET IEN=0

                   FOR 

                       SET IEN=$ORDER(^TIU(8925.1,"B",OBJECT,IEN))

                       if '+IEN

                           QUIT 

                       Begin DoDot:2

 +5       ; not an object

                           IF $PIECE(^TIU(8925.1,IEN,0),U,4)'="O"

                               QUIT 

 +6                        SET METHOD=$SELECT(OBJECT="PULSE OXIMETRY":"S X=$$PO2^TIULO(+$G(DFN))",1:"S X=$$GETEDD^WVRPCPT(DFN)")

 +7                        NEW NODE9

                           SET NODE9=$GET(^TIU(8925.1,IEN,9))

 +8                        IF METHOD=NODE9

                               Begin DoDot:3

 +9       ; remove object with same method

                                   NEW DA,DIK

                                   SET DA=IEN

                                   SET DIK="^TIU(8925.1,"

                                   DO ^DIK

                               End DoDot:3

                               QUIT 

 +10      ; different method, make a copy then remove

 +11                       NEW NODE0

                           SET NODE0=$GET(^TIU(8925.1,IEN,0))

                           IF +$PIECE(NODE0,U,5)

                               NEW POWNER

                               SET POWNER=$PIECE(NODE0,U,5)

 +12      ; create a copy, increment copy until successful

 +13                       NEW COPY

                           FOR COPY=1:1

                               SET RES=$$CROBJ^TIUCROBJ($PIECE(NODE0,U)_" COPY ("_COPY_")","","",NODE9,$GET(POWNER))

                               if +RES

                                   QUIT 

 +14      ; remove original

                           NEW DA,DIK

                           SET DA=IEN

                           SET DIK="^TIU(8925.1,"

                           DO ^DIK

                       End DoDot:2

               End DoDot:1

 +15      ; install objects

 +16       FOR X=1:1

               SET Y=$PIECE($TEXT(OBJECTS+X),";;",2)

               if Y=""

                   QUIT 

               Begin DoDot:1

 +17               SET RES=$$CROBJ^TIUCROBJ($PIECE(Y,U),$PIECE(Y,U,2),$PIECE(Y,U,3),$PIECE(Y,";",2))

 +18               IF '+RES

                       DO BMES^XPDUTL(RES)

                       SET XPDABORT=2

                       QUIT 

 +19               DO BMES^XPDUTL($PIECE(Y,U)_" object created successfully.")

               End DoDot:1

 +20       QUIT 

 +21      ;

LU(FILE,NAME,FLAGS,SCREEN,INDEXES) ;

 +1        QUIT $$FIND1^DIC(FILE,"",$GET(FLAGS),NAME,$GET(INDEXES),$GET(SCREEN))

 +2       ;

OBJECTS   ;

 +1       ;;PULSE OXIMETRY^POX^^;S X=$$PO2^TIULO(+$G(DFN))

 +2       ;;VA-WH EXPECTED DUE DATE^EDD^EXPECTED DUE DATE^;S X=$$GETEDD^WVRPCPT(DFN)

 +3        QUIT