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

Package: Lab Service

Routine: LRBEBA3


Information

LRBEBA3 ;DALOI/JAH/FHS - ORDERING AND RESULTING OUTPATIENT ;10/04/11

Source Information

Source file <LRBEBA3.m>

Entry Points

Name Comments DBIA/ICR reference
BLDAR(LRBEDFN,LRODT,LRSN,LRBEAR,LRBEY,LRBETEST,LRBEPAN,LRBEDEL) ; Build LRBEAR array with
; CIDC information
PARRAY(XTEST,PTEST,P) ;
QRYADD(LRODT,LRSN,LRTS,LRBEDFN,LRBESMP,LRBESPC,LRBETS,LRBEX,LRBEXD) ; Query #69 for
; default LRBEDGX and SC/EI
ELIG(DFN) ; Display eligibility and disabilities
BALROW(LRODT,LRSN,LRTEST) ; CIDC LROW
AQ1 ; Ask question from LRORD1
AQ2 ; from LROW2A
SVST(ENUM,ETYP,LRODT,LRSN) ; Set the Encounter # in #69
BALROR(LRORD) ; CIDC LRORD
SLROT(LRXST,LRTEST,LRBEOT) ;LROT array
MICRO1(LRODT,LRSN,LRTST,LRCNT) ;get CIDC data for microbiology
MICRO2(LRODT,LRSN) ;setup more CIDC data for microbiology
FINAL(LRODT,LRSN,LRTST) ;is microbiology test complete/final?

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," Eligibility: "_$P(VAEL(1),"^",2)_$S(+VAEL(3):" SC%: "_$P(VAEL(3),"^",2),1:"")
  • Line Location: ELIG+1
Function Call: WRITE
  • Prompt: ?15,LRDIS_" - "_LRCNT_"%("_$S($P(I1,"^",3):"SC",1:"NSC")_")",!
  • Line Location: ELIG+5

FileMan Files Accessed Via FileMan Db Call

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