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
Print Page as PDF
Routine: GMRCPSL1

Package: Consult Request Tracking

Routine: GMRCPSL1


Information

GMRCPSL1 ;SLC/MA - Special Consult Reports;9/21/01 05:25 ;1/10/02 14:26

Source Information

Source file <GMRCPSL1.m>

Entry Points

Name Comments DBIA/ICR reference
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>
CHECK(GMRCDAT)
DEVICE
RETRY ;
GETDATE ;Get START and STOP dates
GETDATE1 ;
GETLOC(GMRCARRY) ;
; DBIA 10040 call DIC=44
GETPROC(GMRCARRY) ;
GETPROV(GMRCARRY) ;
; DBIA 10060 call DIC=200
HELP ; Help for location and provider prompts
HELPR ; Help for remote provider prompt
GETSRCH() ; What search criteria should report be in???
PAGEBRK() ; Does user want page breaks between sub-totals?
TYPERPT() ; Get type of report to print
QUEUE
WARNING ; Let user know that they did not enter any data.

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
Info |  Source |  Entry Points |  Interaction Calls