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

SDCO22.m

Go to the documentation of this file.
  1. SDCO22 ;ALB/RMO/MRY - Classification Cont. - Screen - Check Out ; Mar 04, 2021@10:12
  1. ;;5.3;Scheduling;**150,222,244,325,394,441,544,777**;Aug 13, 1993;Build 4
  1. ;
  1. AO(DFN,SDOE) ;Ask Agent Orange Exposure Classification
  1. ; Input -- DFN Patient file IEN
  1. ; SDOE Outpatient Encounter file IEN [Optional]
  1. ; Output -- 1=Yes and 0=No
  1. N SDELG0,Y
  1. I $P($G(^DPT(DFN,.321)),"^",2)="Y",($P($G(^DPT(DFN,.321)),"^",13)="V"!($P($G(^DPT(DFN,.321)),"^",13)="B")) D ;SD/441, SD*5.3*777 - add BWN
  1. . S SDELG0=$$EL(DFN,$G(SDOE))
  1. . I $P(SDELG0,"^",5)="Y","^1^2^3^4^5^"[("^"_$P(SDELG0,"^",4)_"^") S Y=1
  1. . I $G(Y),$G(SDOE) D
  1. . . I '$$AP(SDOE,1) S Y=0 Q
  1. . . I $P(SDELG0,"^",4)=3!($P(SDELG0,"^",4)=1),$P($G(^SDD(409.42,+$O(^SDD(409.42,"AO",+SDOE,3,0)),0)),"^",3) S Y=0
  1. AOQ Q +$G(Y)
  1. ;
  1. IR(DFN,SDOE) ;Ask Ionizing Radiation Exposure Classification
  1. ; Input -- DFN Patient file IEN
  1. ; SDOE Outpatient Encounter file IEN [Optional]
  1. ; Output -- 1=Yes and 0=No
  1. N SDELG0,Y
  1. I $P($G(^DPT(DFN,.321)),"^",3)'="Y" G IRQ
  1. S SDELG0=$$EL(DFN,$G(SDOE))
  1. I $P(SDELG0,"^",5)="Y","^1^2^3^4^5^"[("^"_$P(SDELG0,"^",4)_"^") S Y=1
  1. I $G(Y),$G(SDOE) D
  1. .I '$$AP(SDOE,2) S Y=0 Q
  1. .I $P(SDELG0,"^",4)=3!($P(SDELG0,"^",4)=1),$P($G(^SDD(409.42,+$O(^SDD(409.42,"AO",+SDOE,3,0)),0)),"^",3) S Y=0
  1. IRQ Q +$G(Y)
  1. ;
  1. SC(DFN,SDOE) ;Ask Service Connected Condition Classification
  1. ; Input -- DFN Patient file IEN
  1. ; SDOE Outpatient Encounter file IEN [Optional]
  1. ; Output -- 1=Yes and 0=No
  1. N SDELG0,Y
  1. S SDELG0=$$EL(DFN,$G(SDOE))
  1. I $P(SDELG0,"^",5)="Y","^1^3^"[("^"_$P(SDELG0,"^",4)_"^") S Y=1
  1. I $G(Y),$G(SDOE) D
  1. .I '$$AP(SDOE,3) S Y=0 Q
  1. SCQ Q +$G(Y)
  1. ;
  1. EC(DFN,SDOE) ;Ask Environmental Contaminant Exposure Classification
  1. ;sd/441 - renamed 'SW Asia Coditions'
  1. ; Input -- DFN Patient file IEN
  1. ; SDOE Outpatient Encounter file IEN [Optional]
  1. ; Output -- 1=Yes and 0=No
  1. N SDELG0,Y
  1. S SDELG0=$$EL(DFN,$G(SDOE))
  1. I $P($G(^DPT(DFN,.322)),"^",13)'="Y" D G ECQ
  1. .I $P(SDELG0,"^",5)="N","^4^"[("^"_$P(SDELG0,"^",4)_"^"),"^A^B^C^D^6^"[("^"_($P($G(^DIC(21,+$P($G(^DPT(DFN,.32)),"^",3),0)),"^",3))_"^") S Y=1
  1. I $P(SDELG0,"^",5)="Y","^1^2^3^4^5^"[("^"_$P(SDELG0,"^",4)_"^") S Y=1
  1. I $G(Y),$G(SDOE) D
  1. .I '$$AP(SDOE,4) S Y=0 Q
  1. .I $P(SDELG0,"^",4)=3!($P(SDELG0,"^",4)=1),$P($G(^SDD(409.42,+$O(^SDD(409.42,"AO",+SDOE,3,0)),0)),"^",3) S Y=0
  1. ECQ Q +$G(Y)
  1. ;
  1. EL(DFN,SDOE) ;Eligibility
  1. Q $G(^DIC(8.1,+$P($G(^DIC(8,+$S($P($G(^SCE(+$G(SDOE),0)),"^",13):+$P(^(0),"^",13),1:+$G(^DPT(DFN,.36))),0)),"^",9),0))
  1. ;
  1. AP(SDOE,SDCTI) ;Classification Appointment Type Screen
  1. N SDAPTY,Y,SDVSTIEN
  1. S SDAPTY=+$P($G(^SCE(+SDOE,0)),"^",10)
  1. I SDAPTY=9 S Y=1
  1. I SDAPTY=11 S Y=1
  1. I SDAPTY=2,SDCTI=3 S Y=1
  1. S SDVSTIEN=$P($G(^SCE(+SDOE,0)),U,5)
  1. I $P($G(^AUPNVSIT(+SDVSTIEN,812)),U,3) D
  1. .I $D(^PX(839.7,"B","QUASAR",$P($G(^AUPNVSIT(+SDVSTIEN,812)),U,3))) D
  1. ..I $P($G(^AUPNVSIT(+SDVSTIEN,800)),U)'="" S Y=1
  1. APQ Q +$G(Y)
  1. ;
  1. MST(DFN,SDOE) ;Ask Military Sexual Trauma Classification
  1. ;Input - DFN Patient file IEN
  1. ; SDOE Outpatient Encounter file IEN
  1. ;Output - 1=Yes, 0=No
  1. N DGMST
  1. S DGMST=$$GETSTAT^DGMSTAPI(DFN)
  1. Q +($P(DGMST,U,2)="Y")
  1. ;
  1. HNC(DFN,SDOE) ;Ask Head & Neck Classification
  1. ;Input - DFN Patient file IEN
  1. ; SDOE Outpatient Encounter file IEN
  1. ;Output - 1=Yes, 0=No
  1. N DGARR,SDELG0,Y
  1. S SDELG0=$$GETCUR^DGNTAPI(DFN,"DGARR")
  1. S SDELG0=+$G(DGARR("STAT"))
  1. ;Only a status of 3, 4 or 5 is accepted for the question to be asked
  1. S Y=$S((".3.4.5."[("."_SDELG0_".")):1,1:0)
  1. HNCQ Q +$G(Y)
  1. ;
  1. CV(DFN,SDOE,SDDT) ;Ask Combat Veteran Classification
  1. ;Input : DFN - Pointer to PATIENT file (#2)
  1. ; SDOE - Pointer to OUTPATIENT ENCOUNTER file (#409.68)
  1. ; SDDT - Date (FileMan format) (optional - SDOE overrides)
  1. ;Output: 1 = Yes / 0 = No
  1. N SDCV
  1. S SDDT=$G(SDDT)
  1. S:$G(SDOE) SDDT=+$G(^SCE(+$G(SDOE),0))
  1. S:'SDDT SDDT=$$DT^XLFDT()
  1. S SDCV=$$CVEDT^DGCV(DFN,SDDT)
  1. Q $P(SDCV,"^",3)
  1. ;
  1. SHAD(DFN) ;Ask Project 112/SHAD Classification
  1. ;Input : DFN - Pointer to PATIENT file (#2)
  1. ;Output: 1 = Yes / 0 = No / "" = unanswered
  1. Q $$GETSHAD^DGUTL3(DFN)