Routine: ABSPOSIY

Information

ABSPOSIY ; IHS/FCS/DRS - Filing with .51,.59 ; [ 08/30/2002 10:26 AM ]

Source Information

Source file <ABSPOSIY.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Pharmacy Point of Sale	5	($$ISREVERS,$$REVACC)^ABSPOS57 LOG^ABSPOSL2 $$YESNO^ABSPOSU3 $$CATEG^ABSPOSUC IMPOSS^ABSPOSUE
VA Fileman	2	NOW^%DTC FILE^DIE

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPOSIZ

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	NOW
$$ISREVERS^ABSPOS57	RXPAID+12
$$REVACC^ABSPOS57	RXPAID+12
LOG^ABSPOSL2	SETUP59+44
$$YESNO^ABSPOSU3	ACWTA+1, ACWTA+4
$$CATEG^ABSPOSUC	RXPAID+14
IMPOSS^ABSPOSUE	IEN59+27, IEN59+34, IEN59+37
FILE^DIE	SETUP59+43

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?5,"There is currently an active transaction for this item" Line Location: ACTIVEWT+8
Function Call: WRITE	Prompt: !?5,"though for a different fill date" Line Location: ACTIVEWT+12
Function Call: WRITE	Prompt: ".",! Line Location: ACTIVEWT+13
Function Call: WRITE	Prompt: ?5,"So this item will be skipped.",! Line Location: ACTIVEWT+14
Function Call: WRITE	Prompt: ! Line Location: ACWTA+1
Function Call: WRITE	Prompt: ! Line Location: ACWTA+4
Routine Call	DIE Line Location: SETUP59+43

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.51 - [#9002313.51]	RXI, RXR, VIS, NDC, CPTIEN
^ABSPTL("NON-FILEMAN"	RXPREV+13

Label References

Name	Line Occurrences
$$CPTIEN	RXPREV+11
$$NDC	RXPREV+7
$$NOW	SETUP59+27
$$RXI	RXPREV+4
$$RXPREV	RXPAID+6
$$RXR	RXPREV+6
$$VIS	RXPREV+10
ACWTA	ACWTA+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NOW~
%H	NOW~
%I	NOW~
A	RXPREV+3~, RXPREV+8, RXPREV+12, RXPREV+13
ABSPUSR	SETUP59~, SETUP59+10
B	RXPREV+3~, RXPREV+8, RXPREV+12, RXPREV+13
CPT	IEN59+32~, IEN59+36, IEN59+38, IEN59+39, RXPREV+3~, RXPREV+11*, RXPREV+12
DUZ	SETUP59+31
>> ECHO	ACTIVEWT+7
ENTRY	RXPREV~, RXPREV+4, RXPREV+6, RXPREV+7, RXPREV+10, RXPREV+11, RXPAID~, RXPAID+6, RXI~, RXR~ , VIS~, NDC~, CPTIEN~
FDA	SETUP59+3~
FDA(	SETUP59+5, SETUP59+9, SETUP59+10, SETUP59+11, SETUP59+13, SETUP59+14, SETUP59+21, SETUP59+22, SETUP59+26, SETUP59+27 , SETUP59+28, SETUP59+29, SETUP59+30, SETUP59+31, SETUP59+32, SETUP59+35, SETUP59+38, SETUP59+39, SETUP59+40, SETUP59+41*
FLAGS	SETUP59+3~
FN	SETUP59+3~*, SETUP59+5, SETUP59+9, SETUP59+10, SETUP59+11, SETUP59+13, SETUP59+14, SETUP59+21, SETUP59+22, SETUP59+26 , SETUP59+27, SETUP59+28, SETUP59+29, SETUP59+30, SETUP59+31, SETUP59+32, SETUP59+35, SETUP59+38, SETUP59+39, SETUP59+40 , SETUP59+41
I	SETUP59+3~, SETUP59+35, SETUP59+37, SETUP59+38, SETUP59+39
IEN	RXPREV~, RXPREV+4, RXPREV+6, RXPREV+7, RXPREV+10, RXPREV+11, RXPAID~, RXPAID+6, RXI~, RXR~ , VIS~, NDC~, CPTIEN~
IEN51	ACTIVEWT~
IEN512	ACTIVEWT~
IEN59	ACTIVEWT~
INDEX	RXPREV+3~, RXPREV+7, RXPREV+12, RXPREV+13
>> INPUT(0	IEN59+30, SETUP59+29
>> INPUT(1	IEN59+23, IEN59+25, IEN59+32, SETUP59+14, SETUP59+26, SETUP59+28, SETUP59+30
>> INPUT(2	SETUP59+20, SETUP59+21, SETUP59+22
>> INPUT(5	SETUP59+35
>> INPUT(6	SETUP59+36, SETUP59+38
>> INPUT(7	SETUP59+36, SETUP59+39
MSG	SETUP59+3~, SETUP59+44, SETUP59+46
N	SETUP59~, SETUP59+3, SETUP59+4
N57	RXPAID+6~*, RXPAID+7, RXPAID+12, RXPAID+14
ORIGIN	SETUP59~, SETUP59+9
PROMPT	ACTIVEWT+4~, ACWTA, ACWTA+1, ACWTA+3, ACWTA+4
REC	SETUP59+3~*, SETUP59+5, SETUP59+9, SETUP59+10, SETUP59+11, SETUP59+13, SETUP59+14, SETUP59+21, SETUP59+22, SETUP59+26 , SETUP59+27, SETUP59+28, SETUP59+29, SETUP59+30, SETUP59+31, SETUP59+32, SETUP59+35, SETUP59+38, SETUP59+39, SETUP59+40 , SETUP59+41
RET	IEN59+22~, IEN59+29, IEN59+30, IEN59+39*, IEN59+40
RXI	IEN59+22~, IEN59+23, IEN59+24, IEN59+27, IEN59+29, RXPREV+3~, RXPREV+4, RXPREV+5, RXPREV+8
RXR	IEN59+25, IEN59+26, IEN59+29, RXPREV+3~, RXPREV+6, RXPREV+8
TYPE	SETUP59+4~*, SETUP59+5, SETUP59+14, SETUP59+29, SETUP59+30
U	IEN59+23, IEN59+25, IEN59+30, IEN59+32, SETUP59+14, SETUP59+20, SETUP59+21, SETUP59+22, SETUP59+26, SETUP59+28 , SETUP59+29, SETUP59+30, SETUP59+35, SETUP59+38, SETUP59+39, RXI, RXR, VIS, NDC, CPTIEN
VIS	IEN59+32~, IEN59+33, IEN59+35, IEN59+39, RXPREV+3~, RXPREV+10*, RXPREV+12
X	SETUP59+3~, SETUP59+35, RXPAID+14~, RXPAID+15, NOW~
>> Y	ACWTA+1, ACWTA+2, ACWTA+4, ACWTA+5

Marked Items

Name	Field # of Occurrence
$T(	IEN59+27, IEN59+34, IEN59+37

Name	Comments	DBIA/ICR reference
NOW()
RXR(IEN,ENTRY)
IEN59()	;EP - given INPUT(), what should we use for an IEN in file 9002313.59? ; It's always a decimal, canonic number.
SETUP59(N,ORIGIN,ABSPUSR)	;EP - from ABSPOSIZ - given the INPUT array - IHS/OIT/SCR 082709 patch 34 ; You don't have to set null fields, so long as you have called ; CLEAR, or if this is a NEW entry.
NDC(IEN,ENTRY)
ACWTA
RXPAID(IEN,ENTRY)
WANTREV()
RXPREV(IEN,ENTRY)
CPTIEN(IEN,ENTRY)
VIS(IEN,ENTRY)
RXI(IEN,ENTRY)
ACTIVEWT(IEN59,IEN51,IEN512)	;EP - from ABSPOSIZ ; Return 0 = forget about it, don't wait, just skip this one ; 1 = yes, wait and check again in several seconds from now ;

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSIY

Call Graph Total: 7

Caller Graph Total: 1