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 ---[H[J[2J[HTIUP359 682 printed Nov 22, 2024@17:52:59 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
