1 | IMRCDCPX ;ISC-SF/JLI-FUNCTION HANDLING FOR PRINTING CDC FORMS ;5/22/95 12:04
|
---|
2 | ;;2.1;IMMUNOLOGY CASE REGISTRY;;Feb 09, 1998
|
---|
3 | ; called from IMRCDP* routines & from IMR function calls
|
---|
4 | VAL(FLD,X) ; FLD IS FIELD TO BE TESTED, X IS VALUE TO BE TESTED AGAINST
|
---|
5 | N Y S Y="?" I IMRPT="" S Y="" G EXIT
|
---|
6 | I $D(^DD(158,FLD,0)) S Y=$P(^(0),U,4) D
|
---|
7 | .I $P(Y,";")'=" " S Y=$P($G(^IMR(158,IMRPT,$P(Y,";"))),U,+$P(Y,";",2)) S:Y'>0 Y=$S(Y="D":1,Y="P":2,Y="N":0,Y="Y":1,1:Y) Q
|
---|
8 | .S Y=X S X=$$GET1^DIQ(158,IMRPT,FLD,"E") S:X="MALE" X=1 S:X="FEMALE" X=2 Q
|
---|
9 | S Y=$S(Y=X:Y,Y="?":"?",FLD=112.06:" ",1:" ")
|
---|
10 | EXIT Q Y
|
---|
11 | DAT(FLD) ; FLD IS FIELD TO BE DISPLAYED AS MO YR
|
---|
12 | N Y S Y="?" I IMRPT="" S Y="" G EXIT1
|
---|
13 | I $D(^DD(158,FLD,0)) S Y=$P(^(0),U,4) D
|
---|
14 | .I $P(Y,";")'=" " S Y=$P($G(^IMR(158,IMRPT,$P(Y,";"))),U,+$P(Y,";",2)) Q
|
---|
15 | .S X=$$GET1^DIQ(158,IMRPT,FLD,"E") S Y=X Q
|
---|
16 | S Y=$S(Y="":" ",$E(Y,1,7)?7N:$E(Y,4,5)_" "_$E(Y,2,3),1:"?? ??")
|
---|
17 | EXIT1 Q Y
|
---|
18 | FIELD(FILE,ENTRY,FLD,FLG) ; FLD will contain the data of the file.
|
---|
19 | S Y=$$GET1^DIQ(FILE,ENTRY,FLD,FLG)
|
---|
20 | Q Y
|
---|