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* |