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 |