Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXRMVSIT

PXRMVSIT.m

Go to the documentation of this file.
  1. PXRMVSIT ;SLC/PKR - Visit related info for reminders. ;08/20/2020
  1. ;;2.0;CLINICAL REMINDERS;**4,6,18,24,42**;Feb 04, 2005;Build 245
  1. ;
  1. ;===============
  1. GETDATA(DA,DATA,SVALUE) ;Return data for a specific Visit file entry.
  1. ;DBIA #2028 for Visit file.
  1. N DONE,IEN,HLOCIEN,HTEMP,LOE,TEMP
  1. S TEMP=^AUPNVSIT(DA,0)
  1. S DATA("VISIT")=DA
  1. S DATA("DATE VISIT CREATED")=$P(TEMP,U,2)
  1. S DATA("DFN")=$P(TEMP,U,5)
  1. S (DATA("LOC. OF ENCOUNTER"),LOE)=$P(TEMP,U,6)
  1. S DATA("VISIT ID")=$P(^AUPNVSIT(DA,150),U,1)
  1. ;DBIA #10090
  1. S DATA("STATION NUMBER")=$$GET1^DIQ(4,LOE,99)
  1. S DATA("OFFICAL VA NAME")=$$GET1^DIQ(4,LOE,100)
  1. S DATA("SERVICE CATEGORY")=$P(TEMP,U,7)
  1. I $G(SVALUE) S DATA("VALUE")=$P(TEMP,U,7)
  1. S (DATA("HOSPITAL LOCATION"),HLOCIEN)=$P(TEMP,U,22)
  1. ;DBIA #10040, #2804
  1. S HTEMP=$S(HLOCIEN="":"",1:^SC(HLOCIEN,0))
  1. S DATA("HLOC")=$P(HTEMP,U,1)
  1. S DATA("DSS ID")=$P(TEMP,U,8)
  1. I DATA("DSS ID")="" S DATA("DSS ID")=$P(HTEMP,U,7)
  1. S DATA("DIVISION IEN")=$P(HTEMP,U,15)
  1. I HLOCIEN'="" S DATA("DIVISION")=$$GET1^DIQ(44,HLOCIEN,3.5)
  1. ;DBIA #557
  1. I DATA("DSS ID")'="" S DATA("STOP CODE")=$P(^DIC(40.7,DATA("DSS ID"),0),U,2)
  1. S DATA("OUTSIDE LOCATION")=$G(^AUPNVSIT(DA,21))
  1. S DATA("VISIT COMMENTS")=$G(^AUPNVSIT(DA,811))
  1. ;DBIA #4850
  1. S DATA("STATUS")=$$STATUS^SDPCE(DA)
  1. ;Get the primary provider.
  1. ;DBIA #3455 for V PROVIDER
  1. S DATA("PRIMARY PROVIDER")="",IEN="",DONE=0
  1. F S IEN=$O(^AUPNVPRV("AD",DA,IEN)) Q:(DONE)!(IEN="") D
  1. . S TEMP=^AUPNVPRV(IEN,0)
  1. . I $P(TEMP,U,4)="P" S DATA("PRIMARY PROVIDER")=$P(TEMP,U,1),DONE=1
  1. Q
  1. ;
  1. ;===============
  1. GAPSTAT(VIEN) ;Return the status of the appointment associated with the
  1. ;visit.
  1. ;DBIA #4850
  1. Q $$STATUS^SDPCE(VIEN)
  1. ;
  1. ;===============
  1. HENC(VIEN,INDENT,NLINES,TEXT) ;Display location and comment for historical
  1. ;encounters associated with the V files.
  1. N COMMENT,HLOC,LOCATION,OLOC,NIN,TEXTIN,VDATA
  1. D GETDATA(VIEN,.VDATA) I VDATA("SERVICE CATEGORY")'="E" Q
  1. S NIN=0
  1. S LOCATION=VDATA("LOC. OF ENCOUNTER")
  1. I LOCATION'="" D
  1. . S LOCATION=$$GET1^DIQ(4,LOCATION,.01)_" "_$$GET1^DIQ(4,LOCATION,99)
  1. . S NIN=NIN+1,TEXTIN(NIN)="Location of Encounter: "_LOCATION_"\\"
  1. S HLOC=VDATA("HOSPITAL LOCATION")
  1. I HLOC'="" D
  1. . S HLOC=$$GET1^DIQ(44,HLOC,.01)
  1. . S NIN=NIN+1,TEXTIN(NIN)="Hospital Location: "_HLOC_"\\"
  1. S OLOC=VDATA("OUTSIDE LOCATION")
  1. I OLOC'="" D
  1. . S NIN=NIN+1,TEXTIN(NIN)="Outside Location: "_OLOC_"\\"
  1. S COMMENT=VDATA("COMMENT")
  1. I COMMENT'="" D
  1. . S NIN=NIN+1,TEXTIN(NIN)="Comment: "_COMMENT
  1. I NIN>0 D
  1. . N JND,NOUT,TEXTOUT
  1. . S NLINES=NLINES+1
  1. . S TEXT(NLINES)=$$INSCHR^PXRMEXLC(INDENT," ")_"Historical Encounter Information:"
  1. . D FORMAT^PXRMTEXT(INDENT+2,PXRMRM,NIN,.TEXTIN,.NOUT,.TEXTOUT)
  1. . F JND=1:1:NOUT S NLINES=NLINES+1,TEXT(NLINES)=TEXTOUT(JND)
  1. Q
  1. ;
  1. ;===============
  1. ISHIST(VIEN) ;Return true if the encounter was historical.
  1. ;DBIA #2028
  1. I $P($G(^AUPNVSIT(VIEN,0)),U,7)="E" Q 1
  1. Q 0
  1. ;
  1. ;===============
  1. VAPSTAT(VIEN) ;Return true if the appointment associated with
  1. ;the visit has a valid appointment status.
  1. ;Return false if the status is one of the following:
  1. ;CANCELLED BY CLINIC
  1. ;CANCELLED BY CLINIC & AUTO RE-BOOK
  1. ;CANCELLED BY PATIENT
  1. ;CANCELLED BY PATIENT & AUTO-REBOOK
  1. ;DELETED
  1. ;NO ACTION TAKEN
  1. ;NO-SHOW
  1. ;NO-SHOW & AUTO RE-BOOK
  1. ;NULL
  1. N STATUS,VALID
  1. ;DBIA #4850
  1. S STATUS=$P($$STATUS^SDPCE(VIEN),U,2)
  1. S VALID=$S(STATUS["CANCELLED":0,STATUS["DELETED":0,STATUS["NO ACTION":0,STATUS["NO-SHOW":0,STATUS="":0,1:1)
  1. Q VALID
  1. ;