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

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

@@ -1 @@
-PXRMSTA2 ; SLC/AGP - Routines for building status list. ;03/27/2007
- ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
+PXRMSTA2 ; SLC/AGP - Routines for building status list. ;9/26/2005
+ ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  ;
 DATA(FILE,DA,TYPE,RXTYPE,STATUS) ;
@@ -11 +11 @@
  I TYPE="DRUG" D
  .I $D(RXTYPE("I"))>0 D
- . . D STATUS^PSS55MIS(55.06,28,"SARRAY")
- . . ;D FIELD^DID(55.06,28,"","POINTER","SARRAY")
+ . . D FIELD^DID(55.06,28,"","POINTER","SARRAY")
  . . D ARRAYFOR(.SARRAY,.ARRAY,"I") K CODE
- . . D STATUS^PSS55MIS(55.01,100,"SARRAY")
- . . ;D FIELD^DID(55.01,100,"","POINTER","SARRAY")
+ . . D FIELD^DID(55.01,100,"","POINTER","SARRAY")
  . . D ARRAYFOR(.SARRAY,.ARRAY1,"I") K CODE
  . . D COMPARE(.ARRAY,.ARRAY1,"I",.OUTPUT)
  . I $D(RXTYPE("O"))>0 D
  . . K ARRAY,ARRAY1,CODE
- . . D STATUS^PSODI(52,100,"SARRAY")
- . . ;D FIELD^DID(52,100,"","POINTER","SARRAY")
+ . . D FIELD^DID(52,100,"","POINTER","SARRAY")
  . . D ARRAYFOR(.SARRAY,.ARRAY,"O") K CODE
  . . I $D(OUTPUT)>0 K ARRAY1 M ARRAY1=OUTPUT K OUTPUT D COMPARE(.ARRAY,.ARRAY1,"",.OUTPUT)
@@ -27 +24 @@
  . I $D(RXTYPE("N"))>0 D
  . . K ARRAY,ARRAY1,CODE
- . . D STATUS^PSS55MIS(55.05,5,"SARRAY")
- . . ;D FIELD^DID(55.05,5,"","POINTER","SARRAY")
+ . . D FIELD^DID(55.05,5,"","POINTER","SARRAY")
  . . S SARRAY("POINTER")=SARRAY("POINTER")_"0:ACTIVE;"
  . . D ARRAYFOR(.SARRAY,.ARRAY,"N") K CODE
@@ -76 +72 @@
  ;
 ARRAYFOR(ARRAY,OUTPUT,DEF) ;
- ;this sub routine is use to format the array data into a standard 
+ ;this sub routine is use to format that array data into a standard 
  ;format
  ;