ONCHTWT ;Hines OIFO/GWB - 'COMPUTED-FIELD' expressions ;10/12/11
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;
HEIGHT ;'COMPUTED-FIELD' EXPRESSION for HEIGHT (160,1011)
;Supported by IA #1120 GMRVUTL
N DFN,GMRVSTR
I $P(^ONCO(160,D0,0),U,1)["LRT(67," S X="99 (Unknown)" Q
S DFN=$P(^ONCO(160,D0,0),";",1)
S GMRVSTR="HT"
D EN6^GMRVUTL
S X=+$P(X,U,8)
S X=$J(X,0,0)
I X>97 S X="98 inches or greater" Q
I X=0 S X="99 (Unknown)" Q
S X=X_" inches"
Q
;
WEIGHT ;'COMPUTED-FIELD' EXPRESSION for WEIGHT (160,1012)
;Supported by IA #1120 GMRVUTL
N DFN,GMRVSTR
I $P(^ONCO(160,D0,0),U,1)["LRT(67," S X="999 (Unknown)" Q
S DFN=$P(^ONCO(160,D0,0),";",1)
S GMRVSTR="WT"
D EN6^GMRVUTL
S X=+$P(X,U,8)
S X=$J(X,0,0)
I X=0 S X="999 (Unknown)" Q
S X=X_" lbs"
Q
;
CLEANUP ;Cleanup
K D0,X
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCHTWT 823 printed Dec 13, 2024@02:23:15 Page 2
ONCHTWT ;Hines OIFO/GWB - 'COMPUTED-FIELD' expressions ;10/12/11
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;
HEIGHT ;'COMPUTED-FIELD' EXPRESSION for HEIGHT (160,1011)
+1 ;Supported by IA #1120 GMRVUTL
+2 NEW DFN,GMRVSTR
+3 IF $PIECE(^ONCO(160,D0,0),U,1)["LRT(67,"
SET X="99 (Unknown)"
QUIT
+4 SET DFN=$PIECE(^ONCO(160,D0,0),";",1)
+5 SET GMRVSTR="HT"
+6 DO EN6^GMRVUTL
+7 SET X=+$PIECE(X,U,8)
+8 SET X=$JUSTIFY(X,0,0)
+9 IF X>97
SET X="98 inches or greater"
QUIT
+10 IF X=0
SET X="99 (Unknown)"
QUIT
+11 SET X=X_" inches"
+12 QUIT
+13 ;
WEIGHT ;'COMPUTED-FIELD' EXPRESSION for WEIGHT (160,1012)
+1 ;Supported by IA #1120 GMRVUTL
+2 NEW DFN,GMRVSTR
+3 IF $PIECE(^ONCO(160,D0,0),U,1)["LRT(67,"
SET X="999 (Unknown)"
QUIT
+4 SET DFN=$PIECE(^ONCO(160,D0,0),";",1)
+5 SET GMRVSTR="WT"
+6 DO EN6^GMRVUTL
+7 SET X=+$PIECE(X,U,8)
+8 SET X=$JUSTIFY(X,0,0)
+9 IF X=0
SET X="999 (Unknown)"
QUIT
+10 SET X=X_" lbs"
+11 QUIT
+12 ;
CLEANUP ;Cleanup
+1 KILL D0,X
