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

BQIIPDXC.m

Go to the documentation of this file.
  1. BQIIPDXC ;GDIT/HS/ALA-Search for diagnosis ; 20 Nov 2014 3:52 PM
  1. ;;2.3;ICARE MANAGEMENT SYSTEM;**5**;Apr 18, 2012;Build 17
  1. ;
  1. DX(TMFRAME,BQDFN,DXC,START,END) ;EP
  1. ; Find visits for a diagnostic code
  1. ; Input
  1. ; TMFRAME - Time frame to search data for
  1. ; BQDFN - Patient internal entry number
  1. ; DXC - Diagnostic code
  1. ; START - Starting Date
  1. ; END - Ending Date
  1. ;
  1. NEW DXN,FREF,GREF,ENDT,IEN,QFL,RESULT,VISIT,VSDTM
  1. S TMFRAME=$G(TMFRAME,""),START=$G(START,""),END=$G(END,"")
  1. S FREF=9000010.07,GREF=$$ROOT^DILFD(FREF,"",1)
  1. I $G(TMFRAME)'="" S ENDT=$$DATE^BQIUL1(TMFRAME),BDT=""
  1. I $G(START)'="" S ENDT=START,BDT=(9999999-END)-.001
  1. I $$VERSION^XPDUTL("AICD")<4.0 D
  1. . S DXN=$$FIND1^DIC(80,"","Q",DXC,"BA","","ERROR")
  1. I $$VERSION^XPDUTL("AICD")>3.51 D
  1. . S DXN=$P($$CODEN^ICDEX(DXC,80),"~",1)
  1. ;
  1. S IEN="",QFL=0,RESULT=0
  1. ;
  1. D
  1. . I $G(TMFRAME)="",$G(START)="",$G(END)="" Q
  1. . S EDT=9999999-ENDT
  1. . F S BDT=$O(@GREF@("AA",BQDFN,BDT)) Q:BDT=""!(BDT>EDT) D
  1. .. S IEN=""
  1. .. F S IEN=$O(@GREF@("AA",BQDFN,BDT,IEN)) Q:IEN="" D
  1. ... S TIEN=$$GET1^DIQ(FREF,IEN,.01,"I") I TIEN="" Q
  1. ... I TIEN'=DXN Q
  1. ... S VISIT=$$GET1^DIQ(FREF,IEN,.03,"I") I VISIT="" Q
  1. ... I $$GET1^DIQ(9000010,VISIT,.11,"I")=1 Q
  1. ... S VSDTM=$$GET1^DIQ(9000010,VISIT,.01,"I")\1 Q:VSDTM=0
  1. ... S RESULT=1_U_VSDTM_U_U_VISIT_U_IEN,QFL=1
  1. ;
  1. I $G(TMFRAME)="" D
  1. . F S IEN=$O(@GREF@("AC",BQDFN,IEN),-1) Q:'IEN D Q:QFL
  1. .. S TIEN=$$GET1^DIQ(FREF,IEN,.01,"I") I TIEN="" Q
  1. .. I TIEN'=DXN Q
  1. .. S VISIT=$$GET1^DIQ(FREF,IEN,.03,"I") I VISIT="" Q
  1. .. I $$GET1^DIQ(9000010,VISIT,.11,"I")=1 Q
  1. .. S VSDTM=$$GET1^DIQ(9000010,VISIT,.01,"I")\1 Q:VSDTM=0
  1. .. S RESULT=1_U_VSDTM_U_U_VISIT_U_IEN,QFL=1
  1. Q RESULT