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

SCCVEAE1.m

Go to the documentation of this file.
  1. SCCVEAE1 ;ALB/RMO,TMP - Add/Edit Conversion cont.; [ 04/05/95 8:46 AM ]
  1. ;;5.3;Scheduling;**211**;Aug 13, 1993
  1. ;
  1. CON(SCCVEVT,SCDTM,SCVALDT,SCDA) ;Should conversion event be processed for add/edit
  1. ; Input -- SCCVEVT Conversion event
  1. ; SCDTM Visit date/time
  1. ; SCVALDT Valid converted Visit date/time (SCDTM)
  1. ; SCDA Clinic stop code sub-file IEN
  1. ; Output -- 1=Yes and 0=No
  1. ;
  1. N SC0,SCECSTAT,Y,SCOE,SCSTOP,SCLN,DFN
  1. S DFN=+$P($G(^SDV(SCDTM,0)),U,2)
  1. S SC0=$G(^SDV(SCDTM,"CS",SCDA,0))
  1. S SCSTOP=+SC0
  1. S SCLN=+$P(SC0,U,3)
  1. S SCOE=+$P(SC0,U,8)
  1. S SCECSTAT=$P(SC0,U,9)
  1. ;
  1. ; -- do checks
  1. S Y=1
  1. IF Y,$P(SCVALDT,".")>SCCVACRP S Y=0 ; Greater than ACRP date
  1. IF Y,SCCVEVT=1,SCECSTAT S Y=0 ; Convert/already converted
  1. IF Y,SCCVEVT=2,'SCECSTAT S Y=0 ; Re-convert/never converted
  1. IF Y,'SCCVEVT,SCECSTAT S Y=0 ; Estimate/already converted
  1. ;
  1. ; -- if check out required then must have a co completion date/time
  1. IF Y,$$REQ^SDM1A(SCDTM)="CO",'$P($G(^SCE(SCOE,0)),U,7) S Y=0
  1. ;
  1. ; -- if a/e for 900 stop, same clinic, no enounter
  1. ; and lower "CS" ien then current then don't convert
  1. IF Y,SCCV900=SCSTOP,SCLN D
  1. . N SCS,SCS0
  1. . S SCS=0
  1. . F S SCS=$O(^SDV(SCDTM,"CS",SCS)) Q:'SCS!(SCS=SCDA) S SCS0=$G(^(SCS,0)) IF +SCS0=SCCV900,+$P(SCS0,U,3)=SCLN,'$P(SCS0,U,8) S Y=0 Q
  1. ;
  1. ; -- if not a 900, did stop get added via appts? if so, don't convert.
  1. IF Y,SCCV900'=SCSTOP D
  1. . N SCAP,SCAP0,SCEND
  1. . S SCAP=$P(SCDTM,"."),SCEND=SCAP+.24
  1. . F S SCAP=$O(^DPT(DFN,"S",SCAP)) Q:'SCAP!(SCAP>SCEND) S SCAP0=$G(^(SCAP,0)) D Q:'Y
  1. . . ; -- must be valid made appt
  1. . . IF $P(SCAP0,U,2)'="",$P(SCAP0,U,2)'="I" Q
  1. . . ; -- if clinic specified then appt must be for same clinic
  1. . . IF SCLN,SCLN'=+SCAP0 Q
  1. . . ; -- if enc exists & c/o, compare enc stop code with sdv stop code
  1. . . IF $P(SCAP0,U,20) D Q
  1. . . . IF $P($G(^SCE($P(SCAP0,U,20),0)),U,3)=SCSTOP,$P($G(^SCE($P(SCAP0,U,20),0)),U,7) S Y=0
  1. . . ; -- compare clinic's stop code with sdv stop code
  1. . . IF $P($G(^SC(+SCAP0,0)),U,7)=SCSTOP S Y=0 Q
  1. ;
  1. Q +$G(Y)
  1. ;
  1. EN(SCCVEVT,SCDTM,SCDA,SCOEP,SCLOG) ; Entry point to convert an add/edit
  1. ; Input -- SCCVEVT Conversion event
  1. ; 0=Estimate 1=Convert 2=Re-convert
  1. ; SCDTM ien of SDV entry (~Visit date/time)
  1. ; SCDA Clinic stop code sub-file IEN
  1. ; SCOEP Parent outpatient encounter IEN [optional]
  1. ; SCLOG Scheduling conversion log IEN [optional]
  1. N SCCV,SCOE,SCDATA,SCCONS,SCEST,Z,SCVALDT
  1. ;
  1. ; -- make sure sdv d/t is valid
  1. S SCVALDT=$$DATECHCK^SDVSIT(SCDTM)
  1. ;
  1. S SCCONS("SRCE")="SD TO PCE DB CONV"
  1. S SCCONS("PKG")=$O(^DIC(9.4,"C","SD",0))
  1. ;
  1. ; Check if add/edit should be processed
  1. IF '$$CON(SCCVEVT,SCDTM,SCVALDT,SCDA) G ENQ
  1. ;
  1. ; Set-up conversion array and variables
  1. D SET^SCCVEAE3(SCCVEVT,+$G(SCLOG),SCDTM,SCVALDT,SCDA,.SCOEP,.SCOE,.SCCV)
  1. ;
  1. I 'SCCVEVT,$G(SCCV("ERR")) G ENQ
  1. ;
  1. ; Skip if no new enctr or visit needed & no error to log
  1. I '$G(SCCV("NEW")),'$D(SCCV("ERR")) G ENQ
  1. ;
  1. ; Increment number of add/edits found (estimating only)
  1. I 'SCCVEVT D EN^SCCVZZ("AE-1",SCOE,SCDTM,SCDA,+$P($G(SCCV("OE",0)),U,6),+$P($G(SCCV("OE",0)),U,2)) D INCRTOT^SCCVEGU1(.SCTOT,1,1)
  1. ;
  1. ; Log error if no encounter or no visit, exit if no encounter
  1. I SCCVEVT,$S('$G(SCOE):1,1:'$P($G(SCCV("OE",0)),U,5)) D G:'$G(SCOE) ENQ
  1. . N SCERRIP,Y,SCE
  1. . S Y=SCDTM D D^DIQ S SCERRIP(1)=Y
  1. . S SCERRIP(2)=SCDA
  1. . S SCERRIP(5)=$$OTHERR^SCCVU2($G(SCCV("ERR")))
  1. . S SCERRIP(4)=$S('$G(SCOE):"Outpatient encounter",1:"Visit")
  1. . S SCE("DFN")=$P($G(^SDV(SCDTM,0)),U,2),SCE("ENC")=$G(SCOE),SCE("VSIT")="",SCE("DATE")=SCDTM
  1. . D GETERR^SCCVLOG1(4049005.001,.SCE,.SCERRIP,$G(SCLOG),0,.SCERRMSG)
  1. . S SCTOT(2.06)=$G(SCTOT(2.06))+1
  1. . S:$G(SCOE) ^XTMP("SCCV-ERR-"_+$G(SCLOG),"NO-VIS",SCOE)=""
  1. ;
  1. G:$G(SCCV("ERR")) ENQ
  1. ;
  1. ; Invoke DATA-TO-PCE call, store any errors
  1. S SCEST=""
  1. I $S('SCCVEVT:1,1:$P($G(^SCE(SCOE,0)),U,5)) D DATA2PCE^SCCVPCE(SCOE,.SCCONS,SCCVEVT,$S(SCCVEVT:$G(SCOEP),1:$P($G(^SCE(SCOE,0)),U,6)),SCDTM,SCDA,.SCEST)
  1. ;
  1. I 'SCCVEVT D G ENQ ;Estimate exits here
  1. .F Z=1:1:3 I $P(SCEST,U,Z) D INCRTOT^SCCVEGU1(.SCTOT,Z+8,$P(SCEST,U,Z)) D EN^SCCVZZ("AE-"_(Z+8),SCOE,SCDTM,SCDA,+$G(SCOEP),$P(SCEST,U,Z))
  1. ;
  1. ; Convert additional add/edit data
  1. D ENC(SCOE,.SCCV)
  1. ;
  1. ; Update add/edit as converted
  1. D DONE(SCDTM,SCDA,1)
  1. ;
  1. ; Update last entry and number of records
  1. I $G(SCLOG),'$G(SCOEP) D UPDREC^SCCVLOG(SCLOG,SCOE,"CST")
  1. I '$G(SCLOG),$G(SCTOT("A/E")) S SCTOT("OK")=1
  1. ENQ Q
  1. ;
  1. ENC(SCOE,SCCV) ; Convert additional add/edit data for encounter
  1. ; Input -- SCOE Outpatient encounter IEN
  1. ; SCCV Conversion array
  1. ; Output -- None
  1. N SCDATA
  1. I $G(SCCV("VST")),'$P($G(^SCE(SCOE,0)),U,5) S SCDATA(.05)=SCCV("VST") ; visit file entry
  1. I SCCV("NEW")=1 D ;Only if conversion adds the encounter
  1. . I $P($G(SCCV("CS",0)),U,6)'="" S SCDATA(202)=$P(SCCV("CS",0),U,6)
  1. . I $P($G(SCCV("CS",0)),U,2)'="" S SCDATA(101)=$P(SCCV("CS",0),U,2)
  1. . I $P($G(SCCV("CS",1)),U)'="" S SCDATA(201)=$P(SCCV("CS",1),U)
  1. . I $P($G(SCCV("CS",0)),U,7)'="" S SCDATA(902)=$P(SCCV("CS",0),U,7)
  1. . S SCDATA(901)=1 ; created by conversion
  1. I $G(SCCV("VST")) D ENCCNV^SCCVEAP1(.SCDATA)
  1. I $D(SCDATA) D UPD^SCCVDBU(409.68,SCOE,.SCDATA)
  1. ENCQ Q
  1. ;
  1. DONE(SCDTM,SCDA,SCECSTAT) ; Update add/edit encounter conversion status
  1. ; Input -- SCDTM Visit date/time
  1. ; SCDA Clinic stop code sub-file IEN
  1. ; SCECSTAT Encounter conversion status
  1. ; Output -- None
  1. N SCDATA,SCIENS
  1. S SCIENS=SCDA_","_SCDTM
  1. S:'$P($G(^SDV(SCDTM,"CS",SCDA,0)),U,9) SCDATA(9)=SCECSTAT ; encounter conversion status
  1. I $D(SCDATA) D UPD^SCCVDBU(409.51,SCIENS,.SCDATA)
  1. Q
  1. ;