Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMDLG4.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMDLG4.m
r628 r636 1 PXRMDLG4 ; SLC/PJH - Reminder Dialog Edit/Inquiry ; 06/05/20072 ;;2.0;CLINICAL REMINDERS;**4 ,6**;Feb 04, 2005;Build 1231 PXRMDLG4 ; SLC/PJH - Reminder Dialog Edit/Inquiry ;10/31/2005 2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21 3 3 ; 4 4 WP(SUB,SUB1,WIDTH,SEQ,VALMCNT) ;Format WP text … … 22 22 W IORESET 23 23 S VALMBCK="R",NATIONAL=0 24 ;Check if national reminder dialog 24 25 I $P($G(^PXRMD(801.41,PXRMDIEN,100)),U)="N" S NATIONAL=1 25 26 S LOCK=$P($G(^PXRMD(801.41,PXRMDIEN,100)),U,4) 27 ;Dissallow editing of national dialogs 26 28 I NATIONAL,'($G(PXRMINST)=1)&(DUZ(0)="@"),$G(LOCK)'=1 D Q 27 29 .W !,"Elements may not be added to national reminder dialogs" H 2 … … 61 63 .;Get ien of prompt/component 62 64 .S DCIEN=$P($G(^PXRMD(801.41,DIEN,10,DSUB,0)),U,2) Q:'DCIEN 65 .;Ignore prompts and forced values 63 66 .I "PF"[$P($G(^PXRMD(801.41,DCIEN,0)),U,4) Q 64 67 .;Save line in workfile … … 74 77 DLINE(DIEN,LEV,DSEQ,NODE) ;Save individual component details 75 78 N CNT,DBOX,DCAP,DDIS,DMULT,DSUPP,DSHOW,DTYP,DTXT 76 N IC,RESNM,RESULT,RIEN,RNAME ,RCNT79 N IC,RESNM,RESULT,RIEN,RNAME 77 80 ;Dialog name 78 81 S DDATA=$G(^PXRMD(801.41,DIEN,0)),DNAM=$P(DDATA,U) Q:DNAM="" … … 86 89 S RNAME="",RIEN=$P($G(^PXRMD(801.41,DIEN,1)),U,3) 87 90 I RIEN S RNAME=$P($G(^PXRMD(801.9,RIEN,0)),U) 91 ;Result Group 92 S RESULT=$P(DDATA,U,15) 93 I RESULT S RESNM=$P($G(^PXRMD(801.41,RESULT,0)),U) 88 94 ; 89 95 ;Group fields … … 142 148 ..S TEMP=$J("",TAB)_"Resolution: "_RNAME 143 149 ..S NLINE=NLINE+1,^TMP(NODE,$J,NLINE,0)=TEMP 144 .;Result Group145 .I VIEW=4 D146 ..S RCNT=0 F S RCNT=$O(^PXRMD(801.41,DIEN,51,RCNT)) Q:RCNT'>0 D147 ...S RESULT=$P($G(^PXRMD(801.41,DIEN,51,RCNT,0)),U)148 ...S RESNM=$P($G(^PXRMD(801.41,RESULT,0)),U) Q:RESNM=""149 ...S TEMP=$J("",TAB)_"Result Group: "_RESNM150 ...S NLINE=NLINE+1,^TMP(NODE,$J,NLINE,0)=TEMP151 150 .;Additional findings 152 151 .D FADD(DIEN,TAB) … … 166 165 FDESC(FIEN) ;Finding description 167 166 N FGLOB,FITEM,FNUM 167 ;Determine finding type 168 168 S FGLOB=$P(FIEN,";",2) Q:FGLOB="" 169 169 S FITEM=$P(FIEN,";") Q:FITEM=""
Note:
See TracChangeset
for help on using the changeset viewer.