Routine: ABSPOSUD

Package	Total	Call Graph
Pharmacy Point of Sale	3	$$FREETEXT^ABSPOSU2 PRESSANY^ABSPOSU5 IMPOSS^ABSPOSUE
VA Fileman	1	(C,H,NOW)^%DTC

Package	Total	Caller Graph
Pharmacy Point of Sale	29	ABSPOS2D ABSPOS2E ABSPOS6D ABSPOS6I ABSPOS6L ABSPOS6M ABSPOSAM ABSPOSB ABSPOSBD ABSPOSBW ABSPOSBX ABSPOSIV ABSPOSIZ ABSPOSL1 ABSPOSM1 ABSPOSMB ABSPOSMZ ABSPOSQ3 ABSPOSQ4 ABSPOSQA ABSPOSQC ABSPOSQJ ABSPOSQL ABSPOSQS ABSPOSR1 ABSPOSR3 ABSPOSU ABSPOSU7 ABSPOSX

Entry Points

Name	Comments	DBIA/ICR reference
TIMEAGO(THEN)	;EP - ABSPOSU7 ; external form for TIMEAGOI
INCSTAT(N1,P1,N2,P2,N3,P3)	;EP - ABSPOSAM,ABSPOSQA,ABSPOSQC,ABSPOSQL,others to come ; increment the given N nodes at the P pieces
CDTC(X1,X2)
LOCKPOS(OK2WAIT,SILENT)	;EP - ABSPOS2D,ABSPOS6L - Lock 9002313.59
SHOULDNT
PRESSANY
TDIFNOW(T)	;EP - ABSPOSQS ; compute time difference between T and NOW ; returns # of seconds, positive if T precedes now (how long ago) ; negative if T follows NOW (countdown "T minus...")
ULOCKPOS	;EP
DATETIME(Y)	;EP - ABSPOS6M - convert fileman date.time to printable
TIMEAGOI(THEN)	;EP - ABSPOSU7 ; ; how many seconds ago was it? returns positive value
CONT1	;W "----- ",Y," Press C to continue, Q to quit, or ^: "
ADD1STAT(N,P,Q)	;
SECSDHMS(X)
TADDNOW(T2)	;EP - ABSPOSQS ; add T2 time differential to NOW
ADDSTAT(N1,P1,Q1,N2,P2,Q2,N3,P3,Q3)	;EP - ABSPOSAM,ABSPOSQ3,others to come ; add Quantities to given Nodes,Pieces
TT()
CONTINUE(DEF)
TADDNOWS(SECS)	;EP - ABSPOSQ4,ABSPOSQJ - add SECS seconds to NOW
TADDSECS(T1,SECS)	;EP - ABSPOSR1 - add SECS seconds to T1
BADPARAM(VARNAME,ATLABEL)
SECS2T2(SECS)
TIMEDIFI(X1,X2)	;EP - ABSPOSB,ABSPOSIV,ABSPOSIZ ; ; time difference in seconds, negative if X1>X2
TIMEDIF(X1,X2)	;EP - ABSPOS6M,ABSPOSIV
TDIF(T1,T2)
TADD(T1,T2)	;EP - ABSPOS6D,ABSPOS6I ; add T2 time differential to T1

External References

Name	Field # of Occurrence
C^%DTC	CDTC
H^%DTC	TIMEDIFI+4, TIMEDIFI+5
NOW^%DTC	TIMEAGO+1, TIMEAGOI+2, TDIFNOW+3, TADDNOW+1
$$FREETEXT^ABSPOSU2	CONT1+2
PRESSANY^ABSPOSU5	PRESSANY
IMPOSS^ABSPOSUE	BADPARAM

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "Waiting 5 minutes for interLOCK...",! Line Location: LOCKPOS+5
Function Call: WRITE	Prompt: "Failed to obtain interLOCK",! Line Location: LOCKPOS+8
Function Call: WRITE	Prompt: ! Line Location: CONT1+1
Function Call: WRITE	Prompt: "this should never happen" Line Location: SHOULDNT+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABSPECX("S" - [#9002313.58]	ADD1STAT+1, ADD1STAT+2, ADD1STAT+3, ADD1STAT+4
^ABSPT - [#9002313.59]	LOCKPOS+4, LOCKPOS+6, ULOCKPOS+1
^DD("DD"	DATETIME+1

Label References

Name	Line Occurrences
$$CDTC	TADD+6, TADD+15, TADD+16
$$SECS2T2	TADDSECS+1, TADDNOWS+2
$$SECSDHMS	TIMEDIF+3
$$TADD	TADDSECS+2, TADDNOW+2
$$TADDNOW	TADDNOWS+3
$$TDIF	TDIFNOW+4
$$TIMEDIF	TIMEAGO+1
$$TIMEDIFI	TIMEAGOI+3, TIMEDIFI+2, TIMEDIF+1
ADD1STAT	INCSTAT+2, INCSTAT+3, INCSTAT+4, ADDSTAT+2, ADDSTAT+3, ADDSTAT+4
BADPARAM	TADDNOWS+1, TADD+1, TADD+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	TIMEAGO+1~, TIMEAGOI+2~, TIMEAGOI+3, TIMEDIFI+3~, SECSDHMS+1~, SECSDHMS+2, SECSDHMS+3, SECSDHMS+4, SECSDHMS+5, SECSDHMS+6 , TDIFNOW+3~, TDIFNOW+4, SECS2T2+4~, SECS2T2+5*, TADDNOW+1~, TADDNOW+2
%H	TIMEAGO+1~, TIMEAGOI+2~, TIMEDIFI+3~, TIMEDIFI+4, TIMEDIFI+5, TDIFNOW+3~, TADDNOW+1~, CDTC~
%I	TIMEAGO+1~, TIMEAGOI+2~, TDIFNOW+3~, TADDNOW+1~
%T	TIMEDIFI+3~, TIMEDIFI+4, TIMEDIFI+5
%Y	TIMEDIFI+3~
ATLABEL	BADPARAM~
D1	TIMEDIFI+3~, TIMEDIFI+4*, TIMEDIFI+6
D2	TIMEDIFI+3~, TIMEDIFI+5*, TIMEDIFI+6
DEF	CONTINUE~
N	ADD1STAT~, ADD1STAT+1, ADD1STAT+2, ADD1STAT+3, ADD1STAT+4
N1	INCSTAT~, INCSTAT+2, ADDSTAT~, ADDSTAT+2
N2	INCSTAT~, INCSTAT+3, ADDSTAT~, ADDSTAT+3
N3	INCSTAT~, INCSTAT+4, ADDSTAT~, ADDSTAT+4
NEG	SECS2T2+1~*, SECS2T2+7
OK2WAIT	LOCKPOS~, LOCKPOS+1*, LOCKPOS+3
P	ADD1STAT~, ADD1STAT+3
P1	INCSTAT~, INCSTAT+2, ADDSTAT~, ADDSTAT+2
P2	INCSTAT~, INCSTAT+3, ADDSTAT~, ADDSTAT+3
P3	INCSTAT~, INCSTAT+4, ADDSTAT~, ADDSTAT+4
Q	ADD1STAT~, ADD1STAT+3
Q1	ADDSTAT~, ADDSTAT+2
Q2	ADDSTAT~, ADDSTAT+3
Q3	ADDSTAT~, ADDSTAT+4
R	TDIF+3~, TDIF+9, TDIF+10, TADD+5~, TADD+6, TADD+15, TADD+16, TADD+18, TADD+20, TADD+22 , TADD+23, TADD+24, TADD+25
RESULT	LOCKPOS+2~, LOCKPOS+3, LOCKPOS+4, LOCKPOS+6, LOCKPOS+9, LOCKPOS+11
S	TADD+14~, TADD+15, TADD+16, TADD+17, TADD+19, TADD+21, TADD+23
SECS	TADDSECS~, TADDSECS+1, TADDNOWS~, TADDNOWS+1, TADDNOWS+2, SECS2T2~, SECS2T2+1, SECS2T2+2, SECS2T2+4, SECS2T2+5 , SECS2T2+6*
SGN	TIMEDIF+2~, TIMEDIF+3, TADD+2~, TADD+3, TADD+6, TADD+13
SILENT	LOCKPOS~
T	TDIFNOW~, TDIFNOW+4
T1	TIMEDIFI+3~, TIMEDIFI+4, TIMEDIFI+6, TDIF~, TDIF+2, TDIF+3, TDIF+4, TDIF+5, TDIF+7, TDIF+9 , TADDSECS~, TADDSECS+2, TADD~, TADD+1, TADD+3, TADD+4, TADD+6, TADD+8, TADD+9, TADD+11* , TADD+14
T2	TIMEDIFI+3~, TIMEDIFI+5, TIMEDIFI+6, TDIF~, TDIF+2, TDIF+3, TDIF+4, TDIF+6, TDIF+8, TDIF+9 , TADDSECS+1~, TADDSECS+2, TADDNOWS+2~, TADDNOWS+3, SECS2T2+1~, SECS2T2+2, SECS2T2+3, SECS2T2+4, SECS2T2+5, SECS2T2+6 , SECS2T2+7, TADDNOW~, TADDNOW+2, TADD~, TADD+2, TADD+3, TADD+4, TADD+6, TADD+7, TADD+10 , TADD+12, TADD+13, TADD+14, TADD+17, TADD+18, TADD+19, TADD+20, TADD+21, TADD+22, TADD+23
THEN	TIMEAGO~, TIMEAGO+1, TIMEAGOI~, TIMEAGOI+3
U	ADD1STAT+3
VARNAME	BADPARAM~
X	TIMEAGO+1~, TIMEAGOI+2~, TIMEDIFI+3~, TIMEDIFI+4, TIMEDIFI+5, TIMEDIFI+6, TIMEDIFI+7, TIMEDIF+1~, TIMEDIF+2, TIMEDIF+3 , SECSDHMS~, SECSDHMS+2, SECSDHMS+3, SECSDHMS+4, SECSDHMS+5, CONT1+2*, CONT1+3, TDIFNOW+3~, TADDNOW+1~, CDTC~
X1	TIMEDIFI~, TIMEDIFI+2, TIMEDIFI+4, TIMEDIF~, TIMEDIF+1, CDTC~
X2	TIMEDIFI~, TIMEDIFI+2, TIMEDIFI+5, TIMEDIF~, TIMEDIF+1, CDTC~
Y	DATETIME~, DATETIME+1

Marked Items

Name	Field # of Occurrence
$T(	BADPARAM

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSUD

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 29

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items