PSABRKU6 ;BIR/DB-Upload and Process Prime Vendor Invoice Data - CONT'D ;10/9/97
Source file <PSABRKU6.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| GETDRUG | ;Looks for NDC then VSNs in DRUG file. | |
| NDC | ;If >1 NDC in DRUG file, store how many. | |
| QTY | ;If qty is 0 or blank, set flag | |
| VSN | ;If there >1 VSN with same VSN, store how many. | |
| FOUND | ;Store line item data if ordered item was found in DRUG file. | |
| DUOU | ;If no dispense units per order unit, set flag. | |
| UOM | ;Locates X12 Unit of Measure Code in ORDER UNIT file. | |
| GETVSN | ;Looks for Vendor Stock Number then NDC. | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DIC(51.5 - [#51.5] | UOM+4, UOM+5, UOM+8, UOM+15 | 
| ^PSD(58.812 - [#58.812] | UOM+4, UOM+5 | 
| ^PSDRUG - [#50] | FOUND+1, NDC+6, NDC+7, NDC+8, NDC+9, NDC+20, NDC+22, VSN+7, VSN+8, VSN+9 , VSN+10, VSN+16, VSN+17, VSN+27, VSN+29, UOM+17, UOM+18, DUOU+3 | 
| ^PSDRUG("AVSN" | GETVSN+1, VSN+3, VSN+7 | 
| ^PSDRUG("C" | GETDRUG+4, NDC+3, NDC+6 | 
| ^XTMP("PSA SUPPLY" | GETVSN+3 | 
| ^XTMP("PSAPV" | PSABRKU6+11, PSABRKU6+12, PSABRKU6+13, PSABRKU6+14, PSABRKU6+15, PSABRKU6+16, PSABRKU6+18*, PSABRKU6+21*, PSABRKU6+22, PSABRKU6+24 , PSABRKU6+25, PSABRKU6+26, PSABRKU6+27*, PSABRKU6+28*, PSABRKU6+29*, GETVSN+5*, GETVSN+11, FOUND+1*, FOUND+2*, NDC+12* , NDC+15*, NDC+18*, NDC+20*, NDC+22*, NDC+25*, VSN+14, VSN+15*, VSN+16*, VSN+17*, VSN+18* , VSN+21*, VSN+25, VSN+27*, VSN+29*, VSN+32*, UOM+9*, UOM+10*, UOM+11*, UOM+12*, UOM+18 , UOM+19*, UOM+21*, DUOU+1 | 
| Name | Line Occurrences | 
|---|---|
| FOUND | GETDRUG+4, GETVSN+1 | 
| GETDRUG | PSABRKU6+17 | 
| GETVSN | GETDRUG+3 | 
| QTY | UOM+2, UOM+13 | 
| UOM | GETVSN+12 | 
| VSN | GETVSN+7 | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | FOUND+2*, NDC+12*, NDC+18*, NDC+20*, VSN+15*, VSN+25*, DUOU+1 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> DATA | GETVSN+3*, GETVSN+5 | 
| DT | GETVSN+5, UOM+12 | 
| >> PSACNT | PSABRKU6+20*, PSABRKU6+23*, PSABRKU6+27, PSABRKU6+28, PSABRKU6+29, NDC+4*, NDC+9*, NDC+18, NDC+25, VSN+4* , VSN+10*, VSN+24, VSN+32 | 
| >> PSACNT1 | NDC+4*, NDC+9*, NDC+18, NDC+20, VSN+4*, VSN+10*, VSN+25 | 
| >> PSACS | PSABRKU6+13*, PSABRKU6+21, FOUND+1*, VSN+16*, VSN+17* | 
| >> PSACTRL | PSABRKU6+11*, PSABRKU6+12, PSABRKU6+13, PSABRKU6+14, PSABRKU6+15, PSABRKU6+16, PSABRKU6+18, PSABRKU6+21, PSABRKU6+22, PSABRKU6+24 , PSABRKU6+25, PSABRKU6+26, PSABRKU6+27, PSABRKU6+28, PSABRKU6+29, GETVSN+5, GETVSN+11, FOUND+1, FOUND+2, NDC+12 , NDC+15, NDC+18, NDC+20, NDC+22, NDC+25, VSN+14, VSN+15, VSN+16, VSN+17, VSN+18 , VSN+21, VSN+25, VSN+27, VSN+29, VSN+32, UOM+9, UOM+10, UOM+11, UOM+12, UOM+18 , UOM+19, UOM+21, DUOU+1 | 
| >> PSADATA | PSABRKU6+16*, GETVSN+9, UOM+2, UOM+4, UOM+15, UOM+17, UOM+18, QTY+1 | 
| >> PSADRG | DUOU+1*, DUOU+3 | 
| >> PSAFND | NDC+4*, NDC+8*, NDC+12, NDC+15, VSN+4*, VSN+9*, VSN+13, VSN+21 | 
| >> PSAFND1 | NDC+4*, NDC+8*, NDC+12, VSN+4*, VSN+9*, VSN+15 | 
| PSAGUI | UOM+2!, UOM+5*, UOM+6, UOM+8*, UOM+13! | 
| >> PSAGUI1 | PSABRKU6+7*, UOM+5* | 
| >> PSAGUI5 | PSABRKU6+8* | 
| >> PSAGUI6 | PSABRKU6+9* | 
| >> PSAGUI7 | PSABRKU6+10*, GETVSN+6* | 
| >> PSAIEN | GETDRUG+4*, GETVSN+1*, FOUND+1, FOUND+2, NDC+12*, NDC+18*, NDC+20*, NDC+22, VSN+15*, VSN+16 , VSN+17, VSN+25*, VSN+27, VSN+29, UOM+17, UOM+18 | 
| >> PSAIEN50 | NDC+4*, NDC+6*, NDC+7, NDC+8, NDC+9, VSN+4*, VSN+7*, VSN+8, VSN+9, VSN+10 | 
| >> PSAIN | PSABRKU6+13* | 
| >> PSAINV | PSABRKU6+13* | 
| >> PSALINE | PSABRKU6+14*, PSABRKU6+15, PSABRKU6+16, PSABRKU6+18, PSABRKU6+22*, PSABRKU6+24, PSABRKU6+25, PSABRKU6+26, GETVSN+5, GETVSN+11 , FOUND+1, FOUND+2, NDC+12, NDC+15, NDC+18, NDC+20, NDC+22, NDC+25, VSN+14, VSN+15 , VSN+16, VSN+17, VSN+18, VSN+21, VSN+25, VSN+27, VSN+29, VSN+32, UOM+4, UOM+5 , UOM+9, UOM+10, UOM+11, UOM+12, UOM+18, UOM+19, UOM+21, DUOU+1 | 
| >> PSALLCS | PSABRKU6+20*, PSABRKU6+24*, PSABRKU6+28 | 
| >> PSALLOK | PSABRKU6+20*, PSABRKU6+25*, PSABRKU6+29 | 
| >> PSAMTCH | GETVSN+2*, GETVSN+3* | 
| >> PSANDC | PSABRKU6+16*, GETDRUG+1*, GETDRUG+3, GETDRUG+4, GETVSN+9, NDC+3, NDC+6, NDC+12, NDC+20, VSN+9 , VSN+10 | 
| >> PSAOK | PSABRKU6+16*, PSABRKU6+18, PSABRKU6+19, GETVSN+11*, NDC+15*, NDC+22*, NDC+25*, VSN+21*, VSN+29*, VSN+32* , UOM+2*, UOM+16, UOM+20*, QTY+1*, DUOU+2*, DUOU+3* | 
| >> PSAORD | PSABRKU6+13* | 
| >> PSASUB | GETDRUG+4*, GETVSN+1*, FOUND+2, NDC+12*, NDC+18*, NDC+20*, NDC+22, VSN+15*, VSN+25*, VSN+27 , VSN+29 | 
| >> PSASUP | PSABRKU6+20*, PSABRKU6+26*, PSABRKU6+27 | 
| >> PSASUPPL | GETVSN+2*, GETVSN+6*, GETVSN+7 | 
| >> PSASYN | NDC+6*, NDC+7, NDC+8, NDC+9, VSN+7*, VSN+8, VSN+9, VSN+10, DUOU+1*, DUOU+2 , DUOU+3 | 
| PSAUOM | UOM+2!, UOM+4*, UOM+5*, UOM+8, UOM+9, UOM+10, UOM+15*, UOM+16, UOM+18*, UOM+19 , UOM+20, UOM+21 | 
| PSAUOMN | UOM+5*, UOM+8*, UOM+9, UOM+18*, UOM+19!, UOM+21*! | 
| >> PSAVSN | PSABRKU6+16*, GETDRUG+2*, GETVSN+1, GETVSN+2, GETVSN+3, GETVSN+9, NDC+8, NDC+9, VSN+3, VSN+7 , VSN+18, VSN+27 | 
| >> XIEN | UOM+5* |