AMH30P4D ; IHS/CMI/LAB - POST INIT BH ; [ 12/23/04 7:30 AM ]
;;3.0;IHS BEHAVIORAL HEALTH;**4**;JAN 27, 2003
;
;convert suicide form data elements
;only do this once
S AMHX=0 F S AMHX=$O(^AMHPSUIC(AMHX)) Q:AMHX'=+AMHX D
.Q:$P($G(^AMHPSUIC(AMHX,99)),U)=1 ;already converted this form
.D EMPLOY
.D RELATION
.D EDUC
.D LOCACT
.D INTER
.D PREVIOUS
.D SUB
.S DIE="^AMHPSUIC(",DR="9901///1",DA=AMHX D ^DIE
.D ^XBFMK
.Q
OVERDOSE ;
S AMHX=0 F S AMHX=$O(^XTMP("AMH30P4","OVERDOSE DRUGS",AMHX)) Q:AMHX'=+AMHX D
.S AMHY=0 F S AMHY=$O(^XTMP("AMH30P4","OVERDOSE DRUGS",AMHX,AMHY)) Q:AMHY'=+AMHY D
..S AMHZ=0 F S AMHZ=$O(^XTMP("AMH30P4","OVERDOSE DRUGS",AMHX,AMHY,AMHZ)) Q:AMHZ'=+AMHZ D
...S AMHD=^XTMP("AMH30P4","OVERDOSE DRUGS",AMHX,AMHY,AMHZ)
...S AMHND="",AMHNDT=""
...I AMHD="ALCOHOL" S AMHND="ALCOHOL" D UPDOD Q
...I AMHD="AMPHETAMINE" S AMHND="AMPHETAMINE/STIMULANT" D UPDOD Q
...I AMHD="BARBITURATES" S AMHND="SEDATIVES/BENZODIAZEPINES/BARBITURATES" D UPDOD Q
...I AMHD="BENZODIAZEPINES/OTHER SEDATIVES/HYPNOTIC/ANXIOLYTIC" S AMHND="SEDATIVES/BENZODIAZEPINES/BARBITURATES" D UPDOD Q
...I AMHD="CANNABIS" S AMHND="OTHER",AMHNDT="CANNABIS" D UPDOD Q
...I AMHD="COCAINE" S AMHND="OTHER",AMHNDT="COCAINE" D UPDOD Q
...I AMHD="HALLUCINOGENS" S AMHND="OTHER",AMHNDT="HALLUCINOGENS" D UPDOD Q
...I AMHD="HEROIN" S AMHND="NON-PRESCRIBED OPIATES (E.G. HEROIN)" D UPDOD Q
...I AMHD="INHALANTS" S AMHND="OTHER",AMHNDT="INHALANTS" D UPDOD Q
...I AMHD="NICOTINE" S AMHND="OTHER",AMHNDT="NICOTINE" D UPDOD Q
...I AMHD="OTHER OPIATES/PAIN MEDS" S AMHND="PRESCRIBED OPIATES (NARCOTICS)" D UPDOD Q
...I AMHD="THIS IS THE DRUG" S AMHND="@" D UPDOD Q
...I AMHD="TRICYCLIC ANTIDEPRESSANT (TCA)" S AMHND="TRICYCLIC ANTIDEPRESSANT (TCA)" D UPDOD Q
...I AMHD="TYLENOL (ACETAMINOPHEN)" S AMHND="ACETAMINOPHEN (E.G. TYLENOL)" D UPDOD Q
...W !!,"NO DRUG ",AMHD H 2
...Q
SUBSTAN ;
S AMHX=0 F S AMHX=$O(^XTMP("AMH30P4","SUBSTANCE DRUGS",AMHX)) Q:AMHX'=+AMHX D
.S AMHY=0 F S AMHY=$O(^XTMP("AMH30P4","SUBSTANCE DRUGS",AMHX,AMHY)) Q:AMHY'=+AMHY D
..S AMHZ=0 F S AMHZ=$O(^XTMP("AMH30P4","SUBSTANCE DRUGS",AMHX,AMHY,AMHZ)) Q:AMHZ'=+AMHZ D
...S AMHD=^XTMP("AMH30P4","SUBSTANCE DRUGS",AMHX,AMHY,AMHZ)
...S AMHND="",AMHNDT=""
...I AMHD="ALCOHOL" S AMHND="ALCOHOL" D UPDSA Q
...I AMHD="AMPHETAMINE" S AMHND="AMPHETAMINE/STIMULANT" D UPDSA Q
...I AMHD="BARBITURATES" S AMHND="SEDATIVES/BENZODIAZEPINES/BARBITURATES" D UPDSA Q
...I AMHD="BENZODIAZEPINES/OTHER SEDATIVES/HYPNOTIC/ANXIOLYTIC" S AMHND="SEDATIVES/BENZODIAZEPINES/BARBITURATES" D UPDSA Q
...I AMHD="CANNABIS" S AMHND="CANNABIS (MARIJUANA)",AMHNDT="" D UPDSA Q
...I AMHD="COCAINE" S AMHND="COCAINE",AMHNDT="" D UPDSA Q
...I AMHD="HALLUCINOGENS" S AMHND="HALLUCINOGENS",AMHNDT="" D UPDSA Q
...I AMHD="HEROIN" S AMHND="NON-PRESCRIBED OPIATES (E.G. HEROIN)" D UPDSA Q
...I AMHD="INHALANTS" S AMHND="INHALANTS" D UPDSA Q
...I AMHD="NICOTINE" S AMHND="OTHER",AMHNDT="NICOTINE" D UPDSA Q
...I AMHD="OTHER OPIATES/PAIN MEDS" S AMHND="PRESCRIBED OPIATES (NARCOTICS)" D UPDSA Q
...I AMHD="THIS IS THE DRUG" S AMHND="@" D UPDSA Q
...I AMHD="TRICYCLIC ANTIDEPRESSANT (TCA)" S AMHND="OTHER",AMHNDT="TRICYCLIC ANTIDEPRESSANT (TCA)" D UPDSA Q
...I AMHD="TYLENOL (ACETAMINOPHEN)" S AMHND="OTHER",AMHNDT="ACETAMINOPHEN (E.G. TYLENOL)" D UPDSA Q
...W !!,"NO DRUG ",AMHD H 2
...Q
Q
UPDSA ;
;D ^XBFMK
;S DA=AMHZ,DA(1)=AMHY,DA(2)=AMHX
;S DIE="^AMHPSUIC("_DA(2)_",12,"_DA(1)_",11,"
S X=$O(^AMHTSSU("AA",AMHND,0))
I X="" W !!,"SUB drug missing ",AMHX," ",AMHY Q
;S DR=".01///`"_X_";.02///"_AMHNDT
;D ^DIE
;I $D(Y) W !!,"SUBSTANCE drug conversion for ien ",AMHX," failed."
;D ^XBFMK
S ^AMHPSUIC(AMHX,15,0)="^9002011.651501PA^0^0"
S $P(^AMHPSUIC(AMHX,15,AMHZ,0),U)=X
S ^AMHPSUIC(AMHX,15,"B",X,AMHZ)=""
S Y=0,C=0 F S Y=$O(^AMHPSUIC(AMHX,15,"B",Y)) Q:Y'=+Y S C=C+1
S $P(^AMHPSUIC(AMHX,15,0),U,3)=C,$P(^AMHPSUIC(AMHX,15,0),U,4)=C
Q
UPDOD ;
;D ^XBFMK
;S DA=AMHZ,DA(1)=AMHY,DA(2)=AMHX
;S DIE="^AMHPSUIC("_DA(2)_",11,"_DA(1)_",11,"
S X=$O(^AMHTSDRG("AA",AMHND,0))
I X="" W !!,"drug missing ",AMHX," ",AMHZ Q
;S DR=".01///`"_X_";.02///"_AMHNDT
;D ^DIE
;I $D(Y) W !!,"overdose drug conversion for ien ",AMHX," failed."
;D ^XBFMK
S O=$P(^AMHPSUIC(AMHX,11,AMHY,11,AMHZ,0),U)
K ^AMHPSUIC(AMHX,11,AMHY,11,"B",O,AMHZ)
S $P(^AMHPSUIC(AMHX,11,AMHY,11,AMHZ,0),U)=X
S ^AMHPSUIC(AMHX,11,AMHY,11,"B",X,AMHZ)=""
Q
SUB ; CONVERT 3'S TO 2
S AMHY=0 F S AMHY=$O(^AMHPSUIC(AMHX,12,AMHY)) Q:AMHY'=+AMHY D
.S S=$P(^AMHPSUIC(AMHX,12,AMHY,0),U)
.S N=$S(S=1:1,S=2:2,S=3:2,S=4:"U",1:S)
.Q:$P(^AMHPSUIC(AMHX,0),U,26)=2 S DA=AMHX,DIE="^AMHPSUIC(",DR=".26///"_N D ^DIE
.I $D(Y) W !!,"error updating substance used from 3 to 2 ien ",AMHX
.D ^XBFMK
.Q
Q
EMPLOY ;
S (O,N)=""
S O=$P(^AMHPSUIC(AMHX,0),U,5)
S N=$S(O="U":"UNK",O="Y":"F",O="N":"UE",1:O)
D ^XBFMK
S DIE="^AMHPSUIC(",DA=AMHX,DR=".05///"_N D ^DIE
I $D(Y) W !,"error converting employed on form ien ",AMHX
D ^XBFMK
Q
PREVIOUS ;
S (O,N)=""
S O=$P(^AMHPSUIC(AMHX,0),U,14)
S N=$S(O=0:0,O=1:1,O=2:2,O=3:3,O=4:3,O=5:3,O=6:3,O=9:"U",1:O)
D ^XBFMK
S DIE="^AMHPSUIC(",DA=AMHX,DR=".14///"_N D ^DIE
I $D(Y) W !,"error converting PREVIOUS ATTEMPTS on form ien ",AMHX
D ^XBFMK
Q
RELATION ;
S (O,N)=""
S O=$P(^AMHPSUIC(AMHX,0),U,8)
S N=$S(O=6:9,1:O)
D ^XBFMK
S DIE="^AMHPSUIC(",DA=AMHX,DR=".08///"_N D ^DIE
I $D(Y) W !,"error converting RELATIONSHIP STATUS on form ien ",AMHX
D ^XBFMK
Q
INTER ;
S $P(^AMHPSUIC(AMHX,0),U,16)=""
S $P(^AMHPSUIC(AMHX,0),U,17)=""
Q
LOCACT ;
S (O,N)=""
S O=$P(^AMHPSUIC(AMHX,0),U,15)
S N=$S(O=1:1,O=2:2,O=3:7,O=4:3,O=5:4,1:O)
D ^XBFMK
S DIE="^AMHPSUIC(",DA=AMHX,DR=".15///"_N D ^DIE
I $D(Y) W !,"error converting LOCATION OF ACT on form ien ",AMHX
D ^XBFMK
Q
EDUC ;
S (O,N)=""
S O=$P(^AMHPSUIC(AMHX,0),U,11)
S N=$S(O=1:1,O=2:3,O=3:6,O=4:2,O=5:4,1:O)
D ^XBFMK
S DIE="^AMHPSUIC(",DA=AMHX,DR=".11///"_N D ^DIE
I $D(Y) W !,"error converting EDUCATION LEVEL on form ien ",AMHX
D ^XBFMK
Q
AMH30P4D ; IHS/CMI/LAB - POST INIT BH ; [ 12/23/04 7:30 AM ]
+1 ;;3.0;IHS BEHAVIORAL HEALTH;**4**;JAN 27, 2003
+2 ;
+3 ;convert suicide form data elements
+4 ;only do this once
+5 SET AMHX=0
FOR
SET AMHX=$ORDER(^AMHPSUIC(AMHX))
IF AMHX'=+AMHX
QUIT
Begin DoDot:1
+6 ;already converted this form
IF $PIECE($GET(^AMHPSUIC(AMHX,99)),U)=1
QUIT
+7 DO EMPLOY
+8 DO RELATION
+9 DO EDUC
+10 DO LOCACT
+11 DO INTER
+12 DO PREVIOUS
+13 DO SUB
+14 SET DIE="^AMHPSUIC("
SET DR="9901///1"
SET DA=AMHX
DO ^DIE
+15 DO ^XBFMK
+16 QUIT
End DoDot:1
OVERDOSE ;
+1 SET AMHX=0
FOR
SET AMHX=$ORDER(^XTMP("AMH30P4","OVERDOSE DRUGS",AMHX))
IF AMHX'=+AMHX
QUIT
Begin DoDot:1
+2 SET AMHY=0
FOR
SET AMHY=$ORDER(^XTMP("AMH30P4","OVERDOSE DRUGS",AMHX,AMHY))
IF AMHY'=+AMHY
QUIT
Begin DoDot:2
+3 SET AMHZ=0
FOR
SET AMHZ=$ORDER(^XTMP("AMH30P4","OVERDOSE DRUGS",AMHX,AMHY,AMHZ))
IF AMHZ'=+AMHZ
QUIT
Begin DoDot:3
+4 SET AMHD=^XTMP("AMH30P4","OVERDOSE DRUGS",AMHX,AMHY,AMHZ)
+5 SET AMHND=""
SET AMHNDT=""
+6 IF AMHD="ALCOHOL"
SET AMHND="ALCOHOL"
DO UPDOD
QUIT
+7 IF AMHD="AMPHETAMINE"
SET AMHND="AMPHETAMINE/STIMULANT"
DO UPDOD
QUIT
+8 IF AMHD="BARBITURATES"
SET AMHND="SEDATIVES/BENZODIAZEPINES/BARBITURATES"
DO UPDOD
QUIT
+9 IF AMHD="BENZODIAZEPINES/OTHER SEDATIVES/HYPNOTIC/ANXIOLYTIC"
SET AMHND="SEDATIVES/BENZODIAZEPINES/BARBITURATES"
DO UPDOD
QUIT
+10 IF AMHD="CANNABIS"
SET AMHND="OTHER"
SET AMHNDT="CANNABIS"
DO UPDOD
QUIT
+11 IF AMHD="COCAINE"
SET AMHND="OTHER"
SET AMHNDT="COCAINE"
DO UPDOD
QUIT
+12 IF AMHD="HALLUCINOGENS"
SET AMHND="OTHER"
SET AMHNDT="HALLUCINOGENS"
DO UPDOD
QUIT
+13 IF AMHD="HEROIN"
SET AMHND="NON-PRESCRIBED OPIATES (E.G. HEROIN)"
DO UPDOD
QUIT
+14 IF AMHD="INHALANTS"
SET AMHND="OTHER"
SET AMHNDT="INHALANTS"
DO UPDOD
QUIT
+15 IF AMHD="NICOTINE"
SET AMHND="OTHER"
SET AMHNDT="NICOTINE"
DO UPDOD
QUIT
+16 IF AMHD="OTHER OPIATES/PAIN MEDS"
SET AMHND="PRESCRIBED OPIATES (NARCOTICS)"
DO UPDOD
QUIT
+17 IF AMHD="THIS IS THE DRUG"
SET AMHND="@"
DO UPDOD
QUIT
+18 IF AMHD="TRICYCLIC ANTIDEPRESSANT (TCA)"
SET AMHND="TRICYCLIC ANTIDEPRESSANT (TCA)"
DO UPDOD
QUIT
+19 IF AMHD="TYLENOL (ACETAMINOPHEN)"
SET AMHND="ACETAMINOPHEN (E.G. TYLENOL)"
DO UPDOD
QUIT
+20 WRITE !!,"NO DRUG ",AMHD
HANG 2
+21 QUIT
End DoDot:3
End DoDot:2
End DoDot:1
SUBSTAN ;
+1 SET AMHX=0
FOR
SET AMHX=$ORDER(^XTMP("AMH30P4","SUBSTANCE DRUGS",AMHX))
IF AMHX'=+AMHX
QUIT
Begin DoDot:1
+2 SET AMHY=0
FOR
SET AMHY=$ORDER(^XTMP("AMH30P4","SUBSTANCE DRUGS",AMHX,AMHY))
IF AMHY'=+AMHY
QUIT
Begin DoDot:2
+3 SET AMHZ=0
FOR
SET AMHZ=$ORDER(^XTMP("AMH30P4","SUBSTANCE DRUGS",AMHX,AMHY,AMHZ))
IF AMHZ'=+AMHZ
QUIT
Begin DoDot:3
+4 SET AMHD=^XTMP("AMH30P4","SUBSTANCE DRUGS",AMHX,AMHY,AMHZ)
+5 SET AMHND=""
SET AMHNDT=""
+6 IF AMHD="ALCOHOL"
SET AMHND="ALCOHOL"
DO UPDSA
QUIT
+7 IF AMHD="AMPHETAMINE"
SET AMHND="AMPHETAMINE/STIMULANT"
DO UPDSA
QUIT
+8 IF AMHD="BARBITURATES"
SET AMHND="SEDATIVES/BENZODIAZEPINES/BARBITURATES"
DO UPDSA
QUIT
+9 IF AMHD="BENZODIAZEPINES/OTHER SEDATIVES/HYPNOTIC/ANXIOLYTIC"
SET AMHND="SEDATIVES/BENZODIAZEPINES/BARBITURATES"
DO UPDSA
QUIT
+10 IF AMHD="CANNABIS"
SET AMHND="CANNABIS (MARIJUANA)"
SET AMHNDT=""
DO UPDSA
QUIT
+11 IF AMHD="COCAINE"
SET AMHND="COCAINE"
SET AMHNDT=""
DO UPDSA
QUIT
+12 IF AMHD="HALLUCINOGENS"
SET AMHND="HALLUCINOGENS"
SET AMHNDT=""
DO UPDSA
QUIT
+13 IF AMHD="HEROIN"
SET AMHND="NON-PRESCRIBED OPIATES (E.G. HEROIN)"
DO UPDSA
QUIT
+14 IF AMHD="INHALANTS"
SET AMHND="INHALANTS"
DO UPDSA
QUIT
+15 IF AMHD="NICOTINE"
SET AMHND="OTHER"
SET AMHNDT="NICOTINE"
DO UPDSA
QUIT
+16 IF AMHD="OTHER OPIATES/PAIN MEDS"
SET AMHND="PRESCRIBED OPIATES (NARCOTICS)"
DO UPDSA
QUIT
+17 IF AMHD="THIS IS THE DRUG"
SET AMHND="@"
DO UPDSA
QUIT
+18 IF AMHD="TRICYCLIC ANTIDEPRESSANT (TCA)"
SET AMHND="OTHER"
SET AMHNDT="TRICYCLIC ANTIDEPRESSANT (TCA)"
DO UPDSA
QUIT
+19 IF AMHD="TYLENOL (ACETAMINOPHEN)"
SET AMHND="OTHER"
SET AMHNDT="ACETAMINOPHEN (E.G. TYLENOL)"
DO UPDSA
QUIT
+20 WRITE !!,"NO DRUG ",AMHD
HANG 2
+21 QUIT
End DoDot:3
End DoDot:2
End DoDot:1
+22 QUIT
UPDSA ;
+1 ;D ^XBFMK
+2 ;S DA=AMHZ,DA(1)=AMHY,DA(2)=AMHX
+3 ;S DIE="^AMHPSUIC("_DA(2)_",12,"_DA(1)_",11,"
+4 SET X=$ORDER(^AMHTSSU("AA",AMHND,0))
+5 IF X=""
WRITE !!,"SUB drug missing ",AMHX," ",AMHY
QUIT
+6 ;S DR=".01///`"_X_";.02///"_AMHNDT
+7 ;D ^DIE
+8 ;I $D(Y) W !!,"SUBSTANCE drug conversion for ien ",AMHX," failed."
+9 ;D ^XBFMK
+10 SET ^AMHPSUIC(AMHX,15,0)="^9002011.651501PA^0^0"
+11 SET $PIECE(^AMHPSUIC(AMHX,15,AMHZ,0),U)=X
+12 SET ^AMHPSUIC(AMHX,15,"B",X,AMHZ)=""
+13 SET Y=0
SET C=0
FOR
SET Y=$ORDER(^AMHPSUIC(AMHX,15,"B",Y))
IF Y'=+Y
QUIT
SET C=C+1
+14 SET $PIECE(^AMHPSUIC(AMHX,15,0),U,3)=C
SET $PIECE(^AMHPSUIC(AMHX,15,0),U,4)=C
+15 QUIT
UPDOD ;
+1 ;D ^XBFMK
+2 ;S DA=AMHZ,DA(1)=AMHY,DA(2)=AMHX
+3 ;S DIE="^AMHPSUIC("_DA(2)_",11,"_DA(1)_",11,"
+4 SET X=$ORDER(^AMHTSDRG("AA",AMHND,0))
+5 IF X=""
WRITE !!,"drug missing ",AMHX," ",AMHZ
QUIT
+6 ;S DR=".01///`"_X_";.02///"_AMHNDT
+7 ;D ^DIE
+8 ;I $D(Y) W !!,"overdose drug conversion for ien ",AMHX," failed."
+9 ;D ^XBFMK
+10 SET O=$PIECE(^AMHPSUIC(AMHX,11,AMHY,11,AMHZ,0),U)
+11 KILL ^AMHPSUIC(AMHX,11,AMHY,11,"B",O,AMHZ)
+12 SET $PIECE(^AMHPSUIC(AMHX,11,AMHY,11,AMHZ,0),U)=X
+13 SET ^AMHPSUIC(AMHX,11,AMHY,11,"B",X,AMHZ)=""
+14 QUIT
SUB ; CONVERT 3'S TO 2
+1 SET AMHY=0
FOR
SET AMHY=$ORDER(^AMHPSUIC(AMHX,12,AMHY))
IF AMHY'=+AMHY
QUIT
Begin DoDot:1
+2 SET S=$PIECE(^AMHPSUIC(AMHX,12,AMHY,0),U)
+3 SET N=$SELECT(S=1:1,S=2:2,S=3:2,S=4:"U",1:S)
+4 IF $PIECE(^AMHPSUIC(AMHX,0),U,26)=2
QUIT
SET DA=AMHX
SET DIE="^AMHPSUIC("
SET DR=".26///"_N
DO ^DIE
+5 IF $DATA(Y)
WRITE !!,"error updating substance used from 3 to 2 ien ",AMHX
+6 DO ^XBFMK
+7 QUIT
End DoDot:1
+8 QUIT
EMPLOY ;
+1 SET (O,N)=""
+2 SET O=$PIECE(^AMHPSUIC(AMHX,0),U,5)
+3 SET N=$SELECT(O="U":"UNK",O="Y":"F",O="N":"UE",1:O)
+4 DO ^XBFMK
+5 SET DIE="^AMHPSUIC("
SET DA=AMHX
SET DR=".05///"_N
DO ^DIE
+6 IF $DATA(Y)
WRITE !,"error converting employed on form ien ",AMHX
+7 DO ^XBFMK
+8 QUIT
PREVIOUS ;
+1 SET (O,N)=""
+2 SET O=$PIECE(^AMHPSUIC(AMHX,0),U,14)
+3 SET N=$SELECT(O=0:0,O=1:1,O=2:2,O=3:3,O=4:3,O=5:3,O=6:3,O=9:"U",1:O)
+4 DO ^XBFMK
+5 SET DIE="^AMHPSUIC("
SET DA=AMHX
SET DR=".14///"_N
DO ^DIE
+6 IF $DATA(Y)
WRITE !,"error converting PREVIOUS ATTEMPTS on form ien ",AMHX
+7 DO ^XBFMK
+8 QUIT
RELATION ;
+1 SET (O,N)=""
+2 SET O=$PIECE(^AMHPSUIC(AMHX,0),U,8)
+3 SET N=$SELECT(O=6:9,1:O)
+4 DO ^XBFMK
+5 SET DIE="^AMHPSUIC("
SET DA=AMHX
SET DR=".08///"_N
DO ^DIE
+6 IF $DATA(Y)
WRITE !,"error converting RELATIONSHIP STATUS on form ien ",AMHX
+7 DO ^XBFMK
+8 QUIT
INTER ;
+1 SET $PIECE(^AMHPSUIC(AMHX,0),U,16)=""
+2 SET $PIECE(^AMHPSUIC(AMHX,0),U,17)=""
+3 QUIT
LOCACT ;
+1 SET (O,N)=""
+2 SET O=$PIECE(^AMHPSUIC(AMHX,0),U,15)
+3 SET N=$SELECT(O=1:1,O=2:2,O=3:7,O=4:3,O=5:4,1:O)
+4 DO ^XBFMK
+5 SET DIE="^AMHPSUIC("
SET DA=AMHX
SET DR=".15///"_N
DO ^DIE
+6 IF $DATA(Y)
WRITE !,"error converting LOCATION OF ACT on form ien ",AMHX
+7 DO ^XBFMK
+8 QUIT
EDUC ;
+1 SET (O,N)=""
+2 SET O=$PIECE(^AMHPSUIC(AMHX,0),U,11)
+3 SET N=$SELECT(O=1:1,O=2:3,O=3:6,O=4:2,O=5:4,1:O)
+4 DO ^XBFMK
+5 SET DIE="^AMHPSUIC("
SET DA=AMHX
SET DR=".11///"_N
DO ^DIE
+6 IF $DATA(Y)
WRITE !,"error converting EDUCATION LEVEL on form ien ",AMHX
+7 DO ^XBFMK
+8 QUIT
