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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRRP1

Package: Lab Service

Routine: LRRP1


Information

LRRP1 ;DALOI/STAFF - PRINT THE DATA FOR INTERIM REPORTS ;11/18/11 16:33

Source Information

Source file <LRRP1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Lab Service 5 $$EN^LRLRRVF  EN1^LRMIPC  $$REFDOC^LRRP1  $$TSTRES^LRRPU  (DOC,EQUALS)^LRX  
Kernel 3 ($$FMTE,$$HTE)^XLFDT  ($$CJ,$$LJ)^XLFSTR  ($$ID,$$NAME,$$PADD,$$WHAT)^XUAF4  
VA FileMan 2 EN^DDIOL  $$GET1^DIQ  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 13

Package Total Caller Graph
Lab Service 13 LR7OGMP  LR7OSMZU  LR7OSUM3  LRAPBR1  LRAPBR4  LRAPF  LRMIEDZ2  LRMIPSU  
LRRMM  LRRP  LRRP1  LRRP2  LRRP3  

Entry Points

Name Comments DBIA/ICR reference
PRINT ;
ORDER ;
TEST ;
DATA ;
CHECK
CONT
FOOT ; from LRRP, LRRP2, LRRP3
HDR ; Add Printed at, page #, change age to dob 7/2002 cka
ORU ; Display remote ordering info if available
; Handle calls that don't pass parameters.
ORUA(LRARRAY,LRDFN,LRSS,LRIDT,LRFLAG) ; Display remote ordering info if available
; Call with LRARRAY = array with name/address info
; LRDFN = file #63 ien
; LRSS = file #63 subscript
; LRIDT = file #63 internal data/time of specimen
; LRFLAG = 0 (print facility info)
; 1 (return facility info in LRARRAY)
PFAC(LR4,LRPG,LRFLAG,LRARRAY) ; Display name/address of printing facility
; Call with LR4 = File #4 IEN
; LRPG = current page number to print
; LRFLAG = 0 (print facility info)
; 1 (return facility info in LRARRAY)
; LRARRAY = array with name/address info
RL(LR4,LRFLAG,OUT) ; Display name/address of reporting laboratory
; Call with LR4: File #4 IEN
; LRFLAG: <opt> 1=save to OUT array
; OUT: <byref><opt>
REFDOC(LRDFN,LRSS,LRIDT) ; Lookup LEDI referral free text provider name in file #63 on "ORUT" subscript
; Call with LRDFN = ien on entry in file #63
; LRSS = file #63 subscript
; LRIDT = inverse specimen date/time

External References

Name Field # of Occurrence
EN^DDIOL ORUA+18, ORUA+23, ORUA+28, PFAC+22, RL+22
$$GET1^DIQ ORUA+21, ORUA+26
$$EN^LRLRRVF DATA+6
EN1^LRMIPC TEST+7
$$REFDOC^LRRP1 TEST+24
$$TSTRES^LRRPU DATA+5
DOC^LRX TEST+16
EQUALS^LRX TEST+43
$$FMTE^XLFDT TEST+30, TEST+31, HDR+8, ORUA+16
$$HTE^XLFDT FOOT+7, FOOT+9, HDR+7
$$CJ^XLFSTR HDR+3
$$LJ^XLFSTR ORUA+16, ORUA+21, PFAC+10
$$GET^XPAR TEST+19, HDR+5
$$ID^XUAF4 PFAC+8, RL+8
$$NAME^XUAF4 PFAC+8, RL+8
$$PADD^XUAF4 PFAC+16, RL+16
$$WHAT^XUAF4 PFAC+16, RL+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?7,"Provider: ",LRDOC
  • Line Location: TEST+26
Function Call: WRITE
  • Prompt: !,?7,"Specimen: ",$P($G(^LAB(61,LRSPEC,0),"<no specimen on file>"),U)
  • Line Location: TEST+27
Function Call: WRITE
  • Prompt: !,"Report Released: ",$$FMTE^XLFDT(LRRELDT,"M")
  • Line Location: TEST+30
Function Call: WRITE
  • Prompt: !!,?30,"Specimen Collection Date: ",$$FMTE^XLFDT(LRCDT,"M")
  • Line Location: TEST+31
Function Call: WRITE
  • Prompt: !?5,"Test name",?30,"Result units",?51,"Ref. range",?66,"Site Code"
  • Line Location: TEST+32
Function Call: WRITE
  • Prompt: !,"Comment: "
  • Line Location: TEST+38
Function Call: WRITE
  • Prompt: ^TMP("LR",$J,"TP",LRAAO,LRCDT,"C",LRCMNT)
  • Line Location: TEST+40
Function Call: WRITE
  • Prompt: !?7,"KEY: ""L""=Abnormal low, ""H""=Abnormal high, ""*""=Critical value"
  • Line Location: TEST+44
Function Call: WRITE
  • Prompt: !,$P(LRDATA,U,3)
  • Line Location: DATA+16
Function Call: WRITE
  • Prompt: !,$E($P(LRDATA,U,2),1,25)
  • Line Location: DATA+17
Function Call: WRITE
  • Prompt: ?27,@$S(LRPC="":"$J(X,LRCW)",1:LRPC)," ",$P(LR63DATA,"^",2)
  • Line Location: DATA+19
Function Call: WRITE
  • Prompt: !
  • Line Location: DATA+20
Function Call: WRITE
  • Prompt: ?40,$P(LR63DATA,U,5)
  • Line Location: DATA+21
Function Call: WRITE
  • Prompt: !
  • Line Location: DATA+22
Function Call: WRITE
  • Prompt: ?51,LRREFS
  • Line Location: DATA+23
Function Call: WRITE
  • Prompt: !
  • Line Location: DATA+26
Function Call: WRITE
  • Prompt: ?68,"[",LRPLS,"]"
  • Line Location: DATA+27
Function Call: WRITE
  • Prompt: !?7,"Eval: ",^(LRINTP)
  • Line Location: DATA+32
Function Call: WRITE
  • Prompt: !?20,">> CONTINUATION OF ",$P(LR0,U,6)," <<",!
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+4
Function Call: WRITE
  • Prompt: !,PNM,?40," ",SSN," ",$$HTE^XLFDT($H,"1M"),!
  • Line Location: FOOT+7
Function Call: WRITE
  • Prompt: !,PNM,?25," ",SSN," ",$$HTE^XLFDT($H,"1M"),?59," PRESS '^' TO STOP "
  • Line Location: FOOT+9
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: FOOT+10
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("CLINICAL LABORATORY REPORT",IOM),!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,PNM,?44,"Report date: ",$$HTE^XLFDT($H,"M")
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !?1,"Pat ID: ",SSN," SEX: ",SEX," DOB: ",$$FMTE^XLFDT(DOB)," LOC: ",LROC
  • Line Location: HDR+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61 - [#61] TEST+27
^LR - [#63] ORDER+7, TEST+20, DATA+11, ORUA+12, ORUA+13, REFDOC+9
^TMP("LR" PRINT+2, PRINT+3!, ORDER+3, ORDER+6, TEST+2, TEST+3, TEST+29, TEST+34, TEST+37, TEST+39
, TEST+40, TEST+42, DATA+30, DATA+32

Label References

Name Line Occurrences
@( TEST+15
CONT TEST+41, DATA+28, DATA+32
DATA TEST+34
FOOT TEST+6, CHECK, CONT
HDR CHECK, CONT
ORDER PRINT+2
ORU TEST+28
ORUA ORU+2
PFAC HDR+5
RL TEST+21
TEST ORDER+8

Naked Globals

Name Field # of Occurrence
^( ORDER+7, TEST+4, TEST+34, DATA+32, REFDOC+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A TEST+9!, ORUA+8~, ORUA+30, PFAC+7~, PFAC+22, PFAC+23, RL+5~, RL+22, RL+23
A( PFAC+14*, PFAC+21*, RL+14*, RL+21*
A(1 ORUA+17*, PFAC+9*, PFAC+10*, PFAC+20*, RL+9*, RL+11*
A(2 ORUA+22*, PFAC+11*, PFAC+14, PFAC+15*, PFAC+20*, RL+10*, RL+11*, RL+14, RL+15*
A(3 ORUA+27*, PFAC+17*, PFAC+20*, RL+17*, RL+18*, RL+20*
A(4 PFAC+19*, PFAC+20*, RL+20*
CLIA PFAC+7~, PFAC+8*, PFAC+12, PFAC+13, RL+5~, RL+8*, RL+12, RL+13
>> DOB PRINT+1*, HDR+8
DTIME FOOT+10
DUZ(2 HDR+5
I FOOT+2~, FOOT+4*, RL+5~
IENS ORUA+8~, ORUA+13*, ORUA+21, ORUA+26
IOF HDR+1
IOM HDR+3, PFAC+10, PFAC+14, RL+14
IOSL CHECK, CONT, FOOT+4
IOST FOOT+6, HDR+1, HDR+3
>> LR0 TEST+4*, TEST+15, TEST+16, CONT
LR4 PFAC~, PFAC+8, PFAC+16, RL~, RL+8, RL+16
LR63DATA DATA+1~, DATA+5*, DATA+6, DATA+18, DATA+19, DATA+21
>> LRAAO PRINT+2*, ORDER+3, ORDER+6, TEST+2, TEST+3, TEST+4, TEST+29, TEST+34, TEST+37, TEST+39
, TEST+40, TEST+42, DATA+30, DATA+32
LRARRAY ORUA~, ORUA+30*, PFAC~, PFAC+23*
LRCAN ORDER+1~, ORDER+4*, ORDER+7*, TEST+15
>> LRCDT ORDER+2*, ORDER+3*, ORDER+6, TEST+2, TEST+4, TEST+29, TEST+31, TEST+34, TEST+37, TEST+39
, TEST+40, TEST+42, DATA+30, DATA+32
>> LRCMNT TEST+38*, TEST+39*, TEST+40, TEST+42
>> LRDATA TEST+34*, DATA+3, DATA+4, DATA+5, DATA+10, DATA+16, DATA+17
LRDFN ORDER+7, TEST+20, TEST+24, DATA+5, DATA+10, DATA+11, ORU+2, ORUA~, ORUA+12, ORUA+13
, REFDOC~, REFDOC+9
>> LRDOC TEST+23, TEST+25*, TEST+26
>> LREND TEST+10*
>> LREPR DATA+10*, DATA+11, DATA+12
>> LREPR(4 DATA+12*
LRFILE ORUA+8~, ORUA+11*, ORUA+21, ORUA+26
LRFLAG ORUA~, ORUA+10*, ORUA+17, ORUA+22, ORUA+27, ORUA+30, PFAC~, PFAC+8*, PFAC+18, PFAC+23
, RL~, RL+6*, RL+11, RL+14, RL+19, RL+23
>> LRFOOT TEST+6, TEST+8*, TEST+45*
LRH TEST+6*, TEST+9!
>> LRHF TEST+8*, TEST+15, HDR+2*
>> LRHI DATA+6*
LRI REFDOC+7~, REFDOC+8*, REFDOC+9*
LRIDT ORDER+6*, ORDER+7, TEST+2*, TEST+20, TEST+24, DATA+5, DATA+10, ORU+2, ORUA~, ORUA+12
, ORUA+13, REFDOC~, REFDOC+9
>> LRINTP DATA+31*, DATA+32*
>> LRJ0 HDR+1
>> LRJ02 HDR+1, HDR+2*
>> LRLO DATA+6*
>> LROC HDR+8
>> LRPC DATA+3*, DATA+19
LRPG HDR+2*, HDR+5, PFAC~, PFAC+10
>> LRPLS DATA+6*, DATA+7, DATA+25, DATA+27
>> LRPLS( DATA+7*
>> LRPO TEST+33*, TEST+34*, DATA+30, DATA+32
LRREFS DATA+1~, DATA+6*, DATA+23
LRRELDT TEST+1~, TEST+29*, TEST+30
>> LRSPEC TEST+16*, TEST+27
LRSS ORDER+5, TEST+3*, TEST+5, TEST+13, TEST+20, TEST+24, DATA+5, DATA+10, ORU+2, ORUA~
, ORUA+11, ORUA+12, ORUA+13, ORUA+16, REFDOC~, REFDOC+9
>> LRSTOP PRINT+2, ORDER+8, TEST+6, TEST+10*, TEST+15, TEST+34, TEST+35, TEST+39, TEST+41, TEST+43
, DATA+28, DATA+30, DATA+32, CHECK, CONT, FOOT+3, FOOT+10*
>> LRSUB DATA+3*
>> LRTC TEST+4*, CHECK
>> LRTHER DATA+6*
>> LRTSTS DATA+3*, DATA+5
LRX TEST+1~, TEST+20*, TEST+21, TEST+24*, TEST+25, DATA+1~, DATA+11*, DATA+12, ORUA+8~, PFAC+7~
, PFAC+8*, PFAC+11, PFAC+16*, PFAC+17, RL+5~, RL+8*, RL+10, RL+16*, RL+17, RL+18
, REFDOC+7~, REFDOC+8*, REFDOC+9*, REFDOC+10
LRX("ORU" ORUA+13*, ORUA+15, ORUA+20, ORUA+21, ORUA+25
LRX(0 ORUA+12*, ORUA+15, ORUA+16
LRX(1 PFAC+16*, PFAC+17, RL+16*, RL+18
LRY ORUA+8~, ORUA+15*, ORUA+16*, ORUA+17, ORUA+18, ORUA+21*, ORUA+22, ORUA+23, ORUA+26*, ORUA+27
, ORUA+28, REFDOC+7~, REFDOC+8*, REFDOC+10*, REFDOC+11
OUT RL~, RL+7!, RL+23*
>> PNM FOOT+7, FOOT+9, HDR+7
>> SEX PRINT+1*, HDR+8
>> SSN FOOT+7, FOOT+9, HDR+8
U TEST+3, TEST+4, TEST+15, TEST+16, TEST+27, TEST+29, DATA+3, DATA+4, DATA+5, DATA+16
, DATA+17, DATA+21, CONT, PFAC+17, RL+17, RL+18
X TEST+16*, DATA+4*, DATA+18*, FOOT+10*, PFAC+7~, PFAC+13*, PFAC+14, PFAC+15, RL+5~, RL+13*
, RL+14, RL+15
Z TEST+9!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All