SCCVEDI3 ;ALB/RMO,TMP - Disposition Conversion cont.; [ 04/05/95 8:12 AM ]
;;5.3;Scheduling;**211**;Aug 13, 1993
;
SET(SCCVEVT,SCLOG,DFN,SCOE,SCCV) ;Set variables
; Input -- SCCVEVT Conversion event
; SCLOG Scheduling conversion log IEN
; DFN Patient IEN
; Output -- SCOE Outpatient encounter IEN
; SCCV Conversion array:
; SCCV("EVT") Conversion event
; ("LOG") Scheduling conversion log IEN
; ("NEW") Outpatient encounter
; created by conversion flag
; 0 = no new encounter or visit
; 1 = new encounter and visit
; 2 = new visit only
; ("OE",0) Outpatient encounter 0th node
; ("DISP",0) Disposition log-in date/time 0th node
; ("ERR") Code for specific error, if any
; ("VST") Visit file IEN
N SCOE0
S SCCV("EVT")=SCCVEVT
S SCCV("LOG")=+SCLOG,SCCV("ORG")=3
S SCCV("DISP",0)=$G(^DPT(DFN,"DIS",9999999-SCDTM,0))
I $D(SCCVDIS) D ;Find default disp. clinic for division
. S SCCV("LOC")=+$G(SCCVDIS(+$P(SCCV("DISP",0),U,4)))
. I 'SCCV("LOC"),$G(SCCVDIS(0)) S SCCV("LOC")=SCCVDIS(0)
S SCOE=+$P(SCCV("DISP",0),U,18),SCOE0=$G(^SCE(SCOE,0))
;
; On re-convert, delete previously converted data
I SCCVEVT=2 D
. ; only delete for reconvert if we created the encounter or completed
. ; the conversion by adding the visit
. Q:'$$CCREATE^SCCVU(SCOE)
. ;
. D RECNVT^SCCVEAP3(SCOE,SCOE0,.SCCONS)
. S SCOE0=$G(^SCE(SCOE,0)) S:SCOE0="" SCOE=0
;
S SCCV("NEW")=$S('SCOE:1,'$P(SCOE0,U,5):2,1:0)
;
I 'SCCV("NEW") G SETQ ;Already has enctr and visit
;
; If estimating, increment total number of encounters that would be
; created by the conversion
I 'SCCVEVT D INCRTOT^SCCVEGU1(.SCTOT,SCCV("NEW")+6,1) D EN^SCCVZZ("DIS-"_(SCCV("NEW")+6),SCOE,SCDTM)
;
G:'SCCVEVT SETQ ;Estimate exits here
;
I 'SCOE D ;Needs both encounter and visit
. N SCCVT
. D SETSCCVT^SCCVEAP2(.SCCVT,.SCCONS)
. S SCOE=$$GETDISP^SDVSIT2(DFN,SCDTM)
. S:SCOE SCTOT(1.02)=$G(SCTOT(1.02))+1
. ;Check if child add/edits were auto-added (no children should be auto-created)
. I SCOE,$O(^SCE("APAR",SCOE,0)) D
.. N SCOEC,SCOE00
.. S SCOEC=0 F S SCOEC=$O(^SCE("APAR",SCOE,SCOEC)) Q:'SCOEC S SCOE00=$G(^SCE(SCOEC,0)) I $P(SCOE00,U,8)=2 D
... N SCCV
... S SCCV("NEW")=1
... D ENC^SCCVEDI1(SCOEC,.SCCV)
;
S SCCV("OE")=SCOE
S SCCV("OE",0)=$G(^SCE(SCOE,0))
S SCCV("VST")=$P(SCCV("OE",0),U,5)
S SCCV("REF")=9999999-SCDTM
;
I 'SCCV("VST"),SCCV("NEW")'=1 D
. S SCCV("VST")=$$VISIT^SCCVEAP2(SCDTM,.SCCV) ; create visit only
;
I SCCVEVT,'$G(SCCV("VST")),'$P(SCCV("OE",0),U,4) S SCCV("ERR")=8
SETQ Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSCCVEDI3 2976 printed Nov 22, 2024@17:48:48 Page 2
SCCVEDI3 ;ALB/RMO,TMP - Disposition Conversion cont.; [ 04/05/95 8:12 AM ]
+1 ;;5.3;Scheduling;**211**;Aug 13, 1993
+2 ;
SET(SCCVEVT,SCLOG,DFN,SCOE,SCCV) ;Set variables
+1 ; Input -- SCCVEVT Conversion event
+2 ; SCLOG Scheduling conversion log IEN
+3 ; DFN Patient IEN
+4 ; Output -- SCOE Outpatient encounter IEN
+5 ; SCCV Conversion array:
+6 ; SCCV("EVT") Conversion event
+7 ; ("LOG") Scheduling conversion log IEN
+8 ; ("NEW") Outpatient encounter
+9 ; created by conversion flag
+10 ; 0 = no new encounter or visit
+11 ; 1 = new encounter and visit
+12 ; 2 = new visit only
+13 ; ("OE",0) Outpatient encounter 0th node
+14 ; ("DISP",0) Disposition log-in date/time 0th node
+15 ; ("ERR") Code for specific error, if any
+16 ; ("VST") Visit file IEN
+17 NEW SCOE0
+18 SET SCCV("EVT")=SCCVEVT
+19 SET SCCV("LOG")=+SCLOG
SET SCCV("ORG")=3
+20 SET SCCV("DISP",0)=$GET(^DPT(DFN,"DIS",9999999-SCDTM,0))
+21 ;Find default disp. clinic for division
IF $DATA(SCCVDIS)
Begin DoDot:1
+22 SET SCCV("LOC")=+$GET(SCCVDIS(+$PIECE(SCCV("DISP",0),U,4)))
+23 IF 'SCCV("LOC")
IF $GET(SCCVDIS(0))
SET SCCV("LOC")=SCCVDIS(0)
End DoDot:1
+24 SET SCOE=+$PIECE(SCCV("DISP",0),U,18)
SET SCOE0=$GET(^SCE(SCOE,0))
+25 ;
+26 ; On re-convert, delete previously converted data
+27 IF SCCVEVT=2
Begin DoDot:1
+28 ; only delete for reconvert if we created the encounter or completed
+29 ; the conversion by adding the visit
+30 if '$$CCREATE^SCCVU(SCOE)
QUIT
+31 ;
+32 DO RECNVT^SCCVEAP3(SCOE,SCOE0,.SCCONS)
+33 SET SCOE0=$GET(^SCE(SCOE,0))
if SCOE0=""
SET SCOE=0
End DoDot:1
+34 ;
+35 SET SCCV("NEW")=$SELECT('SCOE:1,'$PIECE(SCOE0,U,5):2,1:0)
+36 ;
+37 ;Already has enctr and visit
IF 'SCCV("NEW")
GOTO SETQ
+38 ;
+39 ; If estimating, increment total number of encounters that would be
+40 ; created by the conversion
+41 IF 'SCCVEVT
DO INCRTOT^SCCVEGU1(.SCTOT,SCCV("NEW")+6,1)
DO EN^SCCVZZ("DIS-"_(SCCV("NEW")+6),SCOE,SCDTM)
+42 ;
+43 ;Estimate exits here
if 'SCCVEVT
GOTO SETQ
+44 ;
+45 ;Needs both encounter and visit
IF 'SCOE
Begin DoDot:1
+46 NEW SCCVT
+47 DO SETSCCVT^SCCVEAP2(.SCCVT,.SCCONS)
+48 SET SCOE=$$GETDISP^SDVSIT2(DFN,SCDTM)
+49 if SCOE
SET SCTOT(1.02)=$GET(SCTOT(1.02))+1
+50 ;Check if child add/edits were auto-added (no children should be auto-created)
+51 IF SCOE
IF $ORDER(^SCE("APAR",SCOE,0))
Begin DoDot:2
+52 NEW SCOEC,SCOE00
+53 SET SCOEC=0
FOR
SET SCOEC=$ORDER(^SCE("APAR",SCOE,SCOEC))
if 'SCOEC
QUIT
SET SCOE00=$GET(^SCE(SCOEC,0))
IF $PIECE(SCOE00,U,8)=2
Begin DoDot:3
+54 NEW SCCV
+55 SET SCCV("NEW")=1
+56 DO ENC^SCCVEDI1(SCOEC,.SCCV)
End DoDot:3
End DoDot:2
End DoDot:1
+57 ;
+58 SET SCCV("OE")=SCOE
+59 SET SCCV("OE",0)=$GET(^SCE(SCOE,0))
+60 SET SCCV("VST")=$PIECE(SCCV("OE",0),U,5)
+61 SET SCCV("REF")=9999999-SCDTM
+62 ;
+63 IF 'SCCV("VST")
IF SCCV("NEW")'=1
Begin DoDot:1
+64 ; create visit only
SET SCCV("VST")=$$VISIT^SCCVEAP2(SCDTM,.SCCV)
End DoDot:1
+65 ;
+66 IF SCCVEVT
IF '$GET(SCCV("VST"))
IF '$PIECE(SCCV("OE",0),U,4)
SET SCCV("ERR")=8
SETQ QUIT
+1 ;
