- 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 Jan 18, 2025@02:45:36 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