DVBCHMC1 ;ALB ISC/THM-TEXT FOR HEMATOLOGIC DISORDERS ; 12/9/90 11:16 AM
;;2.7;AMIE;;Apr 10, 1995
;
PTXT F AW=0:1 S AX=$T(@TXT+AW) S AY=$P(AX,";;",2) W:AY="END" !! Q:AY="END" W AY,!
Q
;
TXT1 ;; 1. Note whether disease is currently active or in remission -
;;
;;
;;
;;
;;
;; 2. Note frequency of and average duration of acute attacks or sickling
;; crises -
;;
;;
;;
;;
;;
;; 3. Note level of physical activity the veteran is capable of between acute
;; attacks/sickling crises and describe the state of general health between
;; episodes -
;;
;;
;;
;;
;;
;; 4. Note whether sickling crises have produced any permanent organ or joint
;; impairment (e.g., splenic infarct or aseptic neurosis of femoral head)
;; and whether splenectomy or joint replacement has been necessary -
;;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBCHMC1 884 printed Dec 13, 2024@01:44:22 Page 2
DVBCHMC1 ;ALB ISC/THM-TEXT FOR HEMATOLOGIC DISORDERS ; 12/9/90 11:16 AM
+1 ;;2.7;AMIE;;Apr 10, 1995
+2 ;
PTXT FOR AW=0:1
SET AX=$TEXT(@TXT+AW)
SET AY=$PIECE(AX,";;",2)
if AY="END"
WRITE !!
if AY="END"
QUIT
WRITE AY,!
+1 QUIT
+2 ;
TXT1 ;; 1. Note whether disease is currently active or in remission -
+1 ;;
+2 ;;
+3 ;;
+4 ;;
+5 ;;
+6 ;; 2. Note frequency of and average duration of acute attacks or sickling
+7 ;; crises -
+8 ;;
+9 ;;
+10 ;;
+11 ;;
+12 ;;
+13 ;; 3. Note level of physical activity the veteran is capable of between acute
+14 ;; attacks/sickling crises and describe the state of general health between
+15 ;; episodes -
+16 ;;
+17 ;;
+18 ;;
+19 ;;
+20 ;;
+21 ;; 4. Note whether sickling crises have produced any permanent organ or joint
+22 ;; impairment (e.g., splenic infarct or aseptic neurosis of femoral head)
+23 ;; and whether splenectomy or joint replacement has been necessary -
+24 ;;END
