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

Package: Consult Request Tracking

Routine: GMRCPSL3


Information

GMRCPSL3 ;SLC/MA - Special Consult Reports;15-Mar-2012 10:40;PLS

Source Information

Source file <GMRCPSL3.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 $$GET1^DIQ  ^DIR  
Consult Request Tracking 1 $$HRCN^GMRCMP  
Kernel 1 ($$FMTE,$$NOW)^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Consult Request Tracking 1 GMRCPSL2  

Entry Points

Name Comments DBIA/ICR reference
PAGEBK80 ;
REPORT32(SUBTOT,TOTCNTR,GMRCSRCH,GMRCBRK) ; Read ^TMP("GMRCRPT",$J) and format report
; The ^TMP global can be in any order but it will always have 3
; sorting parameters (PROVIDER,DATE,IEN) or (PT LOCATION,DATE,IEN)
; or (PROCEDURE TYPE,DATE,IEN)
; RPTTITL = Used to vary report title
; SRTCOMP = Used to tell when to print subtotals
; SUBTOT = Used to count subtotals
RPTT(GMRCSRCH) ; Title
PAGEBK32 ;
REPORT80(SUBTOT,TOTCNTR,GMRCSRCH,GMRCBRK) ; Read ^TMP("GMRCRPT",$J) and format report
; The ^TMP global can be in any order but it will always have 3
; sorting parameters (PROVIDER,DATE,IEN) or (PT LOCATION,DATE,IEN)
; or (PROCEDURE TYPE,DATE,IEN)
; RPTTITL = Used to vary report title
; SRTCOMP = Used to tell when to print subtotals
; SUBTOT = Used to count subtotals
; GMRCFRST= Set to one to get first report headers to print

External References

Name Field # of Occurrence
$$GET1^DIQ REPORT32+37, REPORT32+41, REPORT32+45, REPORT32+48, REPORT32+52, REPORT32+53, REPORT32+55, REPORT32+56, REPORT32+57, REPORT32+62
, REPORT80+40, REPORT80+46, REPORT80+49, REPORT80+54, REPORT80+56, REPORT80+57, REPORT80+62, REPORT80+63
^DIR PAGEBK32+6, PAGEBK80+6
$$HRCN^GMRCMP REPORT32+60, REPORT80+60
$$FMTE^XLFDT REPORT32+33, REPORT80+36, PAGEBK32+13, PAGEBK32+24, PAGEBK80+13, PAGEBK80+24
$$NOW^XLFDT PAGEBK32+13, PAGEBK80+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"SUB TOTAL= ",SUBTOT,!
  • Line Location: REPORT32+18
Function Call: WRITE
  • Prompt: !,$P(DISPLINE,"|",1)
  • Line Location: REPORT32+32
Function Call: WRITE
  • Prompt: ?11,$$FMTE^XLFDT($P(DISPLINE,"^",7),"D")
  • Line Location: REPORT32+33
Function Call: WRITE
  • Prompt: ?25,$E($$GET1^DIQ(200,$P(DISPLINE,"^",14),.01),1,20)
  • Line Location: REPORT32+37
Function Call: WRITE
  • Prompt: ?25,$E($P(DISPLINE,"^",24),1,40)
  • Line Location: REPORT32+40
Function Call: WRITE
  • Prompt: ?48,$E($$GET1^DIQ(123.5,$P(DISPLINE,"^",5),.01),1,40)
  • Line Location: REPORT32+41
Function Call: WRITE
  • Prompt: ?25,$E($$GET1^DIQ(44,$P(DISPLINE,"^",4),.01),1,22)
  • Line Location: REPORT32+45
Function Call: WRITE
  • Prompt: ?25,$E($$GET1^DIQ(4,$P(DISPLINE,"^",21),.01),1,22)
  • Line Location: REPORT32+48
Function Call: WRITE
  • Prompt: ?25,$E($$GET1^DIQ(4,$P(DISPLINE,"^",23),.01),1,22)
  • Line Location: REPORT32+52
Function Call: WRITE
  • Prompt: ?48,$E($$GET1^DIQ(123.5,$P(DISPLINE,"^",5),.01),1,40)
  • Line Location: REPORT32+53
Function Call: WRITE
  • Prompt: ?25,$E($$GET1^DIQ(123.3,$P($P(DISPLINE,"^",8),";",1),.01),1,20)
  • Line Location: REPORT32+55
Function Call: WRITE
  • Prompt: ?48,$E($$GET1^DIQ(123.5,$P(DISPLINE,"^",5),.01),1,40)
  • Line Location: REPORT32+56
Function Call: WRITE
  • Prompt: ?89,$E($$GET1^DIQ(2,$P(DISPLINE,"^",2),.01),1,20)
  • Line Location: REPORT32+57
Function Call: WRITE
  • Prompt: ?121,X
  • Line Location: REPORT32+61
Function Call: WRITE
  • Prompt: ?129,$$GET1^DIQ(100.01,$P(DISPLINE,"^",12),.1)
  • Line Location: REPORT32+62
Function Call: WRITE
  • Prompt: !!,"SUB TOTAL= ",SUBTOT,!
  • Line Location: REPORT80+20
Function Call: WRITE
  • Prompt: !,$P(DISPLINE,"|",1)
  • Line Location: REPORT80+35
Function Call: WRITE
  • Prompt: ?9,$P($$FMTE^XLFDT($P(DISPLINE,"^",7),2),"@",1)
  • Line Location: REPORT80+36
Function Call: WRITE
  • Prompt: ?18,$E($$GET1^DIQ(200,$P(DISPLINE,"^",14),.01),1,16)
  • Line Location: REPORT80+40
Function Call: WRITE
  • Prompt: ?18,$E($P(DISPLINE,"^",24),1,16)
  • Line Location: REPORT80+43
Function Call: WRITE
  • Prompt: ?18,$E($$GET1^DIQ(44,$P(DISPLINE,"^",4),.01),1,16)
  • Line Location: REPORT80+46
Function Call: WRITE
  • Prompt: ?18,$E($$GET1^DIQ(4,$P(DISPLINE,"^",21),.01),1,16)
  • Line Location: REPORT80+49
Function Call: WRITE
  • Prompt: ?18,$E($$GET1^DIQ(4,$P(DISPLINE,"^",23),.01),1,16)
  • Line Location: REPORT80+54
Function Call: WRITE
  • Prompt: ?18,$E($$GET1^DIQ(123.3,$P($P(DISPLINE,"^",8),";",1),.01),1,16)
  • Line Location: REPORT80+56
Function Call: WRITE
  • Prompt: ?35,$E($$GET1^DIQ(2,$P(DISPLINE,"^",2),.01),1,15)
  • Line Location: REPORT80+57
Function Call: WRITE
  • Prompt: ?52,X
  • Line Location: REPORT80+61
Function Call: WRITE
  • Prompt: ?61,$E($$GET1^DIQ(123.5,$P(DISPLINE,"^",5),.01),1,15)
  • Line Location: REPORT80+62
Function Call: WRITE
  • Prompt: ?77,$$GET1^DIQ(100.01,$P(DISPLINE,"^",12),.1)
  • Line Location: REPORT80+63
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAGEBK32+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGEBK32+11
Function Call: WRITE
  • Prompt: !,?6,"ORDERING PROVIDER: ",?26,SRT1
  • Line Location: PAGEBK32+16
Function Call: WRITE
  • Prompt: !,?6,"LOCATION: ",?12,SRT1,?45
  • Line Location: PAGEBK32+18
Function Call: WRITE
  • Prompt: !,?6,"PROCEDURE: ",?12,SRT1,?45
  • Line Location: PAGEBK32+20
Function Call: WRITE
  • Prompt: !,"CONSULT LIST BY "_RPTTITL_", FOR SPECIFIED DATE(S)"
  • Line Location: PAGEBK32+21
Function Call: WRITE
  • Prompt: ?97,TEMPDATE
  • Line Location: PAGEBK32+22
Function Call: WRITE
  • Prompt: !,"FROM: ",$$FMTE^XLFDT(GMRCDT1,"D")," TO: ",$$FMTE^XLFDT(GMRCDT2-1,"D")
  • Line Location: PAGEBK32+24
Function Call: WRITE
  • Prompt: !,"FROM: ALL"," TO: ALL"
  • Line Location: PAGEBK32+25
Function Call: WRITE
  • Prompt: ?121,"LAST 4",?128,"CON"
  • Line Location: PAGEBK32+26
Function Call: WRITE
  • Prompt: !!,"CONSULT #",?11,"REQUEST DATE"
  • Line Location: PAGEBK32+27
Function Call: WRITE
  • Prompt: ?26,"ORDERING PROVIDER",?48,"TO SERVICE"
  • Line Location: PAGEBK32+28
Function Call: WRITE
  • Prompt: ?26,"FROM LOCATION",?48,"TO SERVICE"
  • Line Location: PAGEBK32+29
Function Call: WRITE
  • Prompt: ?26,"PROCEDURE",?48,"ASSOCIATED CONSULT SERVICE"
  • Line Location: PAGEBK32+30
Function Call: WRITE
  • Prompt: ?89,"PATIENT NAME",?121,"HRCN",?128,"STAT"
  • Line Location: PAGEBK32+33
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: PAGEBK32+35
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAGEBK80+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGEBK80+11
Function Call: WRITE
  • Prompt: !,?6,"ORDERING PROVIDER: ",?26,SRT1,?45,TEMPDATE
  • Line Location: PAGEBK80+16
Function Call: WRITE
  • Prompt: !,?6,"LOCATION: ",?12,SRT1,?45,TEMPDATE
  • Line Location: PAGEBK80+18
Function Call: WRITE
  • Prompt: !,?6,"PROCEDURE: ",?12,SRT1,?45,TEMPDATE
  • Line Location: PAGEBK80+20
Function Call: WRITE
  • Prompt: !,?45,TEMPDATE
  • Line Location: PAGEBK80+21
Function Call: WRITE
  • Prompt: !,"CONSULT LIST BY "_RPTTITL_", FOR SPECIFIED DATE(S)"
  • Line Location: PAGEBK80+22
Function Call: WRITE
  • Prompt: !,"FROM: ",$$FMTE^XLFDT(GMRCDT1,"D")," TO: ",$$FMTE^XLFDT(GMRCDT2-1,"D")
  • Line Location: PAGEBK80+24
Function Call: WRITE
  • Prompt: !,"FROM: ALL"," TO: ALL"
  • Line Location: PAGEBK80+25
Function Call: WRITE
  • Prompt: !!,"CONSULT",?9,"REQ DATE"
  • Line Location: PAGEBK80+26
Function Call: WRITE
  • Prompt: ?18,"ORDERING PROVIDER"
  • Line Location: PAGEBK80+27
Function Call: WRITE
  • Prompt: ?18,"LOCATION"
  • Line Location: PAGEBK80+28
Function Call: WRITE
  • Prompt: ?18,"PROCEDURE"
  • Line Location: PAGEBK80+29
Function Call: WRITE
  • Prompt: ?37,"PATIENT NAME",?52,"HRCN",?61,"TO SERVICE",?77,"ST"
  • Line Location: PAGEBK80+32
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: PAGEBK80+34
Routine Call
  • DIR
  • Line Location:
    • PAGEBK32+6
    • PAGEBK80+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(100.01 - [#100.01] GET1^DIQ
^GMR(123.3 - [#123.3] GET1^DIQ
^GMR(123.5 - [#123.5] GET1^DIQ
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^SC - [#44] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("GMRCRPT" REPORT32+15, REPORT32+23, REPORT32+25, REPORT32+26, REPORT80+16, REPORT80+25, REPORT80+27, REPORT80+28

Label References

Name Line Occurrences
$$RPTT REPORT32+10, REPORT80+11
PAGEBK32 REPORT32+21, REPORT32+27, REPORT32+28
PAGEBK80 REPORT80+19, REPORT80+23, REPORT80+29, REPORT80+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR PAGEBK32+2!, PAGEBK32+6!, PAGEBK80+2!, PAGEBK80+6!
DIR(0 PAGEBK32+4*, PAGEBK80+4*
>> DIROUT PAGEBK32+7, PAGEBK80+7
DISPLINE REPORT32+9~, REPORT32+26*, REPORT32+32, REPORT32+33, REPORT32+36, REPORT32+37, REPORT32+39, REPORT32+40, REPORT32+41, REPORT32+44
, REPORT32+45, REPORT32+47, REPORT32+48, REPORT32+51, REPORT32+52, REPORT32+53, REPORT32+55, REPORT32+56, REPORT32+57, REPORT32+60
, REPORT32+62, REPORT80+10~, REPORT80+28*, REPORT80+35, REPORT80+36, REPORT80+39, REPORT80+40, REPORT80+42, REPORT80+43, REPORT80+45
, REPORT80+46, REPORT80+48, REPORT80+49, REPORT80+52, REPORT80+53, REPORT80+54, REPORT80+56, REPORT80+57, REPORT80+60, REPORT80+62
, REPORT80+63
>> DTOUT PAGEBK32+7, PAGEBK80+7
>> DUOUT PAGEBK32+7, PAGEBK80+7
DUZ(2 REPORT32+60, REPORT80+60
>> GMRCARRY RPTT+3
>> GMRCARRY(1 RPTT+3
GMRCBRK REPORT32~, REPORT32+21, REPORT80~, REPORT80+23, PAGEBK32+15, PAGEBK32+17, PAGEBK32+19, PAGEBK32+36, PAGEBK80+15, PAGEBK80+17
, PAGEBK80+19, PAGEBK80+21
>> GMRCDT1 PAGEBK32+23, PAGEBK32+24, PAGEBK80+23, PAGEBK80+24
>> GMRCDT2 PAGEBK32+24, PAGEBK80+24
GMRCFRST REPORT32+9~, REPORT32+11*, REPORT32+27, REPORT80+10~, REPORT80+12*, REPORT80+29, PAGEBK32+1*, PAGEBK80+1*
GMRCQUIT REPORT32+7~, REPORT32+11*, REPORT32+15, REPORT32+23, REPORT32+25, REPORT32+29, REPORT80+8~, REPORT80+12*, REPORT80+16, REPORT80+25
, REPORT80+27, REPORT80+31, PAGEBK32+7*, PAGEBK80+7*
GMRCSRCH REPORT32~, REPORT32+10, REPORT32+35, REPORT32+42, REPORT32+54, REPORT80~, REPORT80+11, REPORT80+37, REPORT80+45, REPORT80+48
, REPORT80+52, REPORT80+55, PAGEBK32+15, PAGEBK32+17, PAGEBK32+19, PAGEBK32+28, PAGEBK32+29, PAGEBK32+30, PAGEBK80+15, PAGEBK80+17
, PAGEBK80+19, PAGEBK80+27, PAGEBK80+28, PAGEBK80+29, RPTT~, RPTT+1, RPTT+2
IEN REPORT32+9~, REPORT80+10~
IO REPORT32+8, REPORT80+9, PAGEBK32+3, PAGEBK32+10, PAGEBK80+3, PAGEBK80+10
IO(0 PAGEBK32+3, PAGEBK32+10, PAGEBK80+3, PAGEBK80+10
IOF PAGEBK32+8, PAGEBK32+10, PAGEBK80+8, PAGEBK80+10
IOSL REPORT32+28, REPORT80+19, REPORT80+30
IOST PAGEBK32+3, PAGEBK32+10, PAGEBK80+3, PAGEBK80+10
LINE PAGEBK32+12~, PAGEBK32+34*, PAGEBK32+35, PAGEBK80+12~, PAGEBK80+33*, PAGEBK80+34
LINECNT REPORT32+9~, REPORT32+11*, REPORT32+19*, REPORT32+28, REPORT32+63*, REPORT80+10~, REPORT80+12*, REPORT80+19, REPORT80+21*, REPORT80+30
, REPORT80+64*, PAGEBK32+36*, PAGEBK32+37*, PAGEBK80+35*
PAGE REPORT32+9~, REPORT32+11*, REPORT80+10~, REPORT80+12*, PAGEBK32+3, PAGEBK32+9*, PAGEBK32+14, PAGEBK80+3, PAGEBK80+9*, PAGEBK80+14
RPTTITL REPORT32+7~, REPORT32+9~, REPORT32+10*, REPORT80+8~, REPORT80+10~, REPORT80+11*, PAGEBK32+21, PAGEBK80+22, RPTT+1*, RPTT+3*
, RPTT+4
SRT1 REPORT32+9~, REPORT32+12*, REPORT32+15*, REPORT32+16, REPORT32+17, REPORT32+23, REPORT32+25, REPORT32+26, REPORT80+10~, REPORT80+13*
, REPORT80+16*, REPORT80+17, REPORT80+18, REPORT80+25, REPORT80+27, REPORT80+28, PAGEBK32+16, PAGEBK32+18, PAGEBK32+20, PAGEBK80+16
, PAGEBK80+18, PAGEBK80+20
SRT2 REPORT32+9~, REPORT32+22*, REPORT32+23*, REPORT32+25, REPORT32+26, REPORT80+10~, REPORT80+24*, REPORT80+25*, REPORT80+27, REPORT80+28
SRT3 REPORT32+9~, REPORT32+24*, REPORT32+25*, REPORT32+26, REPORT80+10~, REPORT80+26*, REPORT80+27*, REPORT80+28
SRTCOMP REPORT32+7~, REPORT32+12*, REPORT32+16*, REPORT32+17, REPORT80+8~, REPORT80+13*, REPORT80+17*, REPORT80+18
SUBCOMP REPORT32+9~, REPORT80+10~
SUBTOT REPORT32~, REPORT32+11*, REPORT32+18, REPORT32+20*, REPORT32+63*, REPORT80~, REPORT80+12*, REPORT80+20, REPORT80+22*, REPORT80+64*
TEMPDATE PAGEBK32+12~, PAGEBK32+13*, PAGEBK32+14*, PAGEBK32+22, PAGEBK80+12~, PAGEBK80+13*, PAGEBK80+14*, PAGEBK80+16, PAGEBK80+18, PAGEBK80+20
, PAGEBK80+21
TEXTLEN PAGEBK32+12~, PAGEBK80+12~
TOTCNTR REPORT32~, REPORT32+63*, REPORT80~, REPORT80+64*
X REPORT32+9~, REPORT32+60*, REPORT32+61, REPORT80+60*, REPORT80+61
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