ABMDE4 ; IHS/ASDST/DMJ - Edit Page 4 - Providers ;
;;2.6;IHS Third Party Billing;**1,3,9,11**;NOV 12, 2009;Build 133
;
; IHS/SD/SDR - v2.5 p9 - task 1
; Only allows providers on page 4
;
; IHS/SD/SDR - v2.5 p10 - IM20059
; All providers displayed instead of one for each type
;
; IHS/SD/SDR - v2.5 p11 - NPI
; IHS/SD/SDR - abm*2.6*1 - HEAT4207 - If subpart NPI is populated show it
; on page4
; IHS/SD/SDR - abm*2.6*3 HEAT12442 - Make error 92 display for all 837s
;
Q:$D(ABMP("WORKSHEET"))
K ABM,ABME,ABMZ
OPT K ABME D DISP G XIT:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)
W !! S ABMP("OPT")="ADVNJBQ" S:ABM("NUM")=0 ABMP("ED")=1 D SEL^ABMDEOPT K ABMP("ED") I "AVD"'[$E(Y) G XIT
G XIT:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)
S ABM("DO")=$S($E(Y)="A":"A1",$E(Y)="V":"^ABMDE4A",1:"D1") D @ABM("DO")
G OPT
;
DISP S ABMZ("TITL")="PROVIDER DATA",ABMZ("PG")=4
I $D(ABMP("DDL")),$Y>(IOSL-9) D PAUSE^ABMDE1 Q:$D(DUOUT)!$D(DTOUT)!$D(DIROUT) I 1 G PROV
D SUM^ABMDE1
;
PROV ; Provider Info
K ABM("A"),ABM("O")
S ABM("SUB")=41
S ABM("DR")=";.03"
S ABM("ITEM")="Provider"
S ABM("DIC")="^VA(200,"
S ABM("PRIM")=""
S ABM("MD")=0
S ABMNPIUS=$$NPIUSAGE^ABMUTLF(ABMP("LDFN"),ABMP("INS"))
I ABMNPIUS=""!(ABMNPIUS="L") D
.W !?17,"PROVIDER",?39,"NUMBER",?59,"DISCIPLINE"
.W !?8,"==========================",?36,"============",?50,"============================="
I ABMNPIUS="N" D
.W !?17,"PROVIDER",?40,"NPI",?59,"DISCIPLINE"
.W !?8,"==========================",?36,"============",?50,"============================="
I ABMNPIUS="B" D
.W !?15,"PROVIDER",?34,"NPI",?45,"NUMBER",?62,"DISCIPLINE"
.W !?8,"=====================",?30,"==========",?42,"===========",?55,"======================="
S ABM("NUM")=0,ABM=""
S ABM("I")=1
F S ABM=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),41,"C",ABM)) Q:ABM="" D
.S ABM("X")=""
.F S ABM("X")=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),41,"C",ABM,ABM("X"))) Q:ABM("X")="" D
..S ABM("NUM")=ABM("I") D PRV
.S ABM("I")=ABM("I")+1
I $P(^ABMDEXP(ABMP("EXP"),0),U)["HCFA-1500",ABMP("EXP")'=15,$P(^ABMDPARM(DUZ(2),1,0),U,17)=2 Q
I +$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),41,"B",0))=0 S ABME(244)="" ;abm*2.6*11 HEAT81017
I '$D(ABM("A")) D
.;Q:ABMP("EXP")=22 ;abm*2.6*3 HEAT12442
.;Q:ABMP("EXP")=23 ;abm*2.6*3 HEAT12442
.Q:ABMP("EXP")=22!(ABMP("EXP")=32) ;abm*2.6*9 HEAT57734
.S ABME(92)=""
I '$D(^ABMDCLM(DUZ(2),ABMP("CDFN"),41,"C","O")),$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),19,0)),ABMP("PAGE")'[8 S ABME(2)=""
ER I +$O(ABME(0)) S ABME("CONT")="" D ^ABMDERR K ABME("CONT")
Q
PRV ;provider display
S ABMTYP("A")="(attn)"
S ABMTYP("O")="(oper)"
S ABMTYP("T")="(other)"
S ABMTYP("F")="(refer)"
S ABMTYP("R")="(rend)"
S ABMTYP("P")="(pursvc)"
S ABMTYP("S")="(suprvs)"
D SEL^ABMDE4X,AFFL^ABMDE4X
I ABMNPIUS=""!(ABMNPIUS="L") D
.W !,ABMTYP($P(ABM("X0"),U,2))
.I $D(ABM($P(ABM("X0"),U,2))) W ?8,$P(ABM($P(ABM("X0"),U,2)),U),?36,ABM("PNUM"),?50,ABM("DISC")
;
I ABMNPIUS="N" D
.W !,ABMTYP($P(ABM("X0"),U,2))
.I $D(ABM($P(ABM("X0"),U,2))) D
..W ?8,$P(ABM($P(ABM("X0"),U,2)),U)
..;W ?36,$S($P($$NPI^XUSNPI("Individual_ID",+ABM("X0")),U)>0:$P($$NPI^XUSNPI("Individual_ID",+ABM("X0")),U),$P($$NPI^XUSNPI("Organization_ID",+ABMP("LDFN")),U)>0:$P($$NPI^XUSNPI("Organization_ID",+ABMP("LDFN")),U)_"*",1:"") ;abm*2.6*1 HEAT4207
..;start new code abm*2.6*1 HEAT4207
..S ABMLNPI=$S($P($G(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),1)),U,8)'="":$P(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),1),U,8),$P($G(^ABMDPARM(ABMP("LDFN"),1,2)),U,12)'="":$P(^ABMDPARM(ABMP("LDFN"),1,2),U,12),1:ABMP("LDFN"))
..W ?36,$S($P($$NPI^XUSNPI("Individual_ID",+ABM("X0")),U)>0:$P($$NPI^XUSNPI("Individual_ID",+ABM("X0")),U),$P($$NPI^XUSNPI("Organization_ID",+ABMLNPI),U)>0:$P($$NPI^XUSNPI("Organization_ID",+ABMLNPI),U)_"*",1:"")
..;end new code HEAT4207
..W ?50,ABM("DISC")
;
I ABMNPIUS="B" D
.W !,ABMTYP($P(ABM("X0"),U,2))
.I $D(ABM($P(ABM("X0"),U,2))) D
..W ?8,$E($P(ABM($P(ABM("X0"),U,2)),U),1,20)
..;W ?30,$S($P($$NPI^XUSNPI("Individual_ID",+ABM("X0")),U)>0:$P($$NPI^XUSNPI("Individual_ID",+ABM("X0")),U),$P($$NPI^XUSNPI("Organization_ID",+ABMP("LDFN")),U)>0:$P($$NPI^XUSNPI("Organization_ID",+ABMP("LDFN")),U)_"*",1:"") ;abm*2.6*1 HEAT4207
..;start new code abm*2.6*1 HEAT4207
..S ABMLNPI=$S($P($G(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),1)),U,8)'="":$P(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),1),U,8),$P($G(^ABMDPARM(ABMP("LDFN"),1,2)),U,12)'="":$P(^ABMDPARM(ABMP("LDFN"),1,2),U,12),1:ABMP("LDFN"))
..;W ?30,$S($P($$NPI^XUSNPI("Individual_ID",+ABM("X0")),U)>0:$P($$NPI^XUSNPI("Individual_ID",+ABM("X0")),U),$P($$NPI^XUSNPI("Organization_ID",+ABMLNPI),U)>0:$P($$NPI^XUSNPI("Organization_ID",+ABMLNPI),U)_"*",1:"") ;abm*2.6*1
..;end new code HEAT4207
..S ABMNPI=0
..S ABMNPI=$P($$NPI^XUSNPI("Individual_ID",+ABM("X0")),U)
..I +ABMNPI<1 S ABMNPI=$P($$NPI^XUSNPI("Organization_ID",+ABMP("LDFN")),U)_"*"
..W ?30,ABMNPI
..W ?42,ABM("PNUM")
..W ?55,ABM("DISC")
Q
;
A1 ; Add Multiple
W ! K DIC
S DIC="^VA(200,",DIC(0)="QEAM"
S DIC("A")="Select "_ABM("ITEM")_": "
S DIC("S")="I $D(^VA(200,Y,""PS""))"
D ^DIC K DIC
Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)!(X="")
I $D(ABM("A")) S ABM("ANS")="O"
E S ABM("ANS")="A"
W ! S ABM("Y")=Y
S DIR(0)="S^A:Attending;O:Operating;T:Other;F:Referring;R:Rendering;P:Purchased Service;S:Supervising"
S DIR("A")="Provider Status",DIR("B")=ABM("ANS")
D ^DIR K DIR Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)
S ABM("ANS")=Y,Y=ABM("Y")
I $D(ABM("A"))&(ABM("ANS")="A") W !!?5,*7,"***Attending Provider are Already Established!***",!?5," (Delete as necessary to facilitate editing)",! H 2 Q
I $D(ABM("O"))&(ABM("ANS")="O") W !!?5,*7,"***Operating Provider are Already Established!***",!?5," (Delete as necessary to facilitate editing)",! H 2 Q
A2 I +Y>0 K DD,DO S X=+Y,DA(1)=ABMP("CDFN"),DIC="^ABMDCLM(DUZ(2),"_DA(1)_","_ABM("SUB")_",",DIC("DR")=".02////"_ABM("ANS"),DIC(0)="LE"
I S:ABM("NUM")=0 ^ABMDCLM(DUZ(2),DA(1),ABM("SUB"),0)="^9002274.30"_ABM("SUB")_"P^^" D FILE^DICN
Q
;
D1 ; Delete Multiple
K DA
I ABM("NUM")=0 W *7 Q
S DIC="^ABMDCLM(DUZ(2),ABMP(""CDFN""),41,",DIC(0)="AEMQ"
I ABM("NUM")=1 S DA=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),41,0))
I '$G(DA) D
.S DIC("A")="Select Provider: " D ^DIC
.Q:+Y<0 S DA=+Y
Q:'$G(DA)
S DIR(0)="Y",DIR("A")="SURE",DIR("B")="NO" D ^DIR K DIR Q:Y'=1
S DIK=DIC,DA(1)=ABMP("CDFN") D ^DIK
K DIC
Q
;
XIT K ABM,ABME
Q
ABMDE4 ; IHS/ASDST/DMJ - Edit Page 4 - Providers ;
+1 ;;2.6;IHS Third Party Billing;**1,3,9,11**;NOV 12, 2009;Build 133
+2 ;
+3 ; IHS/SD/SDR - v2.5 p9 - task 1
+4 ; Only allows providers on page 4
+5 ;
+6 ; IHS/SD/SDR - v2.5 p10 - IM20059
+7 ; All providers displayed instead of one for each type
+8 ;
+9 ; IHS/SD/SDR - v2.5 p11 - NPI
+10 ; IHS/SD/SDR - abm*2.6*1 - HEAT4207 - If subpart NPI is populated show it
+11 ; on page4
+12 ; IHS/SD/SDR - abm*2.6*3 HEAT12442 - Make error 92 display for all 837s
+13 ;
+14 IF $DATA(ABMP("WORKSHEET"))
QUIT
+15 KILL ABM,ABME,ABMZ
OPT KILL ABME
DO DISP
IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
GOTO XIT
+1 WRITE !!
SET ABMP("OPT")="ADVNJBQ"
IF ABM("NUM")=0
SET ABMP("ED")=1
DO SEL^ABMDEOPT
KILL ABMP("ED")
IF "AVD"'[$EXTRACT(Y)
GOTO XIT
+2 IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
GOTO XIT
+3 SET ABM("DO")=$SELECT($EXTRACT(Y)="A":"A1",$EXTRACT(Y)="V":"^ABMDE4A",1:"D1")
DO @ABM("DO")
+4 GOTO OPT
+5 ;
DISP SET ABMZ("TITL")="PROVIDER DATA"
SET ABMZ("PG")=4
+1 IF $DATA(ABMP("DDL"))
IF $Y>(IOSL-9)
DO PAUSE^ABMDE1
IF $DATA(DUOUT)!$DATA(DTOUT)!$DATA(DIROUT)
QUIT
IF 1
GOTO PROV
+2 DO SUM^ABMDE1
+3 ;
PROV ; Provider Info
+1 KILL ABM("A"),ABM("O")
+2 SET ABM("SUB")=41
+3 SET ABM("DR")=";.03"
+4 SET ABM("ITEM")="Provider"
+5 SET ABM("DIC")="^VA(200,"
+6 SET ABM("PRIM")=""
+7 SET ABM("MD")=0
+8 SET ABMNPIUS=$$NPIUSAGE^ABMUTLF(ABMP("LDFN"),ABMP("INS"))
+9 IF ABMNPIUS=""!(ABMNPIUS="L")
Begin DoDot:1
+10 WRITE !?17,"PROVIDER",?39,"NUMBER",?59,"DISCIPLINE"
+11 WRITE !?8,"==========================",?36,"============",?50,"============================="
End DoDot:1
+12 IF ABMNPIUS="N"
Begin DoDot:1
+13 WRITE !?17,"PROVIDER",?40,"NPI",?59,"DISCIPLINE"
+14 WRITE !?8,"==========================",?36,"============",?50,"============================="
End DoDot:1
+15 IF ABMNPIUS="B"
Begin DoDot:1
+16 WRITE !?15,"PROVIDER",?34,"NPI",?45,"NUMBER",?62,"DISCIPLINE"
+17 WRITE !?8,"=====================",?30,"==========",?42,"===========",?55,"======================="
End DoDot:1
+18 SET ABM("NUM")=0
SET ABM=""
+19 SET ABM("I")=1
+20 FOR
SET ABM=$ORDER(^ABMDCLM(DUZ(2),ABMP("CDFN"),41,"C",ABM))
IF ABM=""
QUIT
Begin DoDot:1
+21 SET ABM("X")=""
+22 FOR
SET ABM("X")=$ORDER(^ABMDCLM(DUZ(2),ABMP("CDFN"),41,"C",ABM,ABM("X")))
IF ABM("X")=""
QUIT
Begin DoDot:2
+23 SET ABM("NUM")=ABM("I")
DO PRV
End DoDot:2
+24 SET ABM("I")=ABM("I")+1
End DoDot:1
+25 IF $PIECE(^ABMDEXP(ABMP("EXP"),0),U)["HCFA-1500"
IF ABMP("EXP")'=15
IF $PIECE(^ABMDPARM(DUZ(2),1,0),U,17)=2
QUIT
+26 ;abm*2.6*11 HEAT81017
IF +$ORDER(^ABMDCLM(DUZ(2),ABMP("CDFN"),41,"B",0))=0
SET ABME(244)=""
+27 IF '$DATA(ABM("A"))
Begin DoDot:1
+28 ;Q:ABMP("EXP")=22 ;abm*2.6*3 HEAT12442
+29 ;Q:ABMP("EXP")=23 ;abm*2.6*3 HEAT12442
+30 ;abm*2.6*9 HEAT57734
IF ABMP("EXP")=22!(ABMP("EXP")=32)
QUIT
+31 SET ABME(92)=""
End DoDot:1
+32 IF '$DATA(^ABMDCLM(DUZ(2),ABMP("CDFN"),41,"C","O"))
IF $ORDER(^ABMDCLM(DUZ(2),ABMP("CDFN"),19,0))
IF ABMP("PAGE")'[8
SET ABME(2)=""
ER IF +$ORDER(ABME(0))
SET ABME("CONT")=""
DO ^ABMDERR
KILL ABME("CONT")
+1 QUIT
PRV ;provider display
+1 SET ABMTYP("A")="(attn)"
+2 SET ABMTYP("O")="(oper)"
+3 SET ABMTYP("T")="(other)"
+4 SET ABMTYP("F")="(refer)"
+5 SET ABMTYP("R")="(rend)"
+6 SET ABMTYP("P")="(pursvc)"
+7 SET ABMTYP("S")="(suprvs)"
+8 DO SEL^ABMDE4X
DO AFFL^ABMDE4X
+9 IF ABMNPIUS=""!(ABMNPIUS="L")
Begin DoDot:1
+10 WRITE !,ABMTYP($PIECE(ABM("X0"),U,2))
+11 IF $DATA(ABM($PIECE(ABM("X0"),U,2)))
WRITE ?8,$PIECE(ABM($PIECE(ABM("X0"),U,2)),U),?36,ABM("PNUM"),?50,ABM("DISC")
End DoDot:1
+12 ;
+13 IF ABMNPIUS="N"
Begin DoDot:1
+14 WRITE !,ABMTYP($PIECE(ABM("X0"),U,2))
+15 IF $DATA(ABM($PIECE(ABM("X0"),U,2)))
Begin DoDot:2
+16 WRITE ?8,$PIECE(ABM($PIECE(ABM("X0"),U,2)),U)
+17 ;W ?36,$S($P($$NPI^XUSNPI("Individual_ID",+ABM("X0")),U)>0:$P($$NPI^XUSNPI("Individual_ID",+ABM("X0")),U),$P($$NPI^XUSNPI("Organization_ID",+ABMP("LDFN")),U)>0:$P($$NPI^XUSNPI("Organization_ID",+ABMP("LDFN")),U)_"*",1:"") ;abm*2.6*1 HEAT4207
+18 ;start new code abm*2.6*1 HEAT4207
+19 SET ABMLNPI=$SELECT($PIECE($GET(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),1)),U,8)'="":...
... $PIECE(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),1),U,8),$PIECE($GET(^ABMDPARM(ABMP("LDFN"),1,2)),U,12)'="":$PIECE(^ABMDPARM(ABMP("LDFN"),1,2),U,12),1:ABMP("LDFN"))
+20 WRITE ?36,$SELECT($PIECE($$NPI^XUSNPI("Individual_ID",+ABM("X0")),U)>0:$PIECE($$NPI^XUSNPI("Individual_ID",+ABM("X0")),U),$PIECE($$NPI^XUSNPI("Organization_ID",+ABMLNPI),U)>0:$PIECE($$NPI^XUSNPI("Organization_ID",+ABMLNPI),U)_"*
",1:"")
+21 ;end new code HEAT4207
+22 WRITE ?50,ABM("DISC")
End DoDot:2
End DoDot:1
+23 ;
+24 IF ABMNPIUS="B"
Begin DoDot:1
+25 WRITE !,ABMTYP($PIECE(ABM("X0"),U,2))
+26 IF $DATA(ABM($PIECE(ABM("X0"),U,2)))
Begin DoDot:2
+27 WRITE ?8,$EXTRACT($PIECE(ABM($PIECE(ABM("X0"),U,2)),U),1,20)
+28 ;W ?30,$S($P($$NPI^XUSNPI("Individual_ID",+ABM("X0")),U)>0:$P($$NPI^XUSNPI("Individual_ID",+ABM("X0")),U),$P($$NPI^XUSNPI("Organization_ID",+ABMP("LDFN")),U)>0:$P($$NPI^XUSNPI("Organization_ID",+ABMP("LDFN")),U)_"*",1:"") ;abm*2.6*1 HEAT4207
+29 ;start new code abm*2.6*1 HEAT4207
+30 SET ABMLNPI=$SELECT($PIECE($GET(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),1)),U,8)'="":...
... $PIECE(^ABMNINS(ABMP("LDFN"),ABMP("INS"),1,ABMP("VTYP"),1),U,8),$PIECE($GET(^ABMDPARM(ABMP("LDFN"),1,2)),U,12)'="":$PIECE(^ABMDPARM(ABMP("LDFN"),1,2),U,12),1:ABMP("LDFN"))
+31 ;W ?30,$S($P($$NPI^XUSNPI("Individual_ID",+ABM("X0")),U)>0:$P($$NPI^XUSNPI("Individual_ID",+ABM("X0")),U),$P($$NPI^XUSNPI("Organization_ID",+ABMLNPI),U)>0:$P($$NPI^XUSNPI("Organization_ID",+ABMLNPI),U)_"*",1:"") ;abm*2.6*1
+32 ;end new code HEAT4207
+33 SET ABMNPI=0
+34 SET ABMNPI=$PIECE($$NPI^XUSNPI("Individual_ID",+ABM("X0")),U)
+35 IF +ABMNPI<1
SET ABMNPI=$PIECE($$NPI^XUSNPI("Organization_ID",+ABMP("LDFN")),U)_"*"
+36 WRITE ?30,ABMNPI
+37 WRITE ?42,ABM("PNUM")
+38 WRITE ?55,ABM("DISC")
End DoDot:2
End DoDot:1
+39 QUIT
+40 ;
A1 ; Add Multiple
+1 WRITE !
KILL DIC
+2 SET DIC="^VA(200,"
SET DIC(0)="QEAM"
+3 SET DIC("A")="Select "_ABM("ITEM")_": "
+4 SET DIC("S")="I $D(^VA(200,Y,""PS""))"
+5 DO ^DIC
KILL DIC
+6 IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)!(X="")
QUIT
+7 IF $DATA(ABM("A"))
SET ABM("ANS")="O"
+8 IF '$TEST
SET ABM("ANS")="A"
+9 WRITE !
SET ABM("Y")=Y
+10 SET DIR(0)="S^A:Attending;O:Operating;T:Other;F:Referring;R:Rendering;P:Purchased Service;S:Supervising"
+11 SET DIR("A")="Provider Status"
SET DIR("B")=ABM("ANS")
+12 DO ^DIR
KILL DIR
IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
QUIT
+13 SET ABM("ANS")=Y
SET Y=ABM("Y")
+14 IF $DATA(ABM("A"))&(ABM("ANS")="A")
WRITE !!?5,*7,"***Attending Provider are Already Established!***",!?5," (Delete as necessary to facilitate editing)",!
HANG 2
QUIT
+15 IF $DATA(ABM("O"))&(ABM("ANS")="O")
WRITE !!?5,*7,"***Operating Provider are Already Established!***",!?5," (Delete as necessary to facilitate editing)",!
HANG 2
QUIT
A2 IF +Y>0
KILL DD,DO
SET X=+Y
SET DA(1)=ABMP("CDFN")
SET DIC="^ABMDCLM(DUZ(2),"_DA(1)_","_ABM("SUB")_","
SET DIC("DR")=".02////"_ABM("ANS")
SET DIC(0)="LE"
+1 IF $TEST
IF ABM("NUM")=0
SET ^ABMDCLM(DUZ(2),DA(1),ABM("SUB"),0)="^9002274.30"_ABM("SUB")_"P^^"
DO FILE^DICN
+2 QUIT
+3 ;
D1 ; Delete Multiple
+1 KILL DA
+2 IF ABM("NUM")=0
WRITE *7
QUIT
+3 SET DIC="^ABMDCLM(DUZ(2),ABMP(""CDFN""),41,"
SET DIC(0)="AEMQ"
+4 IF ABM("NUM")=1
SET DA=$ORDER(^ABMDCLM(DUZ(2),ABMP("CDFN"),41,0))
+5 IF '$GET(DA)
Begin DoDot:1
+6 SET DIC("A")="Select Provider: "
DO ^DIC
+7 IF +Y<0
QUIT
SET DA=+Y
End DoDot:1
+8 IF '$GET(DA)
QUIT
+9 SET DIR(0)="Y"
SET DIR("A")="SURE"
SET DIR("B")="NO"
DO ^DIR
KILL DIR
IF Y'=1
QUIT
+10 SET DIK=DIC
SET DA(1)=ABMP("CDFN")
DO ^DIK
+11 KILL DIC
+12 QUIT
+13 ;
XIT KILL ABM,ABME
+1 QUIT
