Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXRMDLR1

PXRMDLR1.m

Go to the documentation of this file.
  1. PXRMDLR1 ;SLC/AGP - DIALOG ORPHAN REPORT. ;10/02/2015 12:40
  1. ;;2.0;CLINICAL REMINDERS;**6,12,45**;Feb 04, 2005;Build 566
  1. ;
  1. ;=======================================================================
  1. START(NUM) ;
  1. N DIR,POP,ZTDESC,ZTRTN,ZTSAVE
  1. S %ZIS="M"
  1. I NUM=1 S ZTDESC="Dialog Orphan Report" S ZTRTN="ORPHAN^PXRMDLR1"
  1. I NUM=2 S ZTDESC="Empty Reminder Dialogs Report" S ZTRTN="EMPTY^PXRMDLR1"
  1. S ZTSAVE("*")=""
  1. D EN^XUTMDEVQ(ZTRTN,ZTDESC,.ZTSAVE,.%ZIS)
  1. Q
  1. ;
  1. ORPHAN ;
  1. N NAME,IEN,TYPE
  1. K ^TMP("PXRMDLR1",$J)
  1. S IEN=0
  1. S NAME="" F S NAME=$O(^PXRMD(801.41,"B",NAME)) Q:NAME="" D
  1. . S IEN=$O(^PXRMD(801.41,"B",NAME,"")) Q:IEN'>0
  1. . S TYPE=$P($G(^PXRMD(801.41,IEN,0)),U,4)
  1. . I $G(TYPE)=""!($G(TYPE)="R") Q
  1. . I $D(^PXRMD(801.41,"BLR",IEN)) Q
  1. . I $D(^PXRMD(801.41,"AD",IEN)) Q
  1. . I $D(^PXRMD(801.41,"RG",IEN)) Q
  1. . S TYPE=$S(TYPE="P":"VPROMPT",TYPE="E":"ELEMENT",TYPE="F":"VVALUE",TYPE="G":"GROUP",TYPE="S":"RGROUP",TYPE="T":"RELEMENT")
  1. . S ^TMP("PXRMDLR1",$J,TYPE,NAME)=IEN
  1. I $D(^TMP("PXRMDLR1",$J))>0 D OUTPUT
  1. Q
  1. ;
  1. EMPTY ;
  1. N DONE,FOUND,NAME,IEN,TITLE,TYPE
  1. W @IOF
  1. S PCNT=0,PAGE=1,DONE=0,FOUND=0
  1. S TITLE="Empty Reminder Dialogs Report"
  1. D HEADER(.PCNT,PAGE,TITLE)
  1. S IEN=0
  1. S NAME="" F S NAME=$O(^PXRMD(801.41,"B",NAME)) Q:NAME=""!(DONE=1) D
  1. . S IEN=$O(^PXRMD(801.41,"B",NAME,"")) Q:IEN'>0
  1. . S TYPE=$P($G(^PXRMD(801.41,IEN,0)),U,4)
  1. . I ($G(TYPE)'="R") Q
  1. . I $D(^PXRMD(801.41,IEN,10))'=0 Q
  1. . S FOUND=1
  1. . I (PCNT+1)'<IOSL D PAGE(.PCNT,.PAGE) I $G(DONE)=1 Q
  1. . W !," "_$G(NAME) S PCNT=PCNT+1 I (PCNT+1)'<IOSL D PAGE(.PCNT,.PAGE) I $G(DONE)=1 Q
  1. I FOUND=0 W !,"No empty dialog found"
  1. I ($E(IOST,1,2)="C-")&(IO=IO(0)) D
  1. . W !
  1. . S DIR(0)="E" D ^DIR K DIR
  1. Q
  1. ;
  1. OUTPUT ;
  1. N CAT,DONE,LENGTH,NAME,OCAT,PAGE,PCNT,TITLE,TYPE,X
  1. W @IOF
  1. S PCNT=0,PAGE=1,DONE=0
  1. S TITLE="Reminder Dialog Elements Orphan Report"
  1. D HEADER(.PCNT,PAGE,TITLE)
  1. W !
  1. F CAT="ELEMENT","GROUP","RELEMENT","RGROUP","VPROMPT","VVALUE" D
  1. . I DONE=1 Q
  1. . I $D(^TMP("PXRMDLR1",$J,CAT))'>0 Q
  1. . S TYPE=$S(CAT="VPROMPT":"Additional Prompts",CAT="ELEMENT":"Dialog Elements",CAT="VVALUE":"Force Values",CAT="GROUP":"Dialog Groups",CAT="RGROUP":"Result Groups",CAT="RELEMENT":"Result Elements")
  1. . I (PCNT+4)'<IOSL D PAGE(.PCNT,.PAGE) I $G(DONE)=1 Q
  1. . S LENGTH=$L(TYPE) W !!,TYPE,! F X=1:1:LENGTH W "="
  1. . S PCNT=PCNT+4
  1. . I (PCNT+1)'<IOSL D PAGE(.PCNT,.PAGE) I $G(DONE)=1 Q
  1. . S NAME="" F S NAME=$O(^TMP("PXRMDLR1",$J,CAT,NAME)) Q:NAME=""!(DONE=1) D
  1. . .W !,$$LJ^XLFSTR("",4)_NAME S PCNT=PCNT+1
  1. . .I (PCNT+1)'<IOSL D PAGE(.PCNT,.PAGE) I $G(DONE)=1 Q
  1. K ^TMP("PXRMDLR1",$J)
  1. I ($E(IOST,1,2)="C-")&(IO=IO(0)) D
  1. . W !
  1. . S DIR(0)="E" D ^DIR K DIR
  1. Q
  1. ;
  1. W $$LJ^XLFSTR(TITLE,70)_"Page: "_PAGE,!
  1. F X=1:1:80 W "="
  1. S PCNT=PCNT+3
  1. Q
  1. ;
  1. PAGE(PCNT,PAGE) ;
  1. N DUOUT,DTOUT,DIROUT,DIR
  1. I ($E(IOST,1,2)="C-")&(IO=IO(0)) D
  1. .S DIR(0)="E"
  1. .W !
  1. .D ^DIR K DIR
  1. I $D(DUOUT)!($D(DTOUT))!($D(DIROUT)) S DONE=1 Q
  1. W:$D(IOF) @IOF
  1. S PAGE=PAGE+1,PCNT=0
  1. I ($E(IOST,1,2)="C-")&(IO=IO(0)) W @IOF D HEADER(.PCNT,PAGE,TITLE)
  1. Q
  1. STAND ;
  1. Q