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

SDVSIT0.m

Go to the documentation of this file.
  1. SDVSIT0 ;MJK/ALB,ESW,SCK - OE Processing ; 11/21/02 11:00am
  1. ;;5.3;Scheduling;**27,99,132,257,430**;AUG 13, 1993
  1. ;
  1. ADD(SDT,SDVSIT) ; -- add/find outpatient encounter
  1. ; input SDT = visit date internal format
  1. ; SDVSIT = <see bottom of routine>
  1. ;
  1. ; returned = ien of 409.67
  1. ; *** search code to be written ***
  1. ; -- set up vars
  1. S SDVSIT("VST")=""
  1. ; -- add a visit file entry
  1. D VISIT(SDT,.SDVSIT)
  1. ; -- add opt encounter
  1. Q $$NEW(SDT,.SDVSIT)
  1. ;
  1. NEW(SDT,SDVSIT) ; -- create new outpatient encounter record
  1. ; input SDT = visit date internal format
  1. ; SDVSIT = <see bottom of routine>
  1. ;
  1. ; returned = ien of 409.67
  1. ;
  1. N SDOE,X,DA,DR,DIE,DQ,DE,I
  1. ; -- creation hard set for performance
  1. S I=$P(^SCE(0),U,3)
  1. LOCK S I=I+1 L +^SCE(I):1 I '$T!$D(^SCE(I)) L -^SCE(I) G LOCK
  1. S ^SCE(I,0)=SDT,^SCE("B",SDT,I)="",^SCE(0)=$P(^SCE(0),"^",1,2)_"^"_I_"^"_($P(^SCE(0),"^",4)+1),^DISV($S($D(DUZ)'[0:DUZ,1:0),"^SCE(")=I,Y=I
  1. ;K DD,DO S SDOE=0,X=SDT,DIC="^SCE(",DIC(0)="L" D FILE^DICN G NEWQ:'Y
  1. S:'$G(SDVSIT("ELG")) SDVSIT("ELG")=$P($G(^DPT(SDVSIT("DFN"),.36)),U)
  1. S SDVSIT("STA")=$$STATUS(+SDVSIT("DFN"),SDT,+$G(SDVSIT("LOC")),SDVSIT("ORG"),"KILL")
  1. S (SDOE,DA)=+Y,DIE="^SCE(",DR="[SD ENCOUNTER ENTRY]" D ^DIE
  1. D:$$REQ^SDM1A(SDT)'="CO" EN^SDCOM(SDOE,0,99999)
  1. L -^SCE(SDOE)
  1. NEWQ Q SDOE
  1. ;
  1. VISIT(SDT,SDVSIT) ; -- add visit file entry
  1. N VSIT,DFN,DIE,DIC,DR,DA,X,VSITPKG
  1. ; -- is visit tracking loaded
  1. S X="VSITKIL" X ^%ZOSF("TEST") I '$T G VISITQ
  1. ; -- set up vars
  1. ;S VSIT(0)="ENMD0",VSIT=SDT,DFN=SDVSIT("DFN"),VSITPKG="SD"
  1. S VSIT(0)="F",VSIT=SDT,DFN=SDVSIT("DFN"),VSITPKG="SD"
  1. S VSIT("CLN")=$G(SDVSIT("CLN")),VSIT("SVC")=$S($G(SDVSIT("SVC"))]"":SDVSIT("SVC"),$$INP^SDAM2(DFN,SDT)="I":"I",1:"A")
  1. ;S VSIT("INS")=$P($G(^DG(40.8,+$G(SDVSIT("DIV")),0)),U,7)
  1. S VSIT("ELG")=$S($G(SDVSIT("ELG")):SDVSIT("ELG"),1:+$G(^DPT(DFN,.36)))
  1. I $G(SDVSIT("LOC")) S VSIT("LOC")=SDVSIT("LOC")
  1. I $G(SDVSIT("PAR")) S X=$G(^SCE(SDVSIT("PAR"),0)) I X]"" S VSIT=+X I $P(X,U,5) S VSIT("LNK")=$P(X,U,5)
  1. S VSIT("ACT")=$$GETARN^SDPFSS2(SDT,DFN,$G(SDVSIT("LOC")))
  1. I $G(VSIT("LNK")) D ;PX/96 - accept passed INSTITUTION
  1. .N DR,DIC,DA,DIQ,INST,DIC1
  1. .S DR=".06",DIC=9000010,DIC1=DIC,DA=VSIT("LNK"),DIQ="INST",DIQ(0)="I" D EN^DIQ1
  1. .S VSIT("INS")=+$G(INST(DIC1,DA,DR,"I"))
  1. .I VSIT("INS")'>0 S VSIT("INS")=$P($G(^DG(40.8,+$G(SDVSIT("DIV")),0)),U,7)
  1. .Q
  1. ;
  1. I '$G(SDVSIT("PAR")) D
  1. . S VSIT("PRI")="P"
  1. E D
  1. . I SDVSIT("ORG")=4 D
  1. .. S VSIT("PRI")="C",VSIT("SVC")=$S($$INP^SDAM2(DFN,SDT)="I":"D",1:"X")
  1. . E D
  1. .. S VSIT("PRI")="S"
  1. ;
  1. ; -- changes for database conversion to pass in source and service
  1. I $D(SCCVT) D
  1. . I $G(SCCVT("SOR"))'="" S VSIT("SOR")=$$SOURCE^PXAPI(SCCVT("SOR"))
  1. . I $G(SCCVT("SVC"))'="" S VSIT("SVC")=SCCVT("SVC")
  1. . I $G(SCCVT("LOC"))'="" S VSIT("LOC")=SCCVT("LOC")
  1. ;
  1. ; -- do checks
  1. I 'VSIT,'DFN,'VSIT("ELG")!('VSIT("INS"))!('VSIT("CLN")) G VISITQ
  1. ;
  1. ; -- add/find visit
  1. ;-- change call if orinating process is a disposition.
  1. I SDVSIT("ORG")=3 D DISPVSIT^PXAPI
  1. I SDVSIT("ORG")'=3 D ^VSIT
  1. IF +$G(VSIT("IEN"))>0 S SDVSIT("VST")=+VSIT("IEN")
  1. VISITQ Q
  1. ;
  1. STATUS(DFN,SDT,SDCL,SDORG,SDACT) ; -- 409.68;.07 x-ref
  1. N Y S Y=0
  1. I $$INP^SDAM2(DFN,SDT)="I" S Y=8
  1. I 'Y,$P($G(^SC(+SDCL,0)),U,17)="Y" S Y=12
  1. I 'Y S Y=$S(SDACT="SET":2,$$REQ^SDM1A(SDT)="CO":14,1:2)
  1. Q Y
  1. ;
  1. ;
  1. ; Additional input/output variable documentation
  1. ;
  1. ; SDVSIT("LOC") = file # 44 ien (location)
  1. ; ("ELG") = file # 8 ien (eligibility)
  1. ; ("CLN") = file # 40.7 ien (clinic stop code)
  1. ; ("DIV") = file # 40.8 ien (med ctr div)
  1. ; ("DFN") = file # 2 ien (patient)
  1. ; ("STA") = file #409.63 ien (appt status)
  1. ; ("ORG") = orginating process
  1. ; 1 - appt
  1. ; 2 - add/edit
  1. ; 3 - disposition
  1. ; ("TYP") = file #409.1 ien (appt type)
  1. ; ("VST") = file #9000010 ien (visit)
  1. ; ("LNK") = file #9000010 ien (parent visit)
  1. ; ("REF") = extended reference
  1. ; appt - ^SC(<clinic>,"S",<date/time>,1,<ext ref>,0)
  1. ; disp - ^DPT(<dfn>,"DIS",<ext ref>,0)
  1. ; ("PAR") = file #409.68 ien (outpatient encounter)
  1. ; - parent encounter ien
  1. ; SDVIEN = passed in Visit file ien
  1. ;