Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBY592PR

IBY592PR.m

Go to the documentation of this file. 
  1. IBY592PR ;EDE/JWS - Pre-Installation for IB patch 592 ; 2/28/17 4:33pm
  1.  ;;2.0;INTEGRATED BILLING;**592**;21-MAR-94;Build 58
  1.  ;;Per VA Directive 6402, this routine should not be modified.
  1.  ;
  1.  ; IA# 10013 - ^DIK
  1.  ;
  1.  ; need to check existence of Form #7, file 353 BILL FORM TYPE file
  1.  I $D(^IBE(353,7,0)),$P($G(^(0)),"^")'="J430D" D FORM
  1.  ;
  1.  ; delete all output formatter (O.F.) data elements included in build
  1.  D DELOF
  1.  Q
  1.  ;
  1. FORM ;move existing form 7 to 207
  1.  N NAME,FDA,A,CT
  1.  M ^IBE(353,207)=^IBE(353,7)
  1.  S NAME=$P($G(^IBE(353,207,0)),"^")
  1.  S ^IBE(353,"B",NAME,207)=""
  1.  S FDA(353,"207,",2.04)=0 D FILE^DIE(,"FDA",)
  1.  S FDA(353,"7,",.01)="J430D" D FILE^DIE(,"FDA",)
  1.  D MES^XPDUTL("Checking Bill/Claims file Bill Form Type...")
  1.  S A=0 F  S A=$O(^DGCR(399,A)) Q:A'=+A  S CT=$G(CT)+1 W:(CT#1000)=0 "." I $P($G(^(A,0)),"^",19)=7 D
  1.  . S $P(^DGCR(399,A,0),"^",19)=207
  1.  . Q
  1.  Q
  1.  ;
  1. 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
  1.  ; Y=ien to file
  1.  NEW OK,LN,TAG,DATA
  1.  S OK=0
  1.  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
  1.  Q OK
  1.  ;
  1.  ;Delete edited entries to insure clean install of new entries
  1.  ;Delete obsolete entries.
  1. DELOF   ; Delete included OF entries
  1.  NEW FILE,DIK,LN,TAG,TAGLN,DATA,PCE,DA,Y
  1.  F FILE=5,6,7 S DIK="^IBA(364."_FILE_"," D
  1.  . F TAG="ENT"_FILE,"DEL"_FILE D
  1.  .. F LN=2:1 S TAGLN=TAG_"+"_LN,DATA=$P($T(@TAGLN),";;",2) Q:DATA=""  D
  1.  ... F PCE=2:1 S DA=$P(DATA,U,PCE) Q:'DA  I $D(^IBA("364."_FILE,DA,0)) D ^DIK
  1.  Q
  1.  ;
  1.  ; Example for ENT5, ENT6, ENT7, DEL5, DEL6, and DEL7:
  1.  ;;^195^254^259^269^324^325^
  1.  ; Note:  Must have beginning and ending up-carat
  1.  ;
  1.  ;-----------------------------------------------------------------------
  1.  ; 364.5 entries modified:
  1.  ;
  1.  ; 83 - N-ATT/REND PHYSICIAN NAME
  1.  ; 97 - N-NON-INSTITUTIONAL CLAIM TYPE
  1.  ; 249 - N-ATT/REND PHYSICIAN SPEC
  1.  ; 261 - N-ATT/REND PROVIDER ID
  1.  ; 370 - N-ATT/REND PHYSICIAN NAME BR
  1.  ; 378 - N-ORTHO BANDING QUALIFIER
  1.  ; 379 - N-ORTHO BANDIN DATE
  1.  ; 380 - N-ORTHO TX MTHS COUNT
  1.  ; 381 - N-ORTHO TX MTHS COUNT TRANSFER
  1.  ; 382 - N-ORTHO TX INDICATOR
  1.  ; 383 - N-TOOTH NUMBER
  1.  ; 384 - N-HCFA J430D SERV LINE (EDI)
  1.  ; 437 - N-HCFA SERVICE LINE CALLABLE
  1.  ;
  1. ENT5 ; OF entries in file 364.5 to be included
  1.  ;
  1.  ;;^83^97^249^261^370^378^379^380^381^382^383^384^437^
  1.  ;
  1.  ;-----------------------------------------------------------------------
  1.  ; 364.6 entries modified:
  1.  ;
  1.  ; 2258 - seg 62, 1-RECORD ID 'DN1 '
  1.  ; 2259 - seq 62, 2-ORTHO BANDING QUALIFIER
  1.  ; 2260 - seq 62, 3-ORTHO BANDING DATE
  1.  ; 2261 - seq 62, 4-ORTHO TX MONTHS COUNT
  1.  ; 2262 - seq 62, 5-ORTHO TX MTHS CT TRANS
  1.  ; 2263 - seq 62, 6-ORTHO TX INDICATOR
  1.  ; 2264 - seq 63, 1-RECORD ID 'DN2 '
  1.  ; 2266 - seq 63, 2-TOOTH NUMBER
  1.  ; 2267 - seq 63, 3-TOOTH STATUS CODE
  1.  ; 2268 - seq 63, 4-TOOTH CODE LIST QUALIFIER
  1.  ; 2269 - seq 101, 8-REFERRING PROVIDER CODE
  1.  ; 2270 - seq 101, 9-REFERRING PROVIDER CODE QUALIFIER
  1.  ; 2271 - seq 101, 10-REFERRING PROVIDER TAXONOMY
  1.  ; 2272 - seq 104.6, 1-RECORD ID 'OPRB'
  1.  ; 2273 - seq 104.6, 2-ASST SURGEON QUALIFIER
  1.  ; 2274 - seq 104.6, 3-ASST SURGEON TYPE
  1.  ; 2275 - seq 104.6, 4-ASST SURGEON LAST NAME
  1.  ; 2276 - seq 104.6, 5-ASST SURGEON FIRST NAME
  1.  ; 2277 - seq 104.6, 6-ASST SURGEON MIDDLE NAME
  1.  ; 2278 - seq 104.6, 7-ASST SURGEON NAME SUFFIX
  1.  ; 2279 - seq 104.6, 8-ASST SURGEON PRIMARY ID QUALIFIER
  1.  ; 2280 - seq 104.6, 9-ASST SURGEON PRIMARY ID
  1.  ; 2281 - seq 104.6, 10-ASST SURGEON TAXONOMY QUALIFIER
  1.  ; 2282 - seq 104.6, 11-ASST SURGEON TAXONOMY
  1.  ; 2283 - seq 104.6, 1.5-OPRB Setup
  1.  ; 2284 - seq 104.6, 99.5-OPRG Cleanup
  1.  ; 2285 - seq 104.61, 1-RECORD ID 'OPRC'
  1.  ; 2286 - seq 104.61, 2-ASST SURGEON SEC ID QUALIFIER(1)
  1.  ; 2287 - seq 104.61, 3-ASST SURGEON SEC ID (1)
  1.  ; 2288 - seq 104.61, 1.5-OPRC Setup
  1.  ; 2289 - seq 104.61, 4-ASST SURGEON SEC ID QIALIFIER(2)
  1.  ; 2290 - seq 104.61, 5-ASST SURGEON SEC ID (2)
  1.  ; 2291 - seq 104.61, 6-ASST SURGEON SEC ID QUALIFIER(3)
  1.  ; 2292 - seq 104.61, 7-ASST SURGEON SEC ID (3)
  1.  ; 2293 - seq 104.61, 8-ASST SURGEON SEC ID QIALIFIER(4)
  1.  ; 2294 - seq 104.61, 9-ASST SURGEON SEC ID (4)
  1.  ; 2295 - seq 104.61, 99.5-OPRC Cleanup
  1.  ; 2296 - seq 178.1, 1-RECORD ID 'OP10'
  1.  ; 2297 - seq 178.1, 1.5-OP10 Setup
  1.  ; 2298 - seq 178.1, 2-PAYER RESPONSIBILITY SEQ # CODE
  1.  ; 2299 - seq 178.1, 3-OTHER PAYER ASST SURGEON ENTITY ID
  1.  ; 2300 - seq 178.1, 4-OTHER PAYER ASST SURGEON ENTITY QUAL
  1.  ; 2301 - seq 178.1, 5-OTHER PAYER ASST SURGEON SEC ID QUAL(1)
  1.  ; 2302 - seq 178.1, 6-OTHER PAYER ASST SURGEON SEC ID(1)
  1.  ; 2303 - seq 178.1, 7-OTHER PAYER ASST SURGEON SEC ID QUAL(2)
  1.  ; 2304 - seq 178.1, 8-OTHER PAYER ASST SURGEON SEC ID(2)
  1.  ; 2305 - seq 178.1, 9-OTHER PAYER ASST SURGEON SEC ID QUAL(3)
  1.  ; 2306 - seq 178.1, 10-OTHER PAYER ASST SURGEON SEC ID(3)
  1.  ; 2307 - seq 178.1, 99.5-OP10 Cleanup
  1.  ; 2308 - seq 186, 1-RECORD ID 'DEN '
  1.  ; 2309 - seq 186, 2-SERVICE LINE #
  1.  ; 2310 - seq 186, 3-DATE/TIME QUALIFIER
  1.  ; 2311 - seq 186, 4-SERVICE DATE
  1.  ; 2312 - seq 186, 5-SERVICE ID QUALIFIER
  1.  ; 2313 - seq 186, 6-PROCEDURE CODE
  1.  ; 2314 - seq 186, 7-PROCEDURE MODIFIER(1)
  1.  ; 2315 - seq 186, 8-PROCEDURE MODIFIER(2)
  1.  ; 2316 - seq 186, 9-PROCEDURE MODIFIER(3)
  1.  ; 2317 - seq 186, 10-PROCEDURE MODIFIER(4)
  1.  ; 2318 - seq 186, 11-PROCEDURE CODE DESCRIPTION
  1.  ; 2319 - seq 186, 12-LINE ITEM CHARGE AMT
  1.  ; 2320 - seq 186, 13-PLACE OF SERVICE CODE
  1.  ; 2321 - seq 186, 14-ORAL CAVITY DESIGNATION(1)
  1.  ; 2322 - seq 186, 15-ORAL CAVITY DESIGNATION(2)
  1.  ; 2323 - seq 186, 16-ORAL CAVITY DESIGNATION(3)
  1.  ; 2324 - seq 186, 17-ORAL CAVITY DESIGNATION(4)
  1.  ; 2325 - seq 186, 18-ORAL CAVITY DESIGNATION(5)
  1.  ; 2326 - seq 186, 19-PROSTHESIS CROWN INLAY CODE
  1.  ; 2327 - seq 186.1, 1-RECORD ID 'DEN1'
  1.  ; 2328 - seq 186.1, 2-SERVICE LINE #
  1.  ; 2329 - seq 186.1, 3-PROCEDURE COUNT
  1.  ; 2330 - seq 186.1, 4-DIAGNOSIS CODE POINTER(1)
  1.  ; 2331 - seq 186.1, 5-DIAGNOSIS CODE POINTER(2)
  1.  ; 2332 - seq 186.1, 6-DIAGNOSIS CODE POINTER(3)
  1.  ; 2333 - seq 186.1, 7-DIAGNOSIS CODE POINTER(4)
  1.  ; 2334 - seq 186.1, 8-PRIOR PLACEMENT DATE QUALIFIER
  1.  ; 2335 - seq 186.1, 9-PRIOR PLACEMENT DATE
  1.  ; 2336 - seq 186.1, 10-ORTHO BANDING DATE QUALIFIER
  1.  ; 2337 - seq 186.1, 11-ORTHO BANDING DATE
  1.  ; 2338 - seq 186.1, 12-REPLACEMENT DATE QUALIFIER
  1.  ; 2339 - seq 186.1, 13-REPLACEMENT DATE
  1.  ; 2340 - seq 186.1, 14-TREATMENT START DATE QUALIFIER
  1.  ; 2341 - seq 186.1, 15-TREATMENT START DATE
  1.  ; 2342 - seq 186.1, 16-TREATMENT COMPLETION DATE QUALIFIER
  1.  ; 2343 - seq 186.1, 17-TREATMENT COMPLETION DATE
  1.  ; 2344 - seq 186.2, 1-RECORD ID 'DEN2'
  1.  ; 2345 - seq 186.2, 2-SERVICE LINE #
  1.  ; 2346 - seq 186.2, 3-TOOTH CODE QUALIFIER
  1.  ; 2347 - seq 186.2, 4-TOOTH CODE
  1.  ; 2348 - seq 186.2, 5-TOOTH SURFACE(1)
  1.  ; 2349 - seq 186.2, 6-TOOTH SURFACE(2)
  1.  ; 2350 - seq 186.2, 7-TOOTH SURFACE(3)
  1.  ; 2351 - seq 186.2, 8-TOOTH SURFACE(4)
  1.  ; 2352 - seq 186.2, 9-TOOTH SURFACE(5)
  1.  ; 2353 - seq 194.5, 1-RECORD ID 'LSUR'
  1.  ; 2354 - seq 194.5, 2-SERVICE LINE COUNTER
  1.  ; 2355 - seq 194.5, 3-ASST SURGEON QUALIFIER
  1.  ; 2356 - seq 194.5, 4-ASST SURGEON LAST NAME
  1.  ; 2357 - seq 194.5, 5-ASST SURGEON FIRST NAME
  1.  ; 2358 - seq 194.5, 6-ASST SURGEON MIDDLE NAME
  1.  ; 2359 - seq 194.5, 7-ASST SURGEON NAME SUFFIX
  1.  ; 2360 - seq 194.5, 8-ASST SURGEON PRIMARY ID QUALIFIER
  1.  ; 2361 - seq 194.5, 9-ASST SURGEON PRIMARY ID
  1.  ; 2370 - seq 194.5, 1.9-LSUR DATA EXTRACT
  1.  ; 2372 - seq 194.6, 1-RECORD ID 'LSR1'
  1.  ; 2373 - seq 194.6, 1.9-LSR1 DATA EXTRACT
  1.  ; 2374 - seq 194.6, 2-SERVICE LINE COUNTER
  1.  ; 2375 - seq 194.6, 3-ASST SURGEON SECONDARY ID QUALIFIER(1)
  1.  ; 2376 - seq 194.6, 4-ASST SURGEON SECONDARY ID(1)
  1.  ; 2377 - seq 194.6, 5-ASST SURGEON SECONDARY ID QUALIFIER(2)
  1.  ; 2378 - seq 194.6, 6-ASST SURGEON SECONDARY ID(2)
  1.  ; 2379 - seq 194.6, 7-ASST SURGEON SECONDARY ID QUALIFIER(3)
  1.  ; 2380 - seq 194.6, 8-ASST SURGEON SECONDARY ID(3)
  1.  ; 2381 - seq 194.6, 9-ASST SURGEON TAXONOMY QUALIFIER
  1.  ; 2382 - seq 194.6, 10-ASST SURGEON TAXONOMY CODE
  1.  ;
  1. ENT6 ; O.F. entries in file 364.6 to be included
  1.  ;
  1.  ;;^2258^2259^2260^2261^2262^2263^2264^2266^2267^2268^2269^2270^2271^2272^
  1.  ;;^2273^2274^2275^2276^2277^2278^2279^2280^2281^2282^2283^2284^2285^2286^
  1.  ;;^2287^2288^2289^2290^2291^2292^2293^2294^2295^2296^2297^2298^2299^2300^
  1.  ;;^2301^2302^2303^2304^2305^2306^2307^2308^2309^2310^2311^2312^2313^2314^
  1.  ;;^2315^2316^2317^2318^2319^2320^2321^2322^2323^2324^2325^2326^2327^2328^
  1.  ;;^2329^2330^2331^2332^2333^2334^2335^2336^2337^2338^2339^2340^2341^2342^
  1.  ;;^2343^2344^2345^2346^2347^2348^2349^2350^2351^2352^2353^2354^2355^2356^
  1.  ;;^2357^2358^2359^2360^2361^2370^2372^2373^2374^2375^2376^2377^2378^2379^
  1.  ;;^2380^2381^2382^
  1.  ;-----------------------------------------------------------------------
  1.  ; 364.7 entries modified:
  1.  ;
  1.  ;
  1. ENT7 ; O.F. entries in file 364.7 to be included
  1.  ;
  1.  ;;^1425^1426^1460^1461^1462^1463^1464^1465^1466^1467^1468^1469^1470^1471^
  1.  ;;^1472^1473^1474^1475^1476^1477^1478^1479^1480^1481^1482^1483^1484^1485^
  1.  ;;^1486^1487^1488^1489^1490^1491^1492^1493^1494^1495^1496^1497^1498^1499^
  1.  ;;^1505^1506^1507^1508^1509^1510^1511^1512^1513^1514^1515^1516^1517^1528^
  1.  ;;^1548^1549^1552^1553^1554^1555^1556^1557^1558^1559^1560^1580^1581^1582^
  1.  ;;^1583^1584^1585^1586^1587^1588^1589^1590^1591^1592^1593^1594^1595^1596^
  1.  ;;^1597^1598^1599^1600^1601^1602^1603^1604^1605^1606^1607^1608^1609^1614^
  1.  ;;^1688^1689^1728^1729^1730^1731^1957^1958^1959^1960^1961^1962^1963^1964^
  1.  ;;^1965^1966^1967^31^37^1006^1023^1015^16^127^75^1008^1727^854^1519^1520^
  1.  ;;^1522^1523^1524^1525^1945^1946^1003^98^132^1672^1673^49^644^645^646^
  1.  ;;^647^648^649^443^444^445^446^447^448^449^450^1703^1704^1705^1706^1707^
  1.  ;;^1708^1709^1710^
  1.  ;
  1.  ;-----------------------------------------------------------------------
  1.  ; 364.5 entries deleted:
  1.  ;
  1. DEL5    ; remove O.F. entries in file 364.5 (not re-added)
  1.  ;
  1.  ;;
  1.  ;
  1.  ;-----------------------------------------------------------------------
  1.  ; 364.6 entries deleted:
  1.  ;
  1.  ;
  1. DEL6    ; remove O.F. entries in file 364.6 (not re-added)
  1.  ;
  1.  ;;
  1.  ;
  1.  ;-----------------------------------------------------------------------
  1.  ; 364.7 entries deleted:
  1.  ;
  1.  ;
  1. DEL7    ; remove O.F. entries in file 364.7 (not re-added)
  1.  ;
  1.  ;;
  1.  ;
  1.  ;-----------------------------------------------------------------------