©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PSAUP5 ;BIR/JMB-Upload and Process Prime Vendor Invoice Data - CONT'D ;10/9/97
Source file <PSAUP5.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 |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(51.5 - [#51.5] | UOM+5 |
| ^PSDRUG - [#50] | FOUND+1, NDC+7, NDC+8, NDC+9, NDC+10, NDC+21, NDC+23, VSN+7, VSN+8, VSN+9 , VSN+10, VSN+16, VSN+17, VSN+28, VSN+32, UOM+7, UOM+8, DUOU+3 |
| ^PSDRUG("AVSN" | GETVSN+1, VSN+3, VSN+7 |
| ^PSDRUG("C" | GETDRUG+12, NDC+3, NDC+7 |
| ^PSDRUG("NDC" | GETDRUG+5 |
| ^XTMP("PSAPV" | PSAUP5+7, PSAUP5+8, PSAUP5+9, PSAUP5+13, PSAUP5+14, PSAUP5+15, PSAUP5+17*, PSAUP5+20*, PSAUP5+21, PSAUP5+23 , PSAUP5+24, PSAUP5+25, PSAUP5+26*, PSAUP5+27*, PSAUP5+28*, GETVSN+5, FOUND+1*, FOUND+2*, NDC+13*, NDC+16* , NDC+19*, NDC+21*, NDC+23*, NDC+26*, VSN+14, VSN+15*, VSN+16*, VSN+17*, VSN+19*, VSN+22* , VSN+26, VSN+28*, VSN+32*, VSN+35*, UOM+8, UOM+9*, UOM+11*, DUOU+1 |
| Name | Line Occurrences |
|---|---|
| FOUND | GETDRUG+12, GETVSN+1 |
| GETDRUG | PSAUP5+16 |
| GETVSN | GETDRUG+11 |
| QTY | UOM+2 |
| UOM | GETVSN+6 |
| Name | Field # of Occurrence |
|---|---|
| ^( | FOUND+2*, NDC+13*, NDC+19*, NDC+21*, VSN+15*, VSN+26*, DUOU+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| NDC0 | GETDRUG+6*!, GETDRUG+7 |
| >> PSACNT | PSAUP5+19*, PSAUP5+22*, PSAUP5+26, PSAUP5+27, PSAUP5+28, NDC+4*, NDC+10*, NDC+19, NDC+26, VSN+4* , VSN+10*, VSN+25, VSN+35 |
| >> PSACNT1 | NDC+4*, NDC+10*, NDC+19, NDC+21, VSN+4*, VSN+10*, VSN+26 |
| >> PSACS | PSAUP5+9*, PSAUP5+20, FOUND+1*, VSN+16*, VSN+17* |
| >> PSACTRL | PSAUP5+7*, PSAUP5+8, PSAUP5+9, PSAUP5+13, PSAUP5+14, PSAUP5+15, PSAUP5+17, PSAUP5+20, PSAUP5+21, PSAUP5+23 , PSAUP5+24, PSAUP5+25, PSAUP5+26, PSAUP5+27, PSAUP5+28, GETVSN+5, FOUND+1, FOUND+2, NDC+13, NDC+16 , NDC+19, NDC+21, NDC+23, NDC+26, VSN+14, VSN+15, VSN+16, VSN+17, VSN+19, VSN+22 , VSN+26, VSN+28, VSN+32, VSN+35, UOM+8, UOM+9, UOM+11, DUOU+1 |
| >> PSADATA | PSAUP5+15*, GETVSN+3, UOM+2, UOM+5, UOM+7, UOM+8, QTY+1 |
| >> PSADRG | DUOU+1*, DUOU+3 |
| >> PSAFND | NDC+4*, NDC+9*, NDC+13, NDC+16, VSN+4*, VSN+9*, VSN+13, VSN+22 |
| >> PSAFND1 | NDC+4*, NDC+9*, NDC+13, VSN+4*, VSN+9*, VSN+15 |
| >> PSAIEN | GETDRUG+12*, GETVSN+1*, FOUND+1, FOUND+2, NDC+13*, NDC+19*, NDC+21*, NDC+23, VSN+15*, VSN+16 , VSN+17, VSN+26*, VSN+28, VSN+32, UOM+7, UOM+8 |
| >> PSAIEN50 | NDC+4*, NDC+7*, NDC+8, NDC+9, NDC+10, VSN+4*, VSN+7*, VSN+8, VSN+9, VSN+10 |
| >> PSAIN | PSAUP5+9*, PSAUP5+10 |
| >> PSAINV | PSAUP5+9*, PSAUP5+10 |
| >> PSALINE | PSAUP5+12*, PSAUP5+13*, PSAUP5+14, PSAUP5+15, PSAUP5+17, PSAUP5+21*, PSAUP5+23, PSAUP5+24, PSAUP5+25, GETVSN+5 , FOUND+1, FOUND+2, NDC+13, NDC+16, NDC+19, NDC+21, NDC+23, NDC+26, VSN+14, VSN+15 , VSN+16, VSN+17, VSN+19, VSN+22, VSN+26, VSN+28, VSN+32, VSN+35, UOM+8, UOM+9 , UOM+11, DUOU+1 |
| >> PSALLCS | PSAUP5+19*, PSAUP5+23*, PSAUP5+27 |
| >> PSALLOK | PSAUP5+19*, PSAUP5+24*, PSAUP5+28 |
| >> PSANDC | PSAUP5+15*, GETDRUG+3*, GETDRUG+4, GETDRUG+5*, GETDRUG+6, GETDRUG+7*, GETDRUG+9*, GETDRUG+11, GETDRUG+12, GETVSN+3 , NDC+3, NDC+7, NDC+13, NDC+21, VSN+9, VSN+10 |
| >> PSAOK | PSAUP5+15*, PSAUP5+17, PSAUP5+18, GETVSN+5*, NDC+16*, NDC+23*, NDC+26*, VSN+22*, VSN+32*, VSN+35* , UOM+2*, UOM+6, UOM+10*, QTY+1*, DUOU+2*, DUOU+3* |
| >> PSAORD | PSAUP5+9*, PSAUP5+10 |
| >> PSASUB | GETDRUG+12*, GETVSN+1*, FOUND+2, NDC+13*, NDC+19*, NDC+21*, NDC+23, VSN+15*, VSN+26*, VSN+28 , VSN+32 |
| >> PSASUP | PSAUP5+19*, PSAUP5+25*, PSAUP5+26 |
| >> PSASYN | NDC+7*, NDC+8, NDC+9, NDC+10, VSN+7*, VSN+8, VSN+9, VSN+10, DUOU+1*, DUOU+2 , DUOU+3 |
| PSAUOM | UOM+2!, UOM+5*, UOM+6, UOM+8*, UOM+9, UOM+10, UOM+11 |
| PSAUOMN | UOM+8*, UOM+9!, UOM+11*! |
| PSAUPLD | PSAUP5+12*! |
| >> PSAVSN | PSAUP5+15*, GETDRUG+10*, GETVSN+1, GETVSN+3, NDC+9, NDC+10, VSN+3, VSN+7, VSN+19, VSN+28 |
| >> X | GETDRUG+5*, GETDRUG+6* |
| >> X1 | GETDRUG+5* |