source: FOIAVistA/trunk/r/NURSING_SERVICE-NUR/NURCUT1.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 822 bytes
Line 
1NURCUT1 ;HIRMFO/RM-UTILITIES FOR CLINICAL NURSING ;APR 4, 1994
2 ;;4.0;NURSING SERVICE;**18**;Apr 25, 1997
3ALLERGY(DFN,ARRAY) ; PROCEDURE RETURNS PT A/AR INFO
4 ; INPUT: DFN=PTR TO PATIENT
5 ; ARRAY=RESULTS RETURNED IN ARRAY (PASSED BY REF)
6 ; OUTPUT: ARRAY(X)=A
7 ; WHERE X IS 1..NUMBER OF ALLERGIES
8 ; A IS FREE TEXT ALLERGY (MECHANISM)
9 N GMRAL,CTR,LPV K ARRAY
10 S X="GMRADPT" X ^%ZOSF("TEST") I $T D EN1^GMRADPT S ARRAY=GMRAL
11 I $O(GMRAL(0)) D
12 . S CTR=0
13 . S LPV=0 F S LPV=$O(GMRAL(LPV)) Q:LPV'>0 D
14 . . S CTR=CTR+1
15 . . S ARRAY(CTR)=$P(GMRAL(LPV),"^",2)_$P(" (allergy)^ (adv rxn)","^",$F("01",$P(GMRAL(LPV),"^",5))-1)
16 . . Q
17 . Q
18 Q
19DX(DFN,DATE) ; PROCEDURE RETURNS PT DX INFO
20 ; INPUT: DFN=PTR TO PATIENT
21 ; DATE=DATE TO FIND CURRENT DX FOR
22 ; OUTPUT:
23 Q
Note: See TracBrowser for help on using the repository browser.