TIU10278 ;BP-OIFO/JME - POST INSTALL FOR PATCH TIU*1.0*278 ; Compiled September 20, 2011 8:50
;;1.0;TEXT INTEGRATION UTILITIES;**278**;Feb 20, 2013;Build 5
;
EN ;
D EN1,EN2 Q
EN1
N DA,NAME
S DA=0 F S DA=$O(^TIU(8925.1,DA)) Q:'DA D
. S NAME=$P(^TIU(8925.1,DA,0),U,1)
. D KACL^TIUDD1(NAME,.01)
. D SACL^TIUDD1(NAME,.01)
Q
EN2
N DA,TIUARR
S DA=$O(^TIU(8927.1,"B","JJS WA BS ACT",0)) Q:DA=""
I ^TIU(8927.1,DA,10,4,0)'="4 = Walks Freguently" Q
S TIUARR("JJS WA BS ACT",1,0)="1 = Bedfast"
S TIUARR("JJS WA BS ACT",2,0)="2 = Chairfast"
S TIUARR("JJS WA BS ACT",3,0)="3 = Walks Occasionally"
S TIUARR("JJS WA BS ACT",4,0)="4 = Walks Frequently"
D WP^DIE(8927.1,DA_",",10,"K","TIUARR(""JJS WA BS ACT"")")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIU10278 741 printed Dec 13, 2024@02:38:17 Page 2
TIU10278 ;BP-OIFO/JME - POST INSTALL FOR PATCH TIU*1.0*278 ; Compiled September 20, 2011 8:50
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**278**;Feb 20, 2013;Build 5
+2 ;
EN ;
+1 DO EN1
DO EN2
QUIT
EN1 +1 NEW DA,NAME
+2 SET DA=0
FOR
SET DA=$ORDER(^TIU(8925.1,DA))
if 'DA
QUIT
Begin DoDot:1
+3 SET NAME=$PIECE(^TIU(8925.1,DA,0),U,1)
+4 DO KACL^TIUDD1(NAME,.01)
+5 DO SACL^TIUDD1(NAME,.01)
End DoDot:1
+6 QUIT
EN2 +1 NEW DA,TIUARR
+2 SET DA=$ORDER(^TIU(8927.1,"B","JJS WA BS ACT",0))
if DA=""
QUIT
+3 IF ^TIU(8927.1,DA,10,4,0)'="4 = Walks Freguently"
QUIT
+4 SET TIUARR("JJS WA BS ACT",1,0)="1 = Bedfast"
+5 SET TIUARR("JJS WA BS ACT",2,0)="2 = Chairfast"
+6 SET TIUARR("JJS WA BS ACT",3,0)="3 = Walks Occasionally"
+7 SET TIUARR("JJS WA BS ACT",4,0)="4 = Walks Frequently"
+8 DO WP^DIE(8927.1,DA_",",10,"K","TIUARR(""JJS WA BS ACT"")")
+9 QUIT
