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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ABSPOSU8

Package: Pharmacy Point of Sale

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

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All