PSXBLD2.m

PSXBLD2 ;BIR/EJW-New warning label Data for Transmission ;10/26/04

 ;;2.0;CMOP;**54**;11 Apr 97;Build 6

 ;

 ;Reference to  ^PS(55,    supported by DBIA #2228

 ;Reference to WTEXT^PSSWRNA supported by DBIA #4444

NEWWARN ;

 N J,TEXT,W

 F J=1:1:5 S W=$P(WARN,",",J) Q:W=""  D

 .S TEXT=$$WTEXT^PSSWRNA(W) I TEXT'="" S MSG=MSG+1,PSXORD(MSG)="NTE|11|"_$P(RXY,"^")_"|ENG|"_W_"|"_TEXT

 I $P($G(^PS(55,DFN,"LAN")),"^",2)'=2 Q

 I '$P($G(^PS(55,DFN,"LAN")),"^") Q  ; DON'T SEND SPANISH WARNING LABELS UNLESS PATIENT ALSO HAS OTHER LANGUAGE PREFERENCE 

 ; SEND SPANISH WARNINGS ALSO

 F J=1:1:5 S W=$P(WARN,",",J) Q:W=""  D

 .S TEXT=$$WTEXT^PSSWRNA(W,2) I TEXT'="" S MSG=MSG+1,PSXORD(MSG)="NTE|11|"_$P(RXY,"^")_"|SPA|"_W_"|"_TEXT

 Q

PSXBLD2   ;BIR/EJW-New warning label Data for Transmission ;10/26/04

 +1       ;;2.0;CMOP;**54**;11 Apr 97;Build 6

 +2       ;

 +3       ;Reference to  ^PS(55,    supported by DBIA #2228

 +4       ;Reference to WTEXT^PSSWRNA supported by DBIA #4444

NEWWARN   ;

 +1        NEW J,TEXT,W

 +2        FOR J=1:1:5

               SET W=$PIECE(WARN,",",J)

               IF W=""

                   QUIT 

               Begin DoDot:1

 +3                SET TEXT=$$WTEXT^PSSWRNA(W)

                   IF TEXT'=""

                       SET MSG=MSG+1

                       SET PSXORD(MSG)="NTE|11|"_$PIECE(RXY,"^")_"|ENG|"_W_"|"_TEXT

               End DoDot:1

 +4        IF $PIECE($GET(^PS(55,DFN,"LAN")),"^",2)'=2

               QUIT 

 +5       ; DON'T SEND SPANISH WARNING LABELS UNLESS PATIENT ALSO HAS OTHER LANGUAGE PREFERENCE 

           IF '$PIECE($GET(^PS(55,DFN,"LAN")),"^")

               QUIT 

 +6       ; SEND SPANISH WARNINGS ALSO

 +7        FOR J=1:1:5

               SET W=$PIECE(WARN,",",J)

               IF W=""

                   QUIT 

               Begin DoDot:1

 +8                SET TEXT=$$WTEXT^PSSWRNA(W,2)

                   IF TEXT'=""

                       SET MSG=MSG+1

                       SET PSXORD(MSG)="NTE|11|"_$PIECE(RXY,"^")_"|SPA|"_W_"|"_TEXT

               End DoDot:1

 +9        QUIT