Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: GMRCP5

Package: Consult Request Tracking

Routine: GMRCP5


Information

GMRCP5 ;SLC/DCM,RJS - Print Consult form 513 (main entry) ;5/14/98 11:09

Source Information

Source file <GMRCP5.m>

Entry Points

Name Comments DBIA/ICR reference
TIUEN(GMRCIEN) ;Entry point for TIU to print 513
GUI(ROOT,GMRCIFN) ;Entry point into routine for the GUI
EN(GMRCIFN,GMRCCPY,GMRCDEV,GMRCSTAT) ;Entry point into routine -GMRCIFN=IFN from file 123
SEL ;Select the consult/request to print
QUEUE(GMRCIFN,GMRCCPY,GMRCDEV) ;
CCOPY() ; Determine if this is a "Chart" copy or a "Working" copy
COPY(X)
DEVICE() ;Ask output device / set up output device print parameters
SETUP ;
SETPRNT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"No Orders To Print!",!
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: $C(7),!,"Select A Number In The Range 1 To "_BLK
  • Line Location: SEL+6
Function Call: WRITE
  • Prompt: !!,"Print consults printer setup page.",!
  • Line Location: SETUP+4
Function Call: WRITE
  • Prompt: !!,"Queued as task #",ZTSK
  • Line Location: SETUP+18
Function Call: WRITE
  • Prompt: !!," not queued."
  • Line Location: SETUP+19
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: SETPRNT+35

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call