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

Package: IHS Changes To Lab

Routine: BLRF612A


Information

BLRF612A ; IHS/OIT/MKK - IHS Lab: File 61.2 Add from DTS Server ; 22-Oct-2013 09:22 ; MKK

Source Information

Source file <BLRF612A.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 4 $$FIND1^DIC  UPDATE^DIE  EN^DIQ  ^DIR  
IHS Changes To Lab 2 (EEP,PRESSKEY)^BLRGMENU  EN^BLRSM  
IHS VA Utilities 2 ^XBCLS  ^XBFMK  
IHS Standard Terminology 1 $$SEARCH^BSTSAPI  
Kernel 1 $$LJ^XLFSTR  

Entry Points

Name Comments DBIA/ICR reference
HDEPTRPT ; EP - HEALTH DEPT REPORT
ERRORS ; EP - ERRS Array has data. Display it.
TESTIT ; EP
CGTRIBEF ; EP - CLASS/GROUP-TRIBE/FAMILY
PEP ; EP
ALREADY(SNOMED,SNOMEDESC) ; EP - Is the selected entry already in 61.2?
EEP ; Ersatz EP
IDENTIFR ; EP - IDENTIFIER
GRAMSTAN ; EP - GRAM STAIN
ABBREV ; EP - ABBREVIATION
DISPLAY(IEN) ; EP - Display the entry in 61.2
SUSEDITT ; EP - SUSCEPTIBILITY EDIT TEMPLATE
NOSELECT(WOT) ; EP - Selection not done
REST61P2 ; EP - Enter rest of data needed to update 61.2
EP ; EP
ADDIT ; EP - Add an Entry

External References

Name Field # of Occurrence
EEP^BLRGMENU EEP+1
PRESSKEY^BLRGMENU ADDIT+13, ADDIT+26, ALREADY+6, DISPLAY+4, NOSELECT+3, ERRORS+7
EN^BLRSM ADDIT+23
$$SEARCH^BSTSAPI ADDIT+17
$$FIND1^DIC REST61P2+28, ALREADY+3, TESTIT+25
UPDATE^DIE REST61P2+24, TESTIT+22
EN^DIQ DISPLAY+3
^DIR ADDIT+10, CGTRIBEF+7, GRAMSTAN+14, IDENTIFR+19, ABBREV+6, SUSEDITT+42, HDEPTRPT+6
^XBCLS ADDIT+3, CGTRIBEF+1, GRAMSTAN+1, IDENTIFR+1, ABBREV+1, SUSEDITT+3, HDEPTRPT+1
^XBFMK ADDIT+7, CGTRIBEF+3, GRAMSTAN+4, IDENTIFR+4, ABBREV+3, SUSEDITT+27, HDEPTRPT+3
$$LJ^XLFSTR SUSEDITT+15, SUSEDITT+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ADDIT+6
Function Call: WRITE
  • Prompt: !,?4,"Quit or No/Invalid Input. Routine Ends."
  • Line Location: ADDIT+12
Function Call: WRITE
  • Prompt: !!,?9,"No entries found in the IHS STANDARD TERMINOLOGY database. Try Again."
  • Line Location: ADDIT+18
Function Call: WRITE
  • Prompt: !,?4,"No Entry Selected. Routine Ends."
  • Line Location: ADDIT+25
Function Call: WRITE
  • Prompt: !,?4,"SNOMED ",SNOMED," already exists in ETIOLOGY FIELD (#61.2) File. Routine Ends."
  • Line Location: ALREADY+5
Function Call: WRITE
  • Prompt: !,?4,WOT," not selected."
  • Line Location: NOSELECT+1
Function Call: WRITE
  • Prompt: !,?9,"None will be added to ETIOLOGY FIELD (#61.2) dictionary."
  • Line Location: NOSELECT+2
Function Call: WRITE
  • Prompt: !!,"ERRORS:",!
  • Line Location: ERRORS+1
Function Call: WRITE
  • Prompt: ?4,J,"=",X,!
  • Line Location: ERRORS+4
Function Call: WRITE
  • Prompt: ?9,J,"=",@J,!
  • Line Location: ERRORS+5
Routine Call
  • DIE
  • Line Location:
    • REST61P2+24
    • TESTIT+22
Routine Call
  • DIC
  • Line Location:
    • REST61P2+28
    • ALREADY+3
    • TESTIT+25
Routine Call
  • DIR
  • Line Location:
    • ADDIT+10
    • CGTRIBEF+7
    • GRAMSTAN+14
    • IDENTIFR+19
    • ABBREV+6
    • SUSEDITT+42
    • HDEPTRPT+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(61.2 - [#61.2] Classic Fileman Calls,  FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIE - [#.402] SUSEDITT+7, SUSEDITT+8

Label References

Name Line Occurrences
$$ALREADY REST61P2+5
ABBREV REST61P2+10
CGTRIBEF REST61P2+7
DISPLAY REST61P2+28, TESTIT+25
ERRORS REST61P2+26, TESTIT+23
GRAMSTAN REST61P2+8
HDEPTRPT REST61P2+12
IDENTIFR REST61P2+9
NOSELECT CGTRIBEF+8, GRAMSTAN+16, IDENTIFR+21, ABBREV+7, SUSEDITT+44, HDEPTRPT+7
REST61P2 ADDIT+28
SUSEDITT REST61P2+11

Naked Globals

Name Field # of Occurrence
^(0 SUSEDITT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABBREV REST61P2+19, ABBREV+2*, ABBREV+9*, TESTIT+2~, TESTIT+8*, TESTIT+17
ALREADY ALREADY+1~, ALREADY+3*, ALREADY+4, ALREADY+7
ARRAY SUSEDITT+1~
ARRAY( SUSEDITT+8*, SUSEDITT+12
>> BAIL ADDIT+4*, ADDIT+5, ADDIT+14*, ADDIT+20
>> BELOW SUSEDITT+31*, SUSEDITT+34, SUSEDITT+35, SUSEDITT+36*
CGTRIBEF REST61P2+22, CGTRIBEF+2*, CGTRIBEF+10*, TESTIT+2~, TESTIT+11*, TESTIT+20
CNT SUSEDITT+1~, SUSEDITT+11*, SUSEDITT+13*, SUSEDITT+14, SUSEDITT+15, SUSEDITT+16, SUSEDITT+19*, SUSEDITT+20, SUSEDITT+21, SUSEDITT+22
, SUSEDITT+24*, SUSEDITT+25, SUSEDITT+32*, SUSEDITT+33*, SUSEDITT+34, SUSEDITT+35, SUSEDITT+36
>> DA DISPLAY+1*
>> DIC DISPLAY+2*
>> DILOCKTM ADDIT+1
>> DIR("?" CGTRIBEF+6*, IDENTIFR+18*, SUSEDITT+40*
>> DIR("??" SUSEDITT+41*
>> DIR("A" ADDIT+9*, CGTRIBEF+5*, GRAMSTAN+13*, IDENTIFR+17*, ABBREV+5*, SUSEDITT+39*, HDEPTRPT+5*
>> DIR("L" GRAMSTAN+6*, GRAMSTAN+7*, GRAMSTAN+8*, GRAMSTAN+9*, GRAMSTAN+10*, GRAMSTAN+11*, GRAMSTAN+12*, IDENTIFR+6*, IDENTIFR+7*, IDENTIFR+8*
, IDENTIFR+9*, IDENTIFR+10*, IDENTIFR+11*, IDENTIFR+12*, IDENTIFR+13*, IDENTIFR+14*, IDENTIFR+15*, IDENTIFR+16*, SUSEDITT+29*, SUSEDITT+30*
, SUSEDITT+34*, SUSEDITT+35*, SUSEDITT+38*
>> DIR(0 ADDIT+8*, CGTRIBEF+4*, GRAMSTAN+5*, IDENTIFR+5*, ABBREV+4*, SUSEDITT+28*, HDEPTRPT+4*
>> DIRUT ADDIT+11, CGTRIBEF+8, GRAMSTAN+16, IDENTIFR+21, ABBREV+7, SUSEDITT+44, HDEPTRPT+7
DIRZERO SUSEDITT+1~, SUSEDITT+10*, SUSEDITT+14*, SUSEDITT+20*, SUSEDITT+25*, SUSEDITT+28
DIRZERO( SUSEDITT+15*, SUSEDITT+21*, SUSEDITT+33, SUSEDITT+35
>> DISYS ADDIT+1
DT ADDIT+1
DTIME ADDIT+1
DUZ ADDIT+1
ERRS REST61P2+14!, REST61P2+26, TESTIT+1~, TESTIT+23
FDA REST61P2+14!, TESTIT+1~
FDA( REST61P2+15*, REST61P2+16*, REST61P2+17*, REST61P2+18*, REST61P2+19*, REST61P2+20*, REST61P2+21*, REST61P2+22*, TESTIT+13*, TESTIT+14*
, TESTIT+15*, TESTIT+16*, TESTIT+17*, TESTIT+18*, TESTIT+19*, TESTIT+20*
>> FOUNDSUM ADDIT+4*, ADDIT+5, ADDIT+17*, ADDIT+18
GRAMSTAN REST61P2+17, GRAMSTAN+2*, GRAMSTAN+18*, TESTIT+2~, TESTIT+6*, TESTIT+15
HDEPTRPT REST61P2+21, HDEPTRPT+2*, HDEPTRPT+9*, TESTIT+2~, TESTIT+10*, TESTIT+19
IDENTIFR REST61P2+18, IDENTIFR+2*, IDENTIFR+23*, TESTIT+2~, TESTIT+7*, TESTIT+16
IEN SUSEDITT+1~, SUSEDITT+6*, SUSEDITT+7*, SUSEDITT+8, DISPLAY~, DISPLAY+1
>> IN ADDIT+16*, ADDIT+17
INDEX SUSEDITT+1~
INDEX( SUSEDITT+16*, SUSEDITT+22*, SUSEDITT+46
IO ADDIT+1
>> IOBS ADDIT+1
IOF ADDIT+1
IOM ADDIT+1
ION ADDIT+1
>> IOS ADDIT+1
IOSL ADDIT+1
IOST ADDIT+1
>> IOT ADDIT+1
>> IOXY ADDIT+1
>> J ERRORS+2*, ERRORS+3, ERRORS+4, ERRORS+5*
>> OUT ADDIT+16*, ADDIT+17
SNOMED REST61P2+2*, REST61P2+5, REST61P2+16, ALREADY~, ALREADY+5, TESTIT+2~, TESTIT+5*, TESTIT+14
SNOMED( REST61P2+1
SNOMEDESC REST61P2+5, ALREADY~
SNOMEDSC REST61P2+3*, REST61P2+15, REST61P2+28, ALREADY+3, TESTIT+2~, TESTIT+4*, TESTIT+13, TESTIT+25
>> STR REST61P2+1*, REST61P2+2, REST61P2+3
SUSEDITT REST61P2+20, SUSEDITT+4*, SUSEDITT+46*, TESTIT+2~, TESTIT+9*, TESTIT+18
TMPLNAME SUSEDITT+1~, SUSEDITT+11*, SUSEDITT+12*, SUSEDITT+15, SUSEDITT+16
U ADDIT+1
>> WHICHONE ADDIT+22*, ADDIT+24, REST61P2+1
WOT NOSELECT~, NOSELECT+1
>> X ADDIT+16, CGTRIBEF+10, ABBREV+9, HDEPTRPT+9, ERRORS+3*, ERRORS+4
>> XPARSYS ADDIT+1
>> XQXFLG ADDIT+1
>> Y GRAMSTAN+16, GRAMSTAN+18, IDENTIFR+21, IDENTIFR+23, SUSEDITT+46
Info |  Source |  Call 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