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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: GMRCPSL3

Package: Consult Request Tracking

Routine: GMRCPSL3


Information

GMRCPSL3 ;SLC/MA - Special Consult Reports;9/21/01 05:25 ;1/17/02 18:19

Source Information

Source file <GMRCPSL3.m>

Entry Points

Name Comments DBIA/ICR reference
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
REPORT80(SUBTOT,TOTCNTR,GMRCSRCH,GMRCBRK)
PAGEBK32 ;
PAGEBK80 ;
RPTT(GMRCSRCH) ; Title

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,$E($$GET1^DIQ(2,$P(DISPLINE,"^",2),.09),6,9)
  • Line Location: REPORT32+58
Function Call: WRITE
  • Prompt: ?129,$$GET1^DIQ(100.01,$P(DISPLINE,"^",12),.1)
  • Line Location: REPORT32+59
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,20)
  • Line Location: REPORT80+57
Function Call: WRITE
  • Prompt: ?56,$E($$GET1^DIQ(2,$P(DISPLINE,"^",2),.09),6,9)
  • Line Location: REPORT80+58
Function Call: WRITE
  • Prompt: ?61,$E($$GET1^DIQ(123.5,$P(DISPLINE,"^",5),.01),1,15)
  • Line Location: REPORT80+59
Function Call: WRITE
  • Prompt: ?77,$$GET1^DIQ(100.01,$P(DISPLINE,"^",12),.1)
  • Line Location: REPORT80+60
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,"SSN",?128,"STAT"
  • Line Location: PAGEBK32+31
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: PAGEBK32+33
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",?56,"SSN",?61,"TO SERVICE",?77,"ST"
  • Line Location: PAGEBK80+30
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: PAGEBK80+32

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call