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

Package: Lab Service

Routine: LRRP1


Information

LRRP1 ;DALOI/RWF/BA-PRINT THE DATA FOR INTERIM REPORTS ; 13-Oct-2017 14:04 ; MKK

Source Information

Source file <LRRP1.m>

Call Graph

Call Graph Total: 19

Package Total Call Graph
Lab Service 7 ^LRAIPRIV  $$DATE^LRDAGE  $$EN^LRLRRVF  EN1^LRMIPC  SITELIST^LRRP2  $$TSTRES^LRRPU  DOC^LRX  
IHS Changes To Lab 5 ^BLRALAU  (CONDSPEC,LRREFS)^BLRLRRP1  $$ADDON^BLRUTIL  LABHDR^BLRUTIL2  ARRIVETM^BLRUTIL8  
Kernel 3 ($$FMTE,$$NOW)^XLFDT  ($$CJ,$$TRIM,$$UP)^XLFSTR  ($$NAME,$$PADD)^XUAF4  
VA Fileman 2 EN^DDIOL  $$GET1^DIQ  
IHS Patient 1 $$DOB^AUPNPAT  
Toolkit 1 $$GET^XPAR  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Lab Service 5 LRRMM  LRRP  LRRP1VA  LRRP2  LRRP3  
IHS Changes To Lab 1 BLRLRRP2  

Entry Points

Name Comments DBIA/ICR reference
FOOT ;EP - Begin IHS/OIT/MKK - LR*5.2*1027 - IHS Modified FOOT Code
CONT ; EP - Begin IHS/OIT/MKK - LR*5.2*1027 -- IHS Modified CONT code
; Q:($Y+5)<IOSL
HDR ; EP - Begin IHS/OIT/MKK - LR*5.2*1027 - IHS Modified HDR Code
LASTPAGE ; EP - Last Page
ORU ; Display remote ordering info if available
MUMPEVAL(EVAL) ; EP
CHECK
TEST ; EP -- IHS/OIT/MKK - LR*5.2*1027 - IHS Modified TEST Code
MUMPRNGE(RANGE) ; EP -- MUMPS Code in Reference Range -- Evaluate and store
BOTTOMPG ; EP - IHS/OIT/MKK - LR*5.2*1027
PRINT
DATA ; EP - Begin IHS/OIT/MKK - LR*5.2*1027 - IHS Modified DATA code
ORDER
COLHEADS ; EP - IHS/OIT/MKK - LR*5.2*1027
; W !!,"Test name"
; W ?19,"Result units"

External References

Name Field # of Occurrence
$$DOB^AUPNPAT HDR+23
^BLRALAU TEST+14
CONDSPEC^BLRLRRP1 TEST+28
LRREFS^BLRLRRP1 DATA+29
$$ADDON^BLRUTIL TEST+14
LABHDR^BLRUTIL2 HDR+19
ARRIVETM^BLRUTIL8 TEST+23
EN^DDIOL ORU+8, ORU+12, ORU+13, ORU+14
$$GET1^DIQ FOOT+6, FOOT+24, HDR+39, ORU+12, ORU+14
^LRAIPRIV HDR+7
$$DATE^LRDAGE HDR+25
$$EN^LRLRRVF DATA+7, MUMPRNGE+20
EN1^LRMIPC TEST+6
SITELIST^LRRP2 FOOT+16, LASTPAGE+6
$$TSTRES^LRRPU DATA+5
DOC^LRX TEST+16
$$FMTE^XLFDT TEST+26, HDR+20, HDR+34, HDR+42
$$NOW^XLFDT HDR+20
$$CJ^XLFSTR CONT+9, HDR+6
$$TRIM^XLFSTR MUMPRNGE+9, MUMPRNGE+12
$$UP^XLFSTR HDR+25
$$GET^XPAR HDR+41
$$NAME^XUAF4 FOOT+12
$$PADD^XUAF4 FOOT+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?5,"Provider: ",LRDOC
  • Line Location: TEST+20
Function Call: WRITE
  • Prompt: !,?5,"Specimen:",$E($P(^LAB(61,LRSPEC,0),U),1,23)
  • Line Location: TEST+24
Function Call: WRITE
  • Prompt: !,?5,"Specimen:",$E($P($G(^LAB(61,LRSPEC,0)),U),1,23)
  • Line Location: TEST+25
Function Call: WRITE
  • Prompt: ?42,"Spec Collect Date/Time:",$$FMTE^XLFDT(LRCDT,"2MZ")
  • Line Location: TEST+26
Function Call: WRITE
  • Prompt: !,"Comment: "
  • Line Location: TEST+37
Function Call: WRITE
  • Prompt: ^TMP("LR",$J,"TP",LRAAO,LRCDT,"C",LRCMNT)
  • Line Location: TEST+39
Function Call: WRITE
  • Prompt: !!,"Test name"
  • Line Location: COLHEADS+1
Function Call: WRITE
  • Prompt: ?19,"Result units"
  • Line Location: COLHEADS+2
Function Call: WRITE
  • Prompt: !,?25,"Res",!
  • Line Location: COLHEADS+3
Function Call: WRITE
  • Prompt: "Test name"
  • Line Location: COLHEADS+4
Function Call: WRITE
  • Prompt: ?18,"Result"
  • Line Location: COLHEADS+5
Function Call: WRITE
  • Prompt: ?25,"Flg"
  • Line Location: COLHEADS+6
Function Call: WRITE
  • Prompt: ?29,"units"
  • Line Location: COLHEADS+7
Function Call: WRITE
  • Prompt: ?43,"Ref. range"
  • Line Location: COLHEADS+8
Function Call: WRITE
  • Prompt: ?60,"Site"
  • Line Location: COLHEADS+9
Function Call: WRITE
  • Prompt: ?66,"Result Dt/Time"
  • Line Location: COLHEADS+10
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","=")
  • Line Location: BOTTOMPG+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(STR,IOM)
  • Line Location: BOTTOMPG+8
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(STR,IOM)
  • Line Location: BOTTOMPG+10
Function Call: WRITE
  • Prompt: !,"KEY: A=Abnormal L=Abnormal Low H=Abnormal High *=Critical TR=Therapeutic",!
  • Line Location: BOTTOMPG+15
Function Call: WRITE
  • Prompt: !,$S($L($P(LRDATA,U,2))>15:$P(LRDATA,U,3),1:$P(LRDATA,U,2))
  • Line Location: DATA+16
Function Call: WRITE
  • Prompt: ?16,@$S(LRPC="":"$J(X,LRCW)",1:LRPC)," ",$P(LR63DATA,"^",2)
  • Line Location: DATA+18
Function Call: WRITE
  • Prompt: ?16,@$S(LRPC="":"$J(X,LRCW)",1:LRPC)
  • Line Location: DATA+19
Function Call: WRITE
  • Prompt: ?26,$P(LR63DATA,"^",2)
  • Line Location: DATA+20
Function Call: WRITE
  • Prompt: ?26,$S($P(LR63DATA,"^",2)="N":"",1:$P(LR63DATA,"^",2))
  • Line Location: DATA+21
Function Call: WRITE
  • Prompt: ?29,$P(LR63DATA,"^",5)
  • Line Location: DATA+22
Function Call: WRITE
  • Prompt: ?43,$E(LRREFS,1,15)
  • Line Location: DATA+24
Function Call: WRITE
  • Prompt: ?55,$S(LRTHER:"(TR)",1:"")
  • Line Location: DATA+25
Function Call: WRITE
  • Prompt: ?59,$J("["_LRPLS_"]",6)
  • Line Location: DATA+27
Function Call: WRITE
  • Prompt: ?66,$$GETCOMPD^BLRUTIL4
  • Line Location: DATA+28
Function Call: WRITE
  • Prompt: !?7,"Eval: ",^(LRINTP)
  • Line Location: DATA+35
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR(">> CONTINUATION OF "_$P(LR0,U,6)_" <<",IOM)
  • Line Location: CONT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+15
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+19
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+20
Function Call: WRITE
  • Prompt: !,"INTERIM REPORT DO NOT FILE",?30,$E(PNM,1,23)," HRCN:",HRCN,?70,LRDT0,!
  • Line Location: FOOT+25
Function Call: WRITE
  • Prompt: PNM," HRCN:",HRCN,?70,LRDT0,!
  • Line Location: FOOT+26
Function Call: WRITE
  • Prompt: !,$E(PNM,1,23),?28,HRCN,?40,LRDT0
  • Line Location: FOOT+28
Function Call: WRITE
  • Prompt: !,PNM,?30," HRCN:",HRCN,?46,LRDT0
  • Line Location: FOOT+29
Function Call: READ
  • Prompt: "PRESS '^' TO STOP "
  • Formatting: ?60
  • Timeout: DTIME
  • Variable: X
  • Line Location: FOOT+30
Function Call: WRITE
  • Prompt: !!!!,$$CJ^XLFSTR("CLINICAL LABORATORY REPORT",IOM),!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!!!,$$CJ^XLFSTR("CLINICAL LABORATORY REPORT",80),!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: "Printed at: ",?65,"page ",LRPG
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: "Printed at: ",?65,"page ",LRPG,!
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: "Printed at: ",?TAB,PAGESTR,!
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !,PNM,?45,"Date/Time Printed: ",$$FMTE^XLFDT($$NOW^XLFDT,"2MZ")
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: !?5,"HRCN:",HRCN
  • Line Location: HDR+28
Function Call: WRITE
  • Prompt: ?25,"SEX:",SEX
  • Line Location: HDR+29
Function Call: WRITE
  • Prompt: ?35,"DOB:",$S(DOB>0:$$FMTE^XLFDT(DOB),1:" ")
  • Line Location: HDR+30
Function Call: WRITE
  • Prompt: ?20,"SEX:",SEX
  • Line Location: HDR+33
Function Call: WRITE
  • Prompt: ?27,"DOB:",$S(DOB>0:$$FMTE^XLFDT(DOB),1:" ")
  • Line Location: HDR+34
Function Call: WRITE
  • Prompt: !
  • Line Location: LASTPAGE+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: LASTPAGE+5
Function Call: WRITE
  • Prompt: !!,PNM,?30," HRCN:",HRCN,?54,LRDT0
  • Line Location: LASTPAGE+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
63.04 GET1^DIQ
^BLRSITE - [#9009029] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61 - [#61] TEST+25
^LR - [#63] ORDER+6, HDR+23, ORU+7
^SC - [#44] HDR+46
^TMP("LR" PRINT+1, PRINT+2!, ORDER+2, ORDER+5, TEST+1, TEST+2, TEST+33, TEST+36, TEST+38, TEST+39
, TEST+41, DATA+33, DATA+35

Label References

Name Line Occurrences
$$MUMPEVAL MUMPRNGE+17, MUMPRNGE+18
@( TEST+11
BOTTOMPG TEST+43, CONT+4
COLHEADS TEST+30, CONT+10
CONT TEST+40, DATA+31, DATA+35
DATA TEST+33
FOOT TEST+5, CHECK, CONT+5
HDR CHECK, CONT+8
MUMPRNGE DATA+23
ORDER PRINT+1
ORU TEST+18
TEST ORDER+7

Naked Globals

Name Field # of Occurrence
^( ORDER+6, TEST+3, TEST+33, DATA+35
^("ORU" ORU+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A TEST+8!
AGE HDR+22~, HDR+25*, HDR+26*, HDR+41
CNT LASTPAGE+1~, LASTPAGE+2*, LASTPAGE+3*, LASTPAGE+4
>> DFN HDR+39
>> DOB PRINT*, HDR+23*, HDR+24, HDR+25, HDR+34
DOD HDR+37~, HDR+39*, HDR+41, HDR+42
DONOTF FOOT+23~, FOOT+24*, FOOT+25, FOOT+26
DTIME FOOT+30
DUZ("AG" HDR+7
DUZ(2 TEST+14, FOOT+6, FOOT+24
EVAL MUMPEVAL~, MUMPEVAL+5, MUMPEVAL+6*, MUMPEVAL+10, MUMPEVAL+12
HIGH MUMPRNGE+1~, MUMPRNGE+12*, MUMPRNGE+13*, MUMPRNGE+15, MUMPRNGE+18
HNOW LASTPAGE+1~
>> HRCN FOOT+25, FOOT+26, FOOT+29, HDR+28, LASTPAGE+7
I FOOT+15*, FOOT+19*, FOOT+20*, LASTPAGE+1~, LASTPAGE+2*, LASTPAGE+4*
IENS ORU+1~, ORU+7*, ORU+12, ORU+14
IOF HDR+1
IOM BOTTOMPG+2~, BOTTOMPG+3*, BOTTOMPG+5, CONT+9, FOOT+12, HDR+15
IOSL CHECK, CONT+2, FOOT+14, FOOT+15, FOOT+19, FOOT+20, LASTPAGE+4
IOST FOOT+22, HDR+1, HDR+6, LASTPAGE+4
LOCDESC HDR+44~, HDR+46*, HDR+51, HDR+52
LOCIEN HDR+44~, HDR+45*, HDR+46
LOW MUMPRNGE+1~, MUMPRNGE+9*, MUMPRNGE+10*, MUMPRNGE+15, MUMPRNGE+17
>> LR0 TEST+3*, TEST+11, TEST+16, CONT+9, HDR+45
LR63DATA DATA+1~, DATA+5*, DATA+7, DATA+17, DATA+20, DATA+22
>> LRAAO PRINT+1*, ORDER+2, ORDER+5, TEST+1, TEST+2, TEST+3, TEST+33, TEST+36, TEST+38, TEST+39
, TEST+41, DATA+33, DATA+35
LRCAN ORDER~, ORDER+3*, ORDER+6*, TEST+11
>> LRCDT ORDER+1*, ORDER+2*, ORDER+5, TEST+1, TEST+3, TEST+26, TEST+33, TEST+36, TEST+38, TEST+39
, TEST+41, DATA+33, DATA+35
>> LRCMNT TEST+37*, TEST+38*, TEST+39, TEST+41
>> LRDATA TEST+33*, DATA+3, DATA+4, DATA+5, DATA+16
>> LRDFN ORDER+6, TEST+23, DATA+5, HDR+23, ORU+7
>> LRDOC TEST+20
>> LRDPF HDR+39
>> LRDT0 FOOT+25, FOOT+26, FOOT+29, LASTPAGE+7
>> LREDT FOOT+2
>> LREND TEST+9*, FOOT+2
>> LRFOOT TEST+5, TEST+7*, BOTTOMPG+18*
LRH TEST+5*, TEST+8!
>> LRHF TEST+7*, TEST+11, HDR+2*
>> LRHI DATA+7*
>> LRIDT ORDER+5*, ORDER+6, TEST+1*, TEST+23, DATA+5, FOOT+2, ORU+7
>> LRINTP DATA+34*, DATA+35*
LRIRAP FOOT+4~, FOOT+6*, FOOT+7, FOOT+19, FOOT+20
>> LRJ0 HDR+1
>> LRJ02 HDR+1, HDR+2*
>> LRLO DATA+7*
>> LROC HDR+51
>> LRPC DATA+3*, DATA+19
>> LRPG HDR+3*, HDR+4*, HDR+14
>> LRPLS DATA+7*, DATA+14
>> LRPLS( DATA+14*, FOOT+10, LASTPAGE+2
>> LRPO TEST+32*, TEST+33*, DATA+33, DATA+35
>> LRREFS DATA+7*, DATA+10*, DATA+11*, DATA+23
>> LRSPEC TEST+16*, TEST+25
>> LRSS ORDER+4, TEST+2*, TEST+4, TEST+23, DATA+5, ORU+7
>> LRSTOP PRINT+1, ORDER+7, TEST+5, TEST+9*, TEST+11, TEST+33, TEST+34, TEST+38, TEST+40, TEST+42
, DATA+31, DATA+33, DATA+35, CHECK, CONT+6, FOOT+1, FOOT+30*
>> LRSUB DATA+3*
>> LRTC TEST+3*, CHECK
>> LRTHER DATA+7*
>> LRTSTS DATA+3*, DATA+5
LRX ORU+1~, ORU+7*, ORU+8, ORU+11, ORU+13, ORU+14
LRZERO ORU+6~, ORU+7*, ORU+8
NUMSITES FOOT+8~, FOOT+9*, FOOT+11*, FOOT+12*, FOOT+14, FOOT+15
PAGESTR HDR+13~, HDR+14*, HDR+15, HDR+16
>> PNM FOOT+25, FOOT+26, FOOT+29, HDR+20, LASTPAGE+7
RANGE MUMPRNGE~, MUMPRNGE+9, MUMPRNGE+12, MUMPRNGE+15*, MUMPRNGE+20*
RV1 MUMPRNGE+1~, MUMPRNGE+17*, MUMPRNGE+20
RV2 MUMPRNGE+1~, MUMPRNGE+18*, MUMPRNGE+20
>> SEX PRINT*, HDR+33
STR BOTTOMPG+1~, MUMPEVAL+1~, MUMPEVAL+12*, MUMPEVAL+13
TAB HDR+13~, HDR+15*, HDR+16
U TEST+2, TEST+3, TEST+11, TEST+13, TEST+16, TEST+25, DATA+3, DATA+4, DATA+5, DATA+16
, CONT+9, ORU+8
WOT MUMPEVAL+1~, MUMPEVAL+16*, MUMPEVAL+18
WOTERR FOOT+4~
WOTSITE FOOT+8~, FOOT+9*, FOOT+10*, FOOT+12
>> X TEST+16*, DATA+4*, DATA+17*, FOOT+30*
>> XQY0 TEST+13
Z TEST+8!
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 |  Naked Globals |  Local Variables |  All