WVRPCPR1.m

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 ---WVRPCPR1   1400     printed  Apr 09, 2024@21:50:25                                                                                                                                                                                                    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       ;