DGPMOBS ;ALB/MM - Observation API;11/25/98
;;5.3;Registration;**212,831**;Aug 13 1993;Build 10
;
;This routine provides 3 entry points to obtain observation statuses.
;Line labels MVT, PT, and SPEC document required input variables and
;output values.
;
MVT(IFN) ;This entry point returns the observation status based on
;a specified Patient Movement (#405) file entry
;
;Input:
; Patient Movement (#405) file IFN (Required)
;
;Output:
; If an observation treating specialty return:
; 1^Facility Treating Specialty (#45.7)file IFN^Facility
; Treating Specialty (#45.7) file name^Specialty (#42.4)
; file IFN^Specialty (#42.4) file name
;
; If not an observation treating specialty return:
; 0^Facility Treating Specialty (#45.7) file IFN^Facility
; Treating Specialty (#45.7) file name^Specialty (#42.4)
; file IFN^Specialty (#42.4) file name
;
; If Patient (#2) file DFN, Patient Movement (#405) IFN, or
; Specialty (#42.4) file IFN not defined or invalid return:
; -1^Error condition
;
N DFN,OBS,SPIFN,VAIP
S OBS=0
I '$D(IFN) S OBS="-1^Patient Movement (#405) file IFN undefined" Q OBS
I '$G(^DGPM(+IFN,0)) S OBS="-1^No Patient Movement (#405) file entry" Q OBS
S DFN=+$P($G(^DGPM(+IFN,0)),U,3)
I 'DFN S OBS="-1^Patient (#2) file DFN not defined" Q OBS
;VAIP("E") contains the Patient Movement (#405) file IFN
S VAIP("E")=+IFN
D INP
Q OBS
PT(DFN,MVTDT) ;This entry point returns observation status for a patient
;based on the treating specialty associated for a designated date/time.
;If not defined, defaults to status for the current date/time.
;
;Input:
; DFN from Patient (#2) file
; MVTDT (optional) if not defined defaults to current date/time
;
;Output:
; Same as output documented for MVT entry point
;
N OBS,SPIFN,VAIP
S OBS=0
;If date not defined, defaults to current date/time
S:'$D(MVTDT) MVTDT=$$NOW^XLFDT
;MVTDT must contain a time
I $P(MVTDT,".",2)']"" S OBS="-1^Time required" Q OBS
I '$D(DFN) S OBS="-1^Patient (#2) file DFN not defined" Q OBS
I '$D(^DPT(+DFN,0)) S OBS="-1^No Patient (#2) file entry" Q OBS
S VAIP("D")=MVTDT
D INP
Q OBS
INP ;Get inpatient data based on criteria from MVT and PT entry points
D IN5^VADPT
;VAIP(8) returned by IN5^VADPT call is the treating specialty from
;the Facility Treating Specialty (#45.7) file in internal^external
;format
;SPIFN is a pointer to the SPECIALTY (#42.4) file from the SPECIALTY
;(#1) field
S SPIFN=$P($G(^DIC(45.7,+VAIP(8),0)),U,2)
S OBS=$$SPEC(SPIFN)
I +OBS'=-1 S OBS=OBS_U_VAIP(8)_U_SPIFN_U_$P($G(^DIC(42.4,+SPIFN,0)),U)
Q
SPEC(SPIFN) ;This entry point determines if the Specialty file (#42.4)
;is an observation specialty.
;
;Observation specialties from the Specialty (#42.4) file are:
;
; 18 - Neurology Observation
; 23 - Spinal Cord Injury Observation
; 24 - Medical Observation
; 36 - Blind Rehab Observation
; 41 - Rehab Medicine Observation
; 65 - Surgical Observation
; 94 - Psychiatric Observation
; 108 - ED Observation
;
;Input:
; SPIFN - Specialty (#42.4) IFN
;
;Output:
; 1 observation treating specialty
; 0 not an observation specialty
; -1 no treating specialty IFN defined or
; IFN not found in Specialty (#42.4) file
;
N SPEC,TX
S TX=0
I '$D(SPIFN) S TX="-1^Specialty (#42.4) IFN not defined" Q TX
I '$D(^DIC(42.4,+SPIFN,0)) S TX="-1^No Specialty (#42.4) file entry" Q TX
;SPEC=observation treating specialty IFNs
F SPEC=18,23,24,36,41,65,94,108 I SPEC=SPIFN S TX=1 Q
Q TX
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGPMOBS 3673 printed Dec 13, 2024@02:49:47 Page 2
DGPMOBS ;ALB/MM - Observation API;11/25/98
+1 ;;5.3;Registration;**212,831**;Aug 13 1993;Build 10
+2 ;
+3 ;This routine provides 3 entry points to obtain observation statuses.
+4 ;Line labels MVT, PT, and SPEC document required input variables and
+5 ;output values.
+6 ;
MVT(IFN) ;This entry point returns the observation status based on
+1 ;a specified Patient Movement (#405) file entry
+2 ;
+3 ;Input:
+4 ; Patient Movement (#405) file IFN (Required)
+5 ;
+6 ;Output:
+7 ; If an observation treating specialty return:
+8 ; 1^Facility Treating Specialty (#45.7)file IFN^Facility
+9 ; Treating Specialty (#45.7) file name^Specialty (#42.4)
+10 ; file IFN^Specialty (#42.4) file name
+11 ;
+12 ; If not an observation treating specialty return:
+13 ; 0^Facility Treating Specialty (#45.7) file IFN^Facility
+14 ; Treating Specialty (#45.7) file name^Specialty (#42.4)
+15 ; file IFN^Specialty (#42.4) file name
+16 ;
+17 ; If Patient (#2) file DFN, Patient Movement (#405) IFN, or
+18 ; Specialty (#42.4) file IFN not defined or invalid return:
+19 ; -1^Error condition
+20 ;
+21 NEW DFN,OBS,SPIFN,VAIP
+22 SET OBS=0
+23 IF '$DATA(IFN)
SET OBS="-1^Patient Movement (#405) file IFN undefined"
QUIT OBS
+24 IF '$GET(^DGPM(+IFN,0))
SET OBS="-1^No Patient Movement (#405) file entry"
QUIT OBS
+25 SET DFN=+$PIECE($GET(^DGPM(+IFN,0)),U,3)
+26 IF 'DFN
SET OBS="-1^Patient (#2) file DFN not defined"
QUIT OBS
+27 ;VAIP("E") contains the Patient Movement (#405) file IFN
+28 SET VAIP("E")=+IFN
+29 DO INP
+30 QUIT OBS
PT(DFN,MVTDT) ;This entry point returns observation status for a patient
+1 ;based on the treating specialty associated for a designated date/time.
+2 ;If not defined, defaults to status for the current date/time.
+3 ;
+4 ;Input:
+5 ; DFN from Patient (#2) file
+6 ; MVTDT (optional) if not defined defaults to current date/time
+7 ;
+8 ;Output:
+9 ; Same as output documented for MVT entry point
+10 ;
+11 NEW OBS,SPIFN,VAIP
+12 SET OBS=0
+13 ;If date not defined, defaults to current date/time
+14 if '$DATA(MVTDT)
SET MVTDT=$$NOW^XLFDT
+15 ;MVTDT must contain a time
+16 IF $PIECE(MVTDT,".",2)']""
SET OBS="-1^Time required"
QUIT OBS
+17 IF '$DATA(DFN)
SET OBS="-1^Patient (#2) file DFN not defined"
QUIT OBS
+18 IF '$DATA(^DPT(+DFN,0))
SET OBS="-1^No Patient (#2) file entry"
QUIT OBS
+19 SET VAIP("D")=MVTDT
+20 DO INP
+21 QUIT OBS
INP ;Get inpatient data based on criteria from MVT and PT entry points
+1 DO IN5^VADPT
+2 ;VAIP(8) returned by IN5^VADPT call is the treating specialty from
+3 ;the Facility Treating Specialty (#45.7) file in internal^external
+4 ;format
+5 ;SPIFN is a pointer to the SPECIALTY (#42.4) file from the SPECIALTY
+6 ;(#1) field
+7 SET SPIFN=$PIECE($GET(^DIC(45.7,+VAIP(8),0)),U,2)
+8 SET OBS=$$SPEC(SPIFN)
+9 IF +OBS'=-1
SET OBS=OBS_U_VAIP(8)_U_SPIFN_U_$PIECE($GET(^DIC(42.4,+SPIFN,0)),U)
+10 QUIT
SPEC(SPIFN) ;This entry point determines if the Specialty file (#42.4)
+1 ;is an observation specialty.
+2 ;
+3 ;Observation specialties from the Specialty (#42.4) file are:
+4 ;
+5 ; 18 - Neurology Observation
+6 ; 23 - Spinal Cord Injury Observation
+7 ; 24 - Medical Observation
+8 ; 36 - Blind Rehab Observation
+9 ; 41 - Rehab Medicine Observation
+10 ; 65 - Surgical Observation
+11 ; 94 - Psychiatric Observation
+12 ; 108 - ED Observation
+13 ;
+14 ;Input:
+15 ; SPIFN - Specialty (#42.4) IFN
+16 ;
+17 ;Output:
+18 ; 1 observation treating specialty
+19 ; 0 not an observation specialty
+20 ; -1 no treating specialty IFN defined or
+21 ; IFN not found in Specialty (#42.4) file
+22 ;
+23 NEW SPEC,TX
+24 SET TX=0
+25 IF '$DATA(SPIFN)
SET TX="-1^Specialty (#42.4) IFN not defined"
QUIT TX
+26 IF '$DATA(^DIC(42.4,+SPIFN,0))
SET TX="-1^No Specialty (#42.4) file entry"
QUIT TX
+27 ;SPEC=observation treating specialty IFNs
+28 FOR SPEC=18,23,24,36,41,65,94,108
IF SPEC=SPIFN
SET TX=1
QUIT
+29 QUIT TX
