Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABSPOSMC

Package: Pharmacy Point of Sale

Routine: ABSPOSMC


Information

ABSPOSMC ; IHS/FCS/DRS - General Inquiry/Report .57; [ 09/12/2002 10:14 AM ]

Source Information

Source file <ABSPOSMC.m>

Call Graph

Call Graph Total: 6

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  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Pharmacy Point of Sale 2 ABSPOSMB  ABSPOSMD  

Entry Points

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

External References

Name Field # of Occurrence
$$DRGNAME^ABSPOS57 DHIT+37
$$PATIENT^ABSPOS57 DHIT+34
$$RXI^ABSPOS57 DHIT+7
$$RXR^ABSPOS57 DHIT+8
ACTION^ABSPOSMD ACTION+2
$$OUTPUT^ABSPOSMZ ACTION
$$LIST^ABSPOSU4 SELECT1+12
EN1^DIP A+5
$$GET1^DIQ DHIT+26

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Searching...",!
  • Line Location: A+4
Function Call: WRITE
  • Prompt: "No transactions found with these criteria."
  • Line Location: A+9
Function Call: WRITE
  • Prompt: "Found ",@$$LIST@(0)," transactions.",!
  • Line Location: A+10
Function Call: WRITE
  • Prompt: !,"Selected ",ANSCOUNT," item",$S(ANSCOUNT=1:"",1:"s"),!
  • Line Location: SELECT+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ABSPTL - [#9002313.57] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSPF(9002313.83 - [#9002313.83] DHIT+28, DHIT+29
^ABSPTL - [#9002313.57] DHIT+15
^DPT - [#2] DHIT+35

Label References

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

Local Variables

Legend:

>> 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

Marked Items

Name Field # of Occurrence
$T( LIST+1, ANSLIST+1, IENLIST+1, DIPSETUP+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All