Routine: ABSPOSR1

Information

ABSPOSR1 ; IHS/FCS/DRS - silent claim submitter ;

Source Information

Source file <ABSPOSR1.m>

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
Pharmacy Point of Sale	9	ZWRITE^ABSPOS (INIT,LOG,PRINTLOG,RELSLOT)^ABSPOSL LOG^ABSPOSL2 TASK^ABSPOSR1 (MONITOR,PROCESS,WORKLIST)^ABSPOSR3 $$DATE^ABSPOSU1 PRESSANY^ABSPOSU5 $$TADD^ABSPOSUD $$IMPOSS^ABSPOSUE
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^%DT FILE^DIE ($$GET1,EN)^DIQ

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Pharmacy Point of Sale	3	ABSPOSR1 ABSPOSR3 ABSPOSR4

Name	Comments	DBIA/ICR reference
GETFIELD(FIELD)	;EP -
KTESTLST
SF1
STARTME	;EP - enter here to start the background job (by asking Taskman) ; option ABSP BACKGROUND SCAN START
TASK	;EP -
CHKTYPE(ECHO)	; returns True if input type is the background polling job ; returns False if not
LOGFILE1(OFFSET)	;EP - enter here to print background job's log file ; OFFSET = the .3 or .6 or whatever the "+" is for this type
DEFAULTS	;EP -
STOPIT(ECHO,NOWAIT)	;EP - external call to request that it stop ; and wait until it is stopped ; May DO or $$; $$ returns value of stop flag (2 = success)
LOGFILE	;EP -
LOCK()
EN	; EP - via Taskman as initiated by START, above ; main program for background job to stealthily submit claims ; changes to EN should be mimicked in TEST(), above
RUNNING()
LOG(X)
STATUS()	; external call to get the status ; returns "RUNNING" or "STOPPED" or "REQUESTED STOP" ; maybe with a "?"
UNLOCK
MYSTATUS	;EP - enter here to inquire of background job's status ; option ABSP BACKGROUND SCAN STATUS
TESTLIST()
DELAYSTP(N)
LASTLOG	; tool for test - find and print most recent log file
SETFIELD(FIELD,VALUE,FLAGS)	;EP -
TASKAT(ZTDTH)	;
TEST
STOPME	;EP - enter here to stop the background job ; option ABSP BACKGROUND SCAN STOP

Name	Field # of Occurrence
^%DT	TASK+1
^%ZIS	LOGFILE1+11
^%ZISC	LOGFILE1+15
^%ZTLOAD	TASKAT+3
ZWRITE^ABSPOS	SF1+3
INIT^ABSPOSL	TEST+2, EN+6
LOG^ABSPOSL	LOG
PRINTLOG^ABSPOSL	LOGFILE1+13, LASTLOG+4
RELSLOT^ABSPOSL	EN+11
LOG^ABSPOSL2	SF1+1
TASK^ABSPOSR1	STARTME+10
MONITOR^ABSPOSR3	EN+9
PROCESS^ABSPOSR3	TEST+6
WORKLIST^ABSPOSR3	TEST+5
$$DATE^ABSPOSU1	LOGFILE1+9
PRESSANY^ABSPOSU5	LOGFILE1+14
$$TADD^ABSPOSUD	TEST+9
$$IMPOSS^ABSPOSUE	SF1+4
FILE^DIE	SF1
$$GET1^DIQ	CHKTYPE+2, CHKTYPE+6
EN^DIQ	MYSTATUS+7

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: STARTME+2
Function Call: WRITE	Prompt: "The background scanner is now ",$$STATUS,! Line Location: STARTME+5
Function Call: WRITE	Prompt: "The background scanner job is already running.",! Line Location: STARTME+6
Function Call: WRITE	Prompt: "But since the status is uncertain, let's stop and restart:",! Line Location: STARTME+8
Function Call: WRITE	Prompt: "Taskman will start the background scanner job.",! Line Location: STARTME+11
Function Call: WRITE	Prompt: ! Line Location: STOPME+2
Function Call: WRITE	Prompt: "Stopping the background scanner job..." Line Location: STOPME+4
Function Call: WRITE	Prompt: ! Line Location: STOPME+6
Function Call: WRITE	Prompt: ! Line Location: MYSTATUS+2
Function Call: WRITE	Prompt: "Status of POS background job: ",X,! Line Location: MYSTATUS+5
Function Call: WRITE	Prompt: !,"Print " Line Location: LOGFILE1+2
Function Call: WRITE	Prompt: "background job's" Line Location: LOGFILE1+3
Function Call: WRITE	Prompt: "back billing" Line Location: LOGFILE1+4
Function Call: WRITE	Prompt: " log file",! Line Location: LOGFILE1+5
Function Call: WRITE	Prompt: "The input method on this POS system is ",$$GET1^DIQ(9002313.99,"1,",943),! Line Location: CHKTYPE+6
Function Call: WRITE	Prompt: "This program is only for use with the background scanner method.",! Line Location: CHKTYPE+7
Function Call: WRITE	Prompt: "." Line Location: STOPIT+7
Function Call: WRITE	Prompt: ! Condition for execution: $X>74 Line Location: STOPIT+7
Function Call: WRITE	Prompt: !,"Running the test - times ",T1,"-",T2,! Line Location: TEST+0
Function Call: WRITE	Prompt: "Can't get LOCK",! Line Location: TEST+1
Function Call: WRITE	Prompt: "No log file found",! Line Location: LASTLOG+3
Routine Call	DIE Line Location: SF1
Routine Call	%ZIS Line Location: LOGFILE1+11

Name	Line Occurrences (* Changed, ! Killed)
^ABSP(9002313.99 - [#9002313.99]	TEST+9*, GETFIELD+1, LOCK, UNLOCK
^ABSPECP(	KTESTLST!
^ABSPECP("LOG"	LASTLOG+2

Name	Line Occurrences
$$CHKTYPE	STARTME+3, STOPME+3, MYSTATUS+3, LOGFILE1+6
$$GETFIELD	STATUS+3, STOPIT+3, STOPIT+6, STOPIT+12, DEFAULTS+1, DEFAULTS+2, DEFAULTS+5, DEFAULTS+8, DEFAULTS+9
$$LOCK	STATUS+5, TEST+1, EN+3
$$RUNNING	STARTME+6
$$STATUS	STARTME+4, STARTME+5, MYSTATUS+4, RUNNING+1, STOPIT+11
$$TESTLIST	TEST+5, TEST+6
DEFAULTS	TEST+3, EN+8
KTESTLST	TEST+4
LASTLOG	TEST+7
LOG	EN+7, EN+10
LOGFILE1	LOGFILE+1
SETFIELD	STOPIT+4, STOPIT+11, EN+5, DEFAULTS+1, DEFAULTS+2, DEFAULTS+5, DEFAULTS+8, DEFAULTS+9
SF1	SF1+4
STOPIT	STOPME+5, DELAYSTP
STOPME	STARTME+9
TASK	EN+13
TASKAT	TASK+2
UNLOCK	STATUS+5, TEST+8, EN+12

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSR1

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 3

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	Field # of Occurrence
%DT	TASK+1~*
ABSPDATE	LOGFILE1+7~, LOGFILE1+9*, LOGFILE1+10, LOGFILE1+12, LOGFILE1+13
DA	MYSTATUS+6~, MYSTATUS+7*
DEFAULT	LOGFILE1+7~, LOGFILE1+8*, LOGFILE1+9
DIC	MYSTATUS+6~, MYSTATUS+7*
DIQ	MYSTATUS+6~
DR	MYSTATUS+6~, MYSTATUS+7*
DT	LOGFILE1+8, EN+6
ECHO	CHKTYPE~, CHKTYPE+5, STOPIT~, STOPIT+7
FDA	SETFIELD+1~
FDA(	SETFIELD+2*
FIELD	SETFIELD~, SETFIELD+2, GETFIELD~, GETFIELD+1
FLAGS	SETFIELD~, SF1
FN	SETFIELD+1~*, SETFIELD+2
I	RUNNING+1~*
IENS	SETFIELD+1~*, SETFIELD+2
LOGFILE	LOGFILE1+12~*
MSG	SETFIELD+1~, SF1+1, SF1+2
N	DELAYSTP~
NOWAIT	STOPIT~, STOPIT+5
OFFSET	LOGFILE1~, LOGFILE1+3, LOGFILE1+4, LOGFILE1+12, LOGFILE1+13
POP	LOGFILE1+11~
PROMPT	LOGFILE1+7~, LOGFILE1+8*, LOGFILE1+9
RESTART	EN+4~, EN+13
S	RUNNING+1~*, RUNNING+2
STATUS	STARTME+4~*, STARTME+7
>> T1	TEST, TEST+5
>> T2	TEST, TEST+5, TEST+9
U	TEST+9, GETFIELD+1
VALUE	SETFIELD~, SETFIELD+2
X	MYSTATUS+4~, MYSTATUS+5, TASK+1~, STATUS+3~, STATUS+6, STATUS+7, STATUS+8, LASTLOG+1~, LASTLOG+2*, LASTLOG+3 , LASTLOG+4, LOG~
XI	CHKTYPE+2~*, CHKTYPE+3
Y	TASK+1~, TASK+2, STATUS+5~*, STATUS+6, STATUS+7, STATUS+8
ZTDTH	TASKAT~
ZTIO	TASKAT+1~, TASKAT+2*
ZTRTN	TASKAT+1~, TASKAT+2*

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed