source: FOIAVistA/trunk/r/WOMENS_HEALTH-WV/WVRPCPR1.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1WVRPCPR1 ;HIOFO/FT-WV PROCEDURE file (790.1) RPCs (cont.) ;1/2/04 12:24
2 ;;1.0;WOMEN'S HEALTH;**16**;Sep 30, 1998
3 ;
4 ; This routine uses the following IAs:
5 ; <None>
6 ;
7NORMAL(WVIEN) ; Function determines if a result/dx entry (FILE 790.31) is
8 ; categorized as Normal or Abnormal.
9 ; Input: WVIEN - FILE 790.31 entry
10 ;
11 ; Output: 0 - NORMAL
12 ; 1 - ABNORMAL
13 ; 2 - NO RESULT
14 ; null - not in FILE 790.31
15 ;
16 Q $P($G(^WV(790.31,+WVIEN,0)),U,21)
17 ;
18DXNAME(WVIEN) ; Function to return the name of an entry in the
19 ; WV RESULTS/DIAGNOSIS file (#790.31).
20 ; Input: WVIEN = FILE 790.31 ien
21 ; Output: .01 value or null
22 I '$G(WVIEN) Q ""
23 Q $P($G(^WV(790.31,+WVIEN,0)),U,1)
24 ;
25ERROR() ; Function to return the IEN of the "Error/disregard" result/dx from
26 ; FILE 790.31.
27 ; Input: <none>
28 ; Output: FILE 790.31 IEN for "Error/disregard"
29 Q $O(^WV(790.31,"B","Error/disregard",0))
30 ;
31BRTXIEN(WVNAME) ; Function converts WV BREAST TX NEED (#790.51) name to ien
32 ; Input: WVNAME = FILE 790.51 name (.01 value)
33 ; Output: FILE 790.51 IEN or 0 (zero)
34 ;
35 I $G(WVNAME)="" Q 0
36 Q +$O(^WV(790.51,"B",WVNAME,0))
37 ;
38CXTXIEN(WVNAME) ; Function converts WV CERVICAL TX NEED (#790.5) name to ien
39 ; Input: WVNAME = FILE 790.5 name (.01 value)
40 ; Output: FILE 790.5 IEN or 0 (zero)
41 ;
42 I $G(WVNAME)="" Q 0
43 Q +$O(^WV(790.5,"B",WVNAME,0))
44 ;
Note: See TracBrowser for help on using the repository browser.