Changeset 636 for FOIAVistA/tag/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOREJP1.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 )
• OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOREJP1.m (modified) (3 diffs)

FOIAVistA/tag/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOREJP1.m

@@ -1 +1 @@
 PSOREJP1 ;BIRM/MFR - Third Party Reject Display Screen ;04/29/05
- ;;7.0;OUTPATIENT PHARMACY;**148,247,260,281**;DEC 1997;Build 41
+ ;;7.0;OUTPATIENT PHARMACY;**148,247,260**;DEC 1997;Build 84
  ;Reference to File 9002313.93 - BPS NCPDP REJECT CODES supported by IA 4720
  ;Reference to ^PS(59.7 supported by IA 694
@@ -26 +26 @@
  K ^TMP("PSOREJP1",$J) S VALMCNT=0,LINE=0
  D GET^PSOREJU2(RX,FILL,.DATA,REJ,1)
- D REJ           ; Display REJECT Info
- D OTH           ; Display Other Rejects Info
- D COM^PSOREJP3  ; Display Comment
- D INS           ; Display Insurance Info
- D CLS           ; Display Resolution Info
+ D REJ                   ; Display the REJECT Information
+ D OTH                   ; Display the Other Rejects Information
+ D COM^PSOREJP3          ; Display the Comment
+ D INS                   ; Display the Insurance Information
+ D CLS                   ; Display the Resolution Information
  S VALMCNT=LINE
  Q
@@ -251 +251 @@
  ;
 OUT(RX) ; - Supported call by outside PROTOCOLs to act on specific REJECTs
- N I,RFL,DATA,REJ,PSOBACK,VALMCNT,RXN
- I '$D(^XUSEC("PSORPH",DUZ)) S VALMSG="PSORPH key required to use the REJ action.",VALMBCK="R" Q
- I $G(PS)="REJECT" D  Q
- . S VALMSG="REJ action is not available at this point.",VALMBCK="R"
+ N I,RFL,DATA,REJ,PSOBACK,VALMCNT
  S PSOBACK=1
  S (RFL,I)=0 F I=1:1 Q:'$D(^PSRX(RX,1,I))  S RFL=I