IBY608PR ;EDE/JRA - Pre-Installation for IB patch 608 ; 10/12/17 2:12 pm
;;2.0;INTEGRATED BILLING;**608**;21-MAR-94;Build 90
;;Per VA Directive 6402, this routine should not be modified.
;
; delete all output formatter (O.F.) data elements included in build
D DELOF
Q
;
INCLUDE(FILE,Y) ; function to determine if O.F. entry should be included in the build
; FILE=5,6,7 indicating file 364.x or FILE=8 indicating file 350.8 (IB ERROR)
; 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
Q OK
;
;Delete edited entries to insure clean install of new entries
;Delete obsolete entries.
DELOF ; Delete included OF entries
NEW FILE,DIK,LN,TAG,TAGLN,DATA,PCE,DA,Y
F FILE=5:1:8 S DIK=$S(FILE=8:"^IBE(350.",1:"^IBA(364.")_FILE_"," D
. F TAG="ENT"_FILE,"DEL"_FILE D
.. F LN=2:1 S TAGLN=TAG_"+"_LN,DATA=$P($T(@TAGLN),";;",2) Q:DATA="" D
... F PCE=2:1 S DA=$P(DATA,U,PCE) Q:'DA D
.... I FILE=8,$D(^IBE(350.8,DA,0)) D ^DIK
.... Q:FILE=8
.... I $D(^IBA("364."_FILE,DA,0)) D ^DIK
Q
;
; Example for ENT5, ENT6, ENT7, ENT8, DEL5, DEL6, and DEL7:
;;^195^254^259^269^324^325^
; Note: Must have beginning and ending up-carat
;
;-----------------------------------------------------------------------
; 364.5 O.F. entries added:
;
; 225 N-COB CLAIM LEVEL AMOUNTS 'COB1-1.9' (US2486)
; 226 N-MEDICARE INPT CLAIM COB AMTS 'MIA1-1.9' (US2486)
; 227 N-MEDICARE OUTPT CLAIM COB AMT 'MOA1-1.9' (US2486)
; 228 N-COB CLAIM LEVEL ADJUSTMENTS 'CCAS-1.9' (US2486)
; 396 N-CMN RECORD ID 'LQ '
; 438 N-CMN RECORD ID 'FRM '
; 440 N-CMN RECORD ID 'CMN '
; 442 N-CMN RECORD ID 'MEA '
;
ENT5 ;O.F. entries in file 364.5 to be added
;
;;^225^226^227^228^396^438^440^442^
;
;-----------------------------------------------------------------------
; 364.6 O.F. entries added:
;
; 2383 CMN RECORD ID 'LQ '
; 2384 CMN FORM TYPE QUALIFIER
; 2385 SERVICE LINE #
; 2387 CMN INDUSTRY CODE
; 2388 CMN CERTIFICATION TYPE
; 2390 CMN CERTIFICATION TYPE QUAL
; 2392 CMN MEASUREMENT REFERENCE ID CODE
; 2393 CMN PATIENT WEIGHT (LBS)
; 2394 CMN PATIENT WEIGHT MODIFIER
; 2395 CMN MONTHS DME EQUIPMENT NEEDED
; 2396 CMN DATE THERAPY STARTED
; 2397 CMN DATE THERAPY STARTED QUALIFIER
; 2398 CMN LAST CERTIFICATION DATE
; 2399 CMN LAST CERTIFICATION DATE QUALIFIER
; 2400 CMN RECERTIFICATION/REVISION DATE
; 2401 CMN REPLACEMENT ITEM?
; 2433 LQ DATA EXTRACT
; 2436 FRM DATA EXTRACT
; 2438 CMN RECORD ID 'FRM '
; 2439 SERVICE LINE #
; 2442 CMN QUESTION NUMBER/LETTER
; 2443 CMN QUESTION RESPONSE Y/N
; 2444 CMN QUESTION RESPONSE REF ID
; 2445 CMN QUESTION RESPONSE DATE
; 2446 CMN QUESTION RESPONSE % & DECIMAL
; 2447 SERVICE LINE #
; 2448 CMN DATA EXTRACT
; 2449 CMN RECORD ID 'CMN '
; 2451 CMN UNIT OR BASIS FOR MEASUREMENT CODE
; 2452 CMN CERTIFICATION CONDITION INDICATOR
; 2453 CMN CONDITION INDICATOR
; 2454 CMN ATTACHMENT REPORT TYPE CODE
; 2455 CMN ATTACHMENT TRANSMISSION CODE
; 2456 CMN CODE CATEGORY
; 2457 CMN RECORD ID 'MEA '
; 2458 MEA DATA EXTRACT
; 2461 SERVICE LINE #
; 2462 CMN MEASUREMENT QUALIFIER
; 2463 CMN TEST RESULTS
;
ENT6 ;O.F. entries in file 364.6 to be added
;
;;^2383^2384^2385^2387^2388^2390^2392^2393^2394^2395^2396^2397^2398^
;;^2399^2400^2401^2433^2436^2438^2439^2442^2443^2444^2445^2446^2447^
;;^2448^2449^2451^2452^2453^2454^2455^2456^2457^2458^2461^2462^2463^
;
;-----------------------------------------------------------------------
; 364.7 O.F. entries added:
;
; 105 VC1 VALUE CODE (837 Transaction) (PC 2) (US9)
; 176 INS SERVICE LINE COUNTER (PC 2) (US9)
; 178 INS SERVICE UNIT COUNT (PC 5) (US9)
; 179 INS BLANK (PC 6) (US9)
; 180 INS SERVICE LINE CHARGE AMT (PC 9) (US9)
; 181 INS PROCEDURE MODIFIER (1) (PC 7) (US9)
; 189 INS PROCEDURE CODE (PC 4) (US9)
; 478 BGN N-RECORD ID (PC1) (US9)
; 482 INS SERVICE LINE NON-COVERED CHARGE AMT (PC 12) (US9)
; 805 INS UNITS/BASIS FOR MEASUREMENT CODE (PC 13) (US9)
; 985 N-GET FROM PREVIOUS EXTRACT 'LCOB-1.9' - US2486
; 1015 GEN-7
; 1751 LDATE SERVICE LINE COUNTER (PC 2)
; 1752 LDAT DATA EXTRACT (837 Transaction) (PC 1.9) (US9)
; 1765 LDAT CLEANUP (837 Transaction) (PC 99.9) (US9)
; 1969 CMN RECORD ID 'LQ '
; 1970 SERVICE LINE #
; 1971 CMN FORM TYPE QUALIFIER
; 1973 CMN INDUSTRY CODE
; 1974 CMN CERTIFICATION TYPE
; 1975 CMN CERTIFICATION TYPE QUAL
; 1977 CMN MEASUREMENT REFERENCE ID CODE
; 1978 CMN PATIENT WEIGHT (LBS)
; 1979 CMN PATIENT WEIGHT MODIFIER
; 1980 CMN MONTHS DME EQUIPMENT NEEDED
; 1981 CMN DATE THERAPY STARTED
; 1982 CMN DATE THERAPY STARTED QUALIFIER
; 1983 CMN LAST CERTIFICATION DATE
; 1984 CMN LAST CERTIFICATION DATE QUALIFIER
; 1985 CMN RECERTIFICATION/REVISION DATE
; 1986 CMN REPLACEMENT ITEM?
; 2018 LQ DATA EXTRACT
; 2019 FRM DATA EXTRACT
; 2020 CMN RECORD ID 'FRM '
; 2021 CMN QUESTION NUMBER/LETTER
; 2022 CMN QUESTION RESPONSE Y/N
; 2023 CMN QUESTION RESPONSE REF ID
; 2024 CMN QUESTION RESPONSE DATE
; 2025 CMN QUESTION RESPONSE % & DECIMAL
; 2026 SERVICE LINE #
; 2027 SERVICE LINE #
; 2028 CMN DATA EXTRACT
; 2029 CMN RECORD ID 'CMN '
; 2030 CMN UNIT OR BASIS FOR MEASUREMENT CODE
; 2031 CMN CERTIFICATION CONDITION INDICATOR
; 2032 CMN ATTACHMENT REPORT TYPE CODE
; 2033 CMN ATTACHMENT TRANSMISSION CODE
; 2034 CMN CODE CATEGORY
; 2035 CMN CONDITION INDICATOR
; 2038 CMN RECORD ID 'MEA '
; 2039 MEA DATA EXTRACT
; 2040 SERVICE LINE #
; 2041 CMN MEASUREMENT QUALIFIER
; 2042 CMN TEST RESULTS
;
ENT7 ; O.F. entries in file 364.7 to be added
;
;;^105^176^178^179^180^181^189^478^482^805^985^1015^1751^1752^1765^
;;^1969^1970^1971^1973^1974^1975^1977^1978^1979^1980^1981^
;;^1982^1983^1984^1985^1986^2018^2019^2020^2021^2022^2023^
;;^2024^2025^2026^2027^2028^2029^2030^2031^2032^2033^2034^
;;^2035^2038^2039^2040^2041^2042^
;
;-----------------------------------------------------------------------
; 350.8 O.F. entries added:
;
; 239 IB CMN NOT REQ BUT DATA (IB901)
; 240 IB CMN FORM TYPE (IB902)
; 241 IB CMN NO DATA NODE (IB903)
; 243 IB CMN BAD DATA NODE (IB904)
; 244 IB CMN CERT TYPE (IB905)
; 246 IB CMN THERAPY DT (IB907)
; 247 IB CMN LAST CERT DT (IB908)
; 248 IB CMN RECERT/REVISION DT (IB909)
; 259 IB CMN ABG SAT DT (IB912)
; 271 IB CMN 4 LPM DATE (IB914)
; 272 IB CMN ERRORS HEADER (IB915)
; 273 IB CMN PEB (IB906)
;
ENT8 ;O.F. entries in file 350.8 to be added
;
;;^239^240^241^243^244^246^247^248^259^271^272^273^
;
;-----------------------------------------------------------------------
; 364.5 entries deleted:
;
DEL5 ; remove O.F. entries in file 364.5 (not re-added)
;
;;
;
;-----------------------------------------------------------------------
; 364.6 entries deleted:
;
DEL6 ; remove O.F. entries in file 364.6 (not re-added)
;
;;
;
;-----------------------------------------------------------------------
; 364.7 entries deleted:
;
;
DEL7 ; remove O.F. entries in file 364.7 (not re-added)
;
;;
;
;-----------------------------------------------------------------------
; 350.8 Entries deleted:
;
; 238 IB CMN REQ
;
DEL8 ; remove entries from 350.8 (IB ERROR)
;
;;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY608PR 7540 printed Apr 09, 2024@21:04:22 Page 2
IBY608PR ;EDE/JRA - Pre-Installation for IB patch 608 ; 10/12/17 2:12 pm
+1 ;;2.0;INTEGRATED BILLING;**608**;21-MAR-94;Build 90
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ; delete all output formatter (O.F.) data elements included in build
+5 DO DELOF
+6 QUIT
+7 ;
INCLUDE(FILE,Y) ; function to determine if O.F. entry should be included in the build
+1 ; FILE=5,6,7 indicating file 364.x or FILE=8 indicating file 350.8 (IB ERROR)
+2 ; Y=ien to file
+3 NEW OK,LN,TAG,DATA
+4 SET OK=0
+5 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
+6 QUIT OK
+7 ;
+8 ;Delete edited entries to insure clean install of new entries
+9 ;Delete obsolete entries.
DELOF ; Delete included OF entries
+1 NEW FILE,DIK,LN,TAG,TAGLN,DATA,PCE,DA,Y
+2 FOR FILE=5:1:8
SET DIK=$SELECT(FILE=8:"^IBE(350.",1:"^IBA(364.")_FILE_","
Begin DoDot:1
+3 FOR TAG="ENT"_FILE,"DEL"_FILE
Begin DoDot:2
+4 FOR LN=2:1
SET TAGLN=TAG_"+"_LN
SET DATA=$PIECE($TEXT(@TAGLN),";;",2)
if DATA=""
QUIT
Begin DoDot:3
+5 FOR PCE=2:1
SET DA=$PIECE(DATA,U,PCE)
if 'DA
QUIT
Begin DoDot:4
+6 IF FILE=8
IF $DATA(^IBE(350.8,DA,0))
DO ^DIK
+7 if FILE=8
QUIT
+8 IF $DATA(^IBA("364."_FILE,DA,0))
DO ^DIK
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+9 QUIT
+10 ;
+11 ; Example for ENT5, ENT6, ENT7, ENT8, DEL5, DEL6, and DEL7:
+12 ;;^195^254^259^269^324^325^
+13 ; Note: Must have beginning and ending up-carat
+14 ;
+15 ;-----------------------------------------------------------------------
+16 ; 364.5 O.F. entries added:
+17 ;
+18 ; 225 N-COB CLAIM LEVEL AMOUNTS 'COB1-1.9' (US2486)
+19 ; 226 N-MEDICARE INPT CLAIM COB AMTS 'MIA1-1.9' (US2486)
+20 ; 227 N-MEDICARE OUTPT CLAIM COB AMT 'MOA1-1.9' (US2486)
+21 ; 228 N-COB CLAIM LEVEL ADJUSTMENTS 'CCAS-1.9' (US2486)
+22 ; 396 N-CMN RECORD ID 'LQ '
+23 ; 438 N-CMN RECORD ID 'FRM '
+24 ; 440 N-CMN RECORD ID 'CMN '
+25 ; 442 N-CMN RECORD ID 'MEA '
+26 ;
ENT5 ;O.F. entries in file 364.5 to be added
+1 ;
+2 ;;^225^226^227^228^396^438^440^442^
+3 ;
+4 ;-----------------------------------------------------------------------
+5 ; 364.6 O.F. entries added:
+6 ;
+7 ; 2383 CMN RECORD ID 'LQ '
+8 ; 2384 CMN FORM TYPE QUALIFIER
+9 ; 2385 SERVICE LINE #
+10 ; 2387 CMN INDUSTRY CODE
+11 ; 2388 CMN CERTIFICATION TYPE
+12 ; 2390 CMN CERTIFICATION TYPE QUAL
+13 ; 2392 CMN MEASUREMENT REFERENCE ID CODE
+14 ; 2393 CMN PATIENT WEIGHT (LBS)
+15 ; 2394 CMN PATIENT WEIGHT MODIFIER
+16 ; 2395 CMN MONTHS DME EQUIPMENT NEEDED
+17 ; 2396 CMN DATE THERAPY STARTED
+18 ; 2397 CMN DATE THERAPY STARTED QUALIFIER
+19 ; 2398 CMN LAST CERTIFICATION DATE
+20 ; 2399 CMN LAST CERTIFICATION DATE QUALIFIER
+21 ; 2400 CMN RECERTIFICATION/REVISION DATE
+22 ; 2401 CMN REPLACEMENT ITEM?
+23 ; 2433 LQ DATA EXTRACT
+24 ; 2436 FRM DATA EXTRACT
+25 ; 2438 CMN RECORD ID 'FRM '
+26 ; 2439 SERVICE LINE #
+27 ; 2442 CMN QUESTION NUMBER/LETTER
+28 ; 2443 CMN QUESTION RESPONSE Y/N
+29 ; 2444 CMN QUESTION RESPONSE REF ID
+30 ; 2445 CMN QUESTION RESPONSE DATE
+31 ; 2446 CMN QUESTION RESPONSE % & DECIMAL
+32 ; 2447 SERVICE LINE #
+33 ; 2448 CMN DATA EXTRACT
+34 ; 2449 CMN RECORD ID 'CMN '
+35 ; 2451 CMN UNIT OR BASIS FOR MEASUREMENT CODE
+36 ; 2452 CMN CERTIFICATION CONDITION INDICATOR
+37 ; 2453 CMN CONDITION INDICATOR
+38 ; 2454 CMN ATTACHMENT REPORT TYPE CODE
+39 ; 2455 CMN ATTACHMENT TRANSMISSION CODE
+40 ; 2456 CMN CODE CATEGORY
+41 ; 2457 CMN RECORD ID 'MEA '
+42 ; 2458 MEA DATA EXTRACT
+43 ; 2461 SERVICE LINE #
+44 ; 2462 CMN MEASUREMENT QUALIFIER
+45 ; 2463 CMN TEST RESULTS
+46 ;
ENT6 ;O.F. entries in file 364.6 to be added
+1 ;
+2 ;;^2383^2384^2385^2387^2388^2390^2392^2393^2394^2395^2396^2397^2398^
+3 ;;^2399^2400^2401^2433^2436^2438^2439^2442^2443^2444^2445^2446^2447^
+4 ;;^2448^2449^2451^2452^2453^2454^2455^2456^2457^2458^2461^2462^2463^
+5 ;
+6 ;-----------------------------------------------------------------------
+7 ; 364.7 O.F. entries added:
+8 ;
+9 ; 105 VC1 VALUE CODE (837 Transaction) (PC 2) (US9)
+10 ; 176 INS SERVICE LINE COUNTER (PC 2) (US9)
+11 ; 178 INS SERVICE UNIT COUNT (PC 5) (US9)
+12 ; 179 INS BLANK (PC 6) (US9)
+13 ; 180 INS SERVICE LINE CHARGE AMT (PC 9) (US9)
+14 ; 181 INS PROCEDURE MODIFIER (1) (PC 7) (US9)
+15 ; 189 INS PROCEDURE CODE (PC 4) (US9)
+16 ; 478 BGN N-RECORD ID (PC1) (US9)
+17 ; 482 INS SERVICE LINE NON-COVERED CHARGE AMT (PC 12) (US9)
+18 ; 805 INS UNITS/BASIS FOR MEASUREMENT CODE (PC 13) (US9)
+19 ; 985 N-GET FROM PREVIOUS EXTRACT 'LCOB-1.9' - US2486
+20 ; 1015 GEN-7
+21 ; 1751 LDATE SERVICE LINE COUNTER (PC 2)
+22 ; 1752 LDAT DATA EXTRACT (837 Transaction) (PC 1.9) (US9)
+23 ; 1765 LDAT CLEANUP (837 Transaction) (PC 99.9) (US9)
+24 ; 1969 CMN RECORD ID 'LQ '
+25 ; 1970 SERVICE LINE #
+26 ; 1971 CMN FORM TYPE QUALIFIER
+27 ; 1973 CMN INDUSTRY CODE
+28 ; 1974 CMN CERTIFICATION TYPE
+29 ; 1975 CMN CERTIFICATION TYPE QUAL
+30 ; 1977 CMN MEASUREMENT REFERENCE ID CODE
+31 ; 1978 CMN PATIENT WEIGHT (LBS)
+32 ; 1979 CMN PATIENT WEIGHT MODIFIER
+33 ; 1980 CMN MONTHS DME EQUIPMENT NEEDED
+34 ; 1981 CMN DATE THERAPY STARTED
+35 ; 1982 CMN DATE THERAPY STARTED QUALIFIER
+36 ; 1983 CMN LAST CERTIFICATION DATE
+37 ; 1984 CMN LAST CERTIFICATION DATE QUALIFIER
+38 ; 1985 CMN RECERTIFICATION/REVISION DATE
+39 ; 1986 CMN REPLACEMENT ITEM?
+40 ; 2018 LQ DATA EXTRACT
+41 ; 2019 FRM DATA EXTRACT
+42 ; 2020 CMN RECORD ID 'FRM '
+43 ; 2021 CMN QUESTION NUMBER/LETTER
+44 ; 2022 CMN QUESTION RESPONSE Y/N
+45 ; 2023 CMN QUESTION RESPONSE REF ID
+46 ; 2024 CMN QUESTION RESPONSE DATE
+47 ; 2025 CMN QUESTION RESPONSE % & DECIMAL
+48 ; 2026 SERVICE LINE #
+49 ; 2027 SERVICE LINE #
+50 ; 2028 CMN DATA EXTRACT
+51 ; 2029 CMN RECORD ID 'CMN '
+52 ; 2030 CMN UNIT OR BASIS FOR MEASUREMENT CODE
+53 ; 2031 CMN CERTIFICATION CONDITION INDICATOR
+54 ; 2032 CMN ATTACHMENT REPORT TYPE CODE
+55 ; 2033 CMN ATTACHMENT TRANSMISSION CODE
+56 ; 2034 CMN CODE CATEGORY
+57 ; 2035 CMN CONDITION INDICATOR
+58 ; 2038 CMN RECORD ID 'MEA '
+59 ; 2039 MEA DATA EXTRACT
+60 ; 2040 SERVICE LINE #
+61 ; 2041 CMN MEASUREMENT QUALIFIER
+62 ; 2042 CMN TEST RESULTS
+63 ;
ENT7 ; O.F. entries in file 364.7 to be added
+1 ;
+2 ;;^105^176^178^179^180^181^189^478^482^805^985^1015^1751^1752^1765^
+3 ;;^1969^1970^1971^1973^1974^1975^1977^1978^1979^1980^1981^
+4 ;;^1982^1983^1984^1985^1986^2018^2019^2020^2021^2022^2023^
+5 ;;^2024^2025^2026^2027^2028^2029^2030^2031^2032^2033^2034^
+6 ;;^2035^2038^2039^2040^2041^2042^
+7 ;
+8 ;-----------------------------------------------------------------------
+9 ; 350.8 O.F. entries added:
+10 ;
+11 ; 239 IB CMN NOT REQ BUT DATA (IB901)
+12 ; 240 IB CMN FORM TYPE (IB902)
+13 ; 241 IB CMN NO DATA NODE (IB903)
+14 ; 243 IB CMN BAD DATA NODE (IB904)
+15 ; 244 IB CMN CERT TYPE (IB905)
+16 ; 246 IB CMN THERAPY DT (IB907)
+17 ; 247 IB CMN LAST CERT DT (IB908)
+18 ; 248 IB CMN RECERT/REVISION DT (IB909)
+19 ; 259 IB CMN ABG SAT DT (IB912)
+20 ; 271 IB CMN 4 LPM DATE (IB914)
+21 ; 272 IB CMN ERRORS HEADER (IB915)
+22 ; 273 IB CMN PEB (IB906)
+23 ;
ENT8 ;O.F. entries in file 350.8 to be added
+1 ;
+2 ;;^239^240^241^243^244^246^247^248^259^271^272^273^
+3 ;
+4 ;-----------------------------------------------------------------------
+5 ; 364.5 entries deleted:
+6 ;
DEL5 ; remove O.F. entries in file 364.5 (not re-added)
+1 ;
+2 ;;
+3 ;
+4 ;-----------------------------------------------------------------------
+5 ; 364.6 entries deleted:
+6 ;
DEL6 ; remove O.F. entries in file 364.6 (not re-added)
+1 ;
+2 ;;
+3 ;
+4 ;-----------------------------------------------------------------------
+5 ; 364.7 entries deleted:
+6 ;
+7 ;
DEL7 ; remove O.F. entries in file 364.7 (not re-added)
+1 ;
+2 ;;
+3 ;
+4 ;-----------------------------------------------------------------------
+5 ; 350.8 Entries deleted:
+6 ;
+7 ; 238 IB CMN REQ
+8 ;
DEL8 ; remove entries from 350.8 (IB ERROR)
+1 ;
+2 ;;
+3 ;
