Changeset 636 for FOIAVistA/tag/r/CMOP-PSX/PSXMISC1.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 )
• CMOP-PSX/PSXMISC1.m (modified) (2 diffs)

FOIAVistA/tag/r/CMOP-PSX/PSXMISC1.m

@@ -1 +1 @@
 PSXMISC1 ;BIR/WPB,BAB-Transmission Data Validation ;MAR 1,2002@13:13:34
- ;;2.0;CMOP;**3,18,23,28,30,42,41,52,54,58,64**;11 Apr 97;Build 1
+ ;;2.0;CMOP;**3,18,23,28,30,42,41,52,54,58**;11 Apr 97;Build 2
  ;Reference to ^PSDRUG(  supported by DBIA #1983
  ;Reference to ^PS(52.5, supported by DBIA #1978
@@ -124 +124 @@
  N DFN,PSOFORGN
  S DFN=$P($G(^PSRX(TRX,0)),"^",2) I DFN="" Q:0
- ;BHW;PSX*2*64;Changed Quit below from Q:+(^TMP... to Q +(^TMP...
- I $D(^TMP($J,"PSXBAI",DFN)) Q +(^TMP($J,"PSXBAI",DFN))
+ I $D(^TMP($J,"PSXBAI",DFN)) Q:+(^TMP($J,"PSXBAI",DFN))
  D ADD^VADPT
  S PSOFORGN=$P($G(VAPA(25)),"^",2) I PSOFORGN'="",PSOFORGN'["UNITED STATES" S PSOFORGN=1