PSABRKU9 ;VMP/PW-ORDER UNIT AUTO UPDATE FOR MCKESSON ;9/19/2004
Source file <PSABRKU9.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OUAUTO | ;EP for Order Unit Auto Update from PSABRKU6
; needs PSACTRL PSALINE from PSABRKU6 ; PSAI - invoice PSAD - drug |
|
| EN | ||
| PSADATA() | ;extrensic return PSADATA modified
|
|
| VSN | ;set VSNDUOU= PSDRUG( unique VSN value or XTMP( value
|
|
| SYNDUOU | ;set SYNDUOU= to PSDRUG( or XTMP value
|
|
| TESTDUOU | ; test if DUOUs are =
|
|
| SETDUOU | ||
| CHKOU | ||
| Q | ;W ! ZW VSNDUOU,SYNDUOU,DRDUOU,PSADATA W !
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^PSDRUG - [#50] | GET1^DIQ |
| 50.1 | GET1^DIQ |