PSAUP8 ;VMP/PW-ORDER UNIT AUTO UPDATE FOR MCKESSON ;9/19/2004
Source file <PSAUP8.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
OUAUTO | ;EP for Order Unit Auto Update from PSAUP5
; needs PSACTRL PSALINE from PSAUP5 ; 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 |