ONCHTWT.m

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 ---ONCHTWT   823     printed  Apr 09, 2024@21:25:44                                                                                                                                                                                                      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