Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMUTIL.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/PXRMUTIL.m (modified) (9 diffs)

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

@@ -1 @@
-PXRMUTIL ; SLC/PKR/PJH - Utility routines for use by PXRM. ;10/02/2007
- ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
- ;
- ;=================================
+PXRMUTIL ; SLC/PKR/PJH - Utility routines for use by PXRM. ;05/25/2006
+ ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
+ ;
+ ;===========================================================
 ATTVALUE(STRING,ATTR,SEP,AVSEP) ;STRING contains a list of attribute value
  ;pairs. Each pair is separated by SEP and the attribute value pair
@@ -14 +14 @@
  Q VALUE
  ;
- ;=================================
-ACOPY(REF,OUTPUT) ;Copy all the descendants of the array reference into a linear
- ;array. REF is the starting array reference, for example A or
- ;^TMP("PXRM",$J). OUTPUT is the linear array for the output. It
- ;should be in the form of a closed root, i.e., A() or ^TMP($J,).
- ;Note OUTPUT cannot be used as the name of the output array.
- N DONE,IND,LEN,NL,OROOT,OUT,PROOT,ROOT,START,TEMP
- I REF="" Q
- S NL=0
- S OROOT=$P(OUTPUT,")",1)
- S PROOT=$P(REF,")",1)
- ;Build the root so we can tell when we are done.
- S TEMP=$NA(@REF)
- S ROOT=$P(TEMP,")",1)
- S REF=$Q(@REF)
- I REF'[ROOT Q
- S DONE=0
- F  Q:(REF="")!(DONE)  D
- . S START=$F(REF,ROOT)
- . S LEN=$L(REF)
- . S IND=$E(REF,START,LEN)
- . S NL=NL+1
- . S OUT=OROOT_NL_")"
- . S @OUT=PROOT_IND_"="_@REF
- . S REF=$Q(@REF)
- . I REF'[ROOT S DONE=1
- Q
- ;
- ;=================================
+ ;===========================================================
 AWRITE(REF) ;Write all the descendants of the array reference.
  ;REF is the starting array reference, for example A or ^TMP("PXRM",$J).
@@ -63 +35 @@
  Q
  ;
- ;=================================
+ ;===========================================================
 DIP(VAR,IEN,PXRMROOT,FLDS) ;Do general inquiry for IEN return formatted
  ;output in VAR. VAR can be either a local variable or a global.
@@ -113 +85 @@
  Q
  ;
- ;=================================
+ ;===========================================================
 FNFR(ROOT) ;Given the root of a file return the file number.
  Q +$P(@(ROOT_"0)"),U,2)
  ;
- ;=================================
+ ;===========================================================
 NTOAN(NUMBER) ;Given an integer N return an alphabetic string that can be
  ;used for sorting. This will be modulus 26. For example N=0 returns
@@ -140 +112 @@
  Q ANUM
  ;
- ;=================================
-RMEHIST(FILENUM,IEN) ;Remove the edit history for a reminder file.
- I (FILENUM<800)!(FILENUM>811.9)!(FILENUM=811.8) Q
- N DA,DIK,GLOBAL,ROOT
- S GLOBAL=$$GET1^DID(FILENUM,"","","GLOBAL NAME")
- ;Edit History is stored in node 110 for all files.
- S DA(1)=IEN
- S DIK=GLOBAL_IEN_",110,"
- S ROOT=GLOBAL_IEN_",110,DA)"
- S DA=0
- F  S DA=+$O(@ROOT) Q:DA=0  D ^DIK
- Q
- ;
- ;=================================
+ ;===========================================================
 SEHIST(FILENUM,ROOT,IEN) ;Set the edit date and edit by and prompt the
  ;user for the edit comment.
@@ -186 +145 @@
  Q
  ;
- ;=================================
+ ;===========================================================
 SFRES(SDIR,NRES,FIEVAL) ;Save the finding result.
  I NRES=0 S FIEVAL=0 Q
@@ -202 +161 @@
  Q
  ;
- ;=================================
+ ;===========================================================
 SSPAR(FIND0,NOCC,BDT,EDT) ;Set the finding search parameters.
  S BDT=$P(FIND0,U,8),EDT=$P(FIND0,U,11),NOCC=$P(FIND0,U,14)
- I +NOCC=0 S NOCC=1
+ I NOCC="" S NOCC=1
  ;Convert the dates to FileMan dates.
  S BDT=$S(BDT="":0,BDT=0:0,1:$$CTFMD^PXRMDATE(BDT))
@@ -212 +171 @@
  ;If EDT does not contain a time set it to the end of the day.
  I EDT'["." S EDT=EDT_".235959"
- I $G(PXRMDDOC)'=1 Q
- S ^TMP("PXRMDDOC",$J,$P(FIND0,U,1,11))=BDT_U_EDT
- Q
- ;
- ;=================================
+ Q
+ ;
+ ;===========================================================
 STRREP(STRING,TS,RS) ;Replace every occurrence of the target string (TS)
  ;in STRING with the replacement string (RS).
@@ -234 +191 @@
  Q STR
  ;
- ;=================================
+ ;===========================================================
 VEDIT(ROOT,IEN) ;This is used as a DIC("S") screen to select which entries
  ;a user can edit.