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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRAPUTL

Package: Lab Service

Routine: LRAPUTL


Information

LRAPUTL ;DALOI/STAFF - AP UTILITIES ;06/21/12 12:06

Source Information

Source file <LRAPUTL.m>

Entry Points

Name Comments DBIA/ICR reference
ACCYR(LRYROUT,LRYRIN,LRAREA,LRAANM) ;
; Return variable (passed by reference):
; LRYROUT = Accession Year LRAD^LRH(0)
; where LRAD is format 3010000
; LRH(0) is format 2001
; = -1 - Error Condition
; = 0 - No change from default value (LRYRIN)
LOOKUP(LRDATA,LRYR1,LRAANM,LRAREA,LRYR2,LRAAN) ;
; Call with LRDATA = array to return data (pass by reference)
; LRYR1 = Year portion of accession date , i.e. 2009
; LRAANM = Accession area name
; LRAREA = File #63 subscript
; LRYR2 = FileMan accession date
; LRAAN = Accession number
; Lookup by accession number or patient name or UID
DEMGRPH(LRAN,LRAD,LRAA) ; Demographics
GETDOCS(LRDOCS,LRDFN,LRSS,LRI,LRSF) ; Return PCP(inpatient PC/attending/outpt PC/outpt assoc PC/outpt attending) and ordering provider
RELEASE(LRRELEAS,LRDFN,LRSS,LRI) ;
; Determine if report has been released
TIUCHK(LRPTR,LRDFN,LRSS,LRI) ;
; Check to see if report is in TIU
ESIGINF(LRESINF,LRDFN,LRSS,LRI) ;Return Esig Info
NEWLN(LRTEXT,TAB) ;
GLBWRT(LRTEXT,TAB) ;Write to global
GLB(LINE,TAB,BTAB,TEXT,ROOT,ATAB) ;
; This subroutine is used to store report text to a global.
; Input variables:
; LINE = Current line number
; TAB = Desired tab position (not required)
; BTAB = Current tab position BEFORE text is stored
; TEXT = Text string to be stored
; ROOT = Global root
PROVIDR ; Entry of provider taken from PRO^LRCAPES
REFRRL ; Display informational message on referrals
PG ; Page break
END ;
SELBY(X1) ; Select by accession number or unique identifier(UID) or patient name
; Call with X1= message prompt
; Returns Y=0 (abort)
; =1 (accession number)
; =2 (unique identifier)
; =3 (patient name)
GETPCP(LRPCP,LRDFN,LRSS,LRIDT) ; Return PCP(inpatient PC/attending/outpt PC)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Data entry for ",LRYRIN," "
  • Line Location: ACCYR+16
Function Call: WRITE
  • Prompt: $C(7),!!,"NO ",LRAANM," ACCESSIONS IN FILE FOR ",LRYR2,!!
  • Line Location: ACCYR+25
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOKUP+13
Function Call: WRITE
  • Prompt: !!,$C(7),"UID: ",LRUID," not associated with Accession Area: ",LRAANM,!,?32,"and Accession Year: ",LRYR1,!
  • Line Location: LOOKUP+42
Function Call: WRITE
  • Prompt: " for "_LRYR1
  • Line Location: LOOKUP+45
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LOOKUP+55
Function Call: WRITE
  • Prompt: !?3,PNM,?35,SSN,?55,"DOB: ",$$FMTE^XLFDT(DOB,1)
  • Line Location: LOOKUP+56
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: LOOKUP+60
Function Call: WRITE
  • Prompt: !?5,"Collection Date: "_$S(LREDT:$$FMTE^XLFDT(LREDT,1),1:"<None on file>")
  • Line Location: DEMGRPH+8
Function Call: WRITE
  • Prompt: !?10,LRSPECID,!
  • Line Location: DEMGRPH+9
Function Call: WRITE
  • Prompt: !?15,"PCE ENC # "_^("PCE")
  • Line Location: DEMGRPH+10
Function Call: WRITE
  • Prompt: !?5,"Tissue Specimen(s): ",!
  • Line Location: DEMGRPH+13
Function Call: WRITE
  • Prompt: @IOF,!?3,PNM,?35,SSN,?55,"DOB: ",$$FMTE^XLFDT(DOB,1),!
  • Line Location: DEMGRPH+16
Function Call: WRITE
  • Prompt: ?15,$P($G(^LR(LRDFN,LRSS,LRIDT,.1,LRX,0)),U),!
  • Line Location: DEMGRPH+17
Function Call: WRITE
  • Prompt: ?5,"Test(s): "
  • Line Location: DEMGRPH+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DEMGRPH+22
Function Call: WRITE
  • Prompt: ?15,$P($G(^LAB(60,+LRX,0)),U)," ",$P(^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRX,0),U,6),!
  • Line Location: DEMGRPH+23
Function Call: WRITE
  • Prompt: !,"COMMENTS:",^LR(LRDFN,LRSS,LRIDT,99,LRB,0)
  • Line Location: DEMGRPH+26
Function Call: WRITE
  • Prompt: !?5,"No Active Provider Selected",!
  • Line Location: PROVIDR+12
Function Call: WRITE
  • Prompt: !?5,"The accession is corrupt - missing zero node",!
  • Line Location: PROVIDR+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^LR - [#63] GET1^DID
68.02 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call