MMRSP4.m

MMRSP4 ;LEIDOS/TCK - Post install to change 9.4 ; 7/22/16 9:05am

 ;;1.0;MDRO TOOLS REPORTS MENU;**4**;Mar 22, 2009;Build 130

 ;

 Q

 ;

EN ;

 N FDA,SB

 I '$D(^DIC(9.4,"B","MRSA INITIATIVE REPORTS")) Q

 I $D(^DIC(9.4,"B","MRSA INITIATIVE REPORTS")) D

 .S SB="",SB=$O(^DIC(9.4,"B","MRSA INITIATIVE REPORTS",SB))

 .I $G(SB)>0 S SB=SB_",",FDA(1,9.4,SB,.01)="MDRO INITIATIVE REPORTS"

 .D UPDATE^DIE("","FDA(1)","SB","LRMSG")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MMRSP4   434     printed  Apr 09, 2024@21:17:14                                                                                                                                                                                                       Page 2

MMRSP4    ;LEIDOS/TCK - Post install to change 9.4 ; 7/22/16 9:05am

 +1       ;;1.0;MDRO TOOLS REPORTS MENU;**4**;Mar 22, 2009;Build 130

 +2       ;

 +3        QUIT 

 +4       ;

EN        ;

 +1        NEW FDA,SB

 +2        IF '$DATA(^DIC(9.4,"B","MRSA INITIATIVE REPORTS"))

               QUIT 

 +3        IF $DATA(^DIC(9.4,"B","MRSA INITIATIVE REPORTS"))

               Begin DoDot:1

 +4                SET SB=""

                   SET SB=$ORDER(^DIC(9.4,"B","MRSA INITIATIVE REPORTS",SB))

 +5                IF $GET(SB)>0

                       SET SB=SB_","

                       SET FDA(1,9.4,SB,.01)="MDRO INITIATIVE REPORTS"

 +6                DO UPDATE^DIE("","FDA(1)","SB","LRMSG")

               End DoDot:1

 +7        QUIT