IBY371PR ;ALB/ESG - Pre-Installation for IB patch 371 ;3-May-2006
;;2.0;INTEGRATED BILLING;**371**;21-MAR-94;Build 57
;
D DELOF ; delete all data elements included in build
D DELXREFS ; delete a trigger that was added on a previous version of the build
;
Q
;
;
;
DELOF ; Delete included output formatter entries
NEW FILE,DIK,LN,TAG,DATA,PCE,DA,Y
F FILE=5,6,7 S DIK="^IBA(364."_FILE_"," F LN=2:1 S TAG="ENT"_FILE_"+"_LN,DATA=$P($T(@TAG),";;",2) Q:DATA="" D
. F PCE=2:1 S DA=$P(DATA,U,PCE) Q:'DA I $D(^IBA("364."_FILE,DA,0)) D ^DIK
. Q
;
; Also delete output formatter entries which are not going to be
; re-added later. These are non-functioning entries in file 364.6.
S DIK="^IBA(364.6,",TAG="DEL6+2",DATA=$P($T(@TAG),";;",2)
I DATA'="" D
. F PCE=2:1 S DA=$P(DATA,U,PCE) Q:'DA I $D(^IBA(364.6,DA,0)) D ^DIK
. Q
;
; Also delete output formatter entries which are not going to be
; re-added later. These are non-functioning entries in file 364.7.
S DIK="^IBA(364.7,",TAG="DEL7+2",DATA=$P($T(@TAG),";;",2)
I DATA'="" D
. F PCE=2:1 S DA=$P(DATA,U,PCE) Q:'DA I $D(^IBA(364.7,DA,0)) D ^DIK
. Q
;
DELOFX ;
Q
;
INCLUDE(FILE,Y) ; function to determine if output formatter entry should be
; included in the build
; FILE=5,6,7 indicating file 364.x
; Y=ien to file
;
NEW OK,LN,TAG,DATA
S OK=0
F LN=2:1 S TAG="ENT"_FILE_"+"_LN,DATA=$P($T(@TAG),";;",2) Q:DATA="" I $F(DATA,U_Y_U) S OK=1 Q
INCLUDEX ;
Q OK
;
INC3508(Y) ; function to determine if entry in IB ERROR file (350.8) should be included in the build
; Y - ien to file
N DATA,ENTRY,LN,OK,TAG
S OK=0,ENTRY=U_$P($G(^IBE(350.8,Y,0)),U,3)_U
F LN=2:1 S TAG="ENT3508+"_LN,DATA=$P($T(@TAG),";;",2) Q:DATA="" I $F(DATA,ENTRY) S OK=1 Q
Q OK
;
;-----------------------------------------------------------------------
; 350.8 entries modified:
; IB137: new error for missing Initial Treatment date
; IB138: new error for missing Patient Condition code
; IB139: new error for missing Acute Manifestation Date
; IB146: 3 payers - MRA secondary claim
; IB147: 3 payers - payer sequence >1
; IB150: Occurrence Code End Date can not be before the start date.
; IB151: Referring provider must have SSN or EIN defined.
; IB152: Operating provider must have SSN or EIN defined.
; IB153: Supervising provider must have SSN or EIN defined.
; IB154: Other provider must have SSN or EIN defined.
; IB155: End dates are required for occurrence spans.
; IB157: One or more Value Codes has no associated Value.
; IB158: One or more of the value codes has an improper format.
; IB205: ICN/DCN required - MRA replacement claim.
; IB206: FL-80 remarks required - MRA replacement claim.
; IB269: Patient address is incomplete. Address Line 1 is required.
; IB270: Patient address is incomplete. City is required.
; IB271: Patient address is incomplete. State is required.
; IB272: Patient address is incomplete. ZIP is required.
; IB273: Primary insurance subscriber's name is missing or invalid
; IB274: Secondary insurance subscriber's name is missing or invalid
; IB275: Tertiary insurance subscriber's name is missing or invalid
; IB276: Primary insurance subscriber's ID number is missing
; IB277: Secondary insurance subscriber's ID number is missing
; IB278: Tertiary insurance subscriber's ID number is missing
; IB279: Primary insurance missing PT. RELATIONSHIP TO INSURED
; IB280: Secondary insurance missing PT. RELATIONSHIP TO INSURED
; IB281: Tertiary insurance missing PT. RELATIONSHIP TO INSURED
; IB282: Primary insurance subscriber's address line 1 is missing
; IB283: Secondary insurance subscriber's address line 1 is missing
; IB284: Tertiary insurance subscriber's address line 1 is missing
; IB285: Primary insurance subscriber's CITY is missing
; IB286: Secondary insurance subscriber's CITY is missing
; IB287: Tertiary insurance subscriber's CITY is missing
; IB288: Primary insurance subscriber's STATE is missing
; IB289: Secondary insurance subscriber's STATE is missing
; IB290: Tertiary insurance subscriber's STATE is missing
; IB291: Primary insurance subscriber's ZIPCODE is missing
; IB292: Secondary insurance subscriber's ZIPCODE is missing
; IB293: Tertiary insurance subscriber's ZIPCODE is missing
;
ENT3508 ; entries in file 350.8 to be included
;
;;^IB137^IB138^IB139^IB146^IB147^IB150^IB151^IB152^IB153^IB154^IB155^IB157^IB158^IB269^
;;^IB205^IB206^IB270^IB271^IB272^IB273^IB274^IB275^IB276^IB277^IB278^IB279^IB280^IB281^
;;^IB282^IB283^IB284^IB285^IB286^IB287^IB288^IB289^IB290^IB291^IB292^IB293^
;;
;
;-----------------------------------------------------------------------
; 364.5 entries modified:
; 12: N-VALUE CODES (added internal number as 4th piece of return array)
; 20: N-CMS-1500 PURCH SVC TOTAL - new one for Box 20 and SUB-7
; 21: N-INITIAL TREATMENT - new one for CL1A-2
; 22: N-ACUTE MANIFESTATION - new one for CL1A-8
; 29: N-LAST XRAY - new one for CL1A-3
; 34: N-OTH INSURED ID - updated description
; 36: N-PATIENT CONDITION CODE - new one for CL1A-7
; 55: N-CURR INS FORM LOC 64 - removed blank out for Medicare
; 198: N-ALL INSURANCE NUMBER - removed default of patient SSN
; 282: N-PURCHASED SERVICE TOTAL - bug fix
;
ENT5 ; output formatter entries in file 364.5 to be included
;
;;^12^20^21^22^29^34^36^55^198^282^
;;
;
;-----------------------------------------------------------------------
; 364.6 entries modified:
; 5: CI2-6
; 41: PT1-15
; 107: OI1-9
; 191: CI3-4
; 195: OI1-12
; 196: CI1-8
; 783: SUB-7
; 804: OI1-13
; 806: OI1-15
; 935: OPR-16
; 951: OPR-17
; 958: INS-14
; 977: PRF-23
; 979: PRF-25
; 980: PRF-27
; 981: PRF-28
; 1000: CI3-10
; 1002: UB1-19
; 1004: CI1-11
; 1010: PRF-26
; 1194: SUB-11
; 1315: CI1-9
; 1316: CI1-7
; 1471: CMS-1500, Box 20 charges
; 1472: CMS-1500, Box 20 blank part
; 1800 thru 1899 are allocated for new entries for this patch
;
ENT6 ; output formatter entries in file 364.6 to be included
;
;;^5^41^107^191^195^196^783^804^806^935^951^958^977^979^980^981^1000^1002^1004^1010^1194^1315^1316^1471^1472^
;;^1800^1801^1802^1803^1804^1805^1806^1807^1808^1809^1810^1811^1812^1813^1814^1815^1816^1817^1818^1819^1820^1821^
;;^1822^1823^1824^1825^1826^1827^1828^1829^1830^1831^1832^1833^1834^1835^1836^1837^1838^1839^1840^1841^1842^1843^
;;^1844^1845^1846^1847^1848^1849^1850^1851^1852^
;;
;
;
;-----------------------------------------------------------------------
; 364.7 entries modified:
; 3: CI2-6
; 4: CI2-6.9
; 5: CI2-8
; 7: CI2-10
; 14: CI2-7
; 62: PT1-15
; 88: PT1-17
; 107: VC1-3
; 117: OI2-3
; 125: OI1-9
; 130: OI1-10 (desc only)
; 133: CI3-4
; 135: CI2-14
; 144: CL1A-2
; 186: CL1A-3
; 188: OI1-12
; 195: CI1-8
; 197: CL1A-7
; 198: CL1A-8
; 205: SUB2-2
; 366: OI3-6
; 368: OI3-7
; 369: OI3-8
; 370: OI3-9
; 371: OI3-10
; 372: OI3-11
; 373: OI3-12
; 391: SUB-11
; 460: OI5-9
; 461: OI5-10
; 462: OI5-11
; 463: OI5-12
; 464: OI5-13
; 465: OI5-14
; 800: CI2-9
; 892: SUB-7
; 900: OI1-13
; 902: OI1-15
; 933: INS-14
; 939: PRF-23
; 941: PRF-25
; 942: PRF-27
; 943: PRF-28
; 1001: CI3-10
; 1003: UB1-19
; 1005: CI1-11
; 1011: PRF-26
; 1015: GEN-7 - added patch 371
; 1026: OI3-5
; 1031: CI1-9
; 1032: CI1-7
; 1038: OI5-99.9
; 1054: NPI-14
; 1055: NPI-15
; 1056: NPI-16
; 1057: NPI-17
; 1170: CMS-1500, Box 20, Yes
; 1171: CMS-1500, Box 20, Charges
; 1172: CMS-1500, Box 20, Blank part
; 1220: CMS-1500, Box 20, No
; 1276: UB04/FL-8a
; 1307: UB04/FL-14
; 1362: UB04/FL-59A:C
; 1457: UB04/Creation Date
; 1500 thru 1599 are allocated for new entries for this patch
;
ENT7 ; output formatter entries in file 364.7 to be included
;
;;^3^4^5^7^14^62^88^107^117^125^130^133^135^144^186^188^195^197^198^205^366^368^369^370^371^372^373^391^
;;^460^461^462^463^464^465^800^892^900^902^933^939^941^942^943^1001^1003^1005^1011^1015^1026^1031^1032^1038^
;;^1054^1055^1056^1057^1170^1171^1172^1220^1276^1307^1362^1457^
;;^1500^1501^1502^1503^1504^1505^1506^1507^1508^1509^1510^1511^1512^1513^1514^1515^1516^1517^1518^1519^1520^1521^
;;^1522^1523^1524^1525^1526^1527^1528^1529^1530^1531^1532^1533^1534^1535^1536^1537^1538^1539^1540^1541^1542^1543^
;;^1544^1545^1546^1547^1548^1549^1550^1551^1552^
;;
;
;
;-----------------------------------------------------------------------
DEL6 ; remove output formatter entries in file 364.6 (not re-added)
;
;;^90^208^969^984^1021^1022^1023^1024^1025^1026^1027^1028^1078^1080^1092^
;;
;
;-----------------------------------------------------------------------
DEL7 ; remove output formatter entries in file 364.7 (not re-added)
;
;;^108^361^362^374^
;;
;
Q
;
DELXREFS ;
D BMES^XPDUTL("Removing triggers")
D DELIX^DDMOD(399.047,.01,2)
D MES^XPDUTL("Done")
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY371PR 9533 printed Dec 13, 2024@02:33:53 Page 2
IBY371PR ;ALB/ESG - Pre-Installation for IB patch 371 ;3-May-2006
+1 ;;2.0;INTEGRATED BILLING;**371**;21-MAR-94;Build 57
+2 ;
+3 ; delete all data elements included in build
DO DELOF
+4 ; delete a trigger that was added on a previous version of the build
DO DELXREFS
+5 ;
+6 QUIT
+7 ;
+8 ;
+9 ;
DELOF ; Delete included output formatter entries
+1 NEW FILE,DIK,LN,TAG,DATA,PCE,DA,Y
+2 FOR FILE=5,6,7
SET DIK="^IBA(364."_FILE_","
FOR LN=2:1
SET TAG="ENT"_FILE_"+"_LN
SET DATA=$PIECE($TEXT(@TAG),";;",2)
if DATA=""
QUIT
Begin DoDot:1
+3 FOR PCE=2:1
SET DA=$PIECE(DATA,U,PCE)
if 'DA
QUIT
IF $DATA(^IBA("364."_FILE,DA,0))
DO ^DIK
+4 QUIT
End DoDot:1
+5 ;
+6 ; Also delete output formatter entries which are not going to be
+7 ; re-added later. These are non-functioning entries in file 364.6.
+8 SET DIK="^IBA(364.6,"
SET TAG="DEL6+2"
SET DATA=$PIECE($TEXT(@TAG),";;",2)
+9 IF DATA'=""
Begin DoDot:1
+10 FOR PCE=2:1
SET DA=$PIECE(DATA,U,PCE)
if 'DA
QUIT
IF $DATA(^IBA(364.6,DA,0))
DO ^DIK
+11 QUIT
End DoDot:1
+12 ;
+13 ; Also delete output formatter entries which are not going to be
+14 ; re-added later. These are non-functioning entries in file 364.7.
+15 SET DIK="^IBA(364.7,"
SET TAG="DEL7+2"
SET DATA=$PIECE($TEXT(@TAG),";;",2)
+16 IF DATA'=""
Begin DoDot:1
+17 FOR PCE=2:1
SET DA=$PIECE(DATA,U,PCE)
if 'DA
QUIT
IF $DATA(^IBA(364.7,DA,0))
DO ^DIK
+18 QUIT
End DoDot:1
+19 ;
DELOFX ;
+1 QUIT
+2 ;
INCLUDE(FILE,Y) ; function to determine if output formatter entry should be
+1 ; included in the build
+2 ; FILE=5,6,7 indicating file 364.x
+3 ; Y=ien to file
+4 ;
+5 NEW OK,LN,TAG,DATA
+6 SET OK=0
+7 FOR LN=2:1
SET TAG="ENT"_FILE_"+"_LN
SET DATA=$PIECE($TEXT(@TAG),";;",2)
if DATA=""
QUIT
IF $FIND(DATA,U_Y_U)
SET OK=1
QUIT
INCLUDEX ;
+1 QUIT OK
+2 ;
INC3508(Y) ; function to determine if entry in IB ERROR file (350.8) should be included in the build
+1 ; Y - ien to file
+2 NEW DATA,ENTRY,LN,OK,TAG
+3 SET OK=0
SET ENTRY=U_$PIECE($GET(^IBE(350.8,Y,0)),U,3)_U
+4 FOR LN=2:1
SET TAG="ENT3508+"_LN
SET DATA=$PIECE($TEXT(@TAG),";;",2)
if DATA=""
QUIT
IF $FIND(DATA,ENTRY)
SET OK=1
QUIT
+5 QUIT OK
+6 ;
+7 ;-----------------------------------------------------------------------
+8 ; 350.8 entries modified:
+9 ; IB137: new error for missing Initial Treatment date
+10 ; IB138: new error for missing Patient Condition code
+11 ; IB139: new error for missing Acute Manifestation Date
+12 ; IB146: 3 payers - MRA secondary claim
+13 ; IB147: 3 payers - payer sequence >1
+14 ; IB150: Occurrence Code End Date can not be before the start date.
+15 ; IB151: Referring provider must have SSN or EIN defined.
+16 ; IB152: Operating provider must have SSN or EIN defined.
+17 ; IB153: Supervising provider must have SSN or EIN defined.
+18 ; IB154: Other provider must have SSN or EIN defined.
+19 ; IB155: End dates are required for occurrence spans.
+20 ; IB157: One or more Value Codes has no associated Value.
+21 ; IB158: One or more of the value codes has an improper format.
+22 ; IB205: ICN/DCN required - MRA replacement claim.
+23 ; IB206: FL-80 remarks required - MRA replacement claim.
+24 ; IB269: Patient address is incomplete. Address Line 1 is required.
+25 ; IB270: Patient address is incomplete. City is required.
+26 ; IB271: Patient address is incomplete. State is required.
+27 ; IB272: Patient address is incomplete. ZIP is required.
+28 ; IB273: Primary insurance subscriber's name is missing or invalid
+29 ; IB274: Secondary insurance subscriber's name is missing or invalid
+30 ; IB275: Tertiary insurance subscriber's name is missing or invalid
+31 ; IB276: Primary insurance subscriber's ID number is missing
+32 ; IB277: Secondary insurance subscriber's ID number is missing
+33 ; IB278: Tertiary insurance subscriber's ID number is missing
+34 ; IB279: Primary insurance missing PT. RELATIONSHIP TO INSURED
+35 ; IB280: Secondary insurance missing PT. RELATIONSHIP TO INSURED
+36 ; IB281: Tertiary insurance missing PT. RELATIONSHIP TO INSURED
+37 ; IB282: Primary insurance subscriber's address line 1 is missing
+38 ; IB283: Secondary insurance subscriber's address line 1 is missing
+39 ; IB284: Tertiary insurance subscriber's address line 1 is missing
+40 ; IB285: Primary insurance subscriber's CITY is missing
+41 ; IB286: Secondary insurance subscriber's CITY is missing
+42 ; IB287: Tertiary insurance subscriber's CITY is missing
+43 ; IB288: Primary insurance subscriber's STATE is missing
+44 ; IB289: Secondary insurance subscriber's STATE is missing
+45 ; IB290: Tertiary insurance subscriber's STATE is missing
+46 ; IB291: Primary insurance subscriber's ZIPCODE is missing
+47 ; IB292: Secondary insurance subscriber's ZIPCODE is missing
+48 ; IB293: Tertiary insurance subscriber's ZIPCODE is missing
+49 ;
ENT3508 ; entries in file 350.8 to be included
+1 ;
+2 ;;^IB137^IB138^IB139^IB146^IB147^IB150^IB151^IB152^IB153^IB154^IB155^IB157^IB158^IB269^
+3 ;;^IB205^IB206^IB270^IB271^IB272^IB273^IB274^IB275^IB276^IB277^IB278^IB279^IB280^IB281^
+4 ;;^IB282^IB283^IB284^IB285^IB286^IB287^IB288^IB289^IB290^IB291^IB292^IB293^
+5 ;;
+6 ;
+7 ;-----------------------------------------------------------------------
+8 ; 364.5 entries modified:
+9 ; 12: N-VALUE CODES (added internal number as 4th piece of return array)
+10 ; 20: N-CMS-1500 PURCH SVC TOTAL - new one for Box 20 and SUB-7
+11 ; 21: N-INITIAL TREATMENT - new one for CL1A-2
+12 ; 22: N-ACUTE MANIFESTATION - new one for CL1A-8
+13 ; 29: N-LAST XRAY - new one for CL1A-3
+14 ; 34: N-OTH INSURED ID - updated description
+15 ; 36: N-PATIENT CONDITION CODE - new one for CL1A-7
+16 ; 55: N-CURR INS FORM LOC 64 - removed blank out for Medicare
+17 ; 198: N-ALL INSURANCE NUMBER - removed default of patient SSN
+18 ; 282: N-PURCHASED SERVICE TOTAL - bug fix
+19 ;
ENT5 ; output formatter entries in file 364.5 to be included
+1 ;
+2 ;;^12^20^21^22^29^34^36^55^198^282^
+3 ;;
+4 ;
+5 ;-----------------------------------------------------------------------
+6 ; 364.6 entries modified:
+7 ; 5: CI2-6
+8 ; 41: PT1-15
+9 ; 107: OI1-9
+10 ; 191: CI3-4
+11 ; 195: OI1-12
+12 ; 196: CI1-8
+13 ; 783: SUB-7
+14 ; 804: OI1-13
+15 ; 806: OI1-15
+16 ; 935: OPR-16
+17 ; 951: OPR-17
+18 ; 958: INS-14
+19 ; 977: PRF-23
+20 ; 979: PRF-25
+21 ; 980: PRF-27
+22 ; 981: PRF-28
+23 ; 1000: CI3-10
+24 ; 1002: UB1-19
+25 ; 1004: CI1-11
+26 ; 1010: PRF-26
+27 ; 1194: SUB-11
+28 ; 1315: CI1-9
+29 ; 1316: CI1-7
+30 ; 1471: CMS-1500, Box 20 charges
+31 ; 1472: CMS-1500, Box 20 blank part
+32 ; 1800 thru 1899 are allocated for new entries for this patch
+33 ;
ENT6 ; output formatter entries in file 364.6 to be included
+1 ;
+2 ;;^5^41^107^191^195^196^783^804^806^935^951^958^977^979^980^981^1000^1002^1004^1010^1194^1315^1316^1471^1472^
+3 ;;^1800^1801^1802^1803^1804^1805^1806^1807^1808^1809^1810^1811^1812^1813^1814^1815^1816^1817^1818^1819^1820^1821^
+4 ;;^1822^1823^1824^1825^1826^1827^1828^1829^1830^1831^1832^1833^1834^1835^1836^1837^1838^1839^1840^1841^1842^1843^
+5 ;;^1844^1845^1846^1847^1848^1849^1850^1851^1852^
+6 ;;
+7 ;
+8 ;
+9 ;-----------------------------------------------------------------------
+10 ; 364.7 entries modified:
+11 ; 3: CI2-6
+12 ; 4: CI2-6.9
+13 ; 5: CI2-8
+14 ; 7: CI2-10
+15 ; 14: CI2-7
+16 ; 62: PT1-15
+17 ; 88: PT1-17
+18 ; 107: VC1-3
+19 ; 117: OI2-3
+20 ; 125: OI1-9
+21 ; 130: OI1-10 (desc only)
+22 ; 133: CI3-4
+23 ; 135: CI2-14
+24 ; 144: CL1A-2
+25 ; 186: CL1A-3
+26 ; 188: OI1-12
+27 ; 195: CI1-8
+28 ; 197: CL1A-7
+29 ; 198: CL1A-8
+30 ; 205: SUB2-2
+31 ; 366: OI3-6
+32 ; 368: OI3-7
+33 ; 369: OI3-8
+34 ; 370: OI3-9
+35 ; 371: OI3-10
+36 ; 372: OI3-11
+37 ; 373: OI3-12
+38 ; 391: SUB-11
+39 ; 460: OI5-9
+40 ; 461: OI5-10
+41 ; 462: OI5-11
+42 ; 463: OI5-12
+43 ; 464: OI5-13
+44 ; 465: OI5-14
+45 ; 800: CI2-9
+46 ; 892: SUB-7
+47 ; 900: OI1-13
+48 ; 902: OI1-15
+49 ; 933: INS-14
+50 ; 939: PRF-23
+51 ; 941: PRF-25
+52 ; 942: PRF-27
+53 ; 943: PRF-28
+54 ; 1001: CI3-10
+55 ; 1003: UB1-19
+56 ; 1005: CI1-11
+57 ; 1011: PRF-26
+58 ; 1015: GEN-7 - added patch 371
+59 ; 1026: OI3-5
+60 ; 1031: CI1-9
+61 ; 1032: CI1-7
+62 ; 1038: OI5-99.9
+63 ; 1054: NPI-14
+64 ; 1055: NPI-15
+65 ; 1056: NPI-16
+66 ; 1057: NPI-17
+67 ; 1170: CMS-1500, Box 20, Yes
+68 ; 1171: CMS-1500, Box 20, Charges
+69 ; 1172: CMS-1500, Box 20, Blank part
+70 ; 1220: CMS-1500, Box 20, No
+71 ; 1276: UB04/FL-8a
+72 ; 1307: UB04/FL-14
+73 ; 1362: UB04/FL-59A:C
+74 ; 1457: UB04/Creation Date
+75 ; 1500 thru 1599 are allocated for new entries for this patch
+76 ;
ENT7 ; output formatter entries in file 364.7 to be included
+1 ;
+2 ;;^3^4^5^7^14^62^88^107^117^125^130^133^135^144^186^188^195^197^198^205^366^368^369^370^371^372^373^391^
+3 ;;^460^461^462^463^464^465^800^892^900^902^933^939^941^942^943^1001^1003^1005^1011^1015^1026^1031^1032^1038^
+4 ;;^1054^1055^1056^1057^1170^1171^1172^1220^1276^1307^1362^1457^
+5 ;;^1500^1501^1502^1503^1504^1505^1506^1507^1508^1509^1510^1511^1512^1513^1514^1515^1516^1517^1518^1519^1520^1521^
+6 ;;^1522^1523^1524^1525^1526^1527^1528^1529^1530^1531^1532^1533^1534^1535^1536^1537^1538^1539^1540^1541^1542^1543^
+7 ;;^1544^1545^1546^1547^1548^1549^1550^1551^1552^
+8 ;;
+9 ;
+10 ;
+11 ;-----------------------------------------------------------------------
DEL6 ; remove output formatter entries in file 364.6 (not re-added)
+1 ;
+2 ;;^90^208^969^984^1021^1022^1023^1024^1025^1026^1027^1028^1078^1080^1092^
+3 ;;
+4 ;
+5 ;-----------------------------------------------------------------------
DEL7 ; remove output formatter entries in file 364.7 (not re-added)
+1 ;
+2 ;;^108^361^362^374^
+3 ;;
+4 ;
+5 QUIT
+6 ;
DELXREFS ;
+1 DO BMES^XPDUTL("Removing triggers")
+2 DO DELIX^DDMOD(399.047,.01,2)
+3 DO MES^XPDUTL("Done")
+4 ;
