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.  ;