Changeset 636 for FOIAVistA/tag/r/PAID-PRS/PRSPUT3.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 )
• PAID-PRS/PRSPUT3.m (modified) (2 diffs)

FOIAVistA/tag/r/PAID-PRS/PRSPUT3.m

@@ -1 @@
-PRSPUT3 ;WOIFO/MGD,JAH - PART TIME PHYSICIAN UTILITIES #1 ;03/23/07
- ;;4.0;PAID;**93,112**;Sep 21, 1995;Build 54
+PRSPUT3 ;WOIFO/MGD,JAH - PART TIME PHYSICIAN UTILITIES #1 ;06/15/05
+ ;;4.0;PAID;**93**;Sep 21, 1995;Build 7
  ;;Per VHA Directive 2004-038, this routine should not be modified.
  ;
@@ -268 +268 @@
  S TCH1=$E(T,1,1)
  D E2^PRS8VW
- S CHKLN=$P($T(@(TCH1)+0^PRS8VW2),";;",2)
+ S CHKLN=$P($T(@(TCH1)+0^PRS8VW1),";;",2)
  F I=1:1:$L(CHKLN,"^") D  Q:FOUND
  .  S CHUNK=$P(CHKLN,U,I)