Routine: ABSPOSX

Information

ABSPOSX ; IHS/FCS/DRS - Support ;

Source Information

Source file <ABSPOSX.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Pharmacy Point of Sale	7	VOLUME^ABSPOS35 SHOWQ^ABSPOSR2 ($$DTR,$$NOWEXT,$$NOWFM)^ABSPOSU1 PRESSANY^ABSPOSU5 PURGE^ABSPOSU7 ($$SECSDHMS,$$TADD)^ABSPOSUD SEARCH^ABSPOSXE
Kernel	2	^%ZIS ^%ZISC
VA Fileman	2	(H,YMD)^%DTC $$GET1^DIQ

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPOSXE

Entry Points

Name	Comments	DBIA/ICR reference
WEEK	;EP
GETRANGE(HOW)
THELIST	; calls to all the little things you want to monitor ; given RANGE=fileman start^end dates ; Put errors and shouldn't-happen things first:
AUTO	; EP - automatic, using setup params for date range
TRANSACT	; count 9002313.57 transactions in RANGE ; It's a date range; be sure you get them all
STRANDED	;
TRANS1	; ; ^TMP($J,"TRANSACT")=count of 9002313.57 transactions ; ^TMP($J,"TRANSACT","R",result)=count by result type ; ^TMP($J,"TRANSACT","INS",company)=count by insurance company ; ^TMP($J,"TRANSACT","INS",company,"R",result)=count result by company ; ^TMP($J,"TRANSACT","TIME",secs)=count ; ^TMP($J,"TRANSACT","TIME",secs,IEN57) for certain too-long ones
DTRANGE()	;EP -
HRANGE(RANGE)	;EP - convert fileman^fileman to $H^$H
INTERJ	; join
UE	; ^TMP("ABSPOSUE",$J)=DUZ^$H
INTER	; EP - interactive use
YESTER	;EP
TODAY	;EP

External References

Name	Field # of Occurrence
H^%DTC	HRANGE+4
YMD^%DTC	UE+11
^%ZIS	INTERJ+1
^%ZISC	INTERJ+3
VOLUME^ABSPOS35	THELIST+16
SHOWQ^ABSPOSR2	THELIST+10
$$DTR^ABSPOSU1	GETRANGE+7, DTRANGE+2
$$NOWEXT^ABSPOSU1	THELIST+5
$$NOWFM^ABSPOSU1	DTRANGE+1
PRESSANY^ABSPOSU5	THELIST+15
PURGE^ABSPOSU7	STRANDED+3
$$SECSDHMS^ABSPOSUD	TRANSACT+17
$$TADD^ABSPOSUD	YESTER+1, WEEK+1, GETRANGE+5
SEARCH^ABSPOSXE	THELIST+6
$$GET1^DIQ	TRANS1+16, TRANS1+17, TRANS1+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "Support Utility to survey Point of Sale activity (",$T(+0),")",! Line Location: THELIST+3
Function Call: WRITE	Prompt: "Site: ",$P(^DIC(4,DUZ(2),0),U),! Line Location: THELIST+4
Function Call: WRITE	Prompt: "Date: ",$$NOWEXT^ABSPOSU1,! Line Location: THELIST+5
Function Call: WRITE	Prompt: "Winnowing old data:",! Line Location: THELIST+11
Function Call: WRITE	Prompt: " the log files are in: ",$G(^ABSP(9002313.99,1,"WINNOW LOGS")),! Line Location: THELIST+12
Function Call: WRITE	Prompt: "Update of Report Master file: ",$G(^ABSP(9002313.99,1,"ABSPOSM1")),! Line Location: THELIST+13
Function Call: WRITE	Prompt: "Count of complete transactions: ",^TMP($J,"TRANSACT"),! Line Location: TRANSACT+3
Function Call: WRITE	Prompt: "Tally by result type: ",! Line Location: TRANSACT+4
Function Call: READ	Timeout: R="" Line Location: TRANSACT+5
Function Call: WRITE	Prompt: $J(^TMP($J,"TRANSACT","R",R),10)," ",R,! Line Location: TRANSACT+6
Function Call: WRITE	Prompt: "Tally by insurer and by result type: ",! Line Location: TRANSACT+7
Function Call: WRITE	Prompt: ?10,$J(^TMP($J,"TRANSACT","INS",INS),5)," for ",INS Line Location: TRANSACT+9
Function Call: WRITE	Prompt: " - all PAPER",! Line Location: TRANSACT+10
Function Call: WRITE	Prompt: ! Line Location: TRANSACT+11
Function Call: WRITE	Prompt: ?20,$J(^TMP($J,"TRANSACT","INS",INS,"R",R),5)," ",R,! Line Location: TRANSACT+13
Function Call: WRITE	Prompt: "Tally by transaction time:",! Line Location: TRANSACT+14
Function Call: WRITE	Prompt: $J(^TMP($J,"TRANSACT","TIME",SECS),10)," - " Line Location: TRANSACT+16
Function Call: WRITE	Prompt: $$SECSDHMS^ABSPOSUD(SECS) Line Location: TRANSACT+17
Function Call: WRITE	Prompt: SECS Line Location: TRANSACT+18
Function Call: WRITE	Prompt: " - IEN57=",$O(^TMP($J,"TRANSACT","TIME",SECS,"")) Line Location: TRANSACT+19
Function Call: WRITE	Prompt: ! Line Location: TRANSACT+20
Function Call: READ	Prompt: IEN57C Formatting: S R=$$GET1^DIQ(9002313.57 Timeout: R="" Variable: 4.0098) S Line Location: TRANS1+16
Function Call: WRITE	Prompt: "Errors which went through ABSPOSUE:",! Line Location: UE+4
Function Call: WRITE	Prompt: "Encountered by ",$P($G(^VA(200,+X,0)),U)," on ",H,! Line Location: UE+13
Routine Call	%ZIS Line Location: INTERJ+1

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.99 - [#9002313.99]	THELIST+12, THELIST+13, STRANDED+1, UE+1, GETRANGE+3, GETRANGE+4*
^ABSPTL("AH"	TRANS1+12, TRANS1+14
^DIC(4 - [#4]	THELIST+4
^TMP("ABSPOSUE"	UE+3, UE+5, UE+6, UE+9!
^TMP($J	TRANSACT+3, TRANSACT+5, TRANSACT+6, TRANSACT+8, TRANSACT+9, TRANSACT+10, TRANSACT+12, TRANSACT+13, TRANSACT+15, TRANSACT+16 , TRANSACT+19, TRANS1+8!, TRANS1+18, TRANS1+19, TRANS1+20, TRANS1+21, TRANS1+24, TRANS1+25*
^VA(200 - [#200]	UE+13

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	UE+11~
%H	UE+11~*, HRANGE+1~, HRANGE+5
%T	HRANGE+1~, HRANGE+5
%Y	HRANGE+1~
DEF	DTRANGE+1~*, DTRANGE+2
DT	TODAY+1, YESTER+1, WEEK+1, GETRANGE+5
DUZ(2	THELIST+4
H	UE+7~, UE+8, UE+9, UE+11, UE+12, UE+13
HOW	GETRANGE~, GETRANGE+2
HRS	STRANDED+1~, STRANDED+2, STRANDED+3
I	HRANGE+1~, HRANGE+2*, HRANGE+3, HRANGE+5
IEN57	TRANS1+13~, TRANS1+14, TRANS1+15, TRANS1+25
IEN57C	TRANS1+15~*, TRANS1+16, TRANS1+17, TRANS1+22
INS	TRANSACT+8~, TRANSACT+9, TRANSACT+10, TRANSACT+12, TRANSACT+13, TRANS1+17~, TRANS1+20, TRANS1+21
J	UE+3~, UE+5, UE+6, UE+9
NDAYS	UE+1~, UE+2, UE+8, UE+9
POP	INTERJ+1~
R	TRANSACT+5~, TRANSACT+6, TRANSACT+12, TRANSACT+13, TRANS1+16~*, TRANS1+19, TRANS1+21
RANGE	AUTO+1, INTER+1, TODAY+1, YESTER+1, WEEK+1, THELIST+6, THELIST+16, TRANS1+9, UE+12, GETRANGE+5 , GETRANGE+7, GETRANGE+8, HRANGE~, HRANGE+2, HRANGE+3, HRANGE+5, HRANGE+6
SECS	TRANSACT+15~, TRANSACT+16, TRANSACT+17, TRANSACT+18, TRANSACT+19, TRANS1+22~, TRANS1+23*, TRANS1+24, TRANS1+25
T	TRANS1+9~, TRANS1+11, TRANS1+12, TRANS1+14
U	TODAY+1, YESTER+1, WEEK+1, THELIST+4, THELIST+16, TRANS1+9, STRANDED+1, UE+1, UE+7, UE+12 , UE+13, GETRANGE+5, HRANGE+2, HRANGE+3, HRANGE+5
X	TRANS1+9~, TRANS1+11, UE+6~, UE+7, UE+11~, UE+13, GETRANGE+3~, GETRANGE+4, GETRANGE+5, DTRANGE+2~* , DTRANGE+3, HRANGE+1~, HRANGE+3*
Y	TRANS1+9~, TRANS1+10, TRANS1+12

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSX

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Line Occurrences
$$GETRANGE	AUTO+1, INTER+1
$$HRANGE	THELIST+6
INTERJ	TODAY+1, YESTER+1, WEEK+1
STRANDED	THELIST+7
THELIST	AUTO+2, INTERJ+2
TRANS1	TRANSACT+2
TRANSACT	THELIST+14
UE	THELIST+8