Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMDEDT.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/PXRMDEDT.m
r628 r636 1 PXRMDEDT ; SLC/PJH - Edit PXRM reminder dialog. ; 10/18/20072 ;;2.0;CLINICAL REMINDERS;**4 ,6**;Feb 04, 2005;Build 1231 PXRMDEDT ; SLC/PJH - Edit PXRM reminder dialog. ;07/28/2006 2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21 3 3 ; 4 4 ;Used by protocol PXRM SELECTION ADD/PXRM GENERAL ADD … … 63 63 ;Allows limited edit of national dialogs 64 64 I $P($G(^PXRMD(801.41,DA,100)),U)="N" D 65 .I TYP="T",+$P($G(^PXMRD(801.41,DA,100)),U,4)=0 Q66 65 .I $G(PXRMINST)=1,DUZ(0)="@" Q 67 66 .S DR="[PXRM EDIT NATIONAL DIALOG]",DINUSE=1 … … 276 275 .N DTYP 277 276 .S DTYP=$P($G(^PXRMD(801.41,DA,0)),U,4) 278 .;Allow limit edit of Result Elements that are not lock279 .I DTYP="T",+$P($G(^PXRMD(801.41,DA,100)),U,4)=0 Q280 277 .;Allow edit of findings but not component multiple on groups 281 278 .I DTYP="G",$G(PXRMDIEN),DA'=PXRMDIEN Q
Note:
See TracChangeset
for help on using the changeset viewer.