©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
PSOREF2 ;ISC-BIRM/SAB - asks all questions for barcode refill rx order entry ; 09/30/96
Source file <PSOREF2.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 1 | (CLERK,EXP,FILLDT,MW)^PSODIR3 |
| VA Fileman | 1 | C^%DTC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| JUMP | ;
|
|
| END | ;
|
|
| LOOK | ;this entry is used to try and find current med order
|
|
| EN(PSOREF) | ||
| 1 | ||
| START | ;
|
|
| 3 | ||
| 2 | ||
| 4 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PSDRUG - [#50] | LOOK+1 |
| ^PSRX - [#52] | LOOK+1 |
| Name | Line Occurrences |
|---|---|
| @( | 1+1, 2+1, 3+1, 4+1 |
| END | 1+1, 2+1, 3+1, 4+1 |
| START | EN+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DRUG | LOOK+1*, LOOK+2, LOOK+3! |
| DT | START+2, START+3 |
| DUZ("AG" | 3, 4 |
| >> PSOBBC("DONE" | LOOK+2* |
| >> PSOBBC1("FROM" | START+3 |
| >> PSODF | LOOK+2* |
| PSOREF | 1, 2, 3, 4, EN~ |
| PSOREF("DFLG" | START+1*, 1+1, 2+1, 3+1, 4+1 |
| PSOREF("FIELD" | START+1*, 1+1, 2+1, 3+1, 4+1, JUMP+1*, JUMP+2* |
| PSOREF("FLD" | 1*, 2*, 3*, 4*, JUMP+1, JUMP+2 |
| PSOREF("IRXN" | LOOK+1, LOOK+2* |
| PSOREF("ISSUE | DATE" , START+2*, START+3* |
| PSOREF1 | START+1*, END+1! |
| >> PSORX("BAR CO | DE" , START+3 |
| >> PSORX("MAIL/WINDOW" | 2* |
| >> PSOSD | LOOK+2 |
| >> PSOSD( | LOOK+2 |
| >> PSOX | LOOK+1*, LOOK+2* |
| >> PSOY | LOOK+1*, LOOK+2* |
| >> STA | LOOK+1*, LOOK+2* |
| X | START+2, START+4! |
| X1 | START+2*, START+4! |
| X2 | START+2*, START+4! |
| >> Y | JUMP+1 |