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

Package: Consult Request Tracking

Routine: GMRCSTL7


Information

GMRCSTL7 ;SLC/JFR/WAT - DRIVER FOR CSLT PER MONITOR ;12/10/14 14:25

Source Information

Source file <GMRCSTL7.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; start here
MARGHLP ;help text to set margins
ENOR(RETURN,GMRCSVC,GMRC30ST,GMRC30SP,GMRCSTAT,GMRCST2,GMRCARRN) ;Entry point
PRNTQ
HEAD(PAGE) ; print header for CPM
CAVEATS ; brief explanatory text
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+45
Function Call: WRITE
  • Prompt: !,"Specify a device with optional parameters in the format"
  • Line Location: MARGHLP+1
Function Call: WRITE
  • Prompt: !,?8,"Device Name;Right Margin;Page Length"
  • Line Location: MARGHLP+2
Function Call: WRITE
  • Prompt: !,?21,"or"
  • Line Location: MARGHLP+3
Function Call: WRITE
  • Prompt: !,?5,"Device Name;Subtype;Right Margin;Page Length"
  • Line Location: MARGHLP+4
Function Call: WRITE
  • Prompt: !!,"Or in the new format"
  • Line Location: MARGHLP+5
Function Call: WRITE
  • Prompt: !,?14,"Device Name;/settings"
  • Line Location: MARGHLP+6
Function Call: WRITE
  • Prompt: !,?21,"or"
  • Line Location: MARGHLP+7
Function Call: WRITE
  • Prompt: !,?10,"Device Name;Subtype;/settings"
  • Line Location: MARGHLP+8
Function Call: WRITE
  • Prompt: !,"For example"
  • Line Location: MARGHLP+9
Function Call: WRITE
  • Prompt: !,?17,"HOME;80;999"
  • Line Location: MARGHLP+10
Function Call: WRITE
  • Prompt: !,?21,"or"
  • Line Location: MARGHLP+11
Function Call: WRITE
  • Prompt: !,?13,"HOME;C-VT320;/M80L999"
  • Line Location: MARGHLP+12
Function Call: WRITE
  • Prompt: $J("",40-($L(TEMP)/2)+.5)_TEMP
  • Line Location: PRNTQ+8
Function Call: WRITE
  • Prompt: !,$J("",40-($L(TEMP)/2)+.5)_TEMP
  • Line Location: PRNTQ+10
Function Call: WRITE
  • Prompt: !,$J("",40-($L(TEMP)/2)+.5)_TEMP
  • Line Location: PRNTQ+12
Function Call: WRITE
  • Prompt: !,$J("",40-($L(TEMP)/2)+.5)_TEMP,!
  • Line Location: PRNTQ+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRNTQ+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,$J("Run Date: "_$$HTE^XLFDT($H),0),$J("Page: "_PAGE,48)
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",IOM-2),!!
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !!,"Resubmitted requests are evaluated based on the original Date of Request."
  • Line Location: CAVEATS+1
Function Call: WRITE
  • Prompt: !!,"The following are excluded from this report:"
  • Line Location: CAVEATS+2
Function Call: WRITE
  • Prompt: !," -Requests sent to test patients."
  • Line Location: CAVEATS+3
Function Call: WRITE
  • Prompt: !," -Requests not marked as Outpatient in the REQUEST/CONSULTATION file."
  • Line Location: CAVEATS+4
Function Call: WRITE
  • Prompt: !," -Services flagged as part of the interface between Consults/Request Tracking"
  • Line Location: CAVEATS+5
Function Call: WRITE
  • Prompt: !,?2,"and Prosthetics."
  • Line Location: CAVEATS+6
Function Call: WRITE
  • Prompt: !," -Administrative requests flagged via the Administrative fields in the"
  • Line Location: CAVEATS+7
Function Call: WRITE
  • Prompt: !,?2,"REQUEST SERVICES and REQUEST/CONSULTATION files. This is not retroactive"
  • Line Location: CAVEATS+8
Function Call: WRITE
  • Prompt: !,?2,"and only applies to services/requests leveraging the Administrative-flagging"
  • Line Location: CAVEATS+9
Function Call: WRITE
  • Prompt: !,?2,"capability included in GMRC*3.0*60."
  • Line Location: CAVEATS+10
Function Call: WRITE
  • Prompt: !," -The report utilizes the CLINICALLY INDICATED DATE field from the "
  • Line Location: CAVEATS+11
Function Call: WRITE
  • Prompt: !,?2,"REQUEST/CONSULTATION file to determine request totals for a given date"
  • Line Location: CAVEATS+12
Function Call: WRITE
  • Prompt: !,?2,"range. This is true even for requests that have been re-submitted using"
  • Line Location: CAVEATS+13
Function Call: WRITE
  • Prompt: !,?2,"the Edit/Resubmit functionality.",!!
  • Line Location: CAVEATS+14
Info |  Source |  Entry Points |  Interaction Calls