Changeset 636 for FOIAVistA/tag/r/CMOP-PSX

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/PSXBLD1.m (modified) (2 diffs)
• CMOP-PSX/PSXMISC1.m (modified) (2 diffs)

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

@@ -1 +1 @@
 PSXBLD1 ;BIR/BAB,HTW,WPB-Document Data for Transmission ;10/15/98  10:38 AM
- ;;2.0;CMOP;**3,18,19,42,41,49,57,64**;11 Apr 97;Build 1
+ ;;2.0;CMOP;**3,18,19,42,41,49,57**;11 Apr 97
  ;Reference to  ^PSRX(     supported by DBIA #1977
  ;Reference to  ^PSDRUG(   supported by DBIA #1983
@@ -88 +88 @@
  S TXT(1)="The following Pharmacy Site instruction(s) exceed seven lines."
  S TXT(2)="This exceeds CMOP limits."
- S TXT(3)="Lines beyond seven are not being sent to the CMOP."
+ S TXT(3)="Lines beyound seven are not being sent to the CMOP."
  S TXT(4)=" ",TXT(5)="Pharmacy Site: "_$$GET1^DIQ(59,PSOSITE,.01),L=5
  F NODE=6,7,4 I $DATA(WARN(NODE)) S L=L+1,TXT(L)=XT(NODE)_"     "_WARN(NODE)_" lines"

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