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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: LRRP1NWC

Package: Lab Service

Routine: LRRP1NWC


Information

LRRP1 ;SLC/RWF/BA-PRINT THE DATA FOR INTERIM REPORTS ;11/9/88 17:31 [ 04/28/2003 2:47 PM ]

Source Information

Source file <LRRP1NWC.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Lab Service 3 ^LRAIPRIV  EN1^LRMIPC  (DD,DOC,EQUALS)^LRX  
IHS Changes To Lab 2 ^BLRALAU  ($$ADDON,ESIGINFO)^BLRUTIL  
Kernel 2 ($$FMTE,$$NOW)^XLFDT  ($$NAME,$$PADD,NAME,PADD)^XUAF4  
VA Fileman 2 EN^DDIOL  $$EXTERNAL^DILFD  

Entry Points

Name Comments DBIA/ICR reference
FOOT ;from LRRP, LRRP2, LRRP3
CONT
HDR ;Add Printed at, page #, change age to dob 7/2002 cka
ORU ; Display remote ordering info if available
CHECK
TEST
PRINT
DATA
ORDER

External References

Name Field # of Occurrence
^BLRALAU TEST+9
$$ADDON^BLRUTIL TEST+9
ESIGINFO^BLRUTIL TEST+15
EN^DDIOL ORU+3, ORU+5, ORU+6, ORU+7
$$EXTERNAL^DILFD ORU+5, ORU+7
^LRAIPRIV HDR+9
EN1^LRMIPC TEST+2
DD^LRX TEST+22
DOC^LRX TEST+11
EQUALS^LRX TEST+29
$$FMTE^XLFDT HDR+21
$$NOW^XLFDT HDR+21
$$NAME^XUAF4 HDR+16
$$PADD^XUAF4 HDR+17
NAME^XUAF4 HDR+15
PADD^XUAF4 HDR+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?7,"Provider: ",LRDOC
  • Line Location: TEST+12
Function Call: WRITE
  • Prompt: !,?7,"Specimen: ",$P(^LAB(61,LRSPEC,0),U)
  • Line Location: TEST+19
Function Call: WRITE
  • Prompt: !!,?30,"Specimen Collection Date: ",Y
  • Line Location: TEST+22
Function Call: WRITE
  • Prompt: !?5,"Test name",?30,"Result units",?51,"Ref. range",?66,"Site Code"
  • Line Location: TEST+23
Function Call: WRITE
  • Prompt: !,"Comment: "
  • Line Location: TEST+26
Function Call: WRITE
  • Prompt: ^(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+3
Function Call: WRITE
  • Prompt: ?27,@$S(LRPC="":"$J(X,LRCW)",1:LRPC)," ",LRFFLG
  • Line Location: DATA+4
Function Call: WRITE
  • Prompt: ?38," ",$P(X,U,7),?51,$J(LRLO,4),$S($L(LRHI):" - "_$J(LRHI,4),1:"")
  • Line Location: DATA+12
Function Call: WRITE
  • Prompt: ?63,$S(LRTHER:"(Ther. range)",1:"")
  • Line Location: DATA+13
Function Call: WRITE
  • Prompt: ?68,"[",LRPLS,"]"
  • Line Location: DATA+14
Function Call: WRITE
  • Prompt: !?7,"Eval: ",^(LRINTP)
  • Line Location: DATA+16
Function Call: WRITE
  • Prompt: !?20,">> CONTINUATION OF ",$P(LR0,U,6)," <<",!
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+1
Function Call: WRITE
  • Prompt: !,PNM,?40," ",SSN," ",$$FMTE^XLFDT($$NOW^XLFDT,"5FMPZ"),!
  • Line Location: FOOT+3
Function Call: WRITE
  • Prompt: !,"WORK COPY - DO NOT FILE ",PNM,?40," ",HRCN," ",LRDT0,!
  • Line Location: FOOT+5
Function Call: WRITE
  • Prompt: !," ",PNM,?40," ",HRCN," ",LRDT0,!
  • Line Location: FOOT+6
Function Call: WRITE
  • Prompt: !," ",PNM,?40," ",HRCN," ",LRDT0,!
  • Line Location: FOOT+8
Function Call: WRITE
  • Prompt: !,PNM,?25," ",HRCN," ",LRDT0,?59," PRESS '^' TO STOP "
  • Line Location: FOOT+10
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: FOOT+12
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: !
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: !,PNM,?45,"Report date: ",$$FMTE^XLFDT($$NOW^XLFDT,"5FMPZ")
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: !?5,"HRCN: ",HRCN," SEX: ",SEX," AGE: ",AGE," LOC: ",LROC
  • Line Location: HDR+24

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
63.04 EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] DATA+5
^LAB(61 - [#61] TEST+19
^LR - [#63] ORDER+6, ORU+2
^TMP("LR" PRINT+1, PRINT+2!, ORDER+2, TEST, TEST+24, TEST+26, TEST+28, DATA+16

Label References

Name Line Occurrences
@( TEST+3
CONT TEST+27, DATA+15, DATA+16
DATA TEST+24
FOOT TEST+2, CHECK, CONT
HDR CHECK, CONT
ORDER PRINT+1
ORU TEST+21
TEST ORDER+7

Naked Globals

Name Field # of Occurrence
^( ORDER+6, TEST+1, TEST+24, TEST+26, DATA+16
^(0 DATA+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A TEST+2!
>> AGE HDR+24
>> BLRGUI TEST+15
>> DOB PRINT*
DTIME FOOT+12
DUZ("AG" HDR+9
DUZ(2 TEST+9, HDR+16, HDR+17
>> HRCN FOOT+6, FOOT+10, HDR+24
>> I TEST+26*, DATA+16*, FOOT+1*
IOF HDR+1
IOSL CHECK, CONT, FOOT+1
IOST FOOT+6, HDR+1, HDR+5
>> LR0 TEST+1*, TEST+3, TEST+11, CONT, ORU+3
>> LRAAO PRINT+1*, ORDER+2, TEST, TEST+1, TEST+24, TEST+26, TEST+28, DATA+16
LRCAN ORDER~, ORDER+3*, ORDER+6*, TEST+3
>> LRCDT ORDER+1*, ORDER+2*, ORDER+5, TEST, TEST+1, TEST+22, TEST+24, TEST+26, TEST+28, DATA+16
>> LRCMNT TEST+26*, TEST+28
>> LRDATA TEST+24*, DATA, DATA+1, DATA+3
>> LRDFN ORDER+6, ORU+2
>> LRDOC TEST+12
>> LRDT0 FOOT+6, FOOT+10
>> LREND TEST+2*
>> LRFFLG DATA+1*, DATA+4
>> LRFOOT TEST+2*, TEST+31*
LRH TEST+2*!
>> LRHF TEST+2*, TEST+3, HDR+2*
>> LRHI DATA+9*, DATA+11, DATA+12
>> LRIDT ORDER+5*, ORDER+6, TEST*, ORU+2
>> LRINTP DATA+16*
>> LRJ0 HDR+1
>> LRJ02 HDR+1, HDR+2*
>> LRLO DATA+8*, DATA+10, DATA+12
>> LROC HDR+24
>> LRPC DATA*, DATA+4
>> LRPG HDR+3*, HDR+4*, HDR+10
>> LRPLS DATA+1*, DATA+2, DATA+14
>> LRPLS( DATA+2*
>> LRPO TEST+24*, DATA+16
>> LRSPEC TEST+11*, TEST+19, DATA+5
>> LRSS ORDER+4, TEST*, TEST+2
>> LRSTOP PRINT+1, ORDER+7, TEST+2*, TEST+3, TEST+24, TEST+25, TEST+27, TEST+29, DATA+15, DATA+16
, CHECK, CONT, FOOT+1, FOOT+12*
>> LRSUB DATA*
>> LRTC TEST+1*, CHECK
>> LRTHER DATA+7*, DATA+8, DATA+9, DATA+13
>> LRTSTS DATA*, DATA+5
LRX ORU+1~, ORU+2*, ORU+3, ORU+4, ORU+5, ORU+6, ORU+7
>> PNM FOOT+6, FOOT+10, HDR+21
>> SEX PRINT*, HDR+24
U TEST, TEST+1, TEST+3, TEST+8, TEST+11, TEST+19, DATA, DATA+1, DATA+3, DATA+7
, DATA+8, DATA+9, DATA+12, CONT, HDR+18
>> X TEST+11*, DATA+1*, DATA+2, DATA+5*, DATA+6, DATA+7, DATA+8, DATA+9, DATA+12, FOOT+12*
, HDR+7*, HDR+8, HDR+17*, HDR+18
>> XQY0 TEST+8
>> Y TEST+22*
Z TEST+2!

Marked Items

Name Field # of Occurrence
$T(NAME^XUAF4 HDR+15
$T(PADD^XUAF4 HDR+15
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All