- TIU365P ;XAN/AJB - MEDICATION OBJECT UPDATE ;Aug 02, 2024@13:53:36
- ;;1.0;TEXT INTEGRATION UTILITIES;**365**;Jun 20, 1997;Build 1
- ;
- Q
- POST ; post-install
- D EN^XPAR("SYS","TIUMOBJ STATUS",1,1)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIU365P 205 printed Mar 13, 2025@21:43:33 Page 2
- TIU365P ;XAN/AJB - MEDICATION OBJECT UPDATE ;Aug 02, 2024@13:53:36
- +1 ;;1.0;TEXT INTEGRATION UTILITIES;**365**;Jun 20, 1997;Build 1
- +2 ;
- +3 QUIT
- POST ; post-install
- +1 DO EN^XPAR("SYS","TIUMOBJ STATUS",1,1)
- +2 QUIT