VSITCK1 ;ISD/RJP - Visit Field Check (continued) ;6/20/96
;;1.0;PCE PATIENT CARE ENCOUNTER;**76**;Aug 12, 1996
; Patch PX*1*76 changes the 2nd line of all VSIT* routines to reflect
; the incorporation of the module into PCE. For historical reference,
; the old (VISIT TRACKING) 2nd line is included below to reference VSIT
; patches.
;
;;2.0;VISIT TRACKING;;Aug 12, 1996;
;
Q ; - not an entry point
;
IP(VDT,PAT) ; - check inpatient status
;
; - rtns <ien of patient movement>
;
N VADMVT,VAINDT,VAERR
N IPM,DFN
S VDT=$G(VDT),PAT=$G(PAT)
S VAINDT=VDT,DFN=+$G(PAT) D ADM^VADPT2
S IPM=$S(+VADMVT>0:+VADMVT,1:"")
; - dom pt is not an inpatient (from ^SDAM2)
I $P(^DG(43,1,0),"^",21),$P($G(^DIC(42,+$P($G(^DGPM(+VADMVT,0)),"^",6),0)),"^",3)="D" S IPM=""
Q IPM
;
INS4LOC(LOC) ; - Get Institution for a given Location
;
N INS S LOC=$G(LOC),INS=""
D:+LOC
. S INS=$P(^SC(LOC,0),"^",15)
. S:+INS INS=$P($G(^DG(40.8,INS,0)),"^",7)
. S INS=$S(+INS&$D(^DIC(4,+INS,0)):INS,1:"")
Q INS
;
DSS4LOC(LOC) ; - Get Clinic Stop Code for a given Location
;
N DSS S LOC=$G(LOC),DSS=""
D:+LOC
. S DSS=$P($G(^SC(LOC,0)),"^",7) S:DSS'=+DSS DSS=""
Q DSS
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVSITCK1 1218 printed Oct 16, 2024@18:33:05 Page 2
VSITCK1 ;ISD/RJP - Visit Field Check (continued) ;6/20/96
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**76**;Aug 12, 1996
+2 ; Patch PX*1*76 changes the 2nd line of all VSIT* routines to reflect
+3 ; the incorporation of the module into PCE. For historical reference,
+4 ; the old (VISIT TRACKING) 2nd line is included below to reference VSIT
+5 ; patches.
+6 ;
+7 ;;2.0;VISIT TRACKING;;Aug 12, 1996;
+8 ;
+9 ; - not an entry point
QUIT
+10 ;
IP(VDT,PAT) ; - check inpatient status
+1 ;
+2 ; - rtns <ien of patient movement>
+3 ;
+4 NEW VADMVT,VAINDT,VAERR
+5 NEW IPM,DFN
+6 SET VDT=$GET(VDT)
SET PAT=$GET(PAT)
+7 SET VAINDT=VDT
SET DFN=+$GET(PAT)
DO ADM^VADPT2
+8 SET IPM=$SELECT(+VADMVT>0:+VADMVT,1:"")
+9 ; - dom pt is not an inpatient (from ^SDAM2)
+10 IF $PIECE(^DG(43,1,0),"^",21)
IF $PIECE($GET(^DIC(42,+$PIECE($GET(^DGPM(+VADMVT,0)),"^",6),0)),"^",3)="D"
SET IPM=""
+11 QUIT IPM
+12 ;
INS4LOC(LOC) ; - Get Institution for a given Location
+1 ;
+2 NEW INS
SET LOC=$GET(LOC)
SET INS=""
+3 if +LOC
Begin DoDot:1
+4 SET INS=$PIECE(^SC(LOC,0),"^",15)
+5 if +INS
SET INS=$PIECE($GET(^DG(40.8,INS,0)),"^",7)
+6 SET INS=$SELECT(+INS&$DATA(^DIC(4,+INS,0)):INS,1:"")
End DoDot:1
+7 QUIT INS
+8 ;
DSS4LOC(LOC) ; - Get Clinic Stop Code for a given Location
+1 ;
+2 NEW DSS
SET LOC=$GET(LOC)
SET DSS=""
+3 if +LOC
Begin DoDot:1
+4 SET DSS=$PIECE($GET(^SC(LOC,0)),"^",7)
if DSS'=+DSS
SET DSS=""
End DoDot:1
+5 QUIT DSS
+6 ;
