- 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
