Routine: ABSPOSL1

Package	Total	Call Graph
Pharmacy Point of Sale	5	($$EXISTS,$$PRINTEND)^ABSPOSL $$DTR^ABSPOSU1 $$SET^ABSPOSU3 $$EOPQ^ABSPOSU8 $$TADD^ABSPOSUD
Kernel	2	^%ZIS ^%ZISC

Package	Total	Caller Graph
Pharmacy Point of Sale	1	ABSPOSL

Entry Points

Name	Comments	DBIA/ICR reference
GETTYPE()	; return 2 = billing, 3 = background scanner, etc.
HDR
GETDATES()	; return start^end
PRINTLOG(SLOT,START,END)
EOP	; end of page handling ; set STOP if the user wants to get out
PRINTDAT(TYPE,START,END)	;EP

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PRINTDAT+2
Function Call: WRITE	Prompt: "There is no log file ",SLOT,! Line Location: PRINTDAT+13
Function Call: WRITE	Prompt: "Nothing in SLOT=",SLOT,! Line Location: PRINTLOG+2
Function Call: WRITE	Prompt: "Missing line ",LINE Line Location: PRINTLOG+12
Function Call: WRITE	Prompt: "; no more missing lines will be reported." Line Location: PRINTLOG+13
Function Call: WRITE	Prompt: $J(%\3600,2),":" Line Location: PRINTLOG+18
Function Call: WRITE	Prompt: $TR(%," ",0) Line Location: PRINTLOG+19
Function Call: WRITE	Prompt: ?6,"..." Line Location: PRINTLOG+22
Function Call: WRITE	Prompt: @IOF,"Log file #",SLOT,! Line Location: HDR+0
Routine Call	%ZIS Line Location: PRINTDAT+7

Name	Line Occurrences (* Changed, ! Killed)
^ABSPECP("LOG"	PRINTLOG+10, PRINTLOG+15

Name	Field # of Occurrence
%	PRINTLOG+16~, PRINTLOG+17, PRINTLOG+18, PRINTLOG+19*
DEF	GETTYPE+2~*, GETTYPE+5
DEF1	GETDATES+3~*, GETDATES+4
DEF2	GETDATES+3~*, GETDATES+4
DT	GETDATES+3
END	PRINTDAT~, PRINTDAT+4, PRINTDAT+6, PRINTDAT+8, PRINTLOG~, PRINTLOG+4~*, PRINTLOG+9
FORDATE	PRINTDAT+8~, PRINTDAT+9, PRINTDAT+14
I	PRINTLOG+21~*, PRINTLOG+22, PRINTLOG+23
IOF	HDR
IOM	PRINTLOG+7
LEN	PRINTLOG+7~*, PRINTLOG+21, PRINTLOG+23
LINE	PRINTLOG+9~*, PRINTLOG+10, PRINTLOG+12, PRINTLOG+15
MENU	GETTYPE+4~*, GETTYPE+5
MISS	PRINTLOG+6~, PRINTLOG+11, PRINTLOG+12, PRINTLOG+13
MODE	GETTYPE+3~*, GETTYPE+5
POP	PRINTDAT+7~
PREVTIME	PRINTLOG+5~, PRINTLOG+17, PRINTLOG+18
PROMPT	GETTYPE+1~*, GETTYPE+5
PROMPT1	GETDATES+1~*, GETDATES+4
PROMPT2	GETDATES+2~*, GETDATES+4
SLOT	PRINTDAT+9~*, PRINTDAT+10, PRINTDAT+11, PRINTDAT+13, PRINTLOG~, PRINTLOG+2, PRINTLOG+4, PRINTLOG+10, PRINTLOG+15, HDR
START	PRINTDAT~, PRINTDAT+3, PRINTDAT+4, PRINTDAT+5, PRINTDAT+6, PRINTDAT+8, PRINTLOG~, PRINTLOG+3~, PRINTLOG+9
STOP	PRINTLOG+8~, PRINTLOG+9, PRINTLOG+21, EOP+2
TYPE	PRINTDAT~, PRINTDAT+1*, PRINTDAT+9
U	PRINTDAT+6, PRINTLOG+16, PRINTLOG+20
X	PRINTLOG+15~, PRINTLOG+16, PRINTLOG+20, PRINTLOG+21, PRINTLOG+23

Name	Field # of Occurrence
$T(	EOP+2