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

Customize PDF page

Package: Lab Service

Routine: LRRP1

Information

Source Information

Entry Points

Interaction Calls