Changeset 636 for FOIAVistA/tag/r/CMOP-PSX/PSXBLD1.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/PSXBLD1.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"