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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRRP1VA

Package: Lab Service

Routine: LRRP1VA


Information

LRRP1VA ;DALOI/RWF/BA - PRINT THE DATA FOR INTERIM REPORTS, VA code ; 13-Oct-2017 14:04 ; MKK

Source Information

Source file <LRRP1VA.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Lab Service 6 ^LRAIPRIV  $$EN^LRLRRVF  EN1^LRMIPC  ORU^LRRP1  $$TSTRES^LRRPU  (DOC,EQUALS)^LRX  
Kernel 2 ($$FMTE,$$HTE)^XLFDT  ($$NAME,$$PADD)^XUAF4  

Entry Points

Name Comments DBIA/ICR reference
TEST ; EP -- Original VA Code -- IHS/OIT/MKK LR*5.2*1027
CONT ; EP -- Original VA Code -- IHS/OIT/MKK LR*5.2*1027
DATA ; EP-- Original VA Code -- IHS/OIT/MKK LR*5.2*1027
HDR ; Add Printed at, page #, change age to dob 7/2002 cka -- Original VA Code -- IHS/OIT/MKK LR*5.2*1027
FOOT ;from LRRP, LRRP2, LRRP3 -- Original VA Code -- IHS/OIT/MKK LR*5.2*1027

External References

Name Field # of Occurrence
^LRAIPRIV HDR+9
$$EN^LRLRRVF DATA+6
EN1^LRMIPC TEST+6
ORU^LRRP1 TEST+16
$$TSTRES^LRRPU DATA+5
DOC^LRX TEST+12
EQUALS^LRX TEST+29
$$FMTE^XLFDT TEST+17, HDR+15
$$HTE^XLFDT FOOT+2, FOOT+3, HDR+14
$$NAME^XUAF4 HDR+11
$$PADD^XUAF4 HDR+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?7,"Provider: ",LRDOC
  • Line Location: TEST+14
Function Call: WRITE
  • Prompt: !,?7,"Specimen: ",$P(^LAB(61,LRSPEC,0),U)
  • Line Location: TEST+15
Function Call: WRITE
  • Prompt: !!,?30,"Specimen Collection Date: ",$$FMTE^XLFDT(LRCDT,"M")
  • Line Location: TEST+17
Function Call: WRITE
  • Prompt: !?5,"Test name",?30,"Result units",?51,"Ref. range",?66,"Site Code"
  • Line Location: TEST+18
Function Call: WRITE
  • Prompt: !,"Comment: "
  • Line Location: TEST+24
Function Call: WRITE
  • Prompt: ^TMP("LR",$J,"TP",LRAAO,LRCDT,"C",LRCMNT)
  • Line Location: TEST+26
Function Call: WRITE
  • Prompt: !?7,"KEY: ""L""=Abnormal low, ""H""=Abnormal high, ""*""=Critical value"
  • Line Location: TEST+30
Function Call: WRITE
  • Prompt: !?5,$S($L($P(LRDATA,U,2))>20:$P(LRDATA,U,3),1:$P(LRDATA,U,2))
  • Line Location: DATA+9
Function Call: WRITE
  • Prompt: ?27,@$S(LRPC="":"$J(X,LRCW)",1:LRPC)," ",$P(LR63DATA,"^",2)
  • Line Location: DATA+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DATA+12
Function Call: WRITE
  • Prompt: ?40,$P(LR63DATA,U,5)
  • Line Location: DATA+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DATA+14
Function Call: WRITE
  • Prompt: ?51,LRREFS
  • Line Location: DATA+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DATA+18
Function Call: WRITE
  • Prompt: ?68,"[",LRPLS,"]"
  • Line Location: DATA+19
Function Call: WRITE
  • Prompt: !?7,"Eval: ",^(LRINTP)
  • Line Location: DATA+24
Function Call: WRITE
  • Prompt: !?20,">> CONTINUATION OF ",$P(LR0,U,6)," <<",!
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+1
Function Call: WRITE
  • Prompt: !,PNM,?40," ",SSN," ",$$HTE^XLFDT($H,"M"),!
  • Line Location: FOOT+2
Function Call: WRITE
  • Prompt: !,PNM,?25," ",SSN," ",$$HTE^XLFDT($H,"MP"),?59," PRESS '^' TO STOP "
  • Line Location: FOOT+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: FOOT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: "Printed at: ",?65,"page ",LRPG
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,$$NAME^XUAF4(DUZ(2))," (",DUZ(2),")"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,$P(X,U)," ",$P(X,U,2),", ",$P(X,U,3)," ",$P(X,U,4)
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !!,PNM,?44,"Report date: ",$$HTE^XLFDT($H,"M")
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !?5,"SSN: ",SSN," SEX: ",SEX," DOB: ",$$FMTE^XLFDT(DOB)," LOC: ",LROC
  • Line Location: HDR+15

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61 - [#61] TEST+15
^TMP("LR" TEST+1, TEST+2, TEST+20, TEST+23, TEST+25, TEST+26, TEST+28, DATA+22, DATA+24

Label References

Name Line Occurrences
@( TEST+11
CONT TEST+27, DATA+20, DATA+24
DATA TEST+20
FOOT TEST+5, CONT+1
HDR CONT+1

Naked Globals

Name Field # of Occurrence
^( TEST+3, TEST+20, DATA+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A TEST+8!
>> DOB HDR+15
DTIME FOOT+4
DUZ("AG" HDR+9
DUZ(2 HDR+11, HDR+12
>> I FOOT+1*
IOF HDR+1
IOSL CONT+1, FOOT+1
IOST FOOT+2, HDR+1, HDR+5
>> LR0 TEST+3*, TEST+11, TEST+12, CONT+1
LR63DATA DATA+1~, DATA+5*, DATA+6, DATA+10, DATA+11, DATA+13
>> LRAAO TEST+1, TEST+2, TEST+3, TEST+20, TEST+23, TEST+25, TEST+26, TEST+28, DATA+22, DATA+24
>> LRCAN TEST+11
>> LRCDT TEST+1, TEST+3, TEST+17, TEST+20, TEST+23, TEST+25, TEST+26, TEST+28, DATA+22, DATA+24
>> LRCMNT TEST+24*, TEST+25*, TEST+26, TEST+28
>> LRDATA TEST+20*, DATA+3, DATA+4, DATA+5, DATA+9
>> LRDFN DATA+5
>> LRDOC TEST+14
>> LREND TEST+9*
>> LRFOOT TEST+5, TEST+7*, TEST+31*
LRH TEST+5*, TEST+8!
>> LRHF TEST+7*, TEST+11, HDR+2*
>> LRHI DATA+6*
>> LRIDT TEST+1*, DATA+5
>> LRINTP DATA+23*, DATA+24*
>> LRJ0 HDR+1
>> LRJ02 HDR+1, HDR+2*
>> LRLO DATA+6*
>> LROC HDR+15
>> LRPC DATA+3*, DATA+11
>> LRPG HDR+3*, HDR+4*, HDR+10
>> LRPLS DATA+6*, DATA+7, DATA+17, DATA+19
>> LRPLS( DATA+7*
>> LRPO TEST+19*, TEST+20*, DATA+22, DATA+24
LRREFS DATA+6*, DATA+15!
>> LRSPEC TEST+12*, TEST+15
>> LRSS TEST+2*, TEST+4, DATA+5
>> LRSTOP TEST+5, TEST+9*, TEST+11, TEST+20, TEST+21, TEST+25, TEST+27, TEST+29, DATA+20, DATA+22
, DATA+24, CONT+1, FOOT+1, FOOT+4*
>> LRSUB DATA+3*
>> LRTC TEST+3*
>> LRTHER DATA+6*
>> LRTSTS DATA+3*, DATA+5
>> PNM FOOT+2, FOOT+3, HDR+14
>> SEX HDR+15
>> SSN FOOT+2, FOOT+3, HDR+15
U TEST+2, TEST+3, TEST+11, TEST+12, TEST+15, DATA+3, DATA+4, DATA+5, DATA+9, DATA+13
, CONT+1, HDR+13
>> X TEST+12*, DATA+4*, DATA+10*, FOOT+4*, HDR+7*, HDR+8, HDR+12*, HDR+13
Z TEST+8!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All