BCH10P1.m

BCH10P1 ; IHS/TUCSON/LAB - patch 1 to bch for icd update ;

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

 ;

 ;update 1 code in ICD crosswalk for 97 updates

 I '$D(^BCHTPROB) W !,"CHR Package NOT installed.",! Q

 S DA=$O(^BCHTPROB("B","OBESITY",""))

 I 'DA W !,"Obesity Entry not found in CHR HEALTH PROBLEM CODE FILE.  NOTIFY PROGRAMMER." Q

 S DIE="^BCHTPROB(",DR=".04///278.00" D ^DIE

 I $D(Y) W !,$C(7),$C(7),"Updating of Obesity Code failed!! Notify programmer.",!

 W !,"ICD update of CHR - ICD crosswalk complete.",!

 K DA,DIE,DR

 Q

BCH10P1   ; IHS/TUCSON/LAB - patch 1 to bch for icd update ;

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

 +2       ;

 +3       ;update 1 code in ICD crosswalk for 97 updates

 +4        IF '$DATA(^BCHTPROB)

               WRITE !,"CHR Package NOT installed.",!

               QUIT 

 +5        SET DA=$ORDER(^BCHTPROB("B","OBESITY",""))

 +6        IF 'DA

               WRITE !,"Obesity Entry not found in CHR HEALTH PROBLEM CODE FILE.  NOTIFY PROGRAMMER."

               QUIT 

 +7        SET DIE="^BCHTPROB("

           SET DR=".04///278.00"

           DO ^DIE

 +8        IF $DATA(Y)

               WRITE !,$CHAR(7),$CHAR(7),"Updating of Obesity Code failed!! Notify programmer.",!

 +9        WRITE !,"ICD update of CHR - ICD crosswalk complete.",!

 +10       KILL DA,DIE,DR

 +11       QUIT