TIUCCRP354.m

TIUCCRP354 ; CCRA/PB - TIU CCRA PATCH 354 SETUP;

 ;;1.0;TEXT INTEGRATION UTILITIES;**354**;Jun 20, 1997;Build 24

 ;

 Q

EN1 ; looks up the HSRM COMMUNITY CARE COORDINATION PLAN NOTE TIU note definition, then updates field 4.9 to add a Q command

 N TIUIEN,TIUFDA

 S TIUIEN=$O(^TIU(8925.1,"B","HSRM COMMUNITY CARE COORDINATION PLAN NOTE",""))

 D STATUS(TIUIEN,13)

 Q:$G(TIUIEN)'>0

 S TIUFDA(8925.1,$G(TIUIEN)_",",4.9)="D POST^TIUCCRHL7P2(TIUDA)"

 S TIUFDA(8925.1,$G(TIUIEN)_",",4.1)="D POST1^TIUCCRHL7P2(TIUDA)"

 D UPDATE^DIE("","TIUFDA")

 D STATUS(TIUIEN,11)

 Q

STATUS(IEN,STATUS) ;

 N TIUFDA

 S TIUFDA(8925.1,$G(IEN)_",",.07)=STATUS

 D UPDATE^DIE("","TIUFDA")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---TIUCCRP354   681     printed  Sep 23, 2025@20:15:29                                                                                                                                                                                                   Page 2

TIUCCRP354 ; CCRA/PB - TIU CCRA PATCH 354 SETUP;

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**354**;Jun 20, 1997;Build 24

 +2       ;

 +3        QUIT 

EN1       ; looks up the HSRM COMMUNITY CARE COORDINATION PLAN NOTE TIU note definition, then updates field 4.9 to add a Q command

 +1        NEW TIUIEN,TIUFDA

 +2        SET TIUIEN=$ORDER(^TIU(8925.1,"B","HSRM COMMUNITY CARE COORDINATION PLAN NOTE",""))

 +3        DO STATUS(TIUIEN,13)

 +4        if $GET(TIUIEN)'>0

               QUIT 

 +5        SET TIUFDA(8925.1,$GET(TIUIEN)_",",4.9)="D POST^TIUCCRHL7P2(TIUDA)"

 +6        SET TIUFDA(8925.1,$GET(TIUIEN)_",",4.1)="D POST1^TIUCCRHL7P2(TIUDA)"

 +7        DO UPDATE^DIE("","TIUFDA")

 +8        DO STATUS(TIUIEN,11)

 +9        QUIT 

STATUS(IEN,STATUS) ;

 +1        NEW TIUFDA

 +2        SET TIUFDA(8925.1,$GET(IEN)_",",.07)=STATUS

 +3        DO UPDATE^DIE("","TIUFDA")

 +4        QUIT