Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ONCHTWT

ONCHTWT.m

Go to the documentation of this file.
  1. ONCHTWT ;Hines OIFO/GWB - 'COMPUTED-FIELD' expressions ;10/12/11
  1. ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
  1. ;
  1. HEIGHT ;'COMPUTED-FIELD' EXPRESSION for HEIGHT (160,1011)
  1. ;Supported by IA #1120 GMRVUTL
  1. N DFN,GMRVSTR
  1. I $P(^ONCO(160,D0,0),U,1)["LRT(67," S X="99 (Unknown)" Q
  1. S DFN=$P(^ONCO(160,D0,0),";",1)
  1. S GMRVSTR="HT"
  1. D EN6^GMRVUTL
  1. S X=+$P(X,U,8)
  1. S X=$J(X,0,0)
  1. I X>97 S X="98 inches or greater" Q
  1. I X=0 S X="99 (Unknown)" Q
  1. S X=X_" inches"
  1. Q
  1. ;
  1. WEIGHT ;'COMPUTED-FIELD' EXPRESSION for WEIGHT (160,1012)
  1. ;Supported by IA #1120 GMRVUTL
  1. N DFN,GMRVSTR
  1. I $P(^ONCO(160,D0,0),U,1)["LRT(67," S X="999 (Unknown)" Q
  1. S DFN=$P(^ONCO(160,D0,0),";",1)
  1. S GMRVSTR="WT"
  1. D EN6^GMRVUTL
  1. S X=+$P(X,U,8)
  1. S X=$J(X,0,0)
  1. I X=0 S X="999 (Unknown)" Q
  1. S X=X_" lbs"
  1. Q
  1. ;
  1. CLEANUP ;Cleanup
  1. K D0,X