- 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 Jan 18, 2025@03:24:25 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