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

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSMC

Call Graph Total: 6

Caller Graph Total: 2