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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BLRNLOIN

Package: IHS Changes To Lab

Routine: BLRNLOIN


Information

BLRNLOIN ;IHS/OIT/MKK - IHS LAB NO LOINC REPORT [ 02/05/2008 1:25 PM ]

Source Information

Source file <BLRNLOIN.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$HTE^XLFDT  ($$CJ,$$LJ,$$TRIM,$$UP)^XLFSTR  
IHS VA Utilities 3 ^XBCLS  ^XBFMK  $$LOC^XBFUNC  
IHS Changes To Lab 1 HEADERPG^BLRGMENU  
Registration 1 KVA^VADPT  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
DEVRPTIN ; EP -- Initialize variables
REPORTIT ; EP -- Report the data
NCNTLNCI
EEP ; Ersatz EP
ADDLINE(ADDSTR,LN) ; EP
BUILDARY ; EP -- Build the output array
OKAYGO() ; EP
BLREND ; EP
PRESSIT ; EP
REPORT ; EP - Results
DEVRPT ; EP
ADDLNCJ(MIDSTR,LN,LEFTSTR,RGHTSTR) ; EP
EP ; EP -- Main Entry Point
NCNTLNC ; EP -- Compile listing of tests without LOINC codes

External References

Name Field # of Occurrence
^%ZIS REPORTIT+2
^%ZISC REPORTIT+10, DEVRPT+11, BLREND+3
^%ZTLOAD REPORTIT+10
HEADERPG^BLRGMENU DEVRPT+5
^DIR OKAYGO+10, PRESSIT+4
KVA^VADPT BLREND+4
^XBCLS NCNTLNCI+3
^XBFMK OKAYGO+6, PRESSIT+1
$$LOC^XBFUNC BUILDARY+3
$$HTE^XLFDT ADDLNCJ+5, ADDLNCJ+8
$$CJ^XLFSTR NCNTLNCI+4, ADDLNCJ+2
$$LJ^XLFSTR ADDLINE+2
$$TRIM^XLFSTR ADDLNCJ+11
$$UP^XLFSTR OKAYGO+11, ADDLNCJ+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EEP+1
Function Call: WRITE
  • Prompt: ">>>>>>>>>>>>"
  • Line Location: EEP+2
Function Call: WRITE
  • Prompt: " USE LABEL "
  • Line Location: EEP+3
Function Call: WRITE
  • Prompt: "<<<<<<<<<<<<"
  • Line Location: EEP+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: EEP+5
Function Call: WRITE
  • Prompt: !,"All Tests in File 60 Have LOINC Codes.",!
  • Line Location: EP+8
Function Call: WRITE
  • Prompt: "Program Finished",!!
  • Line Location: EP+9
Function Call: WRITE
  • Prompt: "."
  • Line Location: NCNTLNC+5
Function Call: WRITE
  • Prompt: !
  • Line Location: NCNTLNC+6
Function Call: WRITE
  • Prompt: !
  • Line Location: NCNTLNCI+1
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("Going through LAB TEST FILE (# 60)",IOM),!!
  • Line Location: NCNTLNCI+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: OKAYGO+1
Function Call: WRITE
  • Prompt: "There are ",CNTNLOI," Lab Tests WITHOUT LOINC codes"
  • Line Location: OKAYGO+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: OKAYGO+3
Function Call: WRITE
  • Prompt: ?5,"The Detailed report will be approximately ",(CNTNLOI\55)," printed pages long"
  • Line Location: OKAYGO+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: OKAYGO+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: OKAYGO+12
Function Call: WRITE
  • Prompt: ?10,"Program exiting",!
  • Line Location: OKAYGO+13
Function Call: WRITE
  • Prompt: !!,?10,"DEVICE could not be selected. Output will be to the screen.",!!
  • Line Location: REPORTIT+4
Function Call: WRITE
  • Prompt: !,"Request ",$S($G(ZTSK):"Queued - Task #"_ZTSK,1:"NOT Queued"),!!
  • Line Location: REPORTIT+11
Function Call: WRITE
  • Prompt: $G(LRLRPT(J))
  • Line Location: DEVRPT+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BLREND+1
Routine Call
  • DIR
  • Line Location:
    • OKAYGO+10
    • PRESSIT+4
Routine Call
  • %ZIS
  • Line Location:
    • REPORTIT+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] NCNTLNC+3, NCNTLNC+9, NCNTLNC+14, NCNTLNC+19, NCNTLNC+20, NCNTLNC+26

Label References

Name Line Occurrences
$$OKAYGO REPORT+4
ADDLINE BUILDARY+8, BUILDARY+9, BUILDARY+10, BUILDARY+16, BUILDARY+18, BUILDARY+19, BUILDARY+20, BUILDARY+22, BUILDARY+23, BUILDARY+25
, BUILDARY+26, BUILDARY+29, BUILDARY+30
ADDLNCJ BUILDARY+3, BUILDARY+4, BUILDARY+5, BUILDARY+6, BUILDARY+7, BUILDARY+11
BLREND REPORTIT+12
BUILDARY REPORT+6
DEVRPTIN DEVRPT+1
NCNTLNC EP+5
NCNTLNCI NCNTLNC+1
PRESSIT EP+10, EP+14
REPORT EP+12
REPORTIT REPORT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS REPORTIT+1*
ADDSTR ADDLINE~, ADDLINE+2
>> CNT DEVRPTIN+1*
CNTLOINC EP+1~, NCNTLNC+23*, NCNTLNCI+2*, BUILDARY+25
CNTLT EP+1~, NCNTLNC+11*, NCNTLNCI+2*, BUILDARY+22
CNTNLOI EP+1~, EP+7, NCNTLNC+28*, NCNTLNCI+2*, OKAYGO+2, OKAYGO+4, BUILDARY+19
CNTZZ EP+1~, NCNTLNC+14*, NCNTLNCI+2*, BUILDARY+28, BUILDARY+29
>> DIR("A" OKAYGO+7*, PRESSIT+2*
>> DIR("B" OKAYGO+8*
>> DIR(0 OKAYGO+9*, PRESSIT+3*
>> DUOUT OKAYGO+11
>> FLAG NCNTLNC+18*, NCNTLNC+19, NCNTLNC+20*, NCNTLNC+23, NCNTLNCI+2*
HEADER REPORT+2~, DEVRPTIN+5!
HEADER( DEVRPTIN+6*
IO DEVRPT+3
IO("Q" REPORTIT+6
IOF BLREND+1
IOM NCNTLNCI+4, BUILDARY+11, ADDLNCJ+2, ADDLNCJ+8, ADDLINE+2
IOSL DEVRPTIN+2
IOST BLREND+1
>> J DEVRPT+4, DEVRPT+7*, DEVRPT+8, DEVRPTIN+6*, DEVRPTIN+8*
LABTNME EP+3~, NCNTLNC+26*, NCNTLNC+27, BUILDARY+13*, BUILDARY+14*, BUILDARY+15, BUILDARY+16
LEFTSTR ADDLNCJ~, ADDLNCJ+5, ADDLNCJ+11
LINES REPORT+2~, DEVRPT+5, DEVRPT+9*, DEVRPTIN+3*
LN REPORT+1~, BUILDARY+2*, BUILDARY+3, BUILDARY+4, BUILDARY+5, BUILDARY+6, BUILDARY+7, BUILDARY+8, BUILDARY+9, BUILDARY+10
, BUILDARY+11, BUILDARY+16, BUILDARY+18, BUILDARY+19, BUILDARY+20, BUILDARY+22, BUILDARY+23, BUILDARY+25, BUILDARY+26, BUILDARY+29
, BUILDARY+30, ADDLNCJ~, ADDLNCJ+1*, ADDLNCJ+2, ADDLNCJ+5, ADDLNCJ+8, ADDLNCJ+11, ADDLINE~, ADDLINE+1*, ADDLINE+2
LRLRPT REPORT+1~
LRLRPT( ADDLNCJ+2*, ADDLNCJ+5*, ADDLNCJ+8*, ADDLNCJ+11*, ADDLINE+2*, DEVRPT+4, DEVRPT+8, DEVRPTIN+6
MAXLINES REPORT+2~, DEVRPT+5, DEVRPTIN+2*, DEVRPTIN+3
MIDSTR ADDLNCJ~, ADDLNCJ+2
NOLOINC EP+3~
NOLOINC( NCNTLNC+27*, BUILDARY+14, BUILDARY+15
PG REPORT+2~, DEVRPT+5, DEVRPTIN+1*
>> POP REPORTIT+3
PTRLOINC EP+1~
QFLAG REPORT+2~, DEVRPT+4, DEVRPT+5, DEVRPTIN+4*
QFLG EP+2~
RGHTSTR ADDLNCJ~, ADDLNCJ+8, ADDLNCJ+11
SITESPEC EP+2~, NCNTLNC+18*, NCNTLNC+19*, NCNTLNC+20
STR EP+2~
TAB REPORT+1~, BUILDARY+1*, BUILDARY+9, BUILDARY+10, BUILDARY+22, BUILDARY+25, BUILDARY+29
>> TEST NCNTLNC+3*, NCNTLNC+9, NCNTLNC+14, NCNTLNC+19, NCNTLNC+20, NCNTLNC+26, NCNTLNC+27, NCNTLNCI+2*, BUILDARY+15*, BUILDARY+16
TFLAG REPORT+1~
>> X OKAYGO+11
>> ZTDESC REPORTIT+7*
>> ZTQUEUED BLREND+2
>> ZTREQ BLREND+2*
>> ZTRTN REPORTIT+7*
>> ZTSAVE("CNT*" REPORTIT+9*
>> ZTSAVE("LR*" REPORTIT+8*
>> ZTSK REPORTIT+11
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All