Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMFFDB.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/PXRMFFDB.m
r628 r636 1 PXRMFFDB ;SLC/PKR - Function finding data structure builder. ; 10/31/20072 ;;2.0;CLINICAL REMINDERS;**4 ,6**;Feb 04, 2005;Build 1231 PXRMFFDB ;SLC/PKR - Function finding data structure builder. ;06/22/2006 2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21 3 3 ; 4 4 ;=========================================== … … 68 68 N PFSTACK,REPL,RS,TEMP,TS,XS 69 69 S IENB=DA_","_DA(1)_"," 70 S OPER="!& -+<>='"70 S OPER="!&<>='" 71 71 S XS=$$PSPACE(X) 72 72 D POSTFIX^PXRMSTAC(XS,OPER,.PFSTACK) … … 140 140 PSPACE(OPR) ;OPR is an operand in a function finding, if some portion 141 141 ;of OPR is a string translate a space into "~" so it is preserved. 142 ;Note this will work for the entire function string. 143 N DONE,END,START,TNS,TS 144 S DONE=0,END=1 145 F Q:DONE D 146 . S START=$F(OPR,"""",END) 147 . I START=0 S DONE=1 Q 148 . S END=$F(OPR,"""",START) 149 . S TS=$E(OPR,START,END-2) 150 . S TNS=$TR(TS," ","~") 151 . S OPR=$$STRREP^PXRMUTIL(OPR,TS,TNS) 142 N END,START,TNS,TS 143 S START=$F(OPR,"""") 144 I START=0 Q OPR 145 S END=$F(OPR,"""",START)-2 146 S TS=$E(OPR,START,END) 147 S TNS=$TR(TS," ","~") 148 S OPR=$$STRREP^PXRMUTIL(OPR,TS,TNS) 152 149 Q OPR 153 150 ; … … 198 195 N DAI,DATE,FUNIEN,IND,LIST,MFUN,OPER,PFSTACK,TEMP,TEXT,VALID 199 196 S DAI=DA(1) 200 S OPER="!& -+<>='"197 S OPER="!&<>='" 201 198 ;Define the allowed M functions. 202 199 S MFUN("$P")=""
Note:
See TracChangeset
for help on using the changeset viewer.