Routine: GMRCPSL3

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

Package	Total	Caller Graph
Consult Request Tracking	1	GMRCPSL2

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

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

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

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

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

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCPSL3

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: