Routine: ABSPOSU5

Information

ABSPOSU5 ; IHS/FCS/DRS - utilities ; [ 09/12/2002 10:19 AM ]

Source file <ABSPOSU5.m>

Package	Total	Call Graph
Pharmacy Point of Sale	2	$$FREETEXT^ABSPOSU2 ($$ENDRPT,ENDRPT)^ABSPOSU8
Kernel	1	^%ZISC
VA Fileman	1	^DIR

Package	Total	Caller Graph
Pharmacy Point of Sale	33	ABSPECZ2 ABSPECZ3 ABSPECZA ABSPER1A ABSPER2A ABSPER3A ABSPER4A ABSPOS1 ABSPOS2A ABSPOS31 ABSPOS32 ABSPOS34 ABSPOS35 ABSPOS6D ABSPOS6M ABSPOSAE ABSPOSB ABSPOSFA ABSPOSIZ ABSPOSMD ABSPOSMF ABSPOSMG ABSPOSMH ABSPOSP ABSPOSP2 ABSPOSPW ABSPOSR1 ABSPOSS1 ABSPOSU4 ABSPOSU8 ABSPOSUD ABSPOSUU ABSPOSX

Name	Comments	DBIA/ICR reference
BOTTOM(LINES)	;07/26/96 ; IN: lines (optional) = lines from the bottom (default=1) ; This line-feeds down to the bottom of the screen
ENDRPT()	; EP
ENDPAGE(NLF,TIMEOUT)	;EP
PRESSANY(NLF,TIMEOUT)	;EP
BYE	; EP ; Most routines should come here when they exit. ; Example: GOTO BYE^ABSPOSU3 ; IN: FLGSTOP 1=user wanted out
TOSCREEN()

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PRESSANY+5
Function Call: WRITE	Prompt: ! Line Location: ENDPAGE+4
Function Call: WRITE	Prompt: " < exit >" Line Location: BYE+5
Function Call: WRITE	Prompt: ! Line Location: BOTTOM+9
Routine Call	DIR Line Location: ENDPAGE+7

Name	Line Occurrences
$$TOSCREEN	PRESSANY+1, ENDPAGE+1

Name	Field # of Occurrence
DIR	ENDPAGE+2~
DIR("T"	ENDPAGE+5*
DIR(0	ENDPAGE+6*
DIROUT	ENDPAGE+2~
DIRUT	ENDPAGE+2~
DTOUT	ENDPAGE+2~
DUOUT	ENDPAGE+2~
>> FLGSTOP	BYE+5
I	PRESSANY+2~, PRESSANY+5, ENDPAGE+2~, ENDPAGE+4
IO("S"	TOSCREEN+4
IOSL	BOTTOM+4, BOTTOM+7, BOTTOM+9
IOST	TOSCREEN+1
>> IOT	TOSCREEN+3
J	BOTTOM+5~, BOTTOM+9*
LINES	BOTTOM~, BOTTOM+5*, BOTTOM+7
NLF	PRESSANY~, PRESSANY+3, PRESSANY+5, ENDPAGE~, ENDPAGE+3, ENDPAGE+4
TIMEOUT	PRESSANY~, PRESSANY+4*, ENDPAGE~, ENDPAGE+5
X	PRESSANY+2~, ENDPAGE+2~
X1	BOTTOM+5~, BOTTOM+6, BOTTOM+7, BOTTOM+8, BOTTOM+9
X2	BOTTOM+5~, BOTTOM+9*
Y	ENDPAGE+2~, ENDPAGE+8
>> ZTQUEUED	TOSCREEN+2