- 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 Jan 18, 2025@03:33:28 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 ;