PXRMV2IL.m

PXRMV2IL ; SLC/AGP - Version 2.0 init routine. ;09/23/2004

 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005

 ;

 ;===============================================================

DELETE ;Delete PXRM list templates so the updated version will be properly

 ;installed.

 N IEN,NAME,TEMP0

 S NAME="" F  S NAME=$O(^SD(409.61,"B",NAME)) Q:NAME=""  D

 .I $P(NAME," ")'="PXRM" Q

 .S IEN=$O(^SD(409.61,"B",NAME,"")) Q:IEN=""

 .S TEMP0=$G(^SD(409.61,IEN,0))

 .K ^SD(409.61,IEN)

 .S ^SD(409.61,IEN,0)=TEMP0

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXRMV2IL   506     printed  Apr 09, 2024@20:49:09                                                                                                                                                                                                     Page 2

PXRMV2IL  ; SLC/AGP - Version 2.0 init routine. ;09/23/2004

 +1       ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005

 +2       ;

 +3       ;===============================================================

DELETE    ;Delete PXRM list templates so the updated version will be properly

 +1       ;installed.

 +2        NEW IEN,NAME,TEMP0

 +3        SET NAME=""

           FOR 

               SET NAME=$ORDER(^SD(409.61,"B",NAME))

               if NAME=""

                   QUIT 

               Begin DoDot:1

 +4                IF $PIECE(NAME," ")'="PXRM"

                       QUIT 

 +5                SET IEN=$ORDER(^SD(409.61,"B",NAME,""))

                   if IEN=""

                       QUIT 

 +6                SET TEMP0=$GET(^SD(409.61,IEN,0))

 +7                KILL ^SD(409.61,IEN)

 +8                SET ^SD(409.61,IEN,0)=TEMP0

               End DoDot:1

 +9        QUIT 

 +10      ;