BCH10P11.m

BCH10P11 ;IHS/CMI/LAB - PATCH 10 [ 12/06/00  11:13 AM ]

 ;;1.0;IHS RPMS CHR SYSTEM;**11**;OCT 28, 1996

 ;

 S DA=$O(^BCHTPROB("B","SURGERY FOLLOWUP",0))

 I DA S DIE="^BCHTPROB(",DR=".04///V67.09" D ^DIE

 D ^XBFMK

 ;

 S DA=$O(^BCHTPROB("B","MOVEMENT PROBLEM",0))

 I DA S DIE="^BCHTPROB(",DR=".04///V49.89" D ^DIE

 D ^XBFMK

 Q

BCH10P11  ;IHS/CMI/LAB - PATCH 10 [ 12/06/00  11:13 AM ]

 +1       ;;1.0;IHS RPMS CHR SYSTEM;**11**;OCT 28, 1996

 +2       ;

 +3        SET DA=$ORDER(^BCHTPROB("B","SURGERY FOLLOWUP",0))

 +4        IF DA

               SET DIE="^BCHTPROB("

               SET DR=".04///V67.09"

               DO ^DIE

 +5        DO ^XBFMK

 +6       ;

 +7        SET DA=$ORDER(^BCHTPROB("B","MOVEMENT PROBLEM",0))

 +8        IF DA

               SET DIE="^BCHTPROB("

               SET DR=".04///V49.89"

               DO ^DIE

 +9        DO ^XBFMK

 +10       QUIT