Routine: ABSPOSU8

Information

ABSPOSU8 ; IHS/FCS/DRS - utilities ;

Source Information

Source file <ABSPOSU8.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	3	NOW^%DTC WAIT^DICD ^DIR
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
Pharmacy Point of Sale	2	($$TOSCREEN,PRESSANY)^ABSPOSU5 WCENTER^ABSPOSU9

Caller Graph

Caller Graph Total: 12

Package	Total	Caller Graph
Pharmacy Point of Sale	12	ABSPOS1 ABSPOS31 ABSPOS32 ABSPOS33 ABSPOS34 ABSPOS35 ABSPOS6D ABSPOSL1 ABSPOSMF ABSPOSMG ABSPOSMH ABSPOSU5

Entry Points

Name	Comments	DBIA/ICR reference
PAUSE()	;3/31/93
HEADER(PROGRAM,TITLE1,TITLE2,RUNTIME,NOFF,UL)	; ; This PROCEDURE accepts the routine name and titles and prints out a ; standard header with the run date and time,page and increments ; the page counter by 1. Page is initialized in function DEVICE. ; W @IOF if (to SCREEN) OR (to PRINTER after page 1) ; TITLE variable has special uses. I the calling routine ; send-in the TITLE-array (by setting TITLE(1)="LINE 1", TITLE(n)= ; "LINE n of title", and then D HEADER^WSHUTL("ROUTINE",.TITLE),"."), ; then the entire array of TITLE will be used (and TITLE2 will be ; ignored). You must send-in TITLE2="." ; RUNTIME has been added so that all pages of the report can ; have the same date.time. The calling report must send it in. ; NOFF (optional) - if it exists, then do NOT issue a FormFeed. ; This is necessary for reports that are controlled as a FileMan ; template... since FM issues its own FF, this routine should not. ; UL (opt) - is flag to print a 1-IOSL dashes after the header. ; DEFAULT is no-underline. S UL to 1 to print the underline.
EOPQ(LINESBOT,PARAM,EOPXCODE)	;EP - ; IN: LINESBOT = (optional) # of LINES from bottom (IOSL) before ; determining what to do next. I this is a CRT, we ; will ask user whether to continue; for printers, just ; continue. DEFAULT=6 ; PARAM = List of parameter codes (each may occur): ; "M" - Will display "-- More --" at bottom. ; EOPXCODE = xecutable code that will occur if this is the ; end of the page (like, D HEADER^ROU).
STANDBY	; W a message to screen to "Please Wait"
FMPAGE	;at end of page
ENDRPT()	;EP - end of report. Pause until user presses return (or timeout)
DEVQ
DEVICE(DEV,RTN,TITLE,MULTI)	;EP
PAGE0	; This checks the IO device and issues a pagefeed if $Y>0

External References

Name	Field # of Occurrence
NOW^%DTC	HEADER+22
^%ZIS	DEVICE+19
HOME^%ZIS	DEVICE+30
^%ZTLOAD	DEVICE+27
$$TOSCREEN^ABSPOSU5	PAUSE+3, ENDRPT+1, FMPAGE+1
PRESSANY^ABSPOSU5	FMPAGE+2
WCENTER^ABSPOSU9	HEADER+27, HEADER+28, HEADER+31
WAIT^DICD	STANDBY+1
^DIR	PAUSE+5, ENDRPT+6, DEVQ+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?($S($G(IOM):IOM,1:80)-12),"-- More --" Line Location: EOPQ+20
Function Call: WRITE	Prompt: !," <escape>" Line Location: ENDRPT+2
Function Call: WRITE	Prompt: !! Line Location: DEVICE+14
Function Call: WRITE	Prompt: " try again later" Line Location: DEVICE+20
Function Call: WRITE	Prompt: !,$S($D(ZTQUEUED):"Request queued!",1:"Request cancelled!") Line Location: DEVICE+28
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+4
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+20
Function Call: WRITE	Prompt: !,"RUN DATE: ",RUNTIME Line Location: HEADER+23
Function Call: WRITE	Prompt: ?(IOM-10),"PAGE: ",$J(PAGE,3,0) Line Location: HEADER+24
Function Call: WRITE	Prompt: !,"PGM: ",PROGRAM Line Location: HEADER+25
Function Call: WRITE	Prompt: ! Line Location: HEADER+33
Function Call: WRITE	Prompt: "-" Line Location: HEADER+34
Function Call: WRITE	Prompt: ! Line Location: HEADER+35
Function Call: WRITE	Prompt: @IOF Line Location: FMPAGE+3
Function Call: WRITE	Prompt: # Line Location: PAGE0+2
Function Call: WRITE	Prompt: # Line Location: PAGE0+3
Function Call: WRITE	Prompt: a Line Location: STANDBY+0
Routine Call	%ZIS Line Location: DEVICE+30
Routine Call	DIR Line Location: PAUSE+5 ENDRPT+6 DEVQ+7
Routine Call	%ZIS Line Location: DEVICE+19

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HEADER+22

Label References

Name	Line Occurrences
$$PAUSE	EOPQ+22
DEVQ	DEVICE+20, DEVICE+22

Local Variables

Name	Field # of Occurrence
%	EOPQ+14~, HEADER+22
>> %ZIS	DEVICE+16*
>> %ZIS("A"	DEVICE+17*
>> %ZIS("B"	DEVICE+18*
>> DCOPIES	DEVQ+3, DEVQ+8, DEVQ+9*, DEVQ+10
DEV	DEVICE~, DEVICE+18
DIR	EOPQ+14~, PAUSE+4!, ENDRPT+3~, DEVQ+4!, DEVQ+7!
DIR("A"	ENDRPT+5, DEVQ+5
DIR("B"	DEVQ+6*
DIR(0	PAUSE+5, ENDRPT+4, DEVQ+5*
EOPXCODE	EOPQ~, EOPQ+23
>> FLGSTOP	ENDRPT+2
I	DEVICE+13~, HEADER+34*
IO	DEVICE+22, DEVICE+31, DEVQ, PAGE0+1, PAGE0+3, STANDBY+1
IO("Q"	DEVICE+22
IOF	ENDRPT+1, HEADER+20, FMPAGE+3
IOM	EOPQ+20, HEADER+24, HEADER+34
ION	DEVICE+24
IOSL	EOPQ+16, EOPQ+18
IOST	HEADER+20, FMPAGE+3
LINESBOT	EOPQ~, EOPQ+17*, EOPQ+18
MULTI	DEVICE~, DEVQ
>> N	HEADER+30, HEADER+31
NOFF	HEADER~, HEADER+20
>> PAGE	DEVICE+21, HEADER+19, HEADER+20, HEADER+21*, HEADER+24
PARAM	EOPQ~, EOPQ+20
>> POP	DEVICE+20
PROGRAM	HEADER~, HEADER+25
RTN	DEVICE~, DEVICE+16, DEVICE+23
RUNTIME	HEADER~, HEADER+22*, HEADER+23
TITLE	DEVICE~, DEVICE+25
TITLE1	HEADER~, HEADER+27
TITLE1(	HEADER+31
TITLE2	HEADER~, HEADER+26, HEADER+28, HEADER+29
UL	HEADER~, HEADER+32
X	EOPQ+14~, ENDRPT+3~, HEADER+18~
Y	EOPQ+14~, PAUSE+6, ENDRPT+3~, ENDRPT+7, DEVICE+13~, DEVICE+20, DEVICE+22, DEVICE+29, DEVQ+2~, DEVQ+8 , DEVQ+9, DEVQ+10, DEVQ+11, HEADER+22*
>> ZTDESC	DEVICE+25*
>> ZTIO	DEVICE+24*
>> ZTQUEUED	DEVICE+28, DEVICE+29
>> ZTRTN	DEVICE+23*
>> ZTSAVE("*"	DEVICE+26*
>> ZTSAVE("PAGE"	DEVICE+15*

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSU8

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed