©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
ABSPOSI8 ; IHS/FCS/DRS - insurance selection - page 8 ; [ 11/06/2002 1:26 PM ]
Source file <ABSPOSI8.m>
| Package | Total | Call Graph |
|---|---|---|
| Pharmacy Point of Sale | 3 | INSURER^ABSPOS25 MSGWAIT^ABSPOSI1 IMPOSS^ABSPOSUE |
| VA Fileman | 1 | ($$GET,PUT)^DDSVAL |
| Package | Total | Caller Graph |
|---|---|---|
| Pharmacy Point of Sale | 2 | ABSPOSI1 ABSPOSI7 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FIND(PINS) | ; given DA(1),DA - does it exist?
; return record number, or false if not found |
|
| ERASEALL | ;EP - from ABSPOSI1
|
|
| POST02 | ; POST ACTION ON CHANGE for ORDER, field .02
; DA=which insurer line DA(1)=which prescription line DA(2)=IEN ; X=new internal value, DDSOLD = previous internal value ; This has side effects: ; Example: assign order #2 to some item |
|
| AVAIL() | ;Use ABSPOS25 to get the very latest insurance information.
; |
|
| STORE(RECNUM,PINS,INSURER) | ||
| 3 | ||
| SET70X(ORDER) | ; update 9002313.512 fields 7.01, 7.02, 7.03 ; ABSP*1.0T7*8
; ORDER = 1, 2, 3 |
|
| 1 | ||
| INIT | ;EP - from ABSPOSI7
|
|
| 2 | ; Do not delete old entries - we're not allowed to delete existing
; entries with PUT^DDSVAL, and we surely shouldn't KILL them off. |
|
| FN() | ||
| SETUP1 | ; for ARRAY(ENTRY)
|
|
| STOREARR() | ; setup entries in database and on form, based on ARRAY(*)
|
|
| NEW() | ; given DA(1),DA,PINS,INSIEN - init a new record
|
|
| MSGWAIT(X) |
| Name | Field # of Occurrence |
|---|---|
| INSURER^ABSPOS25 | AVAIL+9 |
| MSGWAIT^ABSPOSI1 | 2+5, MSGWAIT |
| IMPOSS^ABSPOSUE | ERASEALL+8 |
| $$GET^DDSVAL | INIT+30, 1+4, AVAIL+5, AVAIL+6, AVAIL+7, AVAIL+8, FIND+7, ERASEALL+12, POST02+9, SET70X+3 |
| PUT^DDSVAL | 1+12, 1+13, STORE+3, STORE+4, STORE+5, ERASEALL+14, POST02+16, POST02+18, POST02+25, POST02+32 , SET70X+6 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABSP(9002313.51 - [#9002313.51] | INIT+25, ERASEALL+11, POST02+6 |
| Name | Line Occurrences |
|---|---|
| $$FIND | SETUP1+2, NEW+1 |
| $$FN | FIND+2, STORE+2, ERASEALL+10 |
| $$NEW | SETUP1+4 |
| AVAIL | 1 |
| SET70X | POST02+19, POST02+26, POST02+33 |
| SETUP1 | STOREARR+1 |
| STORE | SETUP1+5, NEW+3 |
| STOREARR | 3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABSBPATI | AVAIL+7~* |
| ABSBRXI | AVAIL+5~* |
| ABSBRXR | AVAIL+6~* |
| ABSBVISI | AVAIL+8~* |
| ARRAY | 1~, AVAIL+2!, AVAIL+9 |
| ARRAY( | 1+10, 1+13, SETUP1+1 |
| ARRAY(0 | 1+9, STOREARR+1 |
| DA | INIT+25, INIT+30, 1+4, 1+12, 1+13, AVAIL+5, AVAIL+6, AVAIL+7, AVAIL+8, FIND+3 , FIND+6*, FIND+7, FIND+8*, STORE+1*, STORE+3, STORE+4, STORE+5, STORE+6*, ERASEALL+9*, ERASEALL+11* , ERASEALL+12, ERASEALL+14, ERASEALL+15*, POST02+5, POST02+6*, POST02+7, POST02+9, POST02+16, POST02+18, POST02+25 , POST02+32, POST02+34*, SET70X+3, SET70X+5!*, SET70X+6, SET70X+7!* |
| DA(1 | INIT+25, FIND+3*, FIND+8*, STORE+1*, STORE+6*, ERASEALL+8, ERASEALL+9*, ERASEALL+11, ERASEALL+15*, POST02+6 , SET70X+5* |
| DA(2 | FIND+3*, FIND+8!, STORE+1*, STORE+6!, ERASEALL+9*, ERASEALL+11, ERASEALL+15!, POST02+6 |
| >> DDSOLD | POST02+13, POST02+22, POST02+24, POST02+29, POST02+31 |
| >> DIE | INIT+30, 1+4, 1+12, 1+13, AVAIL+5, AVAIL+6, AVAIL+7, AVAIL+8, POST02+9, POST02+16 , POST02+18, POST02+25, POST02+32, SET70X+3 |
| ENTRY | STOREARR+1~*, SETUP1+1 |
| ERR | FIND+5~ |
| F | ERASEALL+13~*, ERASEALL+14 |
| FN | FIND+2~*, FIND+7, STORE+2~*, STORE+3, STORE+4, STORE+5, ERASEALL+10~*, ERASEALL+12, ERASEALL+14, SET70X+2~ , SET70X+4*, SET70X+6 |
| FRESH | AVAIL+4~*, AVAIL+9 |
| I | INIT+29~*, INIT+30, INIT+31, 1+3~*, 1+9*, 1+10, 1+13 |
| INS | SET70X+2~, SET70X+3*, SET70X+6 |
| INSIEN | SETUP1+1~*, SETUP1+5, NEW+3 |
| INSURER | STORE~, STORE+4 |
| J | 1+4~*, 1+12, 1+13, 1+14, 1+15, 1+16* |
| K | 1+4~*, 1+5 |
| NINS | INIT+25~*, AVAIL+9, FIND+4 |
| ORDER | INIT+28~, SET70X~, SET70X+6 |
| ORDER( | INIT+31*, 1+11, 1+14*, 2+3, 2+4, STORE+3 |
| PINS | 1+10~*, 1+11, 1+12, 1+14, SETUP1+1~*, SETUP1+2, SETUP1+5, FIND~, FIND+7, NEW+3 , STORE~, STORE+3, STORE+5 |
| RECNUM | SETUP1+2~*, SETUP1+3, SETUP1+4*, SETUP1+5, FIND+4~*, FIND+6, NEW+1~*, NEW+2, NEW+3, NEW+4 , STORE~, STORE+1, STORE+7 |
| RET | FIND+2~*, FIND+7*, FIND+9 |
| S | 2+3~*, 2+4 |
| SAVEDA | SET70X+2~, SET70X+5*, SET70X+7 |
| SAVEDA(1 | SET70X+5 |
| SAVEDA(2 | SET70X+5 |
| STOP | 1+7~*, 1+8, 1+9*, 1+15*, FIND+2~*, FIND+4, FIND+7* |
| THISDA | POST02+5~*, POST02+7, POST02+34 |
| THISORD | POST02+9~*, POST02+14, POST02+15, POST02+17, POST02+18, POST02+19, POST02+23, POST02+24, POST02+25, POST02+26 , POST02+30, POST02+31, POST02+32, POST02+33 |
| U | INIT+25, 1+10, 1+13, STOREARR+1, SETUP1+1 |
| X | INIT+30~*, INIT+31, 2+3~*, 2+4*, 2+5, MSGWAIT~, POST02+17, POST02+22, POST02+24, POST02+29 , POST02+31 |
| Name | Field # of Occurrence |
|---|---|
| $T( | ERASEALL+8 |