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 |  Marked Items |  All
Print Page as PDF
Routine: BLRSGNSY

Package: IHS Changes To Lab

Routine: BLRSGNSY


Information

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

Source Information

Source file <BLRSGNSY.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
IHS Changes To Lab 7 (ADDTMENU,EEP,HEADERDT,HEADERPG,HEADONE,LINEWRAP,MENUDRVR,PRESSKEY)^BLRGMENU  $$INACTDT^BLRICDU0  ERRMSG^BLRSGNS3  ($$CHKITOUT,GETDIAG)^BLRSGNSU  EN^BLRSM  ENTRYAUD^BLRUTIL  (ADBLRRLO,STORDIAG)^BLRUTIL6  
VA Fileman 4 $$FIND1^DIC  (FILE,UPDATE)^DIE  $$GET1^DIQ  ^DIR  
Kernel 2 ($$DT,$$FMTE)^XLFDT  ($$CJ,$$TRIM)^XLFSTR  
DRG Grouper 1 $$ICDDX^ICDEX  
IHS VA Utilities 1 ^XBFMK  
Registration 1 CLEAR^VALM1  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
IHS Changes To Lab 4 BLRDIAG  BLRSGNS2  BLRSGNSU  BLRSM  

Entry Points

Name Comments DBIA/ICR reference
STORDIAG(DFN,LRORD,LRODT,LRSP,LRSPTST,PROBSTR,RELCINFO) ; EP - Store the responses on the test
GETSDIAG(DFN,LRORD,LRODT,LRSP,LRTST,BAILOUT) ; EP - Get & Store Diagnosis
XTMPORPT ; EP - Report on ^XTMP("BLRSGNSY" data by Order Number
LISTMSEL() ; EP - LIST Manager to SELect entry
XTMPMENU ; EP - Menu of XTMP Reports
PEP ; EP
EEP ; Ersatz EP
PROVNARR ; EP - List ALL current Provider Narratives for all tests for the order
XTMPRPT ; EP - Report on ^XTMP("BLRSGNSY" data
ALLTESTS(DFN,LRORD,LRODT) ; EP - Get & Store Single Diagnosis for *ALL* tests on an Order with Multiple Tests
RELCINFO() ; EP - Relevant Clinical Information -- Currently (01/27/2014), not used
XTMPORPL ; EP - Line of Data
NEWLIST ; EP - Ask user if they want to create a new listing
DEBUG ; EP
XTMPRPTL ; EP - Line of Data
GETVALUE(PROBLIEN) ; EP - Get the value to store from the Problem List
XTMPRPTI ; EP - Initialization
EP ; EP
XTMPORPI ; EP - Initialization
RESETSCR ; EP - Reset the screen after a crash

External References

Name Field # of Occurrence
ADDTMENU^BLRGMENU XTMPMENU+6, XTMPMENU+7, XTMPMENU+8
EEP^BLRGMENU EEP+1
HEADERDT^BLRGMENU XTMPRPTI+6, XTMPORPI+6
HEADERPG^BLRGMENU XTMPRPTL+1, XTMPORPL+1
HEADONE^BLRGMENU XTMPRPTI+7, XTMPORPI+7
LINEWRAP^BLRGMENU PROVNARR+20, XTMPRPTL+5, XTMPORPL+5
MENUDRVR^BLRGMENU XTMPMENU+11
PRESSKEY^BLRGMENU NEWLIST+29, XTMPRPT+5, XTMPRPT+14, XTMPORPT+5, XTMPORPT+16
$$INACTDT^BLRICDU0 STORDIAG+25
ERRMSG^BLRSGNS3 STORDIAG+21, STORDIAG+47
$$CHKITOUT^BLRSGNSU GETSDIAG+5, ALLTESTS+7
GETDIAG^BLRSGNSU NEWLIST+30
EN^BLRSM LISTMSEL+4
ENTRYAUD^BLRUTIL STORDIAG+10
ADBLRRLO^BLRUTIL6 STORDIAG+51
STORDIAG^BLRUTIL6 STORDIAG+49
$$FIND1^DIC STORDIAG+31
FILE^DIE STORDIAG+19
UPDATE^DIE STORDIAG+36, STORDIAG+41
$$GET1^DIQ PROVNARR+12, PROVNARR+13, PROVNARR+14, PROVNARR+24
^DIR NEWLIST+13, NEWLIST+21, RELCINFO+9
$$ICDDX^ICDEX GETVALUE+3
CLEAR^VALM1 RESETSCR+1
^XBFMK STORDIAG+12, NEWLIST+8, NEWLIST+17, RELCINFO+5
$$DT^XLFDT STORDIAG+25
$$FMTE^XLFDT XTMPRPTL+3, XTMPORPL+3
$$CJ^XLFSTR XTMPORPI+9
$$TRIM^XLFSTR STORDIAG+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWLIST+7
Function Call: WRITE
  • Prompt: !,"You MUST Select an appropriate SNOMED code from the list."
  • Line Location: NEWLIST+28
Function Call: WRITE
  • Prompt: !!
  • Line Location: RELCINFO+4
Function Call: WRITE
  • Prompt: ?4,"TEST: ",F60DESC,!
  • Line Location: PROVNARR+18
Function Call: WRITE
  • Prompt: ?9,"PROVIDER NARRATIVE:"
  • Line Location: PROVNARR+19
Function Call: WRITE
  • Prompt: !
  • Line Location: PROVNARR+21
Function Call: WRITE
  • Prompt: ?9,"SNOMED: ",LRSNOMED,!
  • Line Location: PROVNARR+22
Function Call: WRITE
  • Prompt: !!,"No data in ^XTMP(""BLRSGNSY"". Routine Ends."
  • Line Location: XTMPRPT+4
Function Call: WRITE
  • Prompt: DATETIME,?16,$$FMTE^XLFDT(DATETIME,"5MZ")
  • Line Location: XTMPRPTL+3
Function Call: WRITE
  • Prompt: ?34,MSG
  • Line Location: XTMPRPTL+4
Function Call: WRITE
  • Prompt: !
  • Line Location: XTMPRPTL+6
Function Call: WRITE
  • Prompt: !!,"No data in ^XTMP(""BLRSGNSY"". Routine Ends."
  • Line Location: XTMPORPT+4
Function Call: WRITE
  • Prompt: ORDERNUM,?9,DATETIME,?26,$$FMTE^XLFDT(DATETIME,"5MZ")
  • Line Location: XTMPORPL+3
Function Call: WRITE
  • Prompt: ?44,MSG
  • Line Location: XTMPORPL+4
Function Call: WRITE
  • Prompt: !
  • Line Location: XTMPORPL+6
Routine Call
  • DIE
  • Line Location:
    • STORDIAG+36
    • STORDIAG+41
Routine Call
  • DIC
  • Line Location:
    • STORDIAG+31
Routine Call
  • DIE
  • Line Location:
    • STORDIAG+19
Routine Call
  • DIR
  • Line Location:
    • NEWLIST+13
    • NEWLIST+21
    • RELCINFO+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
69.03 GET1^DIQ
69.05 GET1^DIQ
^ICD9 - [#80] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPROB - [#9000011] GETVALUE+1
^DPT - [#2] GETSDIAG+3, ALLTESTS+5
^LRO(69 - [#69] ALLTESTS+13, ALLTESTS+15, PROVNARR+6, PROVNARR+8, PROVNARR+10
^TMP("BLR SNOMED GET" GETSDIAG+13!, ALLTESTS+17!
^TMP("BLRDIAG" NEWLIST+3, PROVNARR+2
^XTMP("BLRSGNSY" XTMPRPT+3, XTMPRPT+10, XTMPRPT+12, XTMPORPT+3, XTMPORPT+10, XTMPORPT+12, XTMPORPT+14

Label References

Name Line Occurrences
$$GETSDIAG DEBUG+10
NEWLIST LISTMSEL+5
STORDIAG GETSDIAG+11, ALLTESTS+15
XTMPORPI XTMPORPT+7
XTMPORPL XTMPORPT+14
XTMPRPTI XTMPRPT+7
XTMPRPTL XTMPRPT+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BAILOUT GETSDIAG~, GETSDIAG+1, GETSDIAG+7*, ALLTESTS+3*, LISTMSEL+2*, LISTMSEL+3, LISTMSEL+7, NEWLIST+5*, NEWLIST+6, NEWLIST+22*
, NEWLIST+25
>> BLRVERN XTMPMENU+3*, XTMPRPTI+1*, XTMPORPI+1*
>> BLRVERN2 XTMPMENU+4*
>> CNT PROVNARR+5*, PROVNARR+16*, PROVNARR+17, XTMPRPTI+14*, XTMPRPTL+8*, XTMPORPI+17*, XTMPORPL+8*
>> DATETIME XTMPRPT+10*, XTMPRPT+12, XTMPRPTI+16*, XTMPRPTL+3, XTMPORPT+11*, XTMPORPT+12*, XTMPORPT+14, XTMPORPI+19*, XTMPORPL+3
DESCPROB STORDIAG+1~, STORDIAG+4*, STORDIAG+8*, STORDIAG+16
DFN GETSDIAG~, GETSDIAG+1, GETSDIAG+3, GETSDIAG+5, GETSDIAG+11, ALLTESTS~, ALLTESTS+1, ALLTESTS+5, ALLTESTS+7, ALLTESTS+15
, STORDIAG~, DEBUG+3*, DEBUG+10
>> DILOCKTM GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
>> DIR("A" NEWLIST+10*, NEWLIST+19*, RELCINFO+7*
>> DIR("B" NEWLIST+11*
>> DIR("T" NEWLIST+12*, NEWLIST+20*, RELCINFO+8*
>> DIR(0 NEWLIST+9*, NEWLIST+18*, RELCINFO+6*
>> DIRUT NEWLIST+14, NEWLIST+27
>> DISYS GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
DT GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
DTIME GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
DUZ GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
ERRS STORDIAG+13!, STORDIAG+21, STORDIAG+27!, STORDIAG+34!, STORDIAG+38, STORDIAG+39!, STORDIAG+47
>> F60DESC PROVNARR+12*, PROVNARR+18
FDA STORDIAG+13!, STORDIAG+27!, STORDIAG+39!
FDA( STORDIAG+16*, STORDIAG+17*, STORDIAG+18*, STORDIAG+35*, STORDIAG+40*
>> HDRONE XTMPRPTI+7, XTMPRPTL+1, XTMPORPI+7, XTMPORPL+1
>> HEADER(1 XTMPRPTI+3*, XTMPORPI+3*
>> HEADER(2 XTMPRPTI+4*, XTMPORPI+4*
>> HEADER(3 XTMPRPTI+9*, XTMPORPI+9*
>> HEADER(4 XTMPRPTI+10*, XTMPRPTI+11*, XTMPORPI+10*
>> HEADER(5 XTMPORPI+11*, XTMPORPI+12*, XTMPORPI+13*, XTMPORPI+14*
>> HRCN GETSDIAG+1, ALLTESTS+1, DEBUG+5*
>> ICD PROVNARR+24*, PROVNARR+25
ICDCODE STORDIAG+1~, STORDIAG+5*, STORDIAG+25, STORDIAG+30, STORDIAG+31, STORDIAG+35, GETVALUE+4*, GETVALUE+5
>> ICDDESC GETVALUE+4*, GETVALUE+5
>> ICDIEN STORDIAG+31*, STORDIAG+32*, STORDIAG+38, STORDIAG+40, STORDIAG+49
>> ICDPROB GETVALUE+1*, GETVALUE+3
ICDSTR STORDIAG+1~, GETVALUE+3*, GETVALUE+4
IENS STORDIAG+1~, STORDIAG+13!, STORDIAG+14*, STORDIAG+16, STORDIAG+17, STORDIAG+18, STORDIAG+28*, STORDIAG+35, STORDIAG+40, PROVNARR+11*
, PROVNARR+12, PROVNARR+13, PROVNARR+14, PROVNARR+24
IO GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
>> IOBS GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
IOF GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
IOM GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1, XTMPORPI+9
ION GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
>> IOS GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
IOSL GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
IOST GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
>> IOT GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
>> IOXY GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
>> LINES XTMPRPTI+13*, XTMPRPTL+1, XTMPRPTL+7*, XTMPORPI+16*, XTMPORPL+1, XTMPORPL+7*
>> LRDFN GETSDIAG+3*, ALLTESTS+5*
LRODT GETSDIAG~, GETSDIAG+1, GETSDIAG+5, GETSDIAG+11, ALLTESTS~, ALLTESTS+1, ALLTESTS+7, ALLTESTS+13, ALLTESTS+15, STORDIAG~
, STORDIAG+14, STORDIAG+28, STORDIAG+49, STORDIAG+51, NEWLIST+30, PROVNARR+5*, PROVNARR+6*, PROVNARR+8, PROVNARR+10, PROVNARR+11
, DEBUG+7*, DEBUG+10
LRORD GETSDIAG~, GETSDIAG+1, GETSDIAG+11, ALLTESTS~, ALLTESTS+1, ALLTESTS+13, ALLTESTS+15, STORDIAG~, DEBUG+6*, DEBUG+10
>> LROTST PROVNARR+9*, PROVNARR+10*, PROVNARR+11
>> LRSNOMED PROVNARR+14*, PROVNARR+15, PROVNARR+22
LRSP GETSDIAG~, GETSDIAG+1, GETSDIAG+11, ALLTESTS+12*, ALLTESTS+13*, ALLTESTS+15, STORDIAG~, STORDIAG+14, STORDIAG+28, STORDIAG+49
, STORDIAG+51, PROVNARR+7*, PROVNARR+8*, PROVNARR+10, PROVNARR+11, DEBUG+8*, DEBUG+10
LRSPTST ALLTESTS+14*, ALLTESTS+15*, STORDIAG~, STORDIAG+14, STORDIAG+28, STORDIAG+49, STORDIAG+51
LRTST GETSDIAG~, GETSDIAG+1, GETSDIAG+11, DEBUG+9*, DEBUG+10
LRTSTF60 STORDIAG+1~
>> MAXLINES XTMPRPTI+13*, XTMPRPTL+1, XTMPORPI+16*, XTMPORPL+1
>> MSG XTMPRPT+11*, XTMPRPT+12*, XTMPRPTL+4, XTMPRPTL+5, XTMPORPT+13*, XTMPORPT+14*, XTMPORPL+4, XTMPORPL+5
ONETEST NEWLIST+1~, NEWLIST+3*, NEWLIST+19
>> ORDERN PROVNARR+2*, PROVNARR+3, PROVNARR+6, PROVNARR+8
>> ORDERNUM XTMPORPT+9*, XTMPORPT+10*, XTMPORPT+12, XTMPORPL+3
>> PG XTMPRPTI+14*, XTMPRPTL+1, XTMPORPI+17*, XTMPORPL+1
>> PNM GETSDIAG+1, ALLTESTS+1, DEBUG+4*
PROBLIEN GETVALUE~, GETVALUE+1
PROBSTR GETSDIAG+5*, GETSDIAG+7, GETSDIAG+11, ALLTESTS+7*, ALLTESTS+8, ALLTESTS+15, STORDIAG~, STORDIAG+3, STORDIAG+4, STORDIAG+5
>> PROVNARR PROVNARR+13*, PROVNARR+15, PROVNARR+20
>> QFLG XTMPRPT+10, XTMPRPT+12, XTMPRPT+14, XTMPRPTI+15*, XTMPRPTL+1, XTMPORPT+10, XTMPORPT+12, XTMPORPT+14, XTMPORPT+16, XTMPORPI+18*
, XTMPORPL+1
RELCINFO GETSDIAG+9*, GETSDIAG+11, ALLTESTS+10*, ALLTESTS+15, STORDIAG~, STORDIAG+18, RELCINFO+3*, RELCINFO+11*, RELCINFO+13
SNOMED STORDIAG+1~, STORDIAG+3*, STORDIAG+17, LISTMSEL+1!
SNOMED( LISTMSEL+7
U GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
>> WHICHONE LISTMSEL+2*, LISTMSEL+3, LISTMSEL+5, LISTMSEL+7
>> X RELCINFO+11, DEBUG+10*, XTMPMENU+1
>> XPARSYS GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
>> XQXFLG GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
>> Y NEWLIST+5*, NEWLIST+6, NEWLIST+14, NEWLIST+22, NEWLIST+23*, NEWLIST+27

Marked Items

Name Field # of Occurrence
$T( XTMPMENU+3, XTMPRPTI+1, XTMPORPI+1
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 |  Marked Items |  All