©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
PSAUP8 ;VMP/PW-ORDER UNIT AUTO UPDATE FOR MCKESSON ;9/19/2004
Source file <PSAUP8.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ||
| SYNDUOU | ;set SYNDUOU= to PSDRUG( or XTMP value
|
|
| Q | ;W ! ZW VSNDUOU,SYNDUOU,DRDUOU,PSADATA W !
|
|
| OUAUTO | ;EP for Order Unit Auto Update from PSAUP5
; needs PSACTRL PSALINE from PSAUP5 ; PSAI - invoice PSAD - drug |
|
| SETDUOU | ||
| PSADATA() | ;extrensic return PSADATA modified
|
|
| TESTDUOU | ; test if DUOUs are =
|
|
| VSN | ;set VSNDUOU= PSDRUG( unique VSN value or XTMP( value
|
|
| CHKOU |
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | PSADATA+4, VSN+9, SYNDUOU+2, CHKOU, CHKOU+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^PSDRUG - [#50] | GET1^DIQ |
| 50.1 | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PSDRUG - [#50] | SYNDUOU+5, SYNDUOU+6, SYNDUOU+7*, SYNDUOU+8 |
| ^PSDRUG("AVSN" | VSN+2, VSN+3 |
| ^XTMP("PSAPV" | EN+3, EN+5* |
| ^XTMP("PSAVSN" | VSN+4, VSN+10, SYNDUOU+3 |
| Name | Line Occurrences |
|---|---|
| $$PSADATA | EN+4 |
| Q | TESTDUOU+2, CHKOU+2 |
| Name | Field # of Occurrence |
|---|---|
| ^( | VSN+4, VSN+10, SYNDUOU+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DRDA | EN~, PSADATA+3*, PSADATA+4, SYNDUOU+1, SYNDUOU+5, SYNDUOU+6, SYNDUOU+7, SYNDUOU+8, CHKOU, CHKOU+1 |
| DRDUOU | EN~, PSADATA+1*, PSADATA+4*, SYNDUOU+4, TESTDUOU+1, SETDUOU |
| DROUDA | EN~, CHKOU+1*, CHKOU+3 |
| DROUNM | EN~, CHKOU* |
| DT | CHKOU+3 |
| INVDUOU | EN~ |
| INVOUDA | EN~ |
| INVOUNM | EN~, EN+2~, PSADATA+2*, CHKOU+2 |
| IVSN | EN+2~, VSN+1*, VSN+2, VSN+3, VSN+4, VSN+10, SYNDUOU+3 |
| IVSN0 | EN+2~, PSADATA+3*, VSN+1, VSN+4 |
| >> PSACTRL | EN+3, EN+5 |
| PSADATA | EN+1~, EN+3*, EN+4*, EN+5, PSADATA+1, TESTDUOU+4*, SETDUOU*, CHKOU+4*, Q+1 |
| >> PSALINE | EN+3, EN+5 |
| SYN0 | EN+2~, SYNDUOU+6*, SYNDUOU+7* |
| SYNDA | EN+2~, PSADATA+3*, SYNDUOU+1, SYNDUOU+5, SYNDUOU+6, SYNDUOU+7, SYNDUOU+8 |
| SYNDUOU | EN+2~, PSADATA+1*, SYNDUOU+2*, SYNDUOU+3*, SYNDUOU+4, SYNDUOU+7, TESTDUOU+1, TESTDUOU+4 |
| SYNIEN | EN+2~, SYNDUOU+1*, SYNDUOU+2 |
| U | PSADATA+2, PSADATA+3, SYNDUOU+7, TESTDUOU+4, SETDUOU, CHKOU+3 |
| VCNT | EN+1~, VSN+2*, VSN+3*, VSN+4, VSN+6 |
| VSDSYNDA | EN+1~ |
| VSNDRD0 | EN+1~, VSN+3*, VSN+8 |
| VSNDRDA | EN+1~, VSN+2*, VSN+3 |
| VSNDUOU | EN+1~, PSADATA+1*, VSN+4*, VSN+9*, VSN+10*, TESTDUOU+1, TESTDUOU+3, TESTDUOU+4 |
| VSNIEN | EN+2~, VSN+8*, VSN+9 |
| VSNSYND0 | EN+1~, VSN+3*, VSN+8 |
| VSNSYNDA | EN+2~, VSN+3* |
| XX | EN~, PSADATA+1*, PSADATA+2, PSADATA+3, TESTDUOU+4*, SETDUOU*, CHKOU+3*, CHKOU+4 |