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 ---[H[J[2J[HPXRMPNRP 1112 printed Dec 13, 2024@01:48:35 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 ;
