Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMEXDG.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• CLINICAL_REMINDERS-PXRM/PXRMEXDG.m (modified) (6 diffs)

FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMEXDG.m

@@ -1 @@
-PXRMEXDG ;SLC/PJH - Reminder Dialog Exchange index build ;05/16/2007
- ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123
+PXRMEXDG ;SLC/PJH - Reminder Dialog Exchange index build ;02/25/2004
+ ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
  ;
  ;=====================================================================
-DIALOG(RIEN,DLIST,FLIST,OLIST,TLIST,SPONLIST) ;
+DIALOG(RIEN,DLIST,FLIST,OLIST,TLIST) ;
  ;
  ;Routine to get dialog details for a given reminder
@@ -27 +27 @@
  S DCNT=0,FCNT=0,RCNT=0,TCNT=0
  ;Get details
- D GETSPON^PXRMEXPR(801.41,DIEN,.SPONLIST)
- D DGET(DIEN,.SPONLIST)
+ D DGET(DIEN)
  ;
  ;Now build the dialog list (components first)
@@ -41 +40 @@
  N CNT,COUNT,DTYP
  S COUNT=0
- F DTYP="RESULT ELEMENT" D
- .S CNT=0 F  S CNT=$O(TEMP(DTYP,CNT)) Q:CNT'>0  D
- ..S DIEN=$G(TEMP(DTYP,CNT)) Q:DIEN'>0
- ..S COUNT=COUNT+1,DLIST("DIALOG",COUNT,DIEN)=""
- ;
- F DTYP="RESULT" D
- .S CNT=0 F  S CNT=$O(TEMP(DTYP,CNT)) Q:CNT'>0  D
- ..S DIEN=$G(TEMP(DTYP,CNT)) Q:DIEN'>0
- ..S COUNT=COUNT+1,DLIST("DIALOG",COUNT,DIEN)=""
- ;
- ;F DTYP="RESULT","DIALOG" D
- F DTYP="DIALOG" D
+ F DTYP="RESULT","DIALOG" D
  .F CNT=1:1 S DIEN=$G(TEMP(DTYP,CNT)) Q:'DIEN  D
  ..S COUNT=COUNT+1,DLIST("DIALOG",COUNT,DIEN)=""
@@ -91 +79 @@
  ;Get the dialog components
  ;-------------------------
-DGET(D0,SPONLIST) ;Save dialog ien
+DGET(D0) ;Save dialog ien
  N D1
  I $G(D0)=83
  I $G(^PXRMD(801.41,D0,49))'="",$P(^PXRMD(801.41,D0,49),U,3)>0 D
- .S D1=$P($G(^PXRMD(801.41,D0,49)),U,3) D DGET1(D0,.SPONLIST) D DGET1(D1,.SPONLIST)
- E  D DGET1(D0,.SPONLIST)
- Q
-DGET1(D0,SPONLIST) ;
+ .S D1=$P($G(^PXRMD(801.41,D0,49)),U,3) D DGET1(D0) D DGET1(D1)
+ E  D DGET1(D0)
+ Q
+DGET1(D0) ;
  S DCNT=DCNT+1,DARRAY(DCNT)=D0
  ;And details (except for reminder dialog)
  I DCNT>1 D
- .D GETSPON^PXRMEXPR(801.41,D0,.SPONLIST)
  .;Finding items
  .D DFIND(D0)
@@ -119 +106 @@
  .S DDATA=$G(^PXRMD(801.41,DCOMP,0)) Q:DDATA=""
  .;Exclude national PXRM prompts
- .I +$G(PXRMINST)=0,$E(DDATA,1,4)="PXRM",$P($G(^PXRMD(801.41,DCOMP,100)),U)="N" Q
+ .I $E(DDATA,1,4)="PXRM",$P($G(^PXRMD(801.41,DCOMP,100)),U)="N" Q
  .;Sub-components
- .D DGET(DCOMP,.SPONLIST)
+ .D DGET(DCOMP)
  .;I $G(DCOMP1)'="" D DGET(DCOMP1) S DCOMP1=""
  Q
@@ -175 +162 @@
  ;---------------------------
 DRESULT(DIEN) ;
- N CNT,RIEN,RECNT,RGCNT
+ N RIEN
  ;Result Group/Element pointer
- S RECNT=$O(TEMP("RESULT ELEMENT",""),-1)
- S RGCNT=$O(TEMP("RESULT",""),-1)
- S CNT=0
- F  S CNT=$O(^PXRMD(801.41,DIEN,51,CNT)) Q:CNT'>0  D
- .S RIEN=$P($G(^PXRMD(801.41,DIEN,51,CNT,0)),U) Q:RIEN'>0
- .;S RIEN=$P($G(^PXRMD(801.41,DIEN,0)),U,15) Q:'RIEN  Q:$D(RESULT(RIEN))
- .;Result group compoments
- .N DSUB,REIEN
- .S DSUB=0
- .F  S DSUB=$O(^PXRMD(801.41,RIEN,10,DSUB)) Q:'DSUB  D
- ..;Get result element
- ..S REIEN=$P($G(^PXRMD(801.41,RIEN,10,DSUB,0)),U,2) Q:'REIEN
- ..Q:'$D(^PXRMD(801.41,REIEN,0))
- ..;If element exists get save it
- ..S RECNT=RECNT+1,TEMP("RESULT ELEMENT",RECNT)=REIEN
- ..;S RCNT=RCNT+1,OUTPUT("RESULT",RCNT)=REIEN
- .;
- .;Save result group
- .S RGCNT=RGCNT+1,TEMP("RESULT",RGCNT)=RIEN
- .;S RCNT=RCNT+1,RESULT(RIEN)="",TEMP("RESULT",RCNT)=RIEN
+ S RIEN=$P($G(^PXRMD(801.41,DIEN,0)),U,15) Q:'RIEN  Q:$D(RESULT(RIEN))
+ ;Result group compoments
+ N DSUB,REIEN
+ S DSUB=0
+ F  S DSUB=$O(^PXRMD(801.41,RIEN,10,DSUB)) Q:'DSUB  D
+ .;Get result element
+ .S REIEN=$P($G(^PXRMD(801.41,RIEN,10,DSUB,0)),U,2) Q:'REIEN
+ .Q:'$D(^PXRMD(801.41,REIEN,0))
+ .;If element exists get save it
+ .S RCNT=RCNT+1,OUTPUT("RESULT",RCNT)=REIEN
+ ;
+ ;Save result group
+ S RCNT=RCNT+1,RESULT(RIEN)="",TEMP("RESULT",RCNT)=RIEN
  Q
  ;