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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BLRDIAG

Package: IHS Changes To Lab

Routine: BLRDIAG


Information

BLRDIAG ;IHS/ITSC/TPF - MAIN 'SIGN OR SYMPTOM' LAB POV INPUT ROUTINE; 22-Oct-2013 09:22 ; MKK

Source Information

Source file <BLRDIAG.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS Changes To Lab 6 TESTDEL^BLRDIAG1  PRESSKEY^BLRGMENU  GETRID^BLRSGNSP  $$CHKORDAC^BLRSGNSU  ($$ALLTESTS,$$GETSDIAG)^BLRSGNSY  ENTRYAUD^BLRUTIL  
VA Fileman 3 ^DIE  $$GET1^DIQ  ^DIR  
IHS VA Utilities 1 ^XBFMK  
Kernel 1 $$UP^XLFSTR  
Lab Service 1 ^LRWLST  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 3 LRORDST  LROW2A  LRTSTSET  

Entry Points

Name Comments DBIA/ICR reference
ASKLPOV(PROMPT) ; EP - Ask Lab Purpose Of Visit. Must be answered.
ASK(LRORD,LRODT,ASK,MULTIPL,STUFF) ; EP
RPT ;
ASK1(STUFF,TST,DEF,ORDIEN,DA) ;
ASK1B
DELACC ;
DIAG(LRODT,LRORD) ;EP CALLED FROM LROW2A,LRTSTSET
CANTST(LRSN,TT) ;EP
ASK2
ADDTST(LRODT,ORDIEN,TST) ;EP CALLED FROM LRTSTSET WHEN ADDING TEST TO ORDER
YNONLY
COMPORD(LRODT,LRORD) ;EP CALLED FROM LRORDST
CANORD(LRODT,LRORD) ;EP
MULTTST(LRORD,LRODT,MULTIPL) ;
UPPER(X) ; EP

External References

Name Field # of Occurrence
TESTDEL^BLRDIAG1 DELACC+7
PRESSKEY^BLRGMENU ASKLPOV+16
GETRID^BLRSGNSP RPT+21
$$CHKORDAC^BLRSGNSU ADDTST+3
$$ALLTESTS^BLRSGNSY RPT+20
$$GETSDIAG^BLRSGNSY ASK+24, ADDTST+15
ENTRYAUD^BLRUTIL DIAG+1, DIAG+5, DIAG+16, ASK+1
^DIE ASK+39, ASK+42, ADDTST+25
$$GET1^DIQ ASK+23
^DIR YNONLY+8, RPT+34, ASK2+4, DELACC+15, ASKLPOV+11
^LRWLST COMPORD+16
^XBFMK DELACC+11, ASKLPOV+5
$$UP^XLFSTR ASKLPOV+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: DIAG+18
Function Call: WRITE
  • Prompt: !!
  • Line Location: YNONLY+15
Function Call: WRITE
  • Prompt: !
  • Line Location: RPT+10
Function Call: WRITE
  • Prompt: !!,"ORDER CANCELED!!"
  • Line Location: RPT+25
Function Call: WRITE
  • Prompt: !,"This is a required response."
  • Line Location: RPT+26
Function Call: WRITE
  • Prompt: !!,"No Sign or Symptom entered for order number "_LRORD,!!
  • Line Location: RPT+27
Function Call: WRITE
  • Prompt: !!,"No Clinical Indication entered for order number "_LRORD,!!
  • Line Location: RPT+28
Function Call: WRITE
  • Prompt: !!
  • Line Location: RPT+38
Function Call: WRITE
  • Prompt: !!,?4,"SIGN/SYMPTOM FOR TEST: ",$$GET1^DIQ(69.03,TST_","_ORDIEN_","_LRODT_",","TEST/PROCEDURE")
  • Line Location: ASK+23
Function Call: WRITE
  • Prompt: !,"ORDER IS CURRENTLY BEING EDITED!"
  • Line Location: ASK+36
Function Call: WRITE
  • Prompt: !,"ORDER IS CURRENTLY BEING EDITED!"
  • Line Location: ASK+41
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK1B+6
Function Call: WRITE
  • Prompt: !!,"TEST CANCELED FROM ORDER!!"
  • Line Location: ASK1B+14
Function Call: WRITE
  • Prompt: !!,"TEST CANCELED FROM ORDER!!"
  • Line Location: ASK1B+15
Function Call: WRITE
  • Prompt: !,"This is a required response."
  • Line Location: ASK1B+16
Function Call: WRITE
  • Prompt: !!,"No Sign or Symptom entered for "_$P($G(^LAB(60,TST,0)),U),!!
  • Line Location: ASK1B+17
Function Call: WRITE
  • Prompt: !!,"No Clinical Indication entered for "_$P($G(^LAB(60,TST,0)),U),!!
  • Line Location: ASK1B+18
Function Call: WRITE
  • Prompt: !,"ORDER IS CURRENTLY BEING EDITED!"
  • Line Location: ADDTST+24
Function Call: WRITE
  • Prompt: !,?5,$P(^LAB(60,+X,0),"^")
  • Line Location: CANORD+3
Function Call: WRITE
  • Prompt: !,?5,$P(^LAB(60,+X,0),"^")
  • Line Location: CANTST+5
Function Call: WRITE
  • Prompt: !!,"Press Return to continue..."
  • Line Location: DELACC+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: DELACC+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKLPOV+10
Function Call: WRITE
  • Prompt: !,?4,"Invalid/'^' input not allowed."
  • Line Location: ASKLPOV+15
Routine Call
  • DIE
  • Line Location:
    • ASK+39
    • ASK+42
    • ADDTST+25
Routine Call
  • DIR
  • Line Location:
    • YNONLY+8
    • RPT+34
    • ASK2+4
    • DELACC+15
    • ASKLPOV+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
69.03 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(69.03 ASKLPOV+9
^LAB(60 - [#60] ASK1B+11, ASK1B+18, CANORD+3, CANTST+5, DELACC+2
^LR - [#63] ASK+9
^LRO(68 - [#68] DELACC+5, DELACC+6
^LRO(69 - [#69] COMPORD+9, MULTTST+3, MULTTST+5, ASK+7, ASK+8, ASK+17, ASK+20, ASK+28, ASK+31, ASK+37
, ASK+39, ASK+41, ASK+42, ADDTST+7, ADDTST+12, ADDTST+24, ADDTST+26, CANORD+1, CANORD+2, CANORD+3
, CANORD+4*, CANTST+3, CANTST+5, CANTST+6*
^TMP("BLRDIAG" RPT+18*, RPT+19*, MULTTST+1*, ASK+12*, ASK+46!, ADDTST+13*, ADDTST+14*, ADDTST+16!

Label References

Name Line Occurrences
$$UPPER ASK+14, ASK1B+1
ASK YNONLY+15, RPT+4, RPT+37
ASK1 ASK+32
ASK1B ASK1B+16, ASK2+5
ASKLPOV ASK1B+11
CANORD RPT+25
CANTST ASK1B+15
DELACC ADDTST+22
DIAG COMPORD+6
MULTTST DIAG+9
RPT DIAG+12, RPT+26, RPT+35
YNONLY YNONLY+10

Naked Globals

Name Field # of Occurrence
^( CANORD+2
^(0 CANORD+4*, CANTST+6*
^(3 DELACC+5
^(9 DELACC+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANSWER ASKLPOV+1~, ASKLPOV+13*, ASKLPOV+14
ASK ASK~, ASK+30, ASK+40
>> ASKALL DIAG+19*, YNONLY+12*, YNONLY+14, YNONLY+15
BADINPUT ASKLPOV+1~, ASKLPOV+3*, ASKLPOV+4, ASKLPOV+12*, ASKLPOV+17*
BAILOUT ASK+4~, ASK+13*, ASK+17, ASK+20, ASK+24*, ADDTST+5~, ADDTST+15, ADDTST+17
>> BLRGUI DIAG+12, RPT+4, ASK+37
>> BLRRLASK YNONLY+14*
>> BPCCOM RPT+4
DA ASK+28*, ASK+31, ASK+32, ASK1~, ASK1B+15, ADDTST+7*, ADDTST+14, ADDTST+15, ASKLPOV+1~
DEF ASK+31*, ASK+32, ASK1~
DFN RPT+20, ASK+6, ASK+9*, ASK+24, ASK+44!, ADDTST+15
DFNFLAG ASK+3~, ASK+10*, ASK+44
DIE ASK+29*, ADDTST+8*, ASKLPOV+1~
DIR YNONLY+3!, RPT+2!, RPT+30!, ASK1B!, ASK2!, ASKLPOV+6!
DIR("A" YNONLY+5*, RPT+33*, ASK2+3*, DELACC+13*, ASKLPOV+7*, ASKLPOV+8*
DIR("B" YNONLY+6*, RPT+32*, ASK2+2*
DIR("T" DELACC+14*
DIR(0 YNONLY+7*, RPT+31*, ASK2+1*, DELACC+12*, ASKLPOV+9*
>> DIRUT ASKLPOV+14
>> DR ASK+34*, ASK+40*, ADDTST+23*
>> DTOUT DIAG+20, RPT+26, ASK1B+16
>> DUOUT DIAG+20, RPT+26, ASK1B+16
DUZ CANORD+4, CANTST+6
I MULTTST+3*, MULTTST+4, ASK+3~, ASK+45!
J MULTTST+5*, MULTTST+6, ASK+3~, ASK+45!
>> LRAA CANTST+4*, DELACC+5, DELACC+6
>> LRACC CANTST+1*
>> LRAD CANTST+4*, DELACC+5, DELACC+6
>> LRAN CANTST+4*, DELACC+5, DELACC+6
>> LRCCOM DELACC+4*
LRDFN ASK+8*, ASK+9, ASK+44!
LRFLG ADDTST+17!, DELACC+18!
>> LRIDT DELACC+5*
LRNCWL COMPORD+16!*, CANORD+6*
>> LRNOP RPT+25*, ASK1B+15*, CANORD+2, CANTST+4
LRODT COMPORD~, COMPORD+2, COMPORD+6, COMPORD+9, DIAG~, DIAG+3, DIAG+9, YNONLY+15, RPT+4, RPT+20
, RPT+25, RPT+37, MULTTST~, MULTTST+3, MULTTST+5, ASK~, ASK+7, ASK+8, ASK+17, ASK+20
, ASK+23, ASK+24, ASK+28, ASK+29, ASK+31, ASK+37, ASK+39, ASK+41, ASK+42, ADDTST~
, ADDTST+1, ADDTST+3, ADDTST+7, ADDTST+8, ADDTST+12, ADDTST+15, ADDTST+24, ADDTST+26, CANORD~, CANORD+1
, CANORD+2, CANORD+3, CANORD+4, CANTST+3, CANTST+5, CANTST+6, DELACC+6*
LRORD COMPORD~, COMPORD+2, COMPORD+6, COMPORD+9, DIAG~, DIAG+3, DIAG+9, YNONLY+15, RPT+4, RPT+18
, RPT+20, RPT+21, RPT+25, RPT+28, RPT+37, MULTTST~, MULTTST+1, MULTTST+3, ASK~, ASK+7
, ASK+12, ASK+17, ASK+24, ADDTST+12*, ADDTST+13, ADDTST+15, CANORD~, CANORD+1
>> LRORDR COMPORD+8
>> LROWDT DELACC+6*
LRPHSET COMPORD+16!*
>> LRPOVREQ RPT+1*, RPT+26, ASK1+1*, ASK1B+16
LRSN COMPORD+16*, ASK1B+15, CANTST~, CANTST+3, CANTST+5, CANTST+6, DELACC+6*
LRSNTMP CANORD+1*, CANORD+2, CANORD+3, CANORD+4, CANORD+8!
LRSP ASK+7*, ASK+8, ASK+44!
>> LRTN ASK1B+15
>> LRTNM DELACC+2*
>> LRTS DELACC+1, DELACC+2
>> LRTSTS DELACC+1*
MULTIPL DIAG+8*, DIAG+9, DIAG+20, YNONLY+15, RPT+4, RPT+37, MULTTST~, MULTTST+3, MULTTST+4*, MULTTST+5
, MULTTST+6*, ASK~
ORDIEN COMPORD+9*, COMPORD+16, MULTTST+3*, MULTTST+5, ASK+3~, ASK+17*, ASK+20, ASK+23, ASK+24, ASK+28
, ASK+29, ASK+31, ASK+32, ASK+37, ASK+39, ASK+41, ASK+42, ASK+45!, ASK1~, ASK1B+15
, ADDTST~, ADDTST+1, ADDTST+3, ADDTST+7, ADDTST+8, ADDTST+12, ADDTST+15, ADDTST+24, ADDTST+26
>> ORIFN CANTST+4*
PROMPT ASKLPOV~, ASKLPOV+7
>> RESULT(1 ASK+37*
>> RESULT(2 ASK+37*
SEQ ASK+3~
STUFF YNONLY+2!, RPT+2!, RPT+29*, RPT+37, ASK~, ASK+14*, ASK+32, ASK+40, ASK1~, ASK1B+1*
, ASK1B+19*
TMPCWL COMPORD+5~, COMPORD+16*
TMPSET COMPORD+5~, COMPORD+16*
TST MULTTST+5*, ASK+3~, ASK+20*, ASK+23, ASK+24, ASK+28, ASK+32, ASK+45!, ASK1~, ASK1B+11
, ASK1B+18, ADDTST~, ADDTST+1, ADDTST+3, ADDTST+7, CANORD+2!, CANTST+2!
TST( CANTST+4*
TT CANORD+2*, CANORD+3, CANORD+4, CANTST~, CANTST+3, CANTST+5, CANTST+6
U RPT+25, RPT+28, ASK+33, ASK1B+11, ASK1B+15, ASK1B+18, ADDTST+20, ADDTST+22, CANTST+4, DELACC+2
, DELACC+5, DELACC+6, ASKLPOV+9
X UPPER~, UPPER+1, YNONLY+10, RPT+20*, RPT+21, ADDTST+15*, CANORD+2*, CANORD+3*, CANTST+3*, CANTST+4
, CANTST+5*, DELACC+6*
>> XQY0 ADDTST+20, ADDTST+22
Y YNONLY+12, RPT+25, RPT+26, RPT+28, RPT+29, RPT+35, ASK+3~, ASK+33, ASK1B+15, ASK1B+16
, ASK1B+18, ASK1B+19, ASK2+5, ADDTST+20, ADDTST+22, ASKLPOV+13
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 |  Naked Globals |  Local Variables |  All