Changeset 636 for FOIAVistA/tag/r/PHARMACY_BENEFITS_MANAGEMENT-PSU/PSUVIT1.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 )
• PHARMACY_BENEFITS_MANAGEMENT-PSU/PSUVIT1.m (modified) (5 diffs)

FOIAVistA/tag/r/PHARMACY_BENEFITS_MANAGEMENT-PSU/PSUVIT1.m

@@ -1 @@
-PSUVIT1 ;BIR/RDC - VITALS & IMMUNIZATION EXTRACT; 24 DEC 2003 ; 10/9/07 7:03am
- ;;4.0;PHARMACY BENEFITS MANAGEMENT;**11**;MARCH, 2005;Build 8
+PSUVIT1 ;BIR/RDC - VITALS & IMMUNIZATION EXTRACT; 24 DEC 2003
+ ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005
  ;
  ;DBIA's
@@ -72 +72 @@
  N PSURTYPE,PSUSSN,PSUICN,PSUVTYPE,PSUVRATE,PSUVUNIT
  N Z,QQ,PSUVQ1,PSUVQ2,PSUVQ3,PSUVQ4,PSUVLIST,PSUVMSG
- N PSULN,PSUTXT
  ;
  S PSUVLIST="""BLOOD PRESSURE"",""HEIGHT"",""WEIGHT"",""PAIN"",""PULSE"",""PULSE OXIMETRY"""
@@ -78 +77 @@
  ;                          ** Loop through date index for valid dates **
  S PSUDATE=SDATE
- ;PSU*4*11 Added null ptr notification.
- S PSUTXT(1)="The following IEN(s) have a null pointer in the PATIENT (#2) field of"
- S PSUTXT(2)="the GMRV VITAL MEASUREMENT file (#120.5).  Please notify your IRM and"
- S PSUTXT(3)="submit a remedy ticket for help in evaluating the record."
- S PSULN=3
  F  S PSUDATE=$O(^GMR(120.5,"B",PSUDATE)) Q:PSUDATE>EDATE!('PSUDATE)  D
  . S PSUV=""                      ; ** loop thru vitals for each date **
@@ -89 +83 @@
  .. S PSUVREC=$G(^GMR(120.5,PSUV,0)) Q:'PSUVREC
  .. S PSUPTPTR=$P(PSUVREC,U,2)    ; ** point to PATIENT **
- .. I PSUPTPTR="" D  Q            ; ** quit if no patient pointer **
- ... S PSULN=PSULN+1
- ... S PSUTXT(PSULN)=PSUV
  .. Q:$G(^DPT(PSUPTPTR,0))=""     ; ** quit if no patient record **
  .. S PSUPTREC=^DPT(PSUPTPTR,0)   ; ** get patient record **
@@ -123 +114 @@
  .. ; ** S PSUVTMP(PSUSSN,PSUVTYPE)=PSUVMSG
  .. S ^XTMP("PSU_"_PSUJOB,"PSUVI","TMP",PSUSSN,PSUVTYPE)=PSUVMSG
- ;PSU*4*11 Send null ptr notifications to PBM group.
- I PSULN>3 D
- . S XMTEXT="PSUTXT(",XMY("G.PSU PBM")=""
- . S XMSUB="** PBM vitals extract detected null patient pointer(s) **"
- . S XMDUZ="Pharmacy Benefits Management Package"
- . N DIFROM D ^XMD
  Q
  ;               ** end of vital extract **