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

RORHIVUT.m

Go to the documentation of this file.
  1. RORHIVUT ;HCIOFO/SG - HIV UTILITIES ;9/14/05 8:15am
  1. ;;1.5;CLINICAL CASE REGISTRIES;**14**;Feb 17, 2006;Build 24
  1. ;
  1. Q
  1. ;******************************************************************************
  1. ;******************************************************************************
  1. ; --- ROUTINE MODIFICATION LOG ---
  1. ;
  1. ;PKG/PATCH DATE DEVELOPER MODIFICATION
  1. ;----------- ---------- ----------- ----------------------------------------
  1. ;ROR*1.5*14 APR 2011 A SAUNDERS CLINAIDS: also quit if 'unknown'
  1. ;******************************************************************************
  1. ;******************************************************************************
  1. ;
  1. ;***** RETURNS THE CATEGORY SUBSCRIPT AND HEADER
  1. CAT(I) ;
  1. ;;ALL^AIDS^HIV
  1. ;;All Patients^AIDS OI^HIV+ (no AIDS OI)
  1. ;
  1. Q $P($P($T(CAT+1),";;",2),U,I)_U_$P($P($T(CAT+2),";;",2),U,I)
  1. ;
  1. ;***** RETURNS CLINICAL AIDS STATUS OF THE PATIENT
  1. ;
  1. ; IEN IEN of the registry record
  1. ;
  1. ; [DATE] Date that the status should be determined on.
  1. ;
  1. ; If not defined or not greater than 0 then the
  1. ; date of Clinical AIDS is not checked.
  1. ;
  1. ; Return Values:
  1. ; 0 No Clinical AIDS
  1. ; 1 Clinical AIDS. The second "^"-piece will
  1. ; contain the Clinical AIDS date
  1. ;
  1. CLINAIDS(IEN,DATE) ;
  1. N X S X=$P($G(^RORDATA(799.4,+IEN,0)),U,2,3)
  1. Q:'X 0 ;quit if 'no' or null in first piece (clinical aids indicator)
  1. I +$G(X)=9 Q 0 ;quit if 'unknown'
  1. I $G(DATE)>0 Q:$P(X,U,2)\1>DATE 0
  1. Q "1"_U_$P(X,U,2)
  1. ;
  1. ;***** CHECKS IF THE ICR RECORD EXISTS
  1. ;
  1. ; IEN IEN of the registry record
  1. ;
  1. ; Return Values:
  1. ; 0 Record does not exist
  1. ; 1 The ICR record exists
  1. ;
  1. ICRDEF(IEN) ;
  1. Q $G(^RORDATA(799.4,+IEN,0))>0
  1. ;
  1. ;***** RETURNS NUMBER OF AVAILABLE CATEGORIES
  1. NCAT() ;
  1. Q $L($P($T(CAT+1),";;",2),U)