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

BKMVUTL.m

Go to the documentation of this file.
  1. BKMVUTL ;PRXM/HC/ALA - HMS UTILITIES ; 21 Sep 2005 6:38 PM
  1. ;;2.1;HIV MANAGEMENT SYSTEM;;Feb 07, 2011
  1. ;
  1. SRC ; State Reporting Category Prompt
  1. K DIR
  1. NEW Y,X
  1. S SRCAT=""
  1. S DIR(0)="SO^H:HIV;A:AIDS"
  1. D ^DIR K DIR
  1. I Y="^"!(Y="") Q
  1. S SRCAT=Y
  1. Q
  1. ;
  1. PROB(PIEN) ; EP - Return date/time from Problem
  1. ; Input Parameter
  1. ; PIEN = IEN of problem
  1. ;
  1. NEW VISDTM
  1. S VISDTM=$$GET1^DIQ(9000011,PIEN,.08,"I")
  1. I VISDTM="" S VISDTM=$$GET1^DIQ(9000011,PIEN,.03,"I")
  1. Q VISDTM
  1. ;
  1. STC(FIL,FLD,VAL) ; EP - Find a value for a set of codes code
  1. ; Input Parameters
  1. ; FIL = FileMan File Number
  1. ; FLD = FileMan Field Number
  1. ; VAL = Code Value
  1. ;
  1. NEW VEDATA,VEQFL,VEVL,VALUE
  1. S VEDATA=$P(^DD(FIL,FLD,0),U,3),VEQFL=0
  1. ;
  1. F I=1:1 S VEVL=$P(VEDATA,";",I) Q:VEVL="" D Q:VEQFL
  1. . S VALUE=$P(VEVL,":",2) I VAL=$P(VEVL,":",1) S VEQFL=1
  1. ;
  1. Q VALUE
  1. ;
  1. HRN(BKMVDFN) ;EP - Find any active HRNs for a patient
  1. NEW HRN,FLAG,SITE
  1. S FLAG=0,SITE=0
  1. F S SITE=$O(^AUPNPAT(BKMVDFN,41,SITE)) Q:'SITE D Q:FLAG
  1. . I $P($G(^AUPNPAT(BKMVDFN,41,SITE,0)),U,3)="" S FLAG=1
  1. Q FLAG