PXRMPNRP.m

PXRMPNRP ;SLC/PKR - Edited Print Name report. ;03/26/2018

 ;;2.0;CLINICAL REMINDERS;**42**;Feb 04, 2005;Build 245

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

PNREP ;Produce a report of all reminder definitions whose Print Name was

 ;edited via the option PXRM DEF PRINT NAME EDIT.

 N BOP,FOUND,IEN,IND,JND,NAME,NL,TEMP,TEXT,TITLE

 S NAME="",NL=0

 F  S NAME=$O(^PXD(811.9,"B",NAME)) Q:NAME=""  D

 . S IEN=$O(^PXD(811.9,"B",NAME,""))

 . S (IND,FOUND)=0

 . F  S IND=+$O(^PXD(811.9,IEN,110,IND)) Q:IND=0  D

 .. S TEMP=$G(^PXD(811.9,IEN,110,IND,1,1,0))

 .. I TEMP'="The Print Name was edited\\" Q

 .. I NL>0 S NL=NL+1,TEXT(NL)=" "

 .. I FOUND=0 S NL=NL+1,TEXT(NL)="Reminder Definition: "_NAME_"  (IEN="_IEN_")",FOUND=1

 .. F JND=1:1:6 S NL=NL+1,TEXT(NL)=$P(^PXD(811.9,IEN,110,IND,1,JND,0),"\\",1)

 I NL=0 S NL=NL+1,TEXT(NL)="No entries were found."

 S BOP=$$BORP^PXRMUTIL("B")

 I BOP="" Q

 S TITLE="Edited Print Name Report"

 I BOP="B" D

 . N X

 . S X="IORESET"

 . D BROWSE^DDBR("TEXT","NR",TITLE)

 . D ENDR^%ZISS

 . W IORESET

 . D KILL^%ZISS

 I BOP="P" D GPRINT^PXRMUTIL("TEXT")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXRMPNRP   1112     printed  Apr 09, 2024@20:49:31                                                                                                                                                                                                    Page 2

PXRMPNRP  ;SLC/PKR - Edited Print Name report. ;03/26/2018

 +1       ;;2.0;CLINICAL REMINDERS;**42**;Feb 04, 2005;Build 245

 +2       ;==========================================

PNREP     ;Produce a report of all reminder definitions whose Print Name was

 +1       ;edited via the option PXRM DEF PRINT NAME EDIT.

 +2        NEW BOP,FOUND,IEN,IND,JND,NAME,NL,TEMP,TEXT,TITLE

 +3        SET NAME=""

           SET NL=0

 +4        FOR 

               SET NAME=$ORDER(^PXD(811.9,"B",NAME))

               if NAME=""

                   QUIT 

               Begin DoDot:1

 +5                SET IEN=$ORDER(^PXD(811.9,"B",NAME,""))

 +6                SET (IND,FOUND)=0

 +7                FOR 

                       SET IND=+$ORDER(^PXD(811.9,IEN,110,IND))

                       if IND=0

                           QUIT 

                       Begin DoDot:2

 +8                        SET TEMP=$GET(^PXD(811.9,IEN,110,IND,1,1,0))

 +9                        IF TEMP'="The Print Name was edited\\"

                               QUIT 

 +10                       IF NL>0

                               SET NL=NL+1

                               SET TEXT(NL)=" "

 +11                       IF FOUND=0

                               SET NL=NL+1

                               SET TEXT(NL)="Reminder Definition: "_NAME_"  (IEN="_IEN_")"

                               SET FOUND=1

 +12                       FOR JND=1:1:6

                               SET NL=NL+1

                               SET TEXT(NL)=$PIECE(^PXD(811.9,IEN,110,IND,1,JND,0),"\\",1)

                       End DoDot:2

               End DoDot:1

 +13       IF NL=0

               SET NL=NL+1

               SET TEXT(NL)="No entries were found."

 +14       SET BOP=$$BORP^PXRMUTIL("B")

 +15       IF BOP=""

               QUIT 

 +16       SET TITLE="Edited Print Name Report"

 +17       IF BOP="B"

               Begin DoDot:1

 +18               NEW X

 +19               SET X="IORESET"

 +20               DO BROWSE^DDBR("TEXT","NR",TITLE)

 +21               DO ENDR^%ZISS

 +22               WRITE IORESET

 +23               DO KILL^%ZISS

               End DoDot:1

 +24       IF BOP="P"

               DO GPRINT^PXRMUTIL("TEXT")

 +25       QUIT 

 +26      ;