Changeset 636 for FOIAVistA/tag/r/DSS_EXTRACTS-ECX/ECXUPRO1.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 )
• DSS_EXTRACTS-ECX/ECXUPRO1.m (modified) (2 diffs)

FOIAVistA/tag/r/DSS_EXTRACTS-ECX/ECXUPRO1.m

@@ -1 @@
-ECXUPRO1 ;ALB/TJL-Prosthetics Extract Unusual Cost Report; 01/08/08 2:49pm
- ;;3.0;DSS EXTRACTS;**49,111**;Jul 2, 2003;Build 4
+ECXUPRO1 ;ALB/TJL-Prosthetics Extract Unusual Cost Report; 7/2/03 2:49pm
+ ;;3.0;DSS EXTRACTS;**49**;Jul 2, 2003
  ;
 EN ; entry point
@@ -48 +48 @@
  S:(+PROQTY=0) PROQTY=1
  S PROQTY=$$RJ^XLFSTR(PROQTY,8,0)
- S ^TMP($J,ECXFEKEY,-PROQTY,SUBDA,PROSSN)=PRONAME_U_PROSSN_U_PRODAY_U_ECXHCPCS_U_ECXFEKEY_U_PROQTY_U_"$"_$FNUMBER(PROCOST,",",2)
+ S ^TMP($J,ECXFEKEY,-PROQTY,PROSSN)=PRONAME_U_PROSSN_U_PRODAY_U_ECXHCPCS_U_ECXFEKEY_U_PROQTY_U_"$"_$FNUMBER(PROCOST,",",2)
  S COUNT=COUNT+1
  I COUNT#100=0 I $$S^ZTLOAD S (ZSTOP,ECXERR)=1