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: GMRCPSL1

Package: Consult Request Tracking

Routine: GMRCPSL1


Information

GMRCPSL1 ;SLC/MA - Special Consult Reports;25-Jul-2012 11:14;DU

Source Information

Source file <GMRCPSL1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZTLOAD  $$DT^XLFDT  $$UP^XLFSTR  
Consult Request Tracking 3 UP^GMRCA2  ($$STS,$$TESTPT)^GMRCPC1  PRINT^GMRCPSL2  
VA Fileman 3 ^%DT  ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Consult Request Tracking 1 GMRC PRINT BY SEARCH  

Entry Points

Name Comments DBIA/ICR reference
HELP ; Help for location and provider prompts
QUEUE ; send task for print and update
EN ;
; GMRCARRY = used for entering more than one search value.
; This array will be used by all the diff searches.
; GMRCDT1 = Start date
; GMRCDT2 = Stop date
; GMRCEND = If equal to one end routine
; GMRCSRCH = Indicates which field to search on
; GMRCSTAT = Indicates which CPRS status to include
; GMRCRPT = 80 - 132 character report & data only output
; GMRCBRK = Print page break between sub-totals <Y-N>
; GMRTST = Include test pts or not Patch 1002
CHECK(GMRCDAT) ;CHECK FREE TEXT INPUT
GETLOC(GMRCARRY) ;
; DBIA 10040 call DIC=44
GETPROC(GMRCARRY) ;
PAGEBRK() ; Does user want page breaks between sub-totals?
GETSRCH() ; What search criteria should report be in???
WARNING ; Let user know that they did not enter any data.
GETPROV(GMRCARRY) ;
; DBIA 10060 call DIC=200
GETDATE1 ;
RETRY ;
HELPR ; Help for remote provider prompt
DEVICE ; device for printout of entries to group update
TYPERPT() ; Get type of report to print
GETDATE ;Get START and STOP dates

External References

Name Field # of Occurrence
^%DT CHECK+3
^%ZIS RETRY+2
^%ZTLOAD QUEUE+5
^DIC GETLOC+21, GETPROC+10, GETPROV+21
^DIR GETDATE1+2, GETDATE1+8, GETLOC+7, GETLOC+15, GETLOC+31, GETPROC+6, GETPROV+7, GETPROV+15, GETPROV+30, GETSRCH+11
, PAGEBRK+5, TYPERPT+9
UP^GMRCA2 GETPROV+31
$$STS^GMRCPC1 EN+36
$$TESTPT^GMRCPC1 EN+27
PRINT^GMRCPSL2 EN+48
$$DT^XLFDT GETDATE1+10
$$UP^XLFSTR CHECK+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You must configure your terminal so that it"
  • Line Location: DEVICE+3
Function Call: WRITE
  • Prompt: " will support 132 character"
  • Line Location: DEVICE+4
Function Call: WRITE
  • Prompt: !,"emulation and reply 132 to the right margin setting if"
  • Line Location: DEVICE+5
Function Call: WRITE
  • Prompt: " using HOME"
  • Line Location: DEVICE+6
Function Call: WRITE
  • Prompt: !,"as the device."
  • Line Location: DEVICE+7
Function Call: WRITE
  • Prompt: !,""
  • Line Location: DEVICE+8
Function Call: WRITE
  • Prompt: !!,"OK, you have selected a TABLE output format."
  • Line Location: DEVICE+10
Function Call: WRITE
  • Prompt: !,"You must use your personal computer's terminal emulation"
  • Line Location: DEVICE+11
Function Call: WRITE
  • Prompt: !,"to capture the output:"
  • Line Location: DEVICE+12
Function Call: WRITE
  • Prompt: !,""
  • Line Location: DEVICE+13
Function Call: WRITE
  • Prompt: !," 1. Enter at the DEVICE: HOME// prompt "";250;99999999"
  • Line Location: DEVICE+14
Function Call: WRITE
  • Prompt: !," and do not hit the enter key."
  • Line Location: DEVICE+15
Function Call: WRITE
  • Prompt: !," 2. Open a capture file within your terminal emulation program."
  • Line Location: DEVICE+16
Function Call: WRITE
  • Prompt: !," 3. Hit enter to start the down load."
  • Line Location: DEVICE+17
Function Call: WRITE
  • Prompt: !," 4. Close the capture file when the output stops."
  • Line Location: DEVICE+18
Function Call: WRITE
  • Prompt: !,""
  • Line Location: DEVICE+19
Function Call: WRITE
  • Prompt: "(NOW)"
  • Line Location: GETDATE1+10
Function Call: WRITE
  • Prompt: !,""
  • Line Location: GETLOC+6
Function Call: WRITE
  • Prompt: !,""
  • Line Location: GETLOC+8
Function Call: WRITE
  • Prompt: !
  • Line Location: GETLOC+18
Function Call: WRITE
  • Prompt: !
  • Line Location: GETLOC+24
Function Call: WRITE
  • Prompt: !,""
  • Line Location: GETPROC+5
Function Call: WRITE
  • Prompt: !,""
  • Line Location: GETPROC+7
Function Call: WRITE
  • Prompt: !,""
  • Line Location: GETPROV+6
Function Call: WRITE
  • Prompt: !,""
  • Line Location: GETPROV+8
Function Call: WRITE
  • Prompt: !
  • Line Location: GETPROV+18
Function Call: WRITE
  • Prompt: !
  • Line Location: GETPROV+24
Function Call: WRITE
  • Prompt: !!?3,"""Local"" refers to non-Inter-facility requests and Inter-"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !?3,"facility requests originating locally."
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !?3,"""Remote"" only refers to Inter-facility requests originating"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !?3,"at another site."
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !!?3,"Enter the ENTIRE name in proper CASE, exactly as it"
  • Line Location: HELPR+2
Function Call: WRITE
  • Prompt: !?3,"appears in the above list (including any credentials)."
  • Line Location: HELPR+3
Function Call: WRITE
  • Prompt: !?3,"Use copy/paste to avoid typing errors."
  • Line Location: HELPR+4
Function Call: WRITE
  • Prompt: !?3,"NO partial matches are done."
  • Line Location: HELPR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HELPR+6
Function Call: WRITE
  • Prompt: !,"Task # ",ZTSK
  • Line Location: QUEUE+5
Function Call: WRITE
  • Prompt: !,"Unable to queue report! Try again later."
  • Line Location: QUEUE+6
Function Call: WRITE
  • Prompt: !!,"No search criteria was entered"
  • Line Location: WARNING+1
Routine Call
  • DIC
  • Line Location:
    • GETLOC+21
    • GETPROC+10
    • GETPROV+21
Routine Call
  • DIR
  • Line Location:
    • GETDATE1+2
    • GETDATE1+8
    • GETLOC+7
    • GETLOC+15
    • GETLOC+31
    • GETPROC+6
    • GETPROV+7
    • GETPROV+15
    • GETPROV+30
    • GETSRCH+11
    • PAGEBRK+5
    • TYPERPT+9
Routine Call
  • %ZIS
  • Line Location:
    • RETRY+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("GMRCRPT" EN+49!

Label References

Name Line Occurrences
$$CHECK GETDATE1+4
$$GETSRCH EN+14
$$PAGEBRK EN+29
$$TYPERPT EN+28
DEVICE EN+40
GETDATE EN+31
GETDATE1 GETDATE1+5
GETLOC EN+20
GETPROC EN+24
GETPROV EN+16
QUEUE EN+44
WARNING EN+17, EN+21, EN+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT CHECK+1~, CHECK+3*
%ZIS DEVICE+1~, RETRY+1*
DIC EN+49!, GETLOC+2~, GETLOC+20*, GETPROC+1~, GETPROC+9*, GETPROV+2~, GETPROV+20*
DIC("A" GETLOC+20*, GETPROC+9*, GETPROV+20*
DIC(0 GETLOC+20*, GETPROC+9*, GETPROV+20*
DIR EN+49!, GETDATE+3~, GETDATE1+7!, GETLOC+2~, GETLOC+10~, GETLOC+26~, GETPROC+1~, GETPROV+10~, GETPROV+26~, GETSRCH+1~
, PAGEBRK+1~, TYPERPT+1~
DIR("?" GETLOC+14*, GETLOC+30*, GETPROV+14*, GETPROV+28*
DIR("A" GETDATE1+1*, GETDATE1+8*, GETLOC+5*, GETLOC+12*, GETLOC+29*, GETPROC+4*, GETPROV+5*, GETPROV+12*, GETPROV+29*, GETSRCH+2*
, GETSRCH+3*, GETSRCH+4*, GETSRCH+5*, GETSRCH+6*, GETSRCH+7*, GETSRCH+8*, PAGEBRK+3*
DIR("B" GETDATE1+2*, GETLOC+4*, GETLOC+13*, GETPROC+3*, GETPROV+4*, GETPROV+13*, GETSRCH+9*, PAGEBRK+4*, TYPERPT+8*
DIR("L" TYPERPT+3*, TYPERPT+4*, TYPERPT+5*, TYPERPT+6*, TYPERPT+7*
DIR("S" GETLOC+28*
DIR(0 GETDATE1+1*, GETDATE1+8*, GETLOC+4*, GETLOC+11*, GETLOC+27*, GETPROC+3*, GETPROV+4*, GETPROV+11*, GETPROV+27*, GETSRCH+10*
, PAGEBRK+2*, TYPERPT+2*
DIROUT GETLOC+10~, GETLOC+26~, GETPROV+10~, GETPROV+26~, GETSRCH+12
DIRUT GETDATE+3~, GETLOC+2~, GETLOC+10~, GETLOC+15, GETLOC+26~, GETLOC+31, GETPROC+1~, GETPROV+2~, GETPROV+10~, GETPROV+15
, GETPROV+26~, GETPROV+30, GETSRCH+12, PAGEBRK+5, TYPERPT+9
DTOUT GETDATE+3~, GETDATE1+3, GETDATE1+9, GETLOC+2~, GETLOC+10~, GETLOC+21, GETLOC+26~, GETLOC+31, GETPROC+1~, GETPROC+10
, GETPROV+2~, GETPROV+10~, GETPROV+21, GETPROV+26~, GETPROV+30, GETSRCH+12
DUOUT GETDATE+3~, GETDATE1+3, GETDATE1+9, GETLOC+2~, GETLOC+10~, GETLOC+21, GETLOC+26~, GETLOC+31, GETPROC+1~, GETPROC+10
, GETPROV+2~, GETPROV+10~, GETPROV+21, GETPROV+26~, GETPROV+30, GETSRCH+12
GMRCARRY EN+11~, EN+16, EN+20, EN+24, EN+25, EN+48, GETLOC~, GETLOC+12, GETLOC+16*, GETLOC+19
, GETLOC+24, GETLOC+25, GETPROC~, GETPROV~, GETPROV+12, GETPROV+16*, GETPROV+19, GETPROV+24, GETPROV+25
GMRCARRY( GETLOC+23*, GETLOC+33*, GETPROC+12*, GETPROV+23*, GETPROV+33*
GMRCARRY(1 EN+17, EN+21, GETLOC+9*, GETLOC+17, GETPROC+8*, GETPROV+9*, GETPROV+17
GMRCBRK EN+11~, EN+13*, EN+29*, EN+30, EN+48
GMRCCNTR GETLOC+2~, GETLOC+3*, GETLOC+22*, GETLOC+23, GETLOC+32*, GETLOC+33, GETPROC+1~, GETPROC+2*, GETPROC+11*, GETPROC+12
, GETPROV+2~, GETPROV+3*, GETPROV+22*, GETPROV+23, GETPROV+32*, GETPROV+33
GMRCDAT CHECK~, CHECK+2, CHECK+3
GMRCDT1 EN+11~, EN+48, CHECK+5, CHECK+6*, GETDATE1+4*, GETDATE1+5, GETDATE1+6*, GETDATE1+9!, GETDATE1+11*
GMRCDT2 EN+11~, EN+32, EN+33*, EN+48, CHECK+6*, GETDATE1+6*, GETDATE1+9!, GETDATE1+10*, GETDATE1+11*, GETDATE1+12*
GMRCEND EN+11~, EN+13*, EN+26!, RETRY+3*, GETLOC+15*, GETLOC+31*, GETPROV+15*, GETPROV+30*, GETSRCH+12*, WARNING+2*
GMRCQLOC GETLOC+2~
GMRCQPRC GETPROC+1~
GMRCQPRV GETPROV+2~
GMRCQUIT EN+12~, EN+13*, EN+31, GETDATE1+3*
GMRCRPT EN+11~, EN+28*, EN+29, EN+38, EN+48, DEVICE+2, DEVICE+9
GMRCSRCH EN+11~, EN+14*, EN+15, EN+19, EN+23, EN+48
GMRCSTAT EN+11~, EN+36*, EN+48
GMRTST EN+11~, EN+27*, EN+48
IO("Q" EN+44
IOF HELPR+1
ION QUEUE+3
IOSL HELPR+1
POP DEVICE+1~, RETRY+3
X CHECK+1~, CHECK+3*, GETDATE+3~, GETDATE1+4, GETLOC+2~, GETLOC+10~, GETLOC+26~, GETPROC+1~, GETPROV+2~, GETPROV+10~
, GETPROV+26~, GETPROV+31, GETSRCH+1~
Y CHECK+1~, CHECK+3, CHECK+4, GETDATE+3~, GETDATE1+10, GETDATE1+11, GETDATE1+12, GETLOC+2~, GETLOC+9, GETLOC+10~
, GETLOC+16, GETLOC+21, GETLOC+23, GETLOC+26~, GETLOC+33, GETPROC+1~, GETPROC+8, GETPROC+10, GETPROC+12, GETPROV+2~
, GETPROV+9, GETPROV+10~, GETPROV+16, GETPROV+21, GETPROV+23, GETPROV+26~, GETPROV+31*, GETPROV+33, GETSRCH+1~, GETSRCH+13
, PAGEBRK+6, TYPERPT+9, TYPERPT+10
ZTDESC QUEUE+1~, QUEUE+2*
ZTDTH QUEUE+1~
ZTIO QUEUE+1~, QUEUE+3*
ZTRTN QUEUE+1~, QUEUE+2*
ZTSAVE QUEUE+1~
ZTSAVE("GMRC*" QUEUE+4*
ZTSK QUEUE+1~, QUEUE+5, QUEUE+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All