©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
ABSPOSI7 ; IHS/FCS/DRS - utilities to go with Page 7 ; [ 08/30/2002 7:20 AM ]
Source file <ABSPOSI7.m>
| Package | Total | Call Graph |
|---|---|---|
| Pharmacy Point of Sale | 2 | INIT^ABSPOSI8 PAGE7^ABSPOSQP |
| VA Fileman | 2 | UNED^DDSUTL ($$GET,PUT)^DDSVAL |
| Package | Total | Caller Graph |
|---|---|---|
| Pharmacy Point of Sale | 3 | ABSPOSI2 ABSPOSIB ABSPOSQP |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENAB | ; enable/disable blocks,fields based on settings in fields 1.01 ff
; done on entry to page 7 |
|
| DOPAGE() | ;EP - should we do page 7? Only if one or more of the ques. are enabled
; this is used by the BRANCH logic of the NDC/CPT/HCPCS field ; to figure whether to set DDSSTACK="THE ASKS" ; Actual enabling is done by ENAB |
|
| ISCPT() | ; non-prescription, CPT code - detected by absence of RXI
|
|
| ENAB1(ORIG,FIELD,BLOCK,PAGE) | ||
| DOFIELD(N) | ;EP - context: form, page 1, block ABSP PAGE 1 BOTTOM
; DIE = "^ABSP(9002313.51,DA(1),2,DA," ; DA(1), DA point to the line item. ; But we're looking at the yes/no's at ^ABSP(9002313.51,DA(1),*) |
|
| RECALC2 | ; when you change dispense fee
|
|
| RECALC1 | ;EP - from ABSPOSI2,ABSPOSQP
; when you change quantity or unit price |
|
| ROUND(X) |
| FileNo | Call Tags |
|---|---|
| ^ABSP(9002313.51 - [#9002313.51] | GET^DDSVAL |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABSP(9002313.51 - [#9002313.51] | DOFIELD+6 |
| Name | Line Occurrences |
|---|---|
| $$DOFIELD | DOPAGE+5, DOPAGE+6, DOPAGE+7, ENAB+17, ENAB+19, ENAB1+2 |
| $$ISCPT | DOFIELD+12 |
| $$ROUND | RECALC1+5, RECALC2+7 |
| ENAB1 | ENAB+2, ENAB+9, ENAB+11, ENAB+15 |
| RECALC2 | RECALC1+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABSPINCT | RECALC2+4~*, RECALC2+6 |
| BLOCK | ENAB1~, ENAB1+2 |
| >> DA | ISCPT+1, DOFIELD+6, DOFIELD+10, ENAB+17, ENAB+19, RECALC1+2, RECALC1+3, RECALC1+6, RECALC2+1, RECALC2+2 , RECALC2+4, RECALC2+8 |
| >> DA(1 | DOFIELD+4, DOFIELD+6 |
| >> DIE | ISCPT+1, DOFIELD+10, ENAB+17, ENAB+19, RECALC1+2, RECALC1+3, RECALC1+6, RECALC2+1, RECALC2+2, RECALC2+4 , RECALC2+8 |
| DOIT | DOPAGE+4~, DOPAGE+5*, DOPAGE+6*, DOPAGE+7*, DOPAGE+8*, DOPAGE+9 |
| F | ENAB+15~* |
| FIELD | ENAB1~, ENAB1+2 |
| N | DOFIELD~, DOFIELD+4, DOFIELD+6, DOFIELD+8 |
| ORIG | ENAB1~, ENAB1+2 |
| PAGE | ENAB1~, ENAB1+1*, ENAB1+2 |
| RET | DOFIELD+4~*, DOFIELD+6*, DOFIELD+10*, DOFIELD+12*, DOFIELD+13 |
| X | RECALC1+2~*, RECALC1+4, RECALC2+1~*, RECALC2+6, ROUND~ |
| Y | RECALC1+3~*, RECALC1+4, RECALC2+2~*, RECALC2+6 |
| Z | RECALC1+4~*, RECALC1+5*, RECALC1+6, RECALC2+6~*, RECALC2+7*, RECALC2+8 |