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

Package: Consult Request Tracking

Routine: GMRCSTL7


Information

GMRCSTL7 ;SLC/JFR/WAT - DRIVER FOR CSLT PER MONITOR ;4/8/05 10:28

Source Information

Source file <GMRCSTL7.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Consult Request Tracking 4 SERV1^GMRCASV  ENOR^GMRCSTL7  (DELTOT,ONESTAT,ONESTAT2,PRTTOT)^GMRCSTL8  LISTDATE^GMRCSTU1  
Kernel 4 ^%ZISC  ($$FMADD,$$FMTE,$$HTE)^XLFDT  $$REPEAT^XLFSTR  EN^XUTMDEVQ  
VA Fileman 2 WAIT^DICD  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Consult Request Tracking 2 GMRC RPT PERF MONITOR  GMRCSTL7  

Entry Points

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

External References

Name Field # of Occurrence
^%ZISC PRNTQ+47
WAIT^DICD PRNTQ+15
^DIR EN+9, EN+17, EN+24, EN+41, EN+59, PRNTQ+25, PRNTQ+41
SERV1^GMRCASV ENOR+23, PRNTQ+4
ENOR^GMRCSTL7 PRNTQ+18
DELTOT^GMRCSTL8 ENOR+57, ENOR+80, ENOR+89
ONESTAT^GMRCSTL8 ENOR+66, ENOR+68
ONESTAT2^GMRCSTL8 ENOR+71
PRTTOT^GMRCSTL8 ENOR+55, ENOR+78, ENOR+87
LISTDATE^GMRCSTU1 ENOR+25
$$FMADD^XLFDT EN+37, ENOR+68, ENOR+69, ENOR+71, PRNTQ+13
$$FMTE^XLFDT PRNTQ+9, PRNTQ+11, PRNTQ+13
$$HTE^XLFDT HEAD+6
$$REPEAT^XLFSTR PRNTQ+35, HEAD+7
EN^XUTMDEVQ EN+61

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, available on or about June 2008.",!!
  • Line Location: CAVEATS+10
Routine Call
  • DIR
  • Line Location:
    • EN+9
    • EN+17
    • EN+24
    • EN+41
    • EN+59
    • PRNTQ+25
    • PRNTQ+41

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123.5 - [#123.5] ENOR+20, ENOR+87, ENOR+89
^TMP( EXIT!
^TMP("GMRCR" ENOR+17!, ENOR+30!, ENOR+38*, PRNTQ+19, PRNTQ+22, PRNTQ+30, PRNTQ+31
^TMP("GMRCRINDEX" ENOR+30!
^TMP("GMRCSLIST" ENOR+41, ENOR+42, ENOR+43, ENOR+44, ENOR+60, PRNTQ+16
^TMP("GMRCT" ENOR+30!, ENOR+48*, ENOR+49*, ENOR+74*, PRNTQ+33, PRNTQ+38

Label References

Name Line Occurrences
CAVEATS EN+5, PRNTQ+31
EXIT EN+10, EN+18, EN+25, EN+42, EN+60, EN+63, PRNTQ+16, PRNTQ+48
HEAD PRNTQ+5, PRNTQ+28, PRNTQ+34, PRNTQ+44

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARR EXIT*, EXIT+1!
DIR EN+2~, EN+13~, EN+20~, EN+39~, EN+56~, PRNTQ+25~, PRNTQ+41~
DIR("?" EN+58*
DIR("??" EN+7*
DIR("A" EN+8*, EN+15*, EN+16*, EN+22*, EN+23*, EN+40*, EN+56*, EN+57*
DIR(0 EN+7*, EN+14*, EN+21*, EN+40*, EN+56*, PRNTQ+25*, PRNTQ+41*
DIROUT EN+2~, EN+10, EN+13~, EN+18, EN+20~, EN+25, EN+39~, EN+42, EN+56~, EN+60
DTOUT EN+2~, EN+10, EN+13~, EN+18, EN+20~, EN+25, EN+39~, EN+42, EN+56~, EN+60
DUOUT EN+2~, EN+10, EN+13~, EN+18, EN+20~, EN+25, EN+39~, EN+42, EN+56~, EN+60
GMRC30SP EN+4~, EN+37*, ENOR~, ENOR+66, ENOR+68, PRNTQ+11, PRNTQ+13, PRNTQ+18
GMRC30ST EN+4~, EN+37*, ENOR~, ENOR+66, ENOR+68, ENOR+69, PRNTQ+11, PRNTQ+13, PRNTQ+18
GMRCARRN ENOR~, ENOR+17, ENOR+30, ENOR+34, ENOR+38, ENOR+54, ENOR+55, ENOR+56, ENOR+57, ENOR+66
, ENOR+68, ENOR+71, ENOR+77, ENOR+78, ENOR+79, ENOR+80, ENOR+86, ENOR+87, ENOR+88, ENOR+89
GMRCDA ENOR+27~
GMRCDG EN+2~, EN+11*, ENOR+16~, ENOR+22*, PRNTQ+18
GMRCDT1 EN+2~, EN+30*, EN+32*, EN+34*, EN+36*, EN+37, ENOR+25, ENOR+69*, ENOR+71, PRNTQ+9
GMRCDT2 EN+3~, EN+30*, EN+32*, EN+34*, EN+36*, EN+37, ENOR+25, PRNTQ+9
GMRCEDT1 ENOR+16~, ENOR+25
GMRCEDT2 ENOR+16~, ENOR+25
GMRCFMT EN+3~, EN+43*, EN+59, PRNTQ+18, PRNTQ+19, PRNTQ+22, PRNTQ+30, PRNTQ+31, PRNTQ+32
GMRCFY EN+13~, EN+19*, EN+30, EN+32, EN+34, EN+36, PRNTQ+6, HEAD+3
GMRCGRP EN+3~, ENOR+16~
GMRCHEAD ENOR+16~
GMRCPG PRNTQ+2~, PRNTQ+3*, PRNTQ+5*, PRNTQ+28*, PRNTQ+34*, PRNTQ+44*
GMRCPT ENOR+28~
GMRCQTR EN+20~, EN+26*, EN+28, EN+31, EN+33, EN+35, PRNTQ+6, HEAD+3
GMRCQUT EN+1!, PRNTQ+2~, PRNTQ+22, PRNTQ+26*, PRNTQ+27, PRNTQ+29, PRNTQ+32, PRNTQ+38, PRNTQ+42*, PRNTQ+43
, PRNTQ+45
GMRCSAVE EN+3~, EN+61
GMRCSAVE("GMRC30SP" EN+51*
GMRCSAVE("GMRC30ST" EN+50*
GMRCSAVE("GMRCDG" EN+47*
GMRCSAVE("GMRCDT1" EN+48*
GMRCSAVE("GMRCDT2" EN+49*
GMRCSAVE("GMRCFMT" EN+46*
GMRCSAVE("GMRCFY" EN+53*
GMRCSAVE("GMRCQTR" EN+54*
GMRCSAVE("GMRCSVNM" EN+52*
GMRCST2 ENOR~, ENOR+70
GMRCSTAT ENOR~, ENOR+65, ENOR+67
GMRCSVC EN+2~, ENOR~, ENOR+19*, ENOR+20, ENOR+22, ENOR+42*, ENOR+48, ENOR+49, ENOR+63, ENOR+74
, ENOR+78, ENOR+80
GMRCSVCG ENOR+28~, ENOR+44*, ENOR+51, ENOR+53
GMRCSVCP ENOR+28~, ENOR+43*, ENOR+78, ENOR+80
GMRCSVNM EN+2~, EN+11*
GMRCTMP EN+2~, PRNTQ+2~, PRNTQ+18
GMRCYR EN+20~, EN+30*, EN+32*, EN+34*, EN+36*
GROUPER ENOR+27~, ENOR+32*, ENOR+51, ENOR+53, ENOR+55, ENOR+57, ENOR+59*, ENOR+62*, ENOR+63, ENOR+72
, ENOR+85*, ENOR+87, ENOR+89
GROUPER( ENOR+51, ENOR+53, ENOR+55, ENOR+57, ENOR+63*, ENOR+74, ENOR+87, ENOR+89
GROUPER(0 ENOR+33*
GRP ENOR+28~, ENOR+72*, ENOR+74
IDX PRNTQ+2~, PRNTQ+21*, PRNTQ+22*, PRNTQ+30, PRNTQ+37*, PRNTQ+38*, PRNTQ+46
INDEX ENOR+27~, ENOR+39*, ENOR+41*, ENOR+42, ENOR+43, ENOR+44, ENOR+60, ENOR+66, ENOR+68, ENOR+71
IO("Q" PRNTQ+15
IOF EN+45, HEAD+1
IOM PRNTQ+35, HEAD+7
IOSL PRNTQ+23, PRNTQ+34, PRNTQ+39
IOST PRNTQ+24, PRNTQ+40
LOOP ENOR+27~, ENOR+65*, ENOR+67*, ENOR+70*
PAGE HEAD~, HEAD+2, HEAD+6
PIECE ENOR+28~, ENOR+73*, ENOR+74
RETURN ENOR~, ENOR+18*
STATUS ENOR+27~, ENOR+65*, ENOR+66, ENOR+67*, ENOR+68
STATUS2 ENOR+27~, ENOR+70*, ENOR+71
STR ENOR+35~, ENOR+36*, ENOR+37*, ENOR+38
SUBIDX ENOR+45~
TEMP PRNTQ+2~, PRNTQ+6*, PRNTQ+7*, PRNTQ+8, PRNTQ+9*, PRNTQ+10, PRNTQ+11*, PRNTQ+12, PRNTQ+13*, PRNTQ+14
, HEAD+3*, HEAD+4*, HEAD+5
TYPE ENOR+28~
U EN+11, ENOR+74
VALMBCK EN+3~, ENOR+16~
VALMCNT ENOR+16~
X EN+2~, EN+10, EN+13~, EN+18, EN+19, EN+20~, EN+25, EN+26, EN+39~, EN+42
, EN+56~
Y EN+2~, EN+11, EN+13~, EN+20~, EN+39~, EN+43, EN+56~, PRNTQ+26, PRNTQ+42
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All