Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMVSIT.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 )
• CLINICAL_REMINDERS-PXRM/PXRMVSIT.m (modified) (2 diffs)

FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMVSIT.m

@@ -1 @@
-PXRMVSIT ; SLC/PKR - Visit related info for reminders. ;02/22/2007
- ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
+PXRMVSIT ; SLC/PKR - Visit related info for reminders. ;07/06/2006
+ ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
  ;
  ;======================================================
-GETDATA(DA,DATA,SVALUE) ;Return data for a specific Visit file entry.
+GETDATA(DA,FIEVT,SVALUE) ;Return data for a specific Visit file entry.
  ;DBIA #2028 for Visit file.
- N DONE,IEN,HTEMP,LOE,TEMP
+ N HTEMP,TEMP
  S TEMP=^AUPNVSIT(DA,0)
- S DATA("VISIT")=DA
- S DATA("DATE VISIT CREATED")=$P(TEMP,U,2)
- S DATA("DFN")=$P(TEMP,U,5)
- S (DATA("LOC. OF ENCOUNTER"),LOE)=$P(TEMP,U,6)
- ;DBIA #10090
- S DATA("STATION NUMBER")=$$GET1^DIQ(4,LOE,99)
- S DATA("OFFICAL VA NAME")=$$GET1^DIQ(4,LOE,100)
- S DATA("SERVICE CATEGORY")=$P(TEMP,U,7)
- I $G(SVALUE) S DATA("VALUE")=$P(TEMP,U,7)
- S DATA("HOSPITAL LOCATION")=$P(TEMP,U,22)
+ S FIEVT("VISIT")=DA
+ S FIEVT("DATE VISIT CREATED")=$P(TEMP,U,2)
+ S FIEVT("DFN")=$P(TEMP,U,5)
+ S FIEVT("LOC. OF ENCOUNTER")=$P(TEMP,U,6)
+ S FIEVT("SERVICE CATEGORY")=$P(TEMP,U,7)
+ I $G(SVALUE) S FIEVT("VALUE")=$P(TEMP,U,7)
+ S FIEVT("HOSPITAL LOCATION")=$P(TEMP,U,22)
  ;DBIA #10040, #2804
- I $G(DATA("HOSPITAL LOCATION"))="" S HTEMP=""
- E  S HTEMP=^SC(DATA("HOSPITAL LOCATION"),0)
- S DATA("HLOC")=$P(HTEMP,U,1)
- S DATA("DSS ID")=$P(TEMP,U,8)
- I DATA("DSS ID")="" S DATA("DSS ID")=$P(HTEMP,U,7)
+ I $G(FIEVT("HOSPITAL LOCATION"))="" S HTEMP=""
+ E  S HTEMP=^SC(FIEVT("HOSPITAL LOCATION"),0)
+ S FIEVT("HLOC")=$P(HTEMP,U,1)
+ S FIEVT("DSS ID")=$P(TEMP,U,8)
+ I FIEVT("DSS ID")="" S FIEVT("DSS ID")=$P(HTEMP,U,7)
  ;DBIA #557
- I DATA("DSS ID")'="" S DATA("STOP CODE")=$P(^DIC(40.7,DATA("DSS ID"),0),U,2)
- S DATA("OUTSIDE LOCATION")=$G(^AUPNVSIT(DA,21))
- S DATA("COMMENTS")=$G(^AUPNVSIT(DA,811))
+ I FIEVT("DSS ID")'="" S FIEVT("STOP CODE")=$P(^DIC(40.7,FIEVT("DSS ID"),0),U,2)
+ S FIEVT("OUTSIDE LOCATION")=$G(^AUPNVSIT(DA,21))
+ S FIEVT("COMMENTS")=$G(^AUPNVSIT(DA,811))
  ;DBIA #4850
- S DATA("STATUS")=$$STATUS^SDPCE(DA)
- ;Get the primary provider.
- ;DBIA #3455 for V PROVIDER
- S DATA("PRIMARY PROVIDER")="",IEN="",DONE=0
- F  S IEN=$O(^AUPNVPRV("AD",DA,IEN)) Q:(DONE)!(IEN="")  D
- . S TEMP=^AUPNVPRV(IEN,0)
- . I $P(TEMP,U,4)="P" S DATA("PRIMARY PROVIDER")=$P(TEMP,U,1),DONE=1
+ S FIEVT("STATUS")=$$STATUS^SDPCE(DA)
  Q
  ;
@@ -89 +80 @@
  ;NO-SHOW
  ;NO-SHOW & AUTO RE-BOOK
- ;NULL
  N STATUS,VALID
  ;DBIA #4850
  S STATUS=$P($$STATUS^SDPCE(VIEN),U,2)
- S VALID=$S(STATUS["CANCELLED":0,STATUS["DELETED":0,STATUS["NO ACTION":0,STATUS["NO-SHOW":0,STATUS="":0,1:1)
+ S VALID=$S(STATUS["CANCELLED":0,STATUS["DELETED":0,STATUS["NO ACTION":0,STATUS["NO-SHOW":0,1:1)
  Q VALID
  ;