NUR4PRE.m

NUR4PRE ;HIRMFO/FT-NUR*4*4 Pre-init ; 8/14/97 12:31

 ;;4.0;NURSING SERVICE;**4**;Apr 25, 1997

 D BMES^XPDUTL("Changing Menu Text value for [NURCPE-VIT CAT/QUAL TABLE] option.")

 S DA=$O(^DIC(19,"B","NURCPE-VIT CAT/QUAL TABLE",0)) Q:DA'>0  D

 .S DIE="^DIC(19,",DR="1///"_"Display Vitals Category/Qualifier/Synonym Table" D ^DIE

 .Q

 K DA,DIE,DR

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---NUR4PRE   355     printed  Dec 13, 2024@02:18:06                                                                                                                                                                                                      Page 2

NUR4PRE   ;HIRMFO/FT-NUR*4*4 Pre-init ; 8/14/97 12:31

 +1       ;;4.0;NURSING SERVICE;**4**;Apr 25, 1997

 +2        DO BMES^XPDUTL("Changing Menu Text value for [NURCPE-VIT CAT/QUAL TABLE] option.")

 +3        SET DA=$ORDER(^DIC(19,"B","NURCPE-VIT CAT/QUAL TABLE",0))

           if DA'>0

               QUIT 

           Begin DoDot:1

 +4            SET DIE="^DIC(19,"

               SET DR="1///"_"Display Vitals Category/Qualifier/Synonym Table"

               DO ^DIE

 +5            QUIT 

           End DoDot:1

 +6        KILL DA,DIE,DR

 +7        QUIT