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

Package: IHS Changes To Lab

Routine: BLRSGNSU


Information

BLRSGNSU ; IHS/OIT/MKK - IHS Lab SiGN or SYmptom Utilities ; 31-Jul-2015 06:30 ; MKK

Source Information

Source file <BLRSGNSU.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
IHS Changes To Lab 5 (EEP,HEADERDT,PRESSKEY)^BLRGMENU  ERRMSG^BLRSGNS3  GETRID^BLRSGNSP  ($$LISTMSEL,PROVNARR)^BLRSGNSY  ENTRYAUD^BLRUTIL  
VA Fileman 4 $$FIND1^DIC  UPDATE^DIE  $$GET1^DIQ  ^DIR  
Kernel 3 HOME^%ZIS  $$DT^XLFDT  $$CJ^XLFSTR  
IHS Standard Terminology 1 ($$CONC,$$SEARCH)^BSTSAPI  
IHS VA Utilities 1 ^XBFMK  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
IHS Changes To Lab 4 BLRDIAG  BLRSGNS2  BLRSGNSD  BLRSGNSY  
IHS Laboratory Point of Care 1 BLRPOC3  

Entry Points

Name Comments DBIA/ICR reference
ADDTORDN(LRODT,LRSP,LRTST) ; EP - Adding a test to an order?
; NEW (BAILOUT,DFN,DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,LRORD,LRODT,LRSP,LRTST,PNM,HRCN,U,XPARSYS,XQXFLG)
CHKORDAC(LRODT,ORDIEN,TST) ; EP - Adding a test?
ACCESST(LRODT,LRSP,ORDTEST) ; EP - Determine the first test on an order with Accession data
CHKITOUT(DFN,LRODT) ; EP - User MUST select a diagnosis from list
CHKPLIST(DFN,LRODT) ; EP - Check Problem List.
TEXTPOVI(DFN,LRODT) ; EP - No Entries in PROBLEM file; use Text & BSTS Database
EEP ; Ersatz EP
GETDIAG(LRODT) ; EP - Get a diagnosis.
ADDTLRAS(LRODT,LRSP,LRTST) ; EP - Adding a test to an accession?
ADDICD9 ; EP - Adds ICD9 codes to VARS array
GETSNOPN(DFN,LRODT) ; EP - SNOMED Selections

External References

Name Field # of Occurrence
HOME^%ZIS ADDTORDN+4
EEP^BLRGMENU EEP+1
HEADERDT^BLRGMENU ADDTORDN+75
PRESSKEY^BLRGMENU ADDTORDN+82, ADDTORDN+87, ADDTORDN+114, ADDTORDN+120, GETDIAG+18
ERRMSG^BLRSGNS3 ADDTLRAS+32, ADDTLRAS+45, ADDTORDN+116
GETRID^BLRSGNSP GETDIAG+38
$$LISTMSEL^BLRSGNSY GETSNOPN+30, TEXTPOVI+12
PROVNARR^BLRSGNSY GETDIAG+8
ENTRYAUD^BLRUTIL CHKORDAC+1, ADDTLRAS+3, ADDTORDN+6
$$CONC^BSTSAPI CHKPLIST+13, CHKPLIST+14, GETSNOPN+13, GETSNOPN+14
$$SEARCH^BSTSAPI GETDIAG+34
$$FIND1^DIC ADDICD9+5
UPDATE^DIE ADDTLRAS+30, ADDTLRAS+37, ADDTLRAS+42, ADDTORDN+110
$$GET1^DIQ ADDTLRAS+10, ADDTLRAS+11, ADDTLRAS+12, ADDTLRAS+13, ACCESST+6, ACCESST+8, ADDTORDN+7, ADDTORDN+19, ADDTORDN+20, ADDTORDN+21
, ADDTORDN+35, ADDTORDN+70, ADDTORDN+98, ADDTORDN+99, ADDTORDN+100, ADDTORDN+118, CHKPLIST+5, CHKPLIST+8, GETSNOPN+5, GETSNOPN+8
, ADDICD9+6
^DIR ADDTORDN+77, GETDIAG+13, GETDIAG+27
^XBFMK ADDTORDN+46, GETDIAG+9, GETDIAG+21
$$DT^XLFDT ADDICD9+8
$$CJ^XLFSTR ADDTORDN+73

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?4,"No/Invalid/Quit Entry."
  • Line Location: ADDTORDN+81
Function Call: WRITE
  • Prompt: !!,?4,"'None of the Above' Selected. Terminology Server will be called."
  • Line Location: ADDTORDN+86
Function Call: WRITE
  • Prompt: !!,?4,"No/Invalid/Quit Entry."
  • Line Location: ADDTORDN+92
Function Call: WRITE
  • Prompt: !!,?4,"Error trying to add data. See MailMan message."
  • Line Location: ADDTORDN+113
Function Call: WRITE
  • Prompt: !!,?4,"SNOMED ",ORIGSN," data added to test "_ADDTESTN_" ["_LRTST_"]."
  • Line Location: ADDTORDN+119
Function Call: WRITE
  • Prompt: !!,?4,$TR($J("",67)," ","*"),!
  • Line Location: TEXTPOVI+4
Function Call: WRITE
  • Prompt: ?4,"** Patient has no entries in the PROBLEM File with SNOMED codes. **",!
  • Line Location: TEXTPOVI+5
Function Call: WRITE
  • Prompt: ?4,$TR($J("",67)," ","*"),!!
  • Line Location: TEXTPOVI+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: GETDIAG+7
Function Call: WRITE
  • Prompt: !!,?4,"Invalid. Must Enter a Clinical Indication.",!
  • Line Location: GETDIAG+17
Function Call: WRITE
  • Prompt: !!,?9,"No entries found in the IHS STANDARD TERMINOLOGY database. Try Again."
  • Line Location: GETDIAG+36
Routine Call
  • %ZIS
  • Line Location:
    • ADDTORDN+4
Routine Call
  • DIC
  • Line Location:
    • ADDICD9+5
Routine Call
  • DIR
  • Line Location:
    • ADDTORDN+77
    • GETDIAG+13
    • GETDIAG+27
Routine Call
  • DIE
  • Line Location:
    • ADDTLRAS+30
    • ADDTLRAS+37
    • ADDTLRAS+42
    • ADDTORDN+110

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] GET1^DIQ
69.01 GET1^DIQ
69.03 GET1^DIQ
69.05 GET1^DIQ
^ICDS - [#80.4] FIND1^DIC,  GET1^DIQ
^AUPNPROB - [#9000011] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPROB("AC" CHKPLIST+4, GETSNOPN+4
^LRO(69 - [#69] ADDTLRAS+18, ACCESST+4, ADDTORDN+13, ADDTORDN+15, ADDTORDN+17, ADDTORDN+104
^TMP("BLR SNOMED GET" GETSNOPN+29*, TEXTPOVI+11*, GETDIAG+43*
^TMP("BLRDIAG" GETDIAG+3, GETDIAG+38

Label References

Name Line Occurrences
$$ACCESST CHKORDAC+5, ADDTLRAS+5
$$ADDTLRAS CHKORDAC+3
$$ADDTORDN CHKORDAC+7
$$CHKPLIST CHKITOUT+1
$$GETSNOPN CHKITOUT+5
$$TEXTPOVI CHKITOUT+1
ADDICD9 GETDIAG+35
GETDIAG TEXTPOVI+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ADDTESTN ADDTORDN+118*, ADDTORDN+119
>> ADDTSTPN ADDTORDN+70*, ADDTORDN+72
APISTR CHKPLIST+1~, CHKPLIST+13*, CHKPLIST+14*, CHKPLIST+15, GETSNOPN+1~, GETSNOPN+13*, GETSNOPN+14*, GETSNOPN+15, GETSNOPN+20, GETSNOPN+21
>> BAILOUT ADDTLRAS+1, ADDTORDN+2, TEXTPOVI+9, GETDIAG+5*, GETDIAG+6, GETDIAG+28*, GETDIAG+38, GETDIAG+39*
>> CNT ADDTORDN+12*, ADDTORDN+25*, ADDTORDN+26, ADDTORDN+27, ADDTORDN+29, ADDTORDN+38, ADDTORDN+42*, ADDTORDN+43, ADDTORDN+44, ADDTORDN+55*
, ADDTORDN+56*, ADDTORDN+57, ADDTORDN+58, GETSNOPN+3*, GETSNOPN+23*, GETSNOPN+24, GETSNOPN+25, GETSNOPN+26, GETSNOPN+29
>> CONCID CHKPLIST+5*, CHKPLIST+6, CHKPLIST+11*, CHKPLIST+13, CHKPLIST+14, GETSNOPN+5*, GETSNOPN+6, GETSNOPN+11*, GETSNOPN+13, GETSNOPN+14
>> DEBUG CHKITOUT+3
DFN ADDTLRAS+1, ADDTORDN+2, CHKITOUT~, CHKITOUT+1, CHKITOUT+3, CHKITOUT+5, CHKPLIST~, CHKPLIST+4, GETSNOPN~, GETSNOPN+4
, TEXTPOVI~, TEXTPOVI+1, TEXTPOVI+3
>> DILOCKTM ADDTLRAS+1, ADDTORDN+2, CHKITOUT+3, TEXTPOVI+1
>> DIR("A" ADDTORDN+68*, GETDIAG+11*, GETDIAG+24*
>> DIR("B" GETDIAG+25*
>> DIR("L" ADDTORDN+52*, ADDTORDN+53*, ADDTORDN+57*, ADDTORDN+60*, ADDTORDN+65*, ADDTORDN+67*
>> DIR("T" GETDIAG+12*, GETDIAG+26*
>> DIR(0 ADDTORDN+47*, GETDIAG+10*, GETDIAG+22*
>> DIRZERO ADDTORDN+11*, ADDTORDN+27*, ADDTORDN+43*, ADDTORDN+47
>> DIRZERO( ADDTORDN+38*, ADDTORDN+56, ADDTORDN+57
>> DISYS ADDTLRAS+1, ADDTORDN+2, CHKITOUT+3, TEXTPOVI+1
DT ADDTLRAS+1, ADDTORDN+2, CHKITOUT+3, TEXTPOVI+1
DTIME ADDTLRAS+1, ADDTORDN+2, CHKITOUT+3, TEXTPOVI+1
>> DUOUT GETDIAG+20
DUZ ADDTLRAS+1, ADDTORDN+2, CHKITOUT+3, TEXTPOVI+1
ENTERDT GETSNOPN+1~
ERRS ADDTLRAS+32, ADDTLRAS+34!, ADDTLRAS+39, ADDTLRAS+40!, ADDTLRAS+45, ADDTORDN+112
>> F60DESC ADDTORDN+19*, ADDTORDN+30
FDA ADDTLRAS+34!, ADDTLRAS+40!
FDA( ADDTLRAS+26*, ADDTLRAS+27*, ADDTLRAS+35*, ADDTLRAS+41*, ADDTORDN+107*, ADDTORDN+108*, ADDTORDN+109*
>> FOUNDIT ADDTORDN+12*, ADDTORDN+24*, ADDTORDN+40
>> HEADER(1 ADDTORDN+71*
>> HEADER(2 ADDTORDN+72*
>> HEADER(3 ADDTORDN+73*
>> HRCN ADDTLRAS+1, ADDTORDN+2, CHKITOUT+3, TEXTPOVI+1
ICD10DT ADDICD9+3~, ADDICD9+6*, ADDICD9+7*, ADDICD9+16, ADDICD9+17
ICD10PTR ADDICD9+3~, ADDICD9+5*, ADDICD9+6
ICDCODE ADDTORDN+35*, ADDTORDN+36, GETSNOPN+1~, GETSNOPN+15*, GETSNOPN+26
ICDDESC GETSNOPN+1~
ICDPROB GETSNOPN+1~
ICDSTR GETSNOPN+1~
IEN GETSNOPN+1~
IENS ADDTLRAS+8*, ADDTLRAS+10, ADDTLRAS+11, ADDTLRAS+12, ADDTLRAS+13, ADDTLRAS+19*, ADDTLRAS+26, ADDTLRAS+27, ADDTLRAS+35, ADDTLRAS+41
, ACCESST+1~, ACCESST+5*, ACCESST+6, ACCESST+8, ADDTORDN+18*, ADDTORDN+19, ADDTORDN+20, ADDTORDN+21, ADDTORDN+35, ADDTORDN+96*
, ADDTORDN+98, ADDTORDN+99, ADDTORDN+100, ADDTORDN+105*, ADDTORDN+107, ADDTORDN+108, ADDTORDN+109
IN GETSNOPN+1~, GETDIAG+31*, GETDIAG+32*, GETDIAG+33*, GETDIAG+34
IO ADDTLRAS+1, CHKITOUT+3, TEXTPOVI+1
>> IOBS ADDTLRAS+1, CHKITOUT+3, TEXTPOVI+1
IOF ADDTLRAS+1, CHKITOUT+3, TEXTPOVI+1
IOM ADDTLRAS+1, ADDTORDN+73, CHKITOUT+3, TEXTPOVI+1
ION ADDTLRAS+1, CHKITOUT+3, TEXTPOVI+1
>> IOS ADDTLRAS+1, CHKITOUT+3, TEXTPOVI+1
IOSL ADDTLRAS+1, CHKITOUT+3, TEXTPOVI+1
IOST ADDTLRAS+1, CHKITOUT+3, TEXTPOVI+1
>> IOT ADDTLRAS+1, CHKITOUT+3, TEXTPOVI+1
>> IOXY ADDTLRAS+1, CHKITOUT+3, TEXTPOVI+1
>> LASTCNT ADDTORDN+44*, ADDTORDN+63, ADDTORDN+85
LASTMODD GETSNOPN+1~
>> LR69ODT ADDTORDN+12*, ADDTORDN+13*, ADDTORDN+15, ADDTORDN+17, ADDTORDN+18, ADDTORDN+26
>> LR69SP ADDTORDN+14*, ADDTORDN+15*, ADDTORDN+17, ADDTORDN+18, ADDTORDN+26
LRASTEST ADDTLRAS+5*, ADDTLRAS+6, ADDTLRAS+8, ACCESST+1~, ACCESST+3*, ACCESST+4, ACCESST+8*, ACCESST+10
>> LRNEWTST ADDTLRAS+18*, ADDTLRAS+19, ADDTORDN+104*, ADDTORDN+105
LRODT CHKORDAC~, CHKORDAC+3, CHKORDAC+5, CHKORDAC+7, ADDTLRAS~, ADDTLRAS+1, ADDTLRAS+5, ADDTLRAS+8, ADDTLRAS+18, ADDTLRAS+19
, ACCESST~, ACCESST+4, ACCESST+5, ADDTORDN~, ADDTORDN+2, ADDTORDN+7, ADDTORDN+104, ADDTORDN+105, CHKITOUT~, CHKITOUT+1
, CHKITOUT+3, CHKITOUT+5, CHKPLIST~, CHKPLIST+11, GETSNOPN~, GETSNOPN+11, TEXTPOVI~, TEXTPOVI+1, TEXTPOVI+8, GETDIAG~
, GETDIAG+32
>> LRORD ADDTLRAS+1, ADDTORDN+2
>> LROTST ADDTORDN+16*, ADDTORDN+17*, ADDTORDN+18, ADDTORDN+26
>> LRSNOMED ADDTORDN+21*, ADDTORDN+22, ADDTORDN+31
LRSP ADDTLRAS~, ADDTLRAS+1, ADDTLRAS+5, ADDTLRAS+8, ADDTLRAS+18, ADDTLRAS+19, ACCESST~, ACCESST+4, ACCESST+5, ADDTORDN~
, ADDTORDN+2, ADDTORDN+7, ADDTORDN+104, ADDTORDN+105
LRTST ADDTLRAS~, ADDTLRAS+1, ADDTLRAS+5, ADDTLRAS+18, ADDTORDN~, ADDTORDN+2, ADDTORDN+70, ADDTORDN+72, ADDTORDN+104, ADDTORDN+118
, ADDTORDN+119
>> MENUCNT ADDTORDN+55*, ADDTORDN+58*, ADDTORDN+59*, ADDTORDN+60, ADDTORDN+61*, ADDTORDN+65
ONETEST GETDIAG+1~, GETDIAG+3*, GETDIAG+24
ONLYONE CHKPLIST+1~
>> ORDERN ADDTORDN+7*, ADDTORDN+9, ADDTORDN+13, ADDTORDN+15, ADDTORDN+72
ORDIEN CHKORDAC~, CHKORDAC+3, CHKORDAC+5, CHKORDAC+7
ORDTEST ACCESST~, ACCESST+1~, ACCESST+3*, ACCESST+4*, ACCESST+5, ACCESST+8
ORDTEST( ADDTORDN+26*, ADDTORDN+80, ADDTORDN+96
>> ORIGICDI ADDTLRAS+13*, ADDTLRAS+39, ADDTLRAS+41
>> ORIGICDP ADDTLRAS+12*, ADDTLRAS+35, ADDTLRAS+37, ADDTORDN+100*, ADDTORDN+109
>> ORIGPN ADDTLRAS+10*, ADDTLRAS+16, ADDTLRAS+26, ADDTORDN+98*, ADDTORDN+102, ADDTORDN+107
>> ORIGSN ADDTLRAS+11*, ADDTLRAS+16, ADDTLRAS+27, ADDTORDN+99*, ADDTORDN+102, ADDTORDN+108, ADDTORDN+119
OUT GETSNOPN+3*, GETDIAG+30!, GETDIAG+31*, GETDIAG+34
>> PNM ADDTLRAS+1, ADDTORDN+2, CHKITOUT+3, TEXTPOVI+1
PROBCNT CHKPLIST+1~, CHKPLIST+3*, CHKPLIST+20*, CHKPLIST+22, GETSNOPN+1~
PROBICD CHKPLIST+1~, CHKPLIST+3*, CHKPLIST+15*, GETSNOPN+1~
PROBIEN CHKPLIST+1~, CHKPLIST+3*, CHKPLIST+4*, CHKPLIST+5, CHKPLIST+8, GETSNOPN+1~, GETSNOPN+3*, GETSNOPN+4*, GETSNOPN+5, GETSNOPN+8
PROBLEMS GETSNOPN+1~
>> PROVNARR ADDTORDN+20*, ADDTORDN+22, ADDTORDN+34
PSTATUS CHKPLIST+1~, CHKPLIST+8*, CHKPLIST+9, GETSNOPN+8*, GETSNOPN+9
SNOMED GETSNOPN+1~, GETSNOPN+20*, GETSNOPN+24
SNOMEDSC GETSNOPN+1~, GETSNOPN+21*, GETSNOPN+25
STR ADDTORDN+28!, ADDTORDN+29*, ADDTORDN+30*, ADDTORDN+31*, ADDTORDN+34*, ADDTORDN+36*, ADDTORDN+38, ADDTORDN+62!, ADDTORDN+63*, ADDTORDN+64*
, ADDTORDN+65
TODAY ADDICD9+3~, ADDICD9+8*, ADDICD9+16, ADDICD9+17
TST CHKORDAC~, CHKORDAC+3, CHKORDAC+5, CHKORDAC+7
U ADDTLRAS+1, ADDTORDN+2, CHKITOUT+3, TEXTPOVI+1
VARS GETSNOPN+1~
VARS( GETSNOPN+24*, GETSNOPN+25*, GETSNOPN+26*, ADDICD9+13, ADDICD9+14, ADDICD9+16*, ADDICD9+17*
VARS("A" GETDIAG+42
>> VARSCNT GETDIAG+42*, GETDIAG+43
VARSDESC GETSNOPN+1~
WOT ADDICD9+3~, ADDICD9+12*, ADDICD9+13*, ADDICD9+14, ADDICD9+16, ADDICD9+17
>> X GETDIAG+14, GETDIAG+16, GETDIAG+31
>> XPARSYS ADDTLRAS+1, ADDTORDN+2, CHKITOUT+3, TEXTPOVI+1
>> XQXFLG ADDTLRAS+1, ADDTORDN+2, CHKITOUT+3, TEXTPOVI+1
>> Y ADDTORDN+80, ADDTORDN+85, ADDTORDN+96, GETDIAG+5*, GETDIAG+6, GETDIAG+14*, GETDIAG+19*, GETDIAG+28*, GETDIAG+29*, GETDIAG+34*
, GETDIAG+36, GETDIAG+39
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