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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BLRRLEDI

Package: IHS Changes To Lab

Routine: BLRRLEDI


Information

BLRRLEDI ;cmi/flag/maw - BLR REFERENCE LAB LEDI UTILITIES ; 02-Nov-2015 13:43 ; MAW

Source Information

Source file <BLRRLEDI.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 ^DIC  (,FILE,UPDATE)^DIE  ^DIK  ^DIR  
DRG Grouper 2 $$ICDDX^ICDCODE  $$ICDDX^ICDEX  
IHS Patient Registration 1 ^AGINS  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
IHS Changes To Lab 5 BLRAG05  BLRAGUT3  BLRRLEVT  BLRRLHL  BLRUTIL6  
IHS Laboratory Point of Care 1 BLRPOC2  
Lab Service 1 LR7OF1  

Entry Points

Name Comments DBIA/ICR reference
FNDSEQ(BN,PTI,POL,CDT) ;-- find the category prioritization
DXV(RI) ;-- display the diagnosis and ask if they want to delete or add
ACC(AC,OR,PAT,CDT) ;-- add the accession number to the order
COINS(IN) ;-- clean out insurances before reselecting
ORD(OR,PAT) ;-- lets create the order stub here
DX(OR) ;-- lets add/edit diagnosis here
BILL(BTP,OR,AC,CDT) ;-- this is where we ask billing type
BTP(OR,BT) ;-- file the bill type
SEQINS(BINS,PT,RLCDT) ;-- lets go through sequencing insurers
EORD ;-- Edit the Order
INS(OR,AC,PAT,CD,ED) ;-- lets get a list of selectable insurances for the patient and if set for auto select pick the first one in sequence
CLIENTG(OR,AC) ;store client account number (GUI)
UPINS(O,A,P,S) ;-- update the entry in the BLR REFERENCE LAB ORDER/ACCESSION file
CLIENT(OR,AC) ;client account number
CLCNT(DZ2) ;-- get the number of client account numbers to see if we need to prompt
DELDX ;-- delete an existing dx in the file

External References

Name Field # of Occurrence
^AGINS INS+6
^DIC DX+15, EORD+6
^DIE EORD+11
FILE^DIE CLIENT+24, CLIENTG+11, BTP+6
UPDATE^DIE ORD+6, ACC+9, UPINS+6
^DIK DELDX+10, COINS+6
^DIR DXV+17, DELDX+4, CLIENT+14, BILL+16, INS+28
$$ICDDX^ICDCODE DXV+11
$$ICDDX^ICDEX DXV+10
$$FMTE^XLFDT INS+25

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Error adding order number "_OR_" to Reference Lab Order file"
  • Line Location: ORD+7
Function Call: WRITE
  • Prompt: !,"Error adding accession number "_AC_" to Order "_OR_" in the Reference Lab Order file"
  • Line Location: ACC+10
Function Call: WRITE
  • Prompt: !,"There are existing Diagnosis attached to this order",!
  • Line Location: DXV+4
Function Call: WRITE
  • Prompt: !,RCNT_") Dx: "_$P(RDX,U,2),?15,"Text: "_$P(RDX,U,4)
  • Line Location: DXV+13
Function Call: WRITE
  • Prompt: !,"Please select the appropriate account number for this accession"
  • Line Location: CLIENT+8
Function Call: WRITE
  • Prompt: !,BLRRLD_") "_$G(BLRCLA(BLRRLD))
  • Line Location: CLIENT+11
Function Call: WRITE
  • Prompt: !,"Error adding client account number "_$G(BLRRL("CLIENT"))_" to Order "_OR_" in the Reference Lab Order file"
  • Line Location: CLIENT+25
Function Call: WRITE
  • Prompt: !,"Error adding client account number "_$G(BLRRL("CLIENT"))_" to Order "_OR_" in the Reference Lab Order file"
  • Line Location: CLIENTG+12
Function Call: WRITE
  • Prompt: !,"Error adding bill type "_BT_" to Order "_OR_" in the Reference Lab Order file"
  • Line Location: BTP+7
Function Call: WRITE
  • Prompt: !,"You must select an ICD Diagnosis if Bill Type is Third Party"
  • Line Location: BILL+26
Function Call: WRITE
  • Prompt: !,"You must select an Insurer if Bill Type is Third Party"
  • Line Location: BILL+27
Function Call: WRITE
  • Prompt: !,"Patient has No Insurance on file, changing Bill Type to Client"
  • Line Location: INS+8
Function Call: WRITE
  • Prompt: !,"Now applying Sequenced Insurer to Accession"
  • Line Location: INS+11
Function Call: WRITE
  • Prompt: !,"Patient Insurance has not been Sequenced, changing Bill Type to Client"
  • Line Location: INS+15
Function Call: WRITE
  • Prompt: !,BLRRLDA_")"_$P(AGINS(BLRRLDA),U)_$S($P(AGINS(BLRRLDA),U,4)]"":"("_$E($P(AGINS(BLRRLDA),U,4),1,2)_")",1:"")
  • Line Location: INS+23
Function Call: WRITE
  • Prompt: ?30,"Policy #: "_$P(AGINS(BLRRLDA),U,9)
  • Line Location: INS+24
Function Call: WRITE
  • Prompt: ?50,"Elg/Exp Date: "_$S($P(AGINS(BLRRLDA),U,5)>0:$$FMTE^XLFDT($P(AGINS(BLRRLDA),U,5)),1:"")_"/"_$S($P(AGINS(BLRRLDA),U,6)>0:$$FMTE^XLFDT($P(AGINS(BLRRLDA),U,6)),1:"")
  • Line Location: INS+25
Function Call: WRITE
  • Prompt: !,"Error adding insurance to Order "_OR_" in the Reference Lab Order file"
  • Line Location: UPINS+7
Routine Call
  • DIE
  • Line Location:
    • ORD+6
    • ACC+9
    • UPINS+6
Routine Call
  • DIE
  • Line Location:
    • EORD+11
Routine Call
  • DIE
  • Line Location:
    • CLIENT+24
    • CLIENTG+11
    • BTP+6
Routine Call
  • DIR
  • Line Location:
    • DXV+17
    • DELDX+4
    • CLIENT+14
    • BILL+16
    • INS+28
Routine Call
  • DIC
  • Line Location:
    • DX+15
    • EORD+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BLRRLO - [#9009026.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNICP - [#9000035] FNDSEQ+6
^AUPNICP("EFF" FNDSEQ+2, FNDSEQ+4
^BLRRL - [#9009026] CLIENT+6
^BLRRLO - [#9009026.3] ACC+6, DX+5, DXV+5, DXV+7, CLIENTG+8, BILL+8, BILL+24, EORD+12, COINS+4
^BLRRLO("ACC" UPINS+3
^BLRRLO("B" ORD+1, ACC+3, DX+4, CLIENT+21, CLIENTG+7, BTP+2, BILL+8, BILL+23, UPINS+2
^BLRSITE - [#9009029] CLIENT+5, CLCNT+3, BILL+4, BILL+15, INS+10
^ICDS(0 DXV+10, DXV+11

Label References

Name Line Occurrences
$$BTP BILL+3, BILL+11, BILL+19, INS+9, INS+16
$$CLCNT CLIENT+3, CLIENTG+2
$$CLIENTG CLIENT+1
$$DXV DX+7
$$FNDSEQ SEQINS+8
$$ORD ACC+4
BILL BILL+27
CLIENT CLIENT+18
COINS EORD+17
DELDX DX+8
DX DX+8, DX+18, BILL+26
EORD EORD+19
INS BILL+25, EORD+18
SEQINS INS+13
UPINS INS+20, INS+33

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A UPINS~, UPINS+3
AC ACC~, ACC+8, ACC+10, CLIENT~, CLIENT+1, CLIENT+18, CLIENTG~, BILL~, BILL+25, BILL+27
, INS~, INS+20, INS+33
ACC EORD+2~, EORD+14*, EORD+18
AGINS INS+3!, INS+13
AGINS( INS+21, INS+23, INS+24, INS+25, INS+32
AGINS(1 INS+7
AGINSN INS+3!
AGINSNN INS+3!
BDA INS+2~, INS+17*, INS+19, SEQINS+3~, SEQINS+4*, SEQINS+6, SEQINS+7, SEQINS+10, COINS+1~, COINS+4*
, COINS+5
BDAC INS+2~, INS+4*, INS+17, INS+18*
BINI SEQINS+5~, SEQINS+6*, SEQINS+8
BINS SEQINS~
BINS( SEQINS+4, SEQINS+6, SEQINS+7, SEQINS+10
BINS("" SEQINS+1
>> BLRAGUI CLIENT+1
>> BLRALTDZ CLIENT+5, CLCNT+3, BILL+4, BILL+15, INS+10
>> BLRBT BILL+3
>> BLRCLA( CLIENT+10, CLIENT+11, CLIENT+16, CLCNT+5*
BLRCLC CLCNT+1~, CLCNT+2*, CLCNT+4*, CLCNT+5, CLCNT+6
BLRCLCNT CLIENT+2~, CLIENT+3*, CLIENT+4, CLIENT+7, CLIENT+13, CLIENTG+1~, CLIENTG+2*
BLRDFLG DX+3!, DX+7*, DX+8, DX+9
>> BLRDXS DX+6*, DX+17*, BILL+24*, BILL+26
>> BLRGUI BILL+1, BILL+6
>> BLRINS BILL+3*, BILL+5*, BILL+28*, INS+31*, INS+32
>> BLRINSS BILL+27, UPINS+8*
BLRNUM INS+2~, INS+22*, INS+27
>> BLRRL("BILL T YPE" , BILL+3*, BILL+4*, BILL+5, BILL+18*, BILL+22, BILL+26, BILL+27, INS+7
>> BLRRL("CLIENT" CLIENT+5*, CLIENT+6*, CLIENT+16*, CLIENT+17, CLIENT+18, CLIENT+23, CLIENT+25, CLIENTG+3*, CLIENTG+4, CLIENTG+10
>> BLRRL("RL" CLIENT+6
>> BLRRLCLA CLIENT+19*, CLIENTG+3, CLIENTG+5*
>> BLRRLCLT CLIENT+17*, CLIENTG+4*
BLRRLD CLIENT+9~, CLIENT+10*, CLIENT+11
BLRRLDA CLCNT+1~, CLCNT+3*, CLCNT+5, INS+2~, INS+21*, INS+22, INS+23, INS+24, INS+25
BLRRLDAT DXV+3!
BLRRLDAT( DXV+8*, DELDX+7
BLRRLDAT("" DELDX+3
BLRSEQ SEQINS+2!
BLRSEQ( INS+17, INS+19, SEQINS+10*
BLRSEQ(1 INS+14
>> BLRTS DX+14
BN FNDSEQ~, FNDSEQ+11
BT BTP~, BTP+4*, BTP+5, BTP+7, BILL+3*, BILL+7~, BILL+11*, BILL+19*, INS+2~, INS+9*
, INS+16*
BTP BILL~, BILL+3, BILL+10, BILL+11, BILL+27
CD INS~, INS+12*, INS+13
CDT ACC~, ACC+2*, BILL~, BILL+8*, BILL+9*, BILL+25, FNDSEQ~, EORD+2~, EORD+16*, EORD+18
>> DA DELDX+7*, EORD+9*, EORD+12, EORD+17, COINS+5*
>> DA(1 DX+10*, DELDX+9*, COINS+3*
DAT DELDX+1~, DELDX+6*, DELDX+7
DATA EORD+2~, EORD+12*, EORD+13, EORD+14, EORD+15, EORD+16
>> DFN BILL+25, INS+5*
DIC DX+13*, EORD+1!, EORD+5*, EORD+8
DIC("A" DX+12*, EORD+4*
DIC("DR" DX+14*
DIC(0 DX+11*, EORD+3*
DIE EORD+1!, EORD+8*
>> DIK DELDX+8*, COINS+2*
DIR DXV+14!, DELDX+2!, CLIENT+12!, BILL+12!, BILL+21!, INS+26!
DIR("A" DXV+15*, DELDX+3*, CLIENT+13*, BILL+14*, INS+27*
DIR("B" DXV+16*, BILL+15*
DIR(0 DXV+15*, DELDX+3*, CLIENT+13*, BILL+13*, INS+27*
DIRUT DXV+18, DELDX+5, CLIENT+15, BILL+12!, BILL+17, INS+26!, INS+29
>> DR EORD+10*
DT ACC+2, DXV+10, DXV+11, BILL+9, INS+12
DTOUT BILL+12!, INS+26!
DUOUT BILL+12!, INS+26!
DUZ(2 CLIENT+3, CLIENT+5, CLIENTG+2, BILL+4, BILL+15, INS+10
DXD DELDX+1~
DZ2 CLCNT~, CLCNT+3
ED INS~, INS+27
EFF FNDSEQ+1~, FNDSEQ+2*, FNDSEQ+3, FNDSEQ+4
FDA ORD+2~, ACC+1~, CLIENT+20~, CLIENTG+6~, BTP+1~, UPINS+1~
FDA( ORD+4*, ORD+5*, ACC+8*, CLIENT+23*, CLIENTG+10*, BTP+5*, UPINS+5*
FERR ORD+2~, ACC+1~, CLIENT+20~, CLIENTG+6~, BTP+1~, UPINS+1~
FERR(1 ORD+7, ACC+10, CLIENT+25, BTP+7, UPINS+7
FI ACC+1~, ACC+3*, ACC+4*, ACC+5, ACC+6, ACC+7, ACC+11, CLIENT+20~, CLIENT+21*, CLIENT+22
, CLIENT+26, CLIENTG+6~, CLIENTG+7*, CLIENTG+8, CLIENTG+9, CLIENTG+13, BTP+1~, BTP+2*, BTP+3, BTP+8
, UPINS+1~, UPINS+2*, UPINS+3*, UPINS+4
FIENS ORD+2~, ORD+3*, ACC+1~, ACC+7*, ACC+8, CLIENT+20~, CLIENT+22*, CLIENT+23, CLIENTG+6~, CLIENTG+9*
, CLIENTG+10, BTP+1~, BTP+3*, BTP+5, UPINS+1~, UPINS+4*, UPINS+5
FIENS(1 ORD+8
IN COINS~, COINS+2, COINS+3, COINS+4
INSS INS+2~, INS+19*, INS+20, INS+32*, INS+33
O UPINS~, UPINS+2
OR ORD~, ORD+1, ORD+4, ORD+7, ACC~, ACC+3, ACC+4, ACC+10, DX~, DX+4
, DX+8, DX+18, CLIENT~, CLIENT+1, CLIENT+18, CLIENT+21, CLIENT+25, CLIENTG~, CLIENTG+7, BTP~
, BTP+2, BTP+7, BILL~, BILL+3, BILL+8, BILL+11, BILL+19, BILL+23, BILL+25, BILL+26
, BILL+27, INS~, INS+9, INS+16, INS+20, INS+33, UPINS+7
ORD EORD+2~, EORD+13*, EORD+18
ORI ACC+1~, DX+2~, DX+4*, DX+5, DX+7, DX+10, DX+13, DXV+5, DXV+7, DELDX+8
, DELDX+9, BILL+7~, BILL+23*, BILL+24
P UPINS~
PAT ORD~, ORD+5, ACC~, ACC+4, ACC+6, INS~, INS+5, INS+13, INS+20, INS+33
, EORD+2~, EORD+15*, EORD+18
POL FNDSEQ~, FNDSEQ+12
POLI SEQINS+5~, SEQINS+7*, SEQINS+8
PT SEQINS~, SEQINS+8
PTI FNDSEQ~, FNDSEQ+2, FNDSEQ+4, FNDSEQ+10
RCNT DXV+1~, DXV+2*, DXV+6*, DXV+8, DXV+13
RDA DXV+1~, DXV+5*, DXV+7, DXV+8
RDATA DXV+1~, DXV+7*, DXV+10, DXV+11
RDX DXV+1~, DXV+10*, DXV+11*, DXV+13
RI DXV~
RLCDT SEQINS~, SEQINS+8
S UPINS~, UPINS+5
SEQ SEQINS+5~, SEQINS+8*, SEQINS+9, SEQINS+10
SQDA FNDSEQ+1~, FNDSEQ+4*, FNDSEQ+6
SQDATA FNDSEQ+5~, FNDSEQ+6*, FNDSEQ+7, FNDSEQ+8, FNDSEQ+9, FNDSEQ+13
SQINS FNDSEQ+5~, FNDSEQ+8*, FNDSEQ+11
SQPAT FNDSEQ+5~, FNDSEQ+7*, FNDSEQ+10
SQPOL FNDSEQ+5~, FNDSEQ+9*, FNDSEQ+12
SQPRI FNDSEQ+1~, FNDSEQ+4, FNDSEQ+13*, FNDSEQ+14
U ACC+6, DXV+10, DXV+11, DXV+13, CLIENT+6, CLIENTG+8, BILL+4, BILL+8, BILL+15, INS+10
, INS+23, INS+24, INS+25, SEQINS+6, SEQINS+7, FNDSEQ+7, FNDSEQ+8, FNDSEQ+9, FNDSEQ+13, EORD+13
, EORD+14, EORD+15, EORD+16
Y DX+16, DXV+19, DELDX+6, CLIENT+16, BILL+17!*, BILL+19, INS+30, INS+31, EORD+7, EORD+9
Y(0 BILL+17*, BILL+18
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All