TIU372P ;XAN/AJB - MEDICATION OBJECT UPDATE ;Aug 29, 2025@06:54:03
;;1.0;TEXT INTEGRATION UTILITIES;**372**;Jun 20, 1997;Build 5
;
; Reference to File #19 in ICR #10156
; Reference to $$FIND1^DIC in ICR #2051
; Reference to *^XPAR in ICR#2263
;
Q
POST ; post-install
D EN^XPAR("SYS","TIUMOBJ STATUS",1,1)
N ERR,FDA,IEN
S IEN=$$FIND1^DIC(19,"","","TIUMOBJ UTILITY")
; update the option
S:'IEN IEN=$$FIND1^DIC(19,"","","TIUMOBJ TESTER") Q:IEN'>0
S FDA(19,IEN_",",.01)="TIUMOBJ UTILITY"
S FDA(19,IEN_",",1)="Medication Object Manager"
S FDA(19,IEN_",",10.1)="Med Obj Manager"
S FDA(19,IEN_",",1.1)="MEDICATION OBJECT MANAGER"
S FDA(19,IEN_",",25)="EN^TIUMOBJLM"
D UPDATE^DIE("","FDA","IEN","ERR")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIU372P 736 printed Jan 29, 2026@15:37:28 Page 2
TIU372P ;XAN/AJB - MEDICATION OBJECT UPDATE ;Aug 29, 2025@06:54:03
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**372**;Jun 20, 1997;Build 5
+2 ;
+3 ; Reference to File #19 in ICR #10156
+4 ; Reference to $$FIND1^DIC in ICR #2051
+5 ; Reference to *^XPAR in ICR#2263
+6 ;
+7 QUIT
POST ; post-install
+1 DO EN^XPAR("SYS","TIUMOBJ STATUS",1,1)
+2 NEW ERR,FDA,IEN
+3 SET IEN=$$FIND1^DIC(19,"","","TIUMOBJ UTILITY")
+4 ; update the option
+5 if 'IEN
SET IEN=$$FIND1^DIC(19,"","","TIUMOBJ TESTER")
if IEN'>0
QUIT
+6 SET FDA(19,IEN_",",.01)="TIUMOBJ UTILITY"
+7 SET FDA(19,IEN_",",1)="Medication Object Manager"
+8 SET FDA(19,IEN_",",10.1)="Med Obj Manager"
+9 SET FDA(19,IEN_",",1.1)="MEDICATION OBJECT MANAGER"
+10 SET FDA(19,IEN_",",25)="EN^TIUMOBJLM"
+11 DO UPDATE^DIE("","FDA","IEN","ERR")
+12 QUIT
