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

NURCUT1.m

Go to the documentation of this file.
  1. NURCUT1 ;HIRMFO/RM-UTILITIES FOR CLINICAL NURSING ;APR 4, 1994
  1. ;;4.0;NURSING SERVICE;**18**;Apr 25, 1997
  1. ALLERGY(DFN,ARRAY) ; PROCEDURE RETURNS PT A/AR INFO
  1. ; INPUT: DFN=PTR TO PATIENT
  1. ; ARRAY=RESULTS RETURNED IN ARRAY (PASSED BY REF)
  1. ; OUTPUT: ARRAY(X)=A
  1. ; WHERE X IS 1..NUMBER OF ALLERGIES
  1. ; A IS FREE TEXT ALLERGY (MECHANISM)
  1. N GMRAL,CTR,LPV K ARRAY
  1. S X="GMRADPT" X ^%ZOSF("TEST") I $T D EN1^GMRADPT S ARRAY=GMRAL
  1. I $O(GMRAL(0)) D
  1. . S CTR=0
  1. . S LPV=0 F S LPV=$O(GMRAL(LPV)) Q:LPV'>0 D
  1. . . S CTR=CTR+1
  1. . . S ARRAY(CTR)=$P(GMRAL(LPV),"^",2)_$P(" (allergy)^ (adv rxn)","^",$F("01",$P(GMRAL(LPV),"^",5))-1)
  1. . . Q
  1. . Q
  1. Q
  1. DX(DFN,DATE) ; PROCEDURE RETURNS PT DX INFO
  1. ; INPUT: DFN=PTR TO PATIENT
  1. ; DATE=DATE TO FIND CURRENT DX FOR
  1. ; OUTPUT:
  1. Q