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
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls