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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$REPEAT^XLFSTR  
Consult Request Tracking 4 SEL^GMRCA2  EXAC^GMRCADC  PRNT^GMRCP5A  AGAIN^GMRCSLMV  
Registration 1 FULL^VALM1  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Consult Request Tracking 3 GMRC PRINT TEST PAGE  GMRCA1  GMRCP513  
Order Entry Results Reporting 2 ORPR09  ORQQCN2  
Scheduling 1 SDCNSLT  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS DEVICE+2, SETUP+5
^%ZISC QUEUE+13, SETUP+16, SETPRNT+36
^%ZTLOAD QUEUE+12, SETUP+16
KILL^%ZTLOAD SETPRNT+38
$$GET1^DIQ SETPRNT+9
SEL^GMRCA2 SEL+5
EXAC^GMRCADC SEL+9
PRNT^GMRCP5A TIUEN+7, GUI+11, EN+24
AGAIN^GMRCSLMV SEL+3
FULL^VALM1 EN+8
$$FMTE^XLFDT SETPRNT+10
$$NOW^XLFDT SETPRNT+10
$$REPEAT^XLFSTR SETPRNT+8, SETPRNT+11

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
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+2
    • SETUP+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123 - [#123] CCOPY+7
^TMP("GMRC" TIUEN+4!, GUI+8!, GUI+13, EN+6!
^TMP("GMRCR" TIUEN+5!, GUI+9!, EN+7!, SEL+2, SEL+4, SEL+8

Label References

Name Line Occurrences
$$CCOPY EN+15
$$COPY CCOPY+13, CCOPY+25, CCOPY+26, CCOPY+31, CCOPY+32
$$DEVICE EN+16
$$QUEUE EN+11, EN+19
SEL SEL+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%IS DEVICE+1~, SETUP+2~
%ZIS DEVICE+1~, DEVICE+2*, SETUP+2~, SETUP+5*
>> BLK SEL+3, SEL+4, SEL+6
DIRUOUT SEL+1!, SEL+5
DTIME CCOPY+14
DTOUT SEL+1!, SEL+5
DUZ SETPRNT+9
>> GMRC("NMBR" SEL+3
GMRCCPY GUI+4~, GUI+7*, GUI+11, EN~, EN+11, EN+15*, EN+19, EN+24, QUEUE~, QUEUE+11
GMRCDEF CCOPY+2~, CCOPY+9*, CCOPY+13, CCOPY+25, CCOPY+26, CCOPY+31, CCOPY+32
GMRCDEV EN~, EN+10, EN+11, QUEUE~, QUEUE+7, QUEUE+13
GMRCIEN TIUEN~, TIUEN+7
GMRCIFN GUI~, GUI+11, EN~, EN+11, EN+19, EN+24, QUEUE~, QUEUE+11, CCOPY+7
>> GMRCMSG SEL+9*
>> GMRCND SEL+8*, SEL+9
GMRCPLEN TIUEN+2~, GUI+4~, GUI+6*, GUI+11, EN+3~
GMRCQUT SEL+1!, SEL+2*, SEL+5*, SEL+7*, SEL+9*
GMRCSEL SEL+1!, SEL+3*!, SEL+4*, SEL+5, SEL+6, SEL+7, SEL+8
GMRCSTAT EN~, EN+5*, EN+12*, EN+13*, EN+20*, EN+21*, EN+22, CCOPY+2~, CCOPY+7*, CCOPY+8*
, CCOPY+9
GMRCTASK TIUEN+2~, EN+3~, EN+11*, EN+12, EN+19*, EN+20
GMRCX TIUEN+2~, TIUEN+4*, TIUEN+5*, GUI+4~, GUI+8*, GUI+9*, EN+6*, EN+7*, CCOPY+2~, CCOPY+11
, CCOPY+14*, CCOPY+15, CCOPY+17*, CCOPY+18*, CCOPY+19*, CCOPY+21*, CCOPY+23*, CCOPY+31, CCOPY+32, CCOPY+33
IO DEVICE+3, SETPRNT+3
IO("Q" EN+18, SETUP+7
IO(0 SETPRNT+36
>> IOBM EN+8
IOF SETPRNT+4
IOM SETPRNT+16
ION QUEUE+8, SETUP+13, SETPRNT+13, SETPRNT+29
IOP SETUP+2~, SETUP+5!
IOSL SETPRNT+15, SETPRNT+21, SETPRNT+23, SETPRNT+25
IOST SETPRNT+14, SETPRNT+32
>> IOSTBM EN+8
>> IOTM EN+8
LINE SETUP+2~, SETPRNT+2~, SETPRNT+35*
POP DEVICE+1~, DEVICE+2*, DEVICE+3, SETUP+2~, SETUP+5
ROOT GUI~, GUI+13*
U EN+15, EN+22, CCOPY+8, CCOPY+14, CCOPY+15
X COPY~
ZTCPU QUEUE+2~, SETUP+9~
ZTDESC QUEUE+2~, QUEUE+5*, SETUP+9~, SETUP+12*
ZTDTH QUEUE+2~, QUEUE+10*, SETUP+9~, SETUP+13*
ZTIO QUEUE+2~, QUEUE+7*, QUEUE+8*, SETUP+9~, SETUP+13*
ZTPAR QUEUE+2~, SETUP+9~
ZTPRE QUEUE+2~, SETUP+9~
ZTPRI QUEUE+2~, SETUP+9~
>> ZTQUEUED SETPRNT+1
>> ZTREQ SETPRNT+1*
ZTRTN QUEUE+2~, QUEUE+11*, SETUP+9~, SETUP+13*
ZTSAVE QUEUE+3~, SETUP+10~
ZTSAVE("DUZ" SETUP+14*
ZTSK QUEUE+3~, QUEUE+15, SETUP+10~, SETUP+18, SETPRNT+38
ZTUCI QUEUE+3~, SETUP+10~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All