Ignore:
Timestamp:
Dec 4, 2009, 8:26:01 PM (15 years ago)
Author:
George Lilly
Message:

WorldVistAEHR overlayed on FOIAVistA

Location:
FOIAVistA/tag/r
Files:
2 edited
1 copied

Legend:

Unmodified
Added
Removed
  • FOIAVistA/tag/r/CMOP-PSX/PSXBLD1.m

    r628 r636  
    11PSXBLD1 ;BIR/BAB,HTW,WPB-Document Data for Transmission ;10/15/98  10:38 AM
    2  ;;2.0;CMOP;**3,18,19,42,41,49,57,64**;11 Apr 97;Build 1
     2 ;;2.0;CMOP;**3,18,19,42,41,49,57**;11 Apr 97
    33 ;Reference to  ^PSRX(     supported by DBIA #1977
    44 ;Reference to  ^PSDRUG(   supported by DBIA #1983
     
    8888 S TXT(1)="The following Pharmacy Site instruction(s) exceed seven lines."
    8989 S TXT(2)="This exceeds CMOP limits."
    90  S TXT(3)="Lines beyond seven are not being sent to the CMOP."
     90 S TXT(3)="Lines beyound seven are not being sent to the CMOP."
    9191 S TXT(4)=" ",TXT(5)="Pharmacy Site: "_$$GET1^DIQ(59,PSOSITE,.01),L=5
    9292 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

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