ABMDFOVR ; IHS/ASDST/DMJ - Set Up Form Override ;
;;2.6;IHS 3P BILLING SYSTEM;**10,13,21**;NOV 12, 2009;Build 379
;IHS/DSD/MRS - Added hcfa block 11c 11/25/1998
;
;IHS/SD/SDR - V2.5 P2 - 4/17/02 - NOIS LUA-0102-160077 - Modified so it wouldn't kick user out after immediately
; editing one line for box 24,32, and 33. It now asks if you would like to edit another line.
;IHS/SD/SDR - V2.5 P2 - 4/17/02 - NOIS NCA-1001-180096 - Modified to correct so block 53 would print correct info
;IHS/SD/SDR - v2.5 p8 - task 8 - Added code to correct add/edit prompt for FL override
;IHS/SD/SDR - v2.5 p13 - IM25365 - Added FL 32a/32b/33a/33b for export mode 27
;
;IHS/SD/SDR - 2.6*13 - Added check for new export mode 35
;IHS/SD/AML - 2.6*21 - HEAT132667 - Changed code to use AUTNINS for lookup so identifiers will display when selecting
;IHS/SD/SDR - 2.6*21 - HEAT284071 - Added override option,fields for ADA-2012
;
START ;start
K DIC
W !
D INS Q:'$G(ABMINS)
D FORM Q:'$G(ABMFORM)
D BOX Q:'$G(ABMBOX)
D VTYP Q:'$G(ABMVTYP)
STARTA K ABMLINE,ABMPIECE,ABMNM D @ABMBOX
Q:'$G(ABMLINE)
S ABMNM="FM"_ABMFORM_" "_ABMNM_" "_ABMVTYP
S:ABMVTYP=9999 ABMVTYP=""
D FILE
K ABMINS,ABMFORM,ABMBOX,ABMLINE,ABMPIECE,ABMANS,ABMDA,ABMEXIST,ABMVTYP
Q
FORM ;select form
S DIC="^ABMDEXP(",DIC(0)="AEMQ"
;S DIC("S")="I +Y=3!(+Y=14)!(+Y=27)" ;abm*2.6*13 export mode 35
;S DIC("S")="I +Y=3!(+Y=14)!(+Y=27)!(+Y=35)" ;abm*2.6*13 export mode 35 ;abm*2.6*21 IHS/SD/SDR HEAT284071
S DIC("S")="I +Y=3!(+Y=14)!(+Y=27)!(+Y=35)!(+Y=34)" ;abm*2.6*21 IHS/SD/SDR HEAT284071
D ^DIC K DIC
Q:+Y<0
S ABMFORM=+Y
Q
INS ;select insurer
;S DIC="^ABMNINS(DUZ(2)," ;abm*2.6*21 IHS/SD/AML HEAT132667
S DIC="^AUTNINS(" ;abm*2.6*21 IHS/SD/AML HEAT132667
S DIC(0)="AEMQ"
D ^DIC Q:+Y<0
S ABMINS=+Y
Q
BOX ;select form locator
S DIR(0)="S^10:RESERVED FOR LOCAL USE;11:BOX 11C - INSURANCE PLAN/PROGRAM NAME;19:RESERVED FOR LOCAL USE;24:LINE ITEMS;241:LINE 24, LINE 1 ITEM;32:WHERE SERVICES RENDERED;33:BILLING INFO"
;start new abm*2.6*10 HEAT64983
I ABMFORM'=3 S DIR(0)="S^10:RESERVED FOR LOCAL USE;11:BOX 11C - INSURANCE PLAN/PROGRAM NAME;19:RESERVED FOR LOCAL USE;24:LINE ITEMS;241:LINE 24, LINE 1 ITEM;31:SIGNATURE OF PHYSICIAN;32:WHERE SERVICES RENDERED;33:BILLING INFO"
I ABMFORM=34 D
.S DIR(0)="S^16:PLAN/GROUP NUMBER;38:PLACE OF SERVICE;48:BILLING DENTIST OR DENTAL ENTITY ADDRESS;"
.S DIR(0)=DIR(0)_"49:BILLING DENTIST NPI;50:BILLING DENTIST LICENSE NUMBER;51:SSN/TIN;52:PHONE NUMBER or ADD'L PROVIDER ID;"
.S DIR(0)=DIR(0)_"53:TREATING DENTIST/LOCATION;54:NPI;55:TREATING DENTIST LICENSE NUMBER;56:TREATING DENTIST ADDRESS or PROVIDER SPECIALTY CODE;57:PHONE NUMBER;58:ADD'L PROVIDER ID"
S DIR("A")="Select Form Locator"
;end new HEAT64983
D ^DIR K DIR
Q:'+Y
S ABMBOX=+Y
Q
VTYP ;select visit type
S DIC="^ABMDVTYP("
S DIC(0)="AEMQ"
S DIC("A")="Enter visit type, or leave blank for all. "
D ^DIC
I X="" D
.S Y=9999
.W "ALL"
Q:+Y<0
S ABMVTYP=+Y
Q
FILE ;file in 3P Insurer file
S ABMEXIST=$G(^ABMNINS(DUZ(2),ABMINS,2,"AOVR",ABMFORM,ABMLINE,ABMPIECE,+ABMVTYP)) D
.Q:ABMEXIST=""
.W !!,"Current Value: ",ABMEXIST
.W !,"Visit Type: ",$S(ABMVTYP="":"ALL",1:ABMVTYP)
I ABMLINE=37,(ABMPIECE=1!(ABMPIECE=2)) W !!?5,"Be sure to enter date in FM format (3071218 for 12/18/07)",!
S DA(1)=ABMINS
S:'$D(^ABMNINS(DUZ(2),DA(1),2,0)) ^(0)="^9002274.092^^"
S DIC="^ABMNINS(DUZ(2),DA(1),2,"
S X=ABMNM
S DIC(0)="LXE" D ^DIC
Q:+Y<0
S DA=+Y
S ABMDA=DA
S DIE=DIC
I $P(Y,U,3)'=1 D
.S DIR(0)="S^1:ADD/EDIT;2:DELETE"
.S DIR("A")="Add or Delete Entry?"
.S DIR("B")="ADD/EDIT"
.D ^DIR K DIR
.Q:'Y S ABMANS=Y
E S ABMANS=1
S:ABMANS=1 DR=".02///"_ABMFORM_";.03///"_ABMLINE_";.04///"_ABMPIECE_";.045///"_ABMVTYP_";.05"
S:ABMANS=2 DR=".01///@"
D ^DIE
I ABMANS=2 D
.W !,"Entry Deleted.",!
.D EOP^ABMDUTL(1)
;I ABMNM["BOX 32"!(ABMNM["BOX 33")!(ABMNM["BOX 24") D ;abm*2.6*10 HEAT64983
;I ABMNM["BOX 31"!(ABMNM["BOX 32")!(ABMNM["BOX 33")!(ABMNM["BOX 24") D ;abm*2.6*10 HEAT64983 ;abm*2.6*21 IHS/SD/SDR HEAT284071
I ABMNM["BOX 31"!(ABMNM["BOX 32")!(ABMNM["BOX 33")!(ABMNM["BOX 24")!(ABMNM["BOX 48")!(ABMNM["BOX 56") D ;abm*2.6*10 HEAT64983 ;abm*2.6*21 IHS/SD/SDR HEAT284071
.K DIR
.S DIR(0)="Y"
.S DIR("A")="EDIT ANOTHER LINE?"
.S DIR("B")="N"
.D ^DIR
.K DIR
.I Y=1 G STARTA
Q
10 ;1500 locator 10d
S ABMLINE=19
S ABMPIECE=2
S ABMNM="BOX 10D LOCAL USE"
Q
11 ;1500 locator 11C
S ABMLINE=17
S ABMPIECE=4
S ABMNM="BOX 11C"
Q
19 ;1500 locator 19
S ABMLINE=29
S ABMPIECE=1
S ABMNM="BOX 19 LOCAL USE"
Q
24 ;1500 locator 24
K DIR
S DIR(0)="S^1:A1 - DOS FROM;2:A2 - DOS TO;3:B - POS;4:C - TOS;5:D - HCPCS;6:E - DIAGNOSIS;7:F - CHARGE;8:G - UNITS;9:H - EPSDT;10:I - EMG;11:J - COB;12:K - LOCAL USE"
;S:ABMFORM=27 DIR(0)="S^1:A1 - DOS FROM;2:A2 - DOS TO;3:B - POS;4:C - EMG;5:D - HCPCS;6:E - DIAGNOSIS;7:F - CHARGE;8:G - UNITS;9:H - EPSDT;10:I - QUALIFIER;11:J - PROVIDER#" ;abm*2.6*13 export mode 35
S:ABMFORM=27!(ABMFORM=35) DIR(0)="S^1:A1 - DOS FROM;2:A2 - DOS TO;3:B - POS;4:C - EMG;5:D - HCPCS;6:E - DIAGNOSIS;7:F - CHARGE;8:G - UNITS;9:H - EPSDT;10:I - QUALIFIER;11:J - PROVIDER#" ;abm*2.6*13 export mode 35
S DIR("A")="Which Section?"
D ^DIR K DIR
Q:'Y
S ABMLINE=37
S ABMPIECE=+Y
S ABMNM="BOX 24 "_$S($G(Y(0)):Y(0),1:Y)
Q
241 ;1500 location 24, line 1
;IHS/SD/AML 7/18/2012 - Begin new code - Allow correct override for Shaded line in Box 24
K DIR
S DIR(0)="S^1:PIECE 1 - FREE TEXT;2:I - ID QUALIFIER;3:J - IDENTIFIER"
S DIR("A")="Which Section?"
D ^DIR K DIR
Q:'Y
S ABMLINE=36
S ABMPIECE=+Y
S ABMNM="BOX 24, Line 1 "_$S($G(Y(0)):Y(0),1:Y)
;IHS/SD/AML 7/18/2012 - End new code, begin old code
;S ABMLINE=36
;S ABMPIECE=3
;S ABMNM="BOX 24, Line 1"
;IHS/SD/AML 7/18/2012 - End old code
Q
;start new code abm*2.6*10 HEAT64983
31 ;1500 locator 31
K DIR
S DIR(0)="S^1:LINE 1;2:LINE 2"
S DIR("A")="Enter Line Number"
D ^DIR K DIR
Q:'Y
S ABMLINE=+Y+51
S ABMPIECE=1
S ABMNM="BOX 31 "_$S($G(Y(0)):Y(0),1:Y)
Q
;end new code HEAT64983
32 ;1500 locator 32
K DIR
S DIR(0)="N^1:4"
;I ABMFORM=27 S DIR(0)="S^1:LINE 1;2:LINE 2;3:LINE 3;4:LINE 4 32A;5:LINE 4 32B" ;abm*2.6*13 export mode 35
I ABMFORM=27!(ABMFORM=35) S DIR(0)="S^1:LINE 1;2:LINE 2;3:LINE 3;4:LINE 4 32A;5:LINE 4 32B" ;abm*2.6*13 export mode 35
S DIR("A")="Enter Line Number"
D ^DIR K DIR
Q:'Y
S ABMLINE=+Y+50
S ABMPIECE=Y
I ABMLINE=53 S ABMPIECE=ABMPIECE-1
I +Y=4 S ABMPIECE=1,ABMLINE=54
I +Y=5 S ABMPIECE=2,ABMLINE=54
S ABMNM="BOX 32 "_$S($G(Y(0)):Y(0),1:Y)
Q
33 ;1500 locator 33
K DIR
S DIR(0)="S^1:LINE 1;2:LINE 2;3:LINE 3;4:LINE 4 PIN#;5:LINE 4 GRP#"
;I ABMFORM=27 S DIR(0)="S^1:LINE 1;2:LINE 2;3:LINE 3;4:LINE 4 33A;5:LINE 4 33B" ;abm*2.6*13 export mode 35
I ABMFORM=27!(ABMFORM=35) S DIR(0)="S^1:LINE 1;2:LINE 2;3:LINE 3;4:LINE 4 33A;5:LINE 4 33B" ;abm*2.6*13 export mode 35
S DIR("A")="Enter Line Number"
D ^DIR K DIR
Q:'Y
S ABMLINE=+Y+50
S ABMPIECE=$S(ABMLINE=51:2,1:3)
I +Y=5 S ABMPIECE=4,ABMLINE=54
S ABMNM="BOX 33 "_$S($G(Y(0)):Y(0),1:Y)
Q
;start new abm*2.6*21 IHS/SD/SDR HEAT284071
16 ;ADA-2012 locator 16
S ABMLINE=12
S ABMPIECE=3
S ABMNM="BOX 16"
Q
38 ;ADA-2012 locator 38
S ABMLINE=42
S ABMPIECE=1
S ABMNM="BOX 38"
Q
48 ;ADA-2012 locator 48
K DIR
S DIR(0)="N^1:3"
S DIR(0)="S^1:LINE 1;2:LINE 2;3:LINE 3"
S DIR("A")="Enter Line Number"
D ^DIR K DIR
Q:'Y
S ABMLINE=+Y+53
S ABMPIECE=1
S ABMNM="BOX 48 "_$S($G(Y(0)):Y(0),1:Y)
Q
49 ;ADA-2012 locator 49
S ABMLINE=59
S ABMPIECE=1
S ABMNM="BOX 49"
Q
50 ;ADA-2012 locator 50
S ABMLINE=59
S ABMPIECE=2
S ABMNM="BOX 50"
Q
51 ;ADA-2012 locator 51
S ABMLINE=59
S ABMPIECE=3
S ABMNM="BOX 51"
Q
52 ;ADA-2012 locator 52 and 52A
K DIR
S DIR(0)="N^1:2"
S DIR(0)="S^1:52 PHONE NUMBER;2:52A ADDITIONAL PROVIDER ID"
S DIR("A")="Enter Line Number"
D ^DIR K DIR
Q:'Y
S ABMLINE=60
S ABMPIECE=+Y
S ABMNM="BOX 52"_$S(Y=2:"A",1:"")
Q
53 ;ADA-2012 locator 53
S ABMLINE=54
S ABMPIECE=2
S ABMNM="BOX 53"
Q
54 ;ADA-2012 locator 54
S ABMLINE=56
S ABMPIECE=2
S ABMNM="BOX 54"
Q
55 ;ADA-2012 locator 55
S ABMLINE=56
S ABMPIECE=3
S ABMNM="BOX 55"
Q
56 ;ADA-2012 locator 56
K DIR
S DIR(0)="N^1:3"
S DIR(0)="S^1:56 ADDRESS LINE 1;2:56 ADDRESS LINE 2;3:56A PROVIDER SPECIALTY CODE"
S DIR("A")="Enter Number"
D ^DIR K DIR
Q:'Y
S ABMLINE=$S(Y=2:59,Y=3:57,1:58)
S ABMPIECE=1
I ABMLINE=59 S ABMPIECE=4
S ABMNM="BOX 56"_$S(Y=3:"A",1:" LINE "_Y)
Q
57 ;ADA-2012 locator 57
S ABMLINE=60
S ABMPIECE=3
S ABMNM="BOX 57"
Q
58 ;ADA-2012 locator 58
S ABMLINE=60
S ABMPIECE=4
S ABMNM="BOX 58"
Q
;end new abm*2.6*21 IHS/SD/SDR HEAT284071
ABMDFOVR ; IHS/ASDST/DMJ - Set Up Form Override ;
+1 ;;2.6;IHS 3P BILLING SYSTEM;**10,13,21**;NOV 12, 2009;Build 379
+2 ;IHS/DSD/MRS - Added hcfa block 11c 11/25/1998
+3 ;
+4 ;IHS/SD/SDR - V2.5 P2 - 4/17/02 - NOIS LUA-0102-160077 - Modified so it wouldn't kick user out after immediately
+5 ; editing one line for box 24,32, and 33. It now asks if you would like to edit another line.
+6 ;IHS/SD/SDR - V2.5 P2 - 4/17/02 - NOIS NCA-1001-180096 - Modified to correct so block 53 would print correct info
+7 ;IHS/SD/SDR - v2.5 p8 - task 8 - Added code to correct add/edit prompt for FL override
+8 ;IHS/SD/SDR - v2.5 p13 - IM25365 - Added FL 32a/32b/33a/33b for export mode 27
+9 ;
+10 ;IHS/SD/SDR - 2.6*13 - Added check for new export mode 35
+11 ;IHS/SD/AML - 2.6*21 - HEAT132667 - Changed code to use AUTNINS for lookup so identifiers will display when selecting
+12 ;IHS/SD/SDR - 2.6*21 - HEAT284071 - Added override option,fields for ADA-2012
+13 ;
START ;start
+1 KILL DIC
+2 WRITE !
+3 DO INS
IF '$GET(ABMINS)
QUIT
+4 DO FORM
IF '$GET(ABMFORM)
QUIT
+5 DO BOX
IF '$GET(ABMBOX)
QUIT
+6 DO VTYP
IF '$GET(ABMVTYP)
QUIT
STARTA KILL ABMLINE,ABMPIECE,ABMNM
DO @ABMBOX
+1 IF '$GET(ABMLINE)
QUIT
+2 SET ABMNM="FM"_ABMFORM_" "_ABMNM_" "_ABMVTYP
+3 IF ABMVTYP=9999
SET ABMVTYP=""
+4 DO FILE
+5 KILL ABMINS,ABMFORM,ABMBOX,ABMLINE,ABMPIECE,ABMANS,ABMDA,ABMEXIST,ABMVTYP
+6 QUIT
FORM ;select form
+1 SET DIC="^ABMDEXP("
SET DIC(0)="AEMQ"
+2 ;S DIC("S")="I +Y=3!(+Y=14)!(+Y=27)" ;abm*2.6*13 export mode 35
+3 ;S DIC("S")="I +Y=3!(+Y=14)!(+Y=27)!(+Y=35)" ;abm*2.6*13 export mode 35 ;abm*2.6*21 IHS/SD/SDR HEAT284071
+4 ;abm*2.6*21 IHS/SD/SDR HEAT284071
SET DIC("S")="I +Y=3!(+Y=14)!(+Y=27)!(+Y=35)!(+Y=34)"
+5 DO ^DIC
KILL DIC
+6 IF +Y<0
QUIT
+7 SET ABMFORM=+Y
+8 QUIT
INS ;select insurer
+1 ;S DIC="^ABMNINS(DUZ(2)," ;abm*2.6*21 IHS/SD/AML HEAT132667
+2 ;abm*2.6*21 IHS/SD/AML HEAT132667
SET DIC="^AUTNINS("
+3 SET DIC(0)="AEMQ"
+4 DO ^DIC
IF +Y<0
QUIT
+5 SET ABMINS=+Y
+6 QUIT
BOX ;select form locator
+1 SET DIR(0)="S^10:RESERVED FOR LOCAL USE;11:BOX 11C - INSURANCE PLAN/PROGRAM NAME;19:RESERVED FOR LOCAL USE;24:LINE ITEMS;241:LINE 24, LINE 1 ITEM;32:WHERE SERVICES RENDERED;33:BILLING INFO"
+2 ;start new abm*2.6*10 HEAT64983
+3 IF ABMFORM'=3
SET DIR(0)="S^10:RESERVED FOR LOCAL USE;11:BOX 11C - INSURANCE PLAN/PROGRAM NAME;19:RESERVED FOR LOCAL USE;24:LINE ITEMS;241:LINE 24, LINE 1 ITEM;31:SIGNATURE OF PHYSICIAN;32:WHERE SERVICES RENDERED;33:BILLING INFO"
+4 IF ABMFORM=34
Begin DoDot:1
+5 SET DIR(0)="S^16:PLAN/GROUP NUMBER;38:PLACE OF SERVICE;48:BILLING DENTIST OR DENTAL ENTITY ADDRESS;"
+6 SET DIR(0)=DIR(0)_"49:BILLING DENTIST NPI;50:BILLING DENTIST LICENSE NUMBER;51:SSN/TIN;52:PHONE NUMBER or ADD'L PROVIDER ID;"
+7 SET DIR(0)=DIR(0)_"53:TREATING DENTIST/LOCATION;54:NPI;55:TREATING DENTIST LICENSE NUMBER;56:TREATING DENTIST ADDRESS or PROVIDER SPECIALTY CODE;57:PHONE NUMBER;58:ADD'L PROVIDER ID"
End DoDot:1
+8 SET DIR("A")="Select Form Locator"
+9 ;end new HEAT64983
+10 DO ^DIR
KILL DIR
+11 IF '+Y
QUIT
+12 SET ABMBOX=+Y
+13 QUIT
VTYP ;select visit type
+1 SET DIC="^ABMDVTYP("
+2 SET DIC(0)="AEMQ"
+3 SET DIC("A")="Enter visit type, or leave blank for all. "
+4 DO ^DIC
+5 IF X=""
Begin DoDot:1
+6 SET Y=9999
+7 WRITE "ALL"
End DoDot:1
+8 IF +Y<0
QUIT
+9 SET ABMVTYP=+Y
+10 QUIT
FILE ;file in 3P Insurer file
+1 SET ABMEXIST=$GET(^ABMNINS(DUZ(2),ABMINS,2,"AOVR",ABMFORM,ABMLINE,ABMPIECE,+ABMVTYP))
Begin DoDot:1
+2 IF ABMEXIST=""
QUIT
+3 WRITE !!,"Current Value: ",ABMEXIST
+4 WRITE !,"Visit Type: ",$SELECT(ABMVTYP="":"ALL",1:ABMVTYP)
End DoDot:1
+5 IF ABMLINE=37
IF (ABMPIECE=1!(ABMPIECE=2))
WRITE !!?5,"Be sure to enter date in FM format (3071218 for 12/18/07)",!
+6 SET DA(1)=ABMINS
+7 IF '$DATA(^ABMNINS(DUZ(2),DA(1),2,0))
SET ^(0)="^9002274.092^^"
+8 SET DIC="^ABMNINS(DUZ(2),DA(1),2,"
+9 SET X=ABMNM
+10 SET DIC(0)="LXE"
DO ^DIC
+11 IF +Y<0
QUIT
+12 SET DA=+Y
+13 SET ABMDA=DA
+14 SET DIE=DIC
+15 IF $PIECE(Y,U,3)'=1
Begin DoDot:1
+16 SET DIR(0)="S^1:ADD/EDIT;2:DELETE"
+17 SET DIR("A")="Add or Delete Entry?"
+18 SET DIR("B")="ADD/EDIT"
+19 DO ^DIR
KILL DIR
+20 IF 'Y
QUIT
SET ABMANS=Y
End DoDot:1
+21 IF '$TEST
SET ABMANS=1
+22 IF ABMANS=1
SET DR=".02///"_ABMFORM_";.03///"_ABMLINE_";.04///"_ABMPIECE_";.045///"_ABMVTYP_";.05"
+23 IF ABMANS=2
SET DR=".01///@"
+24 DO ^DIE
+25 IF ABMANS=2
Begin DoDot:1
+26 WRITE !,"Entry Deleted.",!
+27 DO EOP^ABMDUTL(1)
End DoDot:1
+28 ;I ABMNM["BOX 32"!(ABMNM["BOX 33")!(ABMNM["BOX 24") D ;abm*2.6*10 HEAT64983
+29 ;I ABMNM["BOX 31"!(ABMNM["BOX 32")!(ABMNM["BOX 33")!(ABMNM["BOX 24") D ;abm*2.6*10 HEAT64983 ;abm*2.6*21 IHS/SD/SDR HEAT284071
+30 ;abm*2.6*10 HEAT64983 ;abm*2.6*21 IHS/SD/SDR HEAT284071
IF ABMNM["BOX 31"!(ABMNM["BOX 32")!(ABMNM["BOX 33")!(ABMNM["BOX 24")!(ABMNM["BOX 48")!(ABMNM["BOX 56")
Begin DoDot:1
+31 KILL DIR
+32 SET DIR(0)="Y"
+33 SET DIR("A")="EDIT ANOTHER LINE?"
+34 SET DIR("B")="N"
+35 DO ^DIR
+36 KILL DIR
+37 IF Y=1
GOTO STARTA
End DoDot:1
+38 QUIT
10 ;1500 locator 10d
+1 SET ABMLINE=19
+2 SET ABMPIECE=2
+3 SET ABMNM="BOX 10D LOCAL USE"
+4 QUIT
11 ;1500 locator 11C
+1 SET ABMLINE=17
+2 SET ABMPIECE=4
+3 SET ABMNM="BOX 11C"
+4 QUIT
19 ;1500 locator 19
+1 SET ABMLINE=29
+2 SET ABMPIECE=1
+3 SET ABMNM="BOX 19 LOCAL USE"
+4 QUIT
24 ;1500 locator 24
+1 KILL DIR
+2 SET DIR(0)="S^1:A1 - DOS FROM;2:A2 - DOS TO;3:B - POS;4:C - TOS;5:D - HCPCS;6:E - DIAGNOSIS;7:F - CHARGE;8:G - UNITS;9:H - EPSDT;10:I - EMG;11:J - COB;12:K - LOCAL USE"
+3 ;S:ABMFORM=27 DIR(0)="S^1:A1 - DOS FROM;2:A2 - DOS TO;3:B - POS;4:C - EMG;5:D - HCPCS;6:E - DIAGNOSIS;7:F - CHARGE;8:G - UNITS;9:H - EPSDT;10:I - QUALIFIER;11:J - PROVIDER#" ;abm*2.6*13 export mode 35
+4 ;abm*2.6*13 export mode 35
IF ABMFORM=27!(ABMFORM=35)
SET DIR(0)="S^1:A1 - DOS FROM;2:A2 - DOS TO;3:B - POS;4:C - EMG;5:D - HCPCS;6:E - DIAGNOSIS;7:F - CHARGE;8:G - UNITS;9:H - EPSDT;10:I - QUALIFIER;11:J - PROVIDER#"
+5 SET DIR("A")="Which Section?"
+6 DO ^DIR
KILL DIR
+7 IF 'Y
QUIT
+8 SET ABMLINE=37
+9 SET ABMPIECE=+Y
+10 SET ABMNM="BOX 24 "_$SELECT($GET(Y(0)):Y(0),1:Y)
+11 QUIT
241 ;1500 location 24, line 1
+1 ;IHS/SD/AML 7/18/2012 - Begin new code - Allow correct override for Shaded line in Box 24
+2 KILL DIR
+3 SET DIR(0)="S^1:PIECE 1 - FREE TEXT;2:I - ID QUALIFIER;3:J - IDENTIFIER"
+4 SET DIR("A")="Which Section?"
+5 DO ^DIR
KILL DIR
+6 IF 'Y
QUIT
+7 SET ABMLINE=36
+8 SET ABMPIECE=+Y
+9 SET ABMNM="BOX 24, Line 1 "_$SELECT($GET(Y(0)):Y(0),1:Y)
+10 ;IHS/SD/AML 7/18/2012 - End new code, begin old code
+11 ;S ABMLINE=36
+12 ;S ABMPIECE=3
+13 ;S ABMNM="BOX 24, Line 1"
+14 ;IHS/SD/AML 7/18/2012 - End old code
+15 QUIT
+16 ;start new code abm*2.6*10 HEAT64983
31 ;1500 locator 31
+1 KILL DIR
+2 SET DIR(0)="S^1:LINE 1;2:LINE 2"
+3 SET DIR("A")="Enter Line Number"
+4 DO ^DIR
KILL DIR
+5 IF 'Y
QUIT
+6 SET ABMLINE=+Y+51
+7 SET ABMPIECE=1
+8 SET ABMNM="BOX 31 "_$SELECT($GET(Y(0)):Y(0),1:Y)
+9 QUIT
+10 ;end new code HEAT64983
32 ;1500 locator 32
+1 KILL DIR
+2 SET DIR(0)="N^1:4"
+3 ;I ABMFORM=27 S DIR(0)="S^1:LINE 1;2:LINE 2;3:LINE 3;4:LINE 4 32A;5:LINE 4 32B" ;abm*2.6*13 export mode 35
+4 ;abm*2.6*13 export mode 35
IF ABMFORM=27!(ABMFORM=35)
SET DIR(0)="S^1:LINE 1;2:LINE 2;3:LINE 3;4:LINE 4 32A;5:LINE 4 32B"
+5 SET DIR("A")="Enter Line Number"
+6 DO ^DIR
KILL DIR
+7 IF 'Y
QUIT
+8 SET ABMLINE=+Y+50
+9 SET ABMPIECE=Y
+10 IF ABMLINE=53
SET ABMPIECE=ABMPIECE-1
+11 IF +Y=4
SET ABMPIECE=1
SET ABMLINE=54
+12 IF +Y=5
SET ABMPIECE=2
SET ABMLINE=54
+13 SET ABMNM="BOX 32 "_$SELECT($GET(Y(0)):Y(0),1:Y)
+14 QUIT
33 ;1500 locator 33
+1 KILL DIR
+2 SET DIR(0)="S^1:LINE 1;2:LINE 2;3:LINE 3;4:LINE 4 PIN#;5:LINE 4 GRP#"
+3 ;I ABMFORM=27 S DIR(0)="S^1:LINE 1;2:LINE 2;3:LINE 3;4:LINE 4 33A;5:LINE 4 33B" ;abm*2.6*13 export mode 35
+4 ;abm*2.6*13 export mode 35
IF ABMFORM=27!(ABMFORM=35)
SET DIR(0)="S^1:LINE 1;2:LINE 2;3:LINE 3;4:LINE 4 33A;5:LINE 4 33B"
+5 SET DIR("A")="Enter Line Number"
+6 DO ^DIR
KILL DIR
+7 IF 'Y
QUIT
+8 SET ABMLINE=+Y+50
+9 SET ABMPIECE=$SELECT(ABMLINE=51:2,1:3)
+10 IF +Y=5
SET ABMPIECE=4
SET ABMLINE=54
+11 SET ABMNM="BOX 33 "_$SELECT($GET(Y(0)):Y(0),1:Y)
+12 QUIT
+13 ;start new abm*2.6*21 IHS/SD/SDR HEAT284071
16 ;ADA-2012 locator 16
+1 SET ABMLINE=12
+2 SET ABMPIECE=3
+3 SET ABMNM="BOX 16"
+4 QUIT
38 ;ADA-2012 locator 38
+1 SET ABMLINE=42
+2 SET ABMPIECE=1
+3 SET ABMNM="BOX 38"
+4 QUIT
48 ;ADA-2012 locator 48
+1 KILL DIR
+2 SET DIR(0)="N^1:3"
+3 SET DIR(0)="S^1:LINE 1;2:LINE 2;3:LINE 3"
+4 SET DIR("A")="Enter Line Number"
+5 DO ^DIR
KILL DIR
+6 IF 'Y
QUIT
+7 SET ABMLINE=+Y+53
+8 SET ABMPIECE=1
+9 SET ABMNM="BOX 48 "_$SELECT($GET(Y(0)):Y(0),1:Y)
+10 QUIT
49 ;ADA-2012 locator 49
+1 SET ABMLINE=59
+2 SET ABMPIECE=1
+3 SET ABMNM="BOX 49"
+4 QUIT
50 ;ADA-2012 locator 50
+1 SET ABMLINE=59
+2 SET ABMPIECE=2
+3 SET ABMNM="BOX 50"
+4 QUIT
51 ;ADA-2012 locator 51
+1 SET ABMLINE=59
+2 SET ABMPIECE=3
+3 SET ABMNM="BOX 51"
+4 QUIT
52 ;ADA-2012 locator 52 and 52A
+1 KILL DIR
+2 SET DIR(0)="N^1:2"
+3 SET DIR(0)="S^1:52 PHONE NUMBER;2:52A ADDITIONAL PROVIDER ID"
+4 SET DIR("A")="Enter Line Number"
+5 DO ^DIR
KILL DIR
+6 IF 'Y
QUIT
+7 SET ABMLINE=60
+8 SET ABMPIECE=+Y
+9 SET ABMNM="BOX 52"_$SELECT(Y=2:"A",1:"")
+10 QUIT
53 ;ADA-2012 locator 53
+1 SET ABMLINE=54
+2 SET ABMPIECE=2
+3 SET ABMNM="BOX 53"
+4 QUIT
54 ;ADA-2012 locator 54
+1 SET ABMLINE=56
+2 SET ABMPIECE=2
+3 SET ABMNM="BOX 54"
+4 QUIT
55 ;ADA-2012 locator 55
+1 SET ABMLINE=56
+2 SET ABMPIECE=3
+3 SET ABMNM="BOX 55"
+4 QUIT
56 ;ADA-2012 locator 56
+1 KILL DIR
+2 SET DIR(0)="N^1:3"
+3 SET DIR(0)="S^1:56 ADDRESS LINE 1;2:56 ADDRESS LINE 2;3:56A PROVIDER SPECIALTY CODE"
+4 SET DIR("A")="Enter Number"
+5 DO ^DIR
KILL DIR
+6 IF 'Y
QUIT
+7 SET ABMLINE=$SELECT(Y=2:59,Y=3:57,1:58)
+8 SET ABMPIECE=1
+9 IF ABMLINE=59
SET ABMPIECE=4
+10 SET ABMNM="BOX 56"_$SELECT(Y=3:"A",1:" LINE "_Y)
+11 QUIT
57 ;ADA-2012 locator 57
+1 SET ABMLINE=60
+2 SET ABMPIECE=3
+3 SET ABMNM="BOX 57"
+4 QUIT
58 ;ADA-2012 locator 58
+1 SET ABMLINE=60
+2 SET ABMPIECE=4
+3 SET ABMNM="BOX 58"
+4 QUIT
+5 ;end new abm*2.6*21 IHS/SD/SDR HEAT284071
