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

SDCO21.m

Go to the documentation of this file.
  1. SDCO21 ;ALB/RMO - Classification Cont. - Check Out;30 MAR 1993 2:10 pm ; 3/12/04 4:33pm
  1. ;;5.3;Scheduling;**150,244,325,441**;Aug 13, 1993;Build 14
  1. ;
  1. CL(DFN,SDDT,SDOE,SDCLY) ;Build Classification Array
  1. ; Input -- DFN Patient file IEN
  1. ; SDDT Date/Time
  1. ; SDOE Outpatient Encounter file IEN [Optional]
  1. ; Output -- SDCLY Classification Array
  1. ; Subscripted by Class. Type file (#409.41) IEN
  1. N SDCTI
  1. S SDCTI=0 F S SDCTI=$O(^SD(409.41,SDCTI)) Q:'SDCTI I $$SCR(SDCTI,DFN,SDDT,$G(SDOE)) S SDCLY(SDCTI)=""
  1. CLQ Q
  1. ;
  1. SCR(SDCTI,DFN,SDDT,SDOE) ;Outpatient Classification Type Screen
  1. ; Input -- SDCTI Outpatient Classification Type IEN
  1. ; DFN Patient file IEN
  1. ; SDDT Date/Time
  1. ; SDOE Outpatient Encounter file IEN [Optional]
  1. ; Output -- 1=Yes and 0=No
  1. N Y
  1. I $$ACT^SDCODD(SDCTI,SDDT) D
  1. .I $D(^SD(409.41,SDCTI,1)) X ^(1) Q:'$T
  1. .S Y=1
  1. SCRQ Q +$G(Y)
  1. ;
  1. CLOE(SDOE,SDCLOEY) ;Set-up Classification Array for Outpatient Encounter
  1. ; Input -- SDOE Outpatient Encounter file IEN
  1. ; Output -- SDCLOEY Classification Array Set for Outpatient Encounter
  1. ; Subscripted by Class Type file IEN
  1. ; Null or 409.42 IEN^Internal Value^1=n/a^1=unedt
  1. N SDCLY,SDCN0,SDCNI,SDCTI,SDCTIS,SDCTS,SDOE0
  1. S SDOE0=$G(^SCE(+SDOE,0))
  1. D CL($P(SDOE0,"^",2),+SDOE0,SDOE,.SDCLY)
  1. S SDCTI=0 F S SDCTI=$O(^SDD(409.42,"AO",SDOE,SDCTI)) Q:'SDCTI S SDCNI=+$O(^(SDCTI,0)) I $D(^SDD(409.42,SDCNI,0)) S SDCN0=^(0) D
  1. .S SDCLY(SDCTI)=SDCNI_"^"_$P(SDCN0,"^",3)_"^"_$S('$D(SDCLY(SDCTI)):1,1:"")_"^"_$S($P(SDOE0,"^",10)=2:1,1:"")
  1. S SDCTIS=$$SEQ
  1. F SDCTS=1:1 S SDCTI=+$P(SDCTIS,",",SDCTS) Q:'SDCTI I $D(SDCLY(SDCTI)) S SDCLOEY(SDCTI)=SDCLY(SDCTI)
  1. CLOEQ Q
  1. ;
  1. SC(SDCTI,SDOE,SDSELY,SDCLOEY) ;Service Connected Classification Checks
  1. N SDCHGF,SDCLOE,SDSEL
  1. S SDSEL=$S(SDCTI=1:2,SDCTI=2:3,SDCTI=4:4,1:"") G SCQ:SDSEL=""
  1. D CHK(SDOE,SDCTI,.SDCLOE)
  1. I $D(SDCLOE) D G SCQ
  1. .I SDCLOE,$P(SDCLOE,"^",3) S SDCHGF=1
  1. .I SDCLOE="" S SDCHGF=1
  1. .I $G(SDCHGF) S:$D(SDSELY) SDSELY(SDSEL)="" S SDCLOEY(SDCTI)=SDCLOE
  1. I '$D(SDCLOE) D
  1. .K SDCLOEY(SDCTI)
  1. SCQ Q
  1. ;
  1. CHK(SDOE,SDCTI,SDCLOE) ;Check One Classification for Outpatient Encounter
  1. ; Input -- SDOE Outpatient Encounter file IEN
  1. ; SDCTI Outpatient Classification Type IEN
  1. ; Output -- SDCLOE Null or 409.42 IEN^Internal Value^1=n/a^1=unedt
  1. N DFN,SDCL,SDCNI,SDDT,SDOE0
  1. S SDOE0=$G(^SCE(+SDOE,0))
  1. S DFN=+$P(SDOE0,"^",2),SDDT=+SDOE0
  1. I $$SCR(SDCTI,DFN,SDDT,SDOE) S SDCL=""
  1. S SDCNI=+$O(^SDD(409.42,"AO",SDOE,SDCTI,0))
  1. I $D(^SDD(409.42,SDCNI,0)) S SDCL=SDCNI_"^"_$P(^(0),"^",3)_"^"_$S('$D(SDCL):1,1:"")_"^"_$S($P(SDOE0,"^",10)=2:1,1:"")
  1. I $D(SDCL) S SDCLOE=SDCL
  1. CHKQ Q
  1. ;
  1. SEQ() ;Classification Type Sequence by IEN
  1. ; Input -- None
  1. ; Output -- Classification Type Sequence by IEN
  1. ; Current Sequence is: SC, CV, AO, IR, EC, SHAD, MST, HNC
  1. Q "3,7,1,2,4,8,5,6"