ABSPOSFB ; IHS/FCS/DRS - VMEDS(*) prep for ABSP(*) ; [ 09/12/2002 10:08 AM ]
Source file <ABSPOSFB.m>
| Package | Total | Call Graph |
|---|---|---|
| Pharmacy Point of Sale | 2 | GETINFO^ABSPOSFC MEDINFO^ABSPOSFD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CRASH | ||
| GETVMED(VMEDS) | ;
|
|
| E | ;Set up VMEDS(*)=^RXI^RXR^^IEN57
|
|
| L | ;Get medication and prescription data for each medication
|
|
| ABSP() | ;EP - from ABSPOSFA - with TRANSACT(ien57)=""
; Returns 0 if success, nonzero if error |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABSPTL - [#9002313.57] | ABSP+8, ABSP+12, GETVMED+10 |
| ^AUPNVSIT - [#9000010] | ABSP+16 |
| ^DPT - [#2] | ABSP+14 |
| Name | Line Occurrences |
|---|---|
| CRASH | ABSP+13, ABSP+14, ABSP+15, ABSP+16, GETVMED+12, GETVMED+13 |
| GETVMED | E+1 |
| Name | Field # of Occurrence |
|---|---|
| ^(1 | ABSP+8, GETVMED+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | CRASH~ |
| >> ABSP("RX" | E+13* |
| COUNT | GETVMED+2~, GETVMED+6*, GETVMED+14*, GETVMED+15, GETVMED+16 |
| DIALOUT | ABSP+5~, E+8*, E+9 |
| IEN57 | ABSP+7~*, ABSP+8, ABSP+12, GETVMED+2~, GETVMED+9*, GETVMED+10, GETVMED+15 |
| INDEX | ABSP+5~, L+1* |
| INSPINS | ABSP+5~, ABSP+12*, E+9, L+1 |
| INSURER | ABSP+5~, ABSP+11*, E+9 |
| NEXT | GETVMED+2~, GETVMED+6*, GETVMED+7, GETVMED+8*, GETVMED+9 |
| NMEDS | ABSP+5~, E+12*, E+13, E+14, L+1 |
| PATIEN | ABSP+5~, ABSP+9*, ABSP+13, ABSP+14, E+9 |
| R0 | ABSP+7~, ABSP+8*, ABSP+9, ABSP+10, GETVMED+10~* |
| R1 | ABSP+7~, ABSP+8*, ABSP+11, ABSP+12, GETVMED+10~*, GETVMED+12, GETVMED+13 |
| RXIEN | GETVMED+2~, GETVMED+12*, GETVMED+15 |
| RXRFIEN | GETVMED+2~, GETVMED+13*, GETVMED+15 |
| >> TRANSACT( | GETVMED+8 |
| >> TRANSACT("" | ABSP+7 |
| U | ABSP+9, ABSP+10, ABSP+11, ABSP+12, GETVMED+12, GETVMED+13, GETVMED+15 |
| >> VMEDIEN | GETVMED+11* |
| VMEDS | ABSP+5~, E+1, E+2, GETVMED~ |
| VMEDS( | L+1, GETVMED+15* |
| VMEDS(0 | E+3, E+12, GETVMED+16* |
| VSTIEN | ABSP+5~, ABSP+10*, ABSP+15, ABSP+16, E+9 |