ABSPOSMC ; IHS/FCS/DRS - General Inquiry/Report .57; [ 09/12/2002 10:14 AM ]
Source file <ABSPOSMC.m>
| Package | Total | Call Graph |
|---|---|---|
| Pharmacy Point of Sale | 4 | ($$DRGNAME,$$PATIENT,$$RXI,$$RXR)^ABSPOS57 ACTION^ABSPOSMD $$OUTPUT^ABSPOSMZ $$LIST^ABSPOSU4 |
| VA Fileman | 2 | EN1^DIP $$GET1^DIQ |
| Package | Total | Caller Graph |
|---|---|---|
| Pharmacy Point of Sale | 2 | ABSPOSMB ABSPOSMD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| A | ;
|
|
| INIANS | ||
| ANSCOUNT() | ||
| DHIT | ;EP - called here indirectly when in Inquiry mode and a hit is found
|
|
| OPEN(X) | ;EP -
|
|
| SELECT1() | ;
|
|
| FR | ; FR and TO range of sort
; order must correspond with order of BY fields |
|
| DHD | ; Header
|
|
| DIPSETUP | ; This routine sets up the call to EN1^DIP
|
|
| FLDS | ; Which fields to print? If inquiry mode: print no fields
|
|
| FR1 | ;
|
|
| CONTINUE | ;EP - continued (via GOTO) from ABSPOSMB
|
|
| ANSLIST() | ; EP
|
|
| IEN57 | ; build IEN57 list based on ANSLIST
|
|
| ACTION | ||
| IENLIST() | ; EP
|
|
| DIS | ; screens
|
|
| BY | ; Which fields to sort on?
|
|
| INILIST | ||
| SELECT | ||
| LIST() | ;EP
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^ABSPTL - [#9002313.57] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABSPF(9002313.83 - [#9002313.83] | DHIT+28, DHIT+29 |
| ^ABSPTL - [#9002313.57] | DHIT+15 |
| ^DPT - [#2] | DHIT+35 |
| Name | Line Occurrences |
|---|---|
| $$ANSLIST | SELECT+2, SELECT1+4, ANSCOUNT, IEN57+1, INIANS |
| $$IENLIST | IEN57+1 |
| $$LIST | A+8, A+10, SELECT1+3, IEN57+1, INILIST, INILIST+1, INILIST+2, DHIT+3*, DHIT+39, DHIT+40 |
| $$OPEN | SELECT1+3, SELECT1+4 |
| $$SELECT1 | SELECT |
| ACTION | ACTION+3 |
| BY | DIPSETUP+4 |
| DHD | DIPSETUP+6 |
| DIPSETUP | A+1 |
| DIS | DIPSETUP+19 |
| FLDS | DIPSETUP+3 |
| FR | DIPSETUP+5 |
| FR1 | FR+3, FR+5 |
| IEN57 | SELECT+4 |
| INIANS | A+2, SELECT1+10 |
| INILIST | A+2 |
| SELECT | ACTION+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | IEN57+1~*, IEN57+3 |
| >> ABSPOSMA("BY | WHICH DATE" , BY+4 |
| >> ABSPOSMA("MODE" | A+2, A+4, A+6, DIPSETUP+10, DIPSETUP+17, FLDS+1, DHD+1 |
| >> ABSPOSMA("SCREEN" | DIS+2 |
| >> ABSPOSMA("SORT" | BY+1, BY+6, FR+5, FR1+1, FR1+2, FR1+3 |
| ACTION | CONTINUE+3~, ACTION*, ACTION+1 |
| ANSCOUNT | CONTINUE+3~, SELECT+2*, SELECT+3, SELECT+5 |
| AROOT | SELECT1+1~, SELECT1+4*, SELECT1+12 |
| B | IEN57+1~*, IEN57+5 |
| BY | CONTINUE+1~, BY+1!, BY+3*, BY+4*, BY+8*, BY+9* |
| C | IEN57+1~*, IEN57+4 |
| >> D0 | DHIT+2 |
| DATA | DHIT+2~, DHIT+5*, DHIT+7*, DHIT+10*, DHIT+11*, DHIT+12*, DHIT+13*, DHIT+24*, DHIT+32*, DHIT+38* , DHIT+39 |
| DCOPIES | CONTINUE+2~ |
| DHD | CONTINUE+1~, DHD+1* |
| DHIT | CONTINUE+1~, DIPSETUP+11*, DIPSETUP+12! |
| DIASKHD | CONTINUE+1~, DIPSETUP+7! |
| DIC | CONTINUE+1~, DIPSETUP+2* |
| DIOBEG | CONTINUE+1~ |
| DIOEND | CONTINUE+1~ |
| DIPCRIT | CONTINUE+1~, DIPSETUP+8* |
| DIS | CONTINUE+2~, DIS+1! |
| DIS( | DIS+2* |
| DISPAR | CONTINUE+2~ |
| DISTOP | CONTINUE+2~, DIPSETUP+21* |
| DISUPNO | CONTINUE+2~ |
| DQTIME | CONTINUE+2~ |
| DT | DHIT+17, DHIT+18, DHIT+19, DHIT+20 |
| F | BY+5~*, BY+6*, BY+7, BY+8, FR+3~*, FR+4*, FR+5*, FR1+1, FR1+2, FR1+3 |
| FLDS | CONTINUE+1~, FLDS+1*, FLDS+4* |
| FR | CONTINUE+1~, FR+2*, FR+6*, FR1+2* |
| I | DIS+2~* |
| IEN57 | IEN57+2~, IEN57+4*, IEN57+5, DHIT+2~*, DHIT+15, DHIT+26, DHIT+40 |
| IOP | CONTINUE+2~, DIPSETUP+17* |
| L | CONTINUE+1~, DIPSETUP+1* |
| LROOT | SELECT1+1~, SELECT1+3*, SELECT1+12 |
| NLINE | DHIT+2~, DHIT+3*, DHIT+39, DHIT+40 |
| OPT | SELECT1+1~, SELECT1+7*, SELECT1+12 |
| PG | CONTINUE+1~, DIPSETUP+9! |
| PGLEN | SELECT1+1~, SELECT1+8*, SELECT1+12 |
| PROMPT | SELECT1+1~ |
| SELECT | CONTINUE+3~, SELECT*, SELECT+1 |
| STITLE | SELECT1+1~, SELECT1+5*, SELECT1+12 |
| SY | DHIT+17~*, DHIT+21 |
| TIMEOUT | SELECT1+1~, SELECT1+9*, SELECT1+12 |
| TO | CONTINUE+1~, FR+2*, FR+6*, FR1+3* |
| TYPE | SELECT1+1~, SELECT1+2*, SELECT1+12 |
| U | DHIT+15, DHIT+29, DHIT+35 |
| X | CONTINUE+3~, SELECT+2*, SELECT1+11~, SELECT1+12*, SELECT1+13, OPEN~, OPEN+1, IEN57+2~*, IEN57+3*, IEN57+4 , DHIT+2~, DHIT+8*, DHIT+9, DHIT+10, DHIT+11, DHIT+15*, DHIT+16, DHIT+17, DHIT+26*, DHIT+27 , DHIT+28, DHIT+30*, DHIT+31*, DHIT+32, DHIT+34*, DHIT+35*, DHIT+36*, DHIT+37*, DHIT+38 |
| XD | DHIT+16~*, DHIT+18*, DHIT+19*, DHIT+20*, DHIT+21*, DHIT+22*, DHIT+23*, DHIT+24 |
| XT | DHIT+16~*, DHIT+22, DHIT+23 |
| Y | DHIT+28~*, DHIT+29*, DHIT+30 |
| Name | Field # of Occurrence |
|---|---|
| $T( | LIST+1, ANSLIST+1, IENLIST+1, DIPSETUP+11 |