WVRPCPR1 ;HIOFO/FT-WV PROCEDURE file (790.1) RPCs (cont.) ;1/2/04 12:24
;;1.0;WOMEN'S HEALTH;**16**;Sep 30, 1998
;
; This routine uses the following IAs:
; <None>
;
NORMAL(WVIEN) ; Function determines if a result/dx entry (FILE 790.31) is
; categorized as Normal or Abnormal.
; Input: WVIEN - FILE 790.31 entry
;
; Output: 0 - NORMAL
; 1 - ABNORMAL
; 2 - NO RESULT
; null - not in FILE 790.31
;
Q $P($G(^WV(790.31,+WVIEN,0)),U,21)
;
DXNAME(WVIEN) ; Function to return the name of an entry in the
; WV RESULTS/DIAGNOSIS file (#790.31).
; Input: WVIEN = FILE 790.31 ien
; Output: .01 value or null
I '$G(WVIEN) Q ""
Q $P($G(^WV(790.31,+WVIEN,0)),U,1)
;
ERROR() ; Function to return the IEN of the "Error/disregard" result/dx from
; FILE 790.31.
; Input: <none>
; Output: FILE 790.31 IEN for "Error/disregard"
Q $O(^WV(790.31,"B","Error/disregard",0))
;
BRTXIEN(WVNAME) ; Function converts WV BREAST TX NEED (#790.51) name to ien
; Input: WVNAME = FILE 790.51 name (.01 value)
; Output: FILE 790.51 IEN or 0 (zero)
;
I $G(WVNAME)="" Q 0
Q +$O(^WV(790.51,"B",WVNAME,0))
;
CXTXIEN(WVNAME) ; Function converts WV CERVICAL TX NEED (#790.5) name to ien
; Input: WVNAME = FILE 790.5 name (.01 value)
; Output: FILE 790.5 IEN or 0 (zero)
;
I $G(WVNAME)="" Q 0
Q +$O(^WV(790.5,"B",WVNAME,0))
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HWVRPCPR1 1400 printed Dec 13, 2024@02:47:47 Page 2
WVRPCPR1 ;HIOFO/FT-WV PROCEDURE file (790.1) RPCs (cont.) ;1/2/04 12:24
+1 ;;1.0;WOMEN'S HEALTH;**16**;Sep 30, 1998
+2 ;
+3 ; This routine uses the following IAs:
+4 ; <None>
+5 ;
NORMAL(WVIEN) ; Function determines if a result/dx entry (FILE 790.31) is
+1 ; categorized as Normal or Abnormal.
+2 ; Input: WVIEN - FILE 790.31 entry
+3 ;
+4 ; Output: 0 - NORMAL
+5 ; 1 - ABNORMAL
+6 ; 2 - NO RESULT
+7 ; null - not in FILE 790.31
+8 ;
+9 QUIT $PIECE($GET(^WV(790.31,+WVIEN,0)),U,21)
+10 ;
DXNAME(WVIEN) ; Function to return the name of an entry in the
+1 ; WV RESULTS/DIAGNOSIS file (#790.31).
+2 ; Input: WVIEN = FILE 790.31 ien
+3 ; Output: .01 value or null
+4 IF '$GET(WVIEN)
QUIT ""
+5 QUIT $PIECE($GET(^WV(790.31,+WVIEN,0)),U,1)
+6 ;
ERROR() ; Function to return the IEN of the "Error/disregard" result/dx from
+1 ; FILE 790.31.
+2 ; Input: <none>
+3 ; Output: FILE 790.31 IEN for "Error/disregard"
+4 QUIT $ORDER(^WV(790.31,"B","Error/disregard",0))
+5 ;
BRTXIEN(WVNAME) ; Function converts WV BREAST TX NEED (#790.51) name to ien
+1 ; Input: WVNAME = FILE 790.51 name (.01 value)
+2 ; Output: FILE 790.51 IEN or 0 (zero)
+3 ;
+4 IF $GET(WVNAME)=""
QUIT 0
+5 QUIT +$ORDER(^WV(790.51,"B",WVNAME,0))
+6 ;
CXTXIEN(WVNAME) ; Function converts WV CERVICAL TX NEED (#790.5) name to ien
+1 ; Input: WVNAME = FILE 790.5 name (.01 value)
+2 ; Output: FILE 790.5 IEN or 0 (zero)
+3 ;
+4 IF $GET(WVNAME)=""
QUIT 0
+5 QUIT +$ORDER(^WV(790.5,"B",WVNAME,0))
+6 ;
