©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
ABSPOSIB ; IHS/FCS/DRS - branching logic ; [ 09/12/2002 10:11 AM ]
Source file <ABSPOSIB.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | UNED^DDSUTL $$GET^DDSVAL |
| Pharmacy Point of Sale | 1 | ($$DOFIELD,$$DOPAGE)^ABSPOSI7 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POSTAGE | ;EP - Branching logic for bottom of POSTAGE page is here
|
|
| THEASKS | ;EP - Branching logic for bottom of THE ASKS page is here
; IHS/OKCAO/POS IHS/ASDST/lwj 01/09/02 call to NEWENTRY ; remarked out - new call to NEWENTR2 added. This was done ; to fix the override codes which were not working. |
|
| FILLDATE | ; EP - from EFFECTS^ABSPOSI1 - after the Prescription field,
; This is the BRANCHING LOGIC for the PRESCRIPTION field ; ABSP*1.0T7*7 ; should we go to the Fill Date field? ; Only if (1) the Fill Date field is enabled ; and (2) it is a prescription ; and (3) there are any refills. |
|
| PAGE1 | ;EP - Branching logic for Page 1, Block ABSP PAGE 1 BOTTOM,
; Field 3, NDC DISP. ; X = what the user just put in for NDC # |
| FileNo | Call Tags |
|---|---|
| ^DIC(6 - [#6] | UNED^DDSUTL |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PSRX - [#52] | FILLDATE+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DA | FILLDATE+9 |
| >> DDSBR | FILLDATE+6*, FILLDATE+12* |
| >> DDSSTACK | PAGE1+12*, POSTAGE+5*, THEASKS+15* |
| >> DIE | FILLDATE+9 |
| DOFILLDT | FILLDATE+7~, FILLDATE+8*, FILLDATE+9*, FILLDATE+10*, FILLDATE+11, FILLDATE+12 |
| RXI | FILLDATE+7~, FILLDATE+9*, FILLDATE+10 |
| >> X | PAGE1+12, FILLDATE+6 |