Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABSPOSR1

Package: Pharmacy Point of Sale

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  

Entry Points

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

External References

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

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ABSP(9002313.99 - [#9002313.99] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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*

Marked Items

Name Field # of Occurrence
$T( MYSTATUS+7, KTESTLST, TESTLIST, SF1+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All