Routine: ABSPOSRX

Information

ABSPOSRX ; IHS/FCS/DRS - callable from RPMS pharm ; [ 01/21/2003 8:40 AM ]

Source Information

Source file <ABSPOSRX.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Pharmacy Point of Sale	5	PRINTLOG^ABSPOSL SHOWQ^ABSPOSR2 $$STATI^ABSPOSU $$CATEG^ABSPOSUC IMPOSS^ABSPOSUE
VA Fileman	2	^%DT NOW^%DTC
Kernel	1	^%ZTLOAD

Caller Graph

Caller Graph Total: 9

Package	Total	Caller Graph
Pharmacy Point of Sale	5	ABSPOS1 ABSPOS6D ABSPOSNC ABSPOSR3 ABSPOSRB
IHS Changes To Pharmacy	3	APSPAUTO APSPFUNC APSQBRES
Outpatient Pharmacy	1	PSORXED

Entry Points

Name	Comments	DBIA/ICR reference
DOCU1	; There are only four callable entry points! ; $$CLAIM^ABSPOSRX Submit a claim to Point of Sale ; $$UNCLAIM^ABSPOSRX Reverse a previously submitted claim. ; $$STATUS^ABSPOSRX Inquire about a claim's status ; SHOWQ^ABSPOSRX Display queue of claims to be processed
LASTUP59(RXI,RXR)	;EP - ABSPOSR1; time of last update
TASK	;N ;IHS/SD/lwj 11/25/02 newing everything
CLAIM(RXI,RXR,MOREDATA)
STATUS(RXI,RXR,MOREDATA)	;EP - ABSPOSRB ;
UNLOCK59
LOCK59()
RUNNING()
UNLOCK(X)	;EP - ABSPOSRB
DOCU
RESTXT59(RXI,RXR)
IEN59(RXI,RXR)	;EP - from ABSPOS,ABSPOSNC,ABSPOSRB
SHOWQ
LASTLOG	; tool for test - find and print most recent log file
EDCLAIM(RXI,RXR,MOREDATA)
UNCLAIM(RXI,RXR,MOREDATA)	;EP - ABSPOSR1
RXRDEF(RXI)	;EP - ABSPOSNC
LOCKNOW(X)	;EP - ABSPOSRB
NOW()
LOCK(X)	;EP - ABSPOSRB
TASKAT(ZTDTH)
STATUS59(RXI,RXR)
RESULT59(RXI,RXR)	;EP - ABSPOS6D ; result as defined in CATEG^ABSPOSUC

External References

Name	Field # of Occurrence
^%DT	TASK+2
NOW^%DTC	NOW
^%ZTLOAD	TASKAT+2
PRINTLOG^ABSPOSL	LASTLOG+4
SHOWQ^ABSPOSR2	SHOWQ
$$STATI^ABSPOSU	STATUS+19
$$CATEG^ABSPOSUC	RESULT59+3
IMPOSS^ABSPOSUE	EDCLAIM+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $P(X,";",2,99),! Line Location: DOCU+1
Function Call: WRITE	Prompt: "No log file found",! Line Location: LASTLOG+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.99 - [#9002313.99]	RUNNING+8, RUNNING+9, RUNNING+13*
^ABSPECP(	CLAIM+4!, CLAIM+5, CLAIM+6, UNCLAIM+4!, UNCLAIM+5, UNCLAIM+6, LOCK+3, LOCKNOW+3, UNLOCK+1
^ABSPECP("LOG"	LASTLOG+2
^ABSPT - [#9002313.59]	LOCK59, UNLOCK59, STATUS+10, RESTXT59+3, LASTUP59+3, STATUS59+4
^PSRX - [#52]	RXRDEF+1

Label References

Name	Line Occurrences
$$IEN59	STATUS+9, RESULT59+2, RESTXT59+2, LASTUP59+2, STATUS59+2
$$LASTUP59	STATUS+12, STATUS+20
$$LOCK	CLAIM+3, UNCLAIM+3
$$LOCK59	STATUS59+3
$$NOW	CLAIM+5, UNCLAIM+5
$$RESTXT59	STATUS+16
$$RESULT59	STATUS+15
$$RXRDEF	RESULT59+2, RESTXT59+2, LASTUP59+2, STATUS59+2
$$STATUS59	STATUS+13, STATUS+21
LOCK	EDCLAIM+4
RUNNING	CLAIM+8, UNCLAIM+8
TASK	RUNNING+15
TASKAT	TASK+2
UNLOCK	CLAIM+7, UNCLAIM+7, EDCLAIM+5
UNLOCK59	STATUS59+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NOW~
%DT	TASK+2~*
%H	NOW~
%I	NOW~
A	STATUS+11~, STATUS+15, STATUS+18, STATUS+22
C	STATUS+11~, STATUS+16, STATUS+19, STATUS+22
CDT	RUNNING+5~, RUNNING+11*, RUNNING+12
CTM	RUNNING+5~, RUNNING+11*, RUNNING+12
DUZ	TASK+1
I	DOCU~*
IEN59	STATUS+8~, STATUS+9, STATUS+10, RESULT59+1~, RESULT59+2, RESULT59+3, RESTXT59+1~, RESTXT59+2, RESTXT59+3, LASTUP59+1~ , LASTUP59+2, LASTUP59+3, STATUS59~, STATUS59+1, STATUS59+2*, STATUS59+4
LDT	RUNNING+5~, RUNNING+10*, RUNNING+12
LOCKED59	STATUS59+3~*, STATUS59+5
LTM	RUNNING+5~, RUNNING+10*, RUNNING+12
MOREDATA	CLAIM~, CLAIM+6, UNCLAIM~, UNCLAIM+6, STATUS~, EDCLAIM~
QFL	RUNNING+5~, RUNNING+6, RUNNING+9, RUNNING+12*, RUNNING+14
RESULT	UNCLAIM+1~
RETVAL	CLAIM+1~, CLAIM+9, CLAIM+10, UNCLAIM+1~, UNCLAIM+9, UNCLAIM+10, STATUS+2~, EDCLAIM+3~*, EDCLAIM+6
RXI	CLAIM~, CLAIM+4, CLAIM+5, CLAIM+6, UNCLAIM~, UNCLAIM+4, UNCLAIM+5, UNCLAIM+6, STATUS~, STATUS+9 , STATUS+12, STATUS+13, STATUS+15, STATUS+16, STATUS+20, STATUS+21, EDCLAIM~, RESULT59~, RESULT59+1, RESULT59+2 , RESTXT59~, RESTXT59+1, RESTXT59+2, LASTUP59~, LASTUP59+1, LASTUP59+2, RXRDEF~, RXRDEF+1, IEN59~, IEN59+1 , STATUS59~, STATUS59+1, STATUS59+2
RXR	CLAIM~, CLAIM+2, CLAIM+4, CLAIM+5, CLAIM+6, UNCLAIM~, UNCLAIM+2, UNCLAIM+4, UNCLAIM+5, UNCLAIM+6 , STATUS~, STATUS+3, STATUS+9, STATUS+12, STATUS+13, STATUS+15, STATUS+16, STATUS+20, STATUS+21, EDCLAIM~ , RESULT59~, RESULT59+2, RESTXT59~, RESTXT59+2, LASTUP59~, LASTUP59+2, IEN59~, IEN59+1, STATUS59~, STATUS59+2*
S1	STATUS+11~, STATUS+13*, STATUS+14, STATUS+19
S2	STATUS+11~, STATUS+21*
STAT	CLAIM+1~, UNCLAIM+1~, STATUS59~, STATUS59+4~*, STATUS59+6
T1	STATUS+11~, STATUS+12*, STATUS+22
T2	STATUS+11~, STATUS+20*
TYPE	CLAIM+1~, CLAIM+4, CLAIM+5, CLAIM+6, UNCLAIM+1~, UNCLAIM+4, UNCLAIM+5, UNCLAIM+6
U	STATUS+22, RESTXT59+3, LASTUP59+3, RXRDEF+1, STATUS59+4
X	DOCU~, DOCU+1, NOW~, LOCK~, LOCK+3, LOCKNOW~, LOCKNOW+3, UNLOCK~, UNLOCK+1, RUNNING+5~ , RUNNING+9, RUNNING+10, RUNNING+11, TASK+2~, LASTLOG+1~, LASTLOG+2, LASTLOG+3, LASTLOG+4
Y	TASK+2~
ZTDTH	TASKAT~
ZTIO	TASKAT+1~*
ZTRTN	TASKAT+2~*

Marked Items

Name	Field # of Occurrence
$T(	CLAIM+4, CLAIM+5, CLAIM+6, UNCLAIM+4, UNCLAIM+5, UNCLAIM+6, EDCLAIM+1, LOCK+3, LOCKNOW+3, UNLOCK+1
$T(DOCU1+I	DOCU

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSRX

Call Graph Total: 8

Caller Graph Total: 9