TIUP359.m

TIUP359 ;ISP/RFR - Install TIU Objects ;Jun 07, 2023@15:11

 ;;1.0;TEXT INTEGRATION UTILITIES;**359**;Jun 20, 1997;Build 17

 Q

POST ; Install TIU/Health Summary objects

 N TIUSTATUS,TIULINE,TIUOBJ

 F TIULINE=1:1  D  Q:TIUOBJ=""

 .S TIUOBJ=$P($T(OBJECTS+TIULINE),";;",2)

 .Q:TIUOBJ=""

 .D BMES^XPDUTL("  Creating object for "_TIUOBJ_"...")

 .S TIUSTATUS=$$CRTIUHS^TIUCROBJ(TIUOBJ,1)

 .I TIUSTATUS=1 D MES^XPDUTL("    Successfully created")

 .I '+TIUSTATUS D MES^XPDUTL("    "_$P(TIUSTATUS,U,2))

 Q

OBJECTS ; List of TIU/Health Summary objects to install

 ;;VA-MAS DEM PRONOUNS (TIU)

 ;;VA-MAS DEM GENDER IDENTITY (TIU)

 ;;VA-MAS DEM SEXUAL ORIENTATION (TIU)

 ;;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---TIUP359   682     printed  Apr 09, 2024@21:47:19                                                                                                                                                                                                      Page 2

TIUP359   ;ISP/RFR - Install TIU Objects ;Jun 07, 2023@15:11

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**359**;Jun 20, 1997;Build 17

 +2        QUIT 

POST      ; Install TIU/Health Summary objects

 +1        NEW TIUSTATUS,TIULINE,TIUOBJ

 +2        FOR TIULINE=1:1

               Begin DoDot:1

 +3                SET TIUOBJ=$PIECE($TEXT(OBJECTS+TIULINE),";;",2)

 +4                if TIUOBJ=""

                       QUIT 

 +5                DO BMES^XPDUTL("  Creating object for "_TIUOBJ_"...")

 +6                SET TIUSTATUS=$$CRTIUHS^TIUCROBJ(TIUOBJ,1)

 +7                IF TIUSTATUS=1

                       DO MES^XPDUTL("    Successfully created")

 +8                IF '+TIUSTATUS

                       DO MES^XPDUTL("    "_$PIECE(TIUSTATUS,U,2))

               End DoDot:1

               if TIUOBJ=""

                   QUIT 

 +9        QUIT 

OBJECTS   ; List of TIU/Health Summary objects to install

 +1       ;;VA-MAS DEM PRONOUNS (TIU)

 +2       ;;VA-MAS DEM GENDER IDENTITY (TIU)

 +3       ;;VA-MAS DEM SEXUAL ORIENTATION (TIU)

 +4       ;;

 +5        QUIT