DVBCHMC1.m

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 ---DVBCHMC1   884     printed  Apr 09, 2024@20:44:59                                                                                                                                                                                                     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