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 |