Routine: ABSPOS2A

Call Graph

Package	Total	Call Graph
Pharmacy Point of Sale	6	(DIFF,FETCHES,UPD)^ABSPOS2 POKE^ABSPOS2D ($$MAXJOBS,$$SHUTDOWN,MAXJOBS)^ABSPOSQ3 $$NUMERIC^ABSPOSU2 ($$SET,$$YESNO)^ABSPOSU3 PRESSANY^ABSPOSU5
VA Fileman	3	NOW^%DTC ^DIE IX^DIK

Package	Total	Caller Graph
Pharmacy Point of Sale	3	ABSPOS1 ABSPOS6D ABSPOS6K

Name	Comments	DBIA/ICR reference
TMR	; Protocol ABSP P2 TRANSMITTER ; Transmitter on/off
JOBS	; protocol ABSP P2 TMIT JOBS
ZPERM
WOW	; protocol ABSP P2 WINNOW ; Winnow or Erase data or Big erase data ; This is going to be put on the manager menu proper, instead. ; Re-development is underway in ABSPOSK*
ZLOCAL
ZERO	; protocol ABSP P2 ZERO ; clearing stats
POK	; protocol ABSP P2 POKE ; Poke the queues
SURE(DEF)
TMNOW
ANY	;EP - from ABSPOS6D,ABSPOS6K

Name	Line Occurrences
Function Call: WRITE	Prompt: !,WHAT," = ",ANS,! Line Location: JOBS+8
Function Call: WRITE	Prompt: !,"This option is temporarily disabled.",! Line Location: WOW+3
Function Call: WRITE	Prompt: !,"Clearing local stats - in testing",! Line Location: ZLOCAL+0
Function Call: WRITE	Prompt: "we copy CURR() to BASE()",! Line Location: ZLOCAL+1
Function Call: WRITE	Prompt: !,"Clearing permanent stats - in testing",! Line Location: ZPERM+0
Function Call: WRITE	Prompt: "We do it by setting many fields in file 9002313.58 to zero",! Line Location: ZPERM+1
Function Call: WRITE	Prompt: "LOCK failed",! Line Location: ZPERM+3
Function Call: WRITE	Prompt: "Now we zero out lots of fields: " Line Location: ZPERM+13
Function Call: WRITE	Prompt: "Done",! Line Location: ZPERM+21
Function Call: WRITE	Prompt: !,"The transmitter-receiver is currently " Line Location: TMNOW+0
Function Call: WRITE	Prompt: $S(CURR:"dis",1:"en"),"abled.",! Line Location: TMNOW+1
Function Call: WRITE	Prompt: !,"Poke the queues? " Line Location: POK+1
Routine Call	DIE Line Location: ZPERM+20

Name	Line Occurrences (* Changed, ! Killed)
^ABSPECX("S" - [#9002313.58]	ZPERM+3, ZPERM+7, ZPERM+8, ZPERM+9, ZPERM+10, ZPERM+11*, ZPERM+22
^DD(	ZPERM+15

Name	Field # of Occurrence
%	ZPERM+18~
%H	ZPERM+18~
%I	ZPERM+18~
ANS	JOBS+5~, JOBS+6, JOBS+7, JOBS+8, ZERO+6~, ZERO+8, ZERO+12, TMR+3~, TMR+7, TMR+8 , SURE+4~*, SURE+5
BASE	ZLOCAL+2!*
CHC	ZERO+5~*, ZERO+6
CURR	ZLOCAL+2, TMR+1~, TMR+3, TMR+8, TMR+9, TMNOW+1
DA	ZPERM+12~, ZPERM+20~
DEC	JOBS+4~*, JOBS+5
DEF	JOBS+3, JOBS+5, ZERO+2~, ZERO+6, TMR+3~, TMR+5, TMR+7, SURE~, SURE+2, SURE+4
DIE	ZPERM+20~*
DIK	ZPERM+12~*
DISP	ZERO+4~*, ZERO+6
DR	ZPERM+20~*
FIELD	ZPERM+14~, ZPERM+15, ZPERM+17, ZPERM+20
FILE	ZPERM+2~*, ZPERM+15, ZPERM+20
I	ZPERM+6~*, ZPERM+7, ZPERM+8
MAX	JOBS+4~*, JOBS+5
MIN	JOBS+4~*, JOBS+5
N	ZPERM+7~, ZPERM+8, ZPERM+9~, ZPERM+10, ZPERM+11, ZPERM+12
OPT	JOBS+4~, JOBS+5, ZERO+3~, ZERO+6, TMR+3~, TMR+6, TMR+7, SURE+3~, SURE+4
PMT	JOBS+2~, JOBS+5, ZERO+1~, ZERO+6, TMR+3~, TMR+4, TMR+7, SURE+1*, SURE+4
SURE	SURE~
U	ZPERM+7, ZPERM+8, ZPERM+9, ZPERM+11
>> VALMBCK	JOBS+10, WOW+3, ZERO+22, TMR+11, POK+2*
VALUE	ZPERM+16~, ZPERM+18, ZPERM+19, ZPERM+20
WHAT	JOBS+1~*, JOBS+2, JOBS+8
X	ZPERM+18~