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

Package: IHS Changes To Lab

Routine: BLRF60SR


Information

BLRF60SR ; IHS/MSC/MKK - File 60 line item SeaRch; 18-Apr-2016 12:02 ; MKK

Source Information

Source file <BLRF60SR.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ($$CJ,$$TRIM,$$UP)^XLFSTR  
IHS Changes To Lab 2 (EEP,HEADERDT,HEADERPG,PRESSKEY)^BLRGMENU  $$BADSTUFQ^BLRUTIL7  
VA Fileman 2 $$GET1^DIQ  ^DIR  
IHS Laboratory Point of Care 1 $$ISPANEL^BLRPOC  
IHS VA Utilities 1 ^XBFMK  

Entry Points

Name Comments DBIA/ICR reference
GETINIT() ; EP - Initialization
PEP ; EP
EEP ; Ersatz EP
SETBLRVS(TWO) ; EP - Set the BLRVERN variable(s)
FOUNDIT(F60IEN,FOUNDIT,CNT) ; EP - Write out the entry
SEARCH(SRCHSTR,F60IEN,F60CNT,CNT) ; EP - Search for the string
EP ; EP

External References

Name Field # of Occurrence
^%ZIS GETINIT+17
^%ZISC PEP+10
EEP^BLRGMENU EEP+1
HEADERDT^BLRGMENU GETINIT+5, GETINIT+16
HEADERPG^BLRGMENU FOUNDIT+1
PRESSKEY^BLRGMENU PEP+12
$$ISPANEL^BLRPOC SEARCH+17, FOUNDIT+4
$$BADSTUFQ^BLRUTIL7 GETINIT+10
$$GET1^DIQ SEARCH+22, SEARCH+23, FOUNDIT+5, FOUNDIT+6, FOUNDIT+7
^DIR GETINIT+9
^XBFMK GETINIT+6
$$CJ^XLFSTR GETINIT+14
$$TRIM^XLFSTR FOUNDIT+5
$$UP^XLFSTR GETINIT+12, SEARCH+6, SEARCH+7, SEARCH+11, SEARCH+12, SEARCH+24

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?4,F60CNT," File 60 entries analyzed."
  • Line Location: PEP+7
Function Call: WRITE
  • Prompt: !!,?9,$S(CNT:CNT,1:"No")," File 60 entr",$S(CNT=1:"y",1:"ies")," matched."
  • Line Location: PEP+8
Function Call: WRITE
  • Prompt: ?4,F60IEN
  • Line Location: FOUNDIT+3
Function Call: WRITE
  • Prompt: ?14,$S($$ISPANEL^BLRPOC(F60IEN):"YES",1:"")
  • Line Location: FOUNDIT+4
Function Call: WRITE
  • Prompt: ?20,$$TRIM^XLFSTR($P($$GET1^DIQ(60,F60IEN,3),"("),"LR"," ")
  • Line Location: FOUNDIT+5
Function Call: WRITE
  • Prompt: ?29,$E($$GET1^DIQ(60,F60IEN,.01),1,38)
  • Line Location: FOUNDIT+6
Function Call: WRITE
  • Prompt: ?69,$$GET1^DIQ(60.01,+$O(^LAB(60,F60IEN,1,0))_","_F60IEN,95.3)
  • Line Location: FOUNDIT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: FOUNDIT+8
Routine Call
  • DIR
  • Line Location:
    • GETINIT+9
Routine Call
  • %ZIS
  • Line Location:
    • GETINIT+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] GET1^DIQ
60.01 GET1^DIQ
60.02 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] PEP+5, SEARCH+21, FOUNDIT+7

Label References

Name Line Occurrences
$$GETINIT PEP+3
FOUNDIT SEARCH+6, SEARCH+7, SEARCH+11, SEARCH+12, SEARCH+24
SEARCH PEP+5
SETBLRVS GETINIT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BLRVERN SETBLRVS+1*
>> BLRVERN2 SETBLRVS+2*
CNT PEP+5, PEP+8, GETINIT+26*, SEARCH~, SEARCH+6, SEARCH+7, SEARCH+11, SEARCH+12, SEARCH+24, FOUNDIT~
, FOUNDIT+11*
>> DILOCKTM PEP+1
>> DIR("A" GETINIT+8*
>> DIR(0 GETINIT+7*
>> DIRUT GETINIT+10
>> DISYS PEP+1
DT PEP+1
DTIME PEP+1
DUZ PEP+1
F602DESC SEARCH+19~, SEARCH+23*, SEARCH+24
F602IEN SEARCH+19~
F60CNT PEP+5, PEP+7, GETINIT+26*, SEARCH~, SEARCH+1*
F60IEN PEP+5*, GETINIT+28*, SEARCH~, SEARCH+2, SEARCH+6, SEARCH+7, SEARCH+11, SEARCH+12, SEARCH+17, SEARCH+21
, SEARCH+22, SEARCH+23, SEARCH+24, FOUNDIT~, FOUNDIT+3, FOUNDIT+4, FOUNDIT+5, FOUNDIT+6, FOUNDIT+7
>> F60IEN2 SEARCH+22*
F60PANEL SEARCH+19~, SEARCH+20*, SEARCH+21*, SEARCH+22, SEARCH+23
FOUNDIT SEARCH+5*, SEARCH+6, SEARCH+7, SEARCH+9*, SEARCH+10, SEARCH+11, SEARCH+12, SEARCH+14, SEARCH+21, SEARCH+24
, FOUNDIT~, FOUNDIT+10*
>> FRSTPART SEARCH+3*, SEARCH+10
>> GLOVAR SEARCH+2*, SEARCH+3, SEARCH+4
>> HEADER( GETINIT+20*, GETINIT+21*, GETINIT+22*, GETINIT+23*, GETINIT+24*
>> HEADER(1 GETINIT+3*
>> HEADER(2 GETINIT+13*, GETINIT+14*
>> HEADER(3 GETINIT+14*
IO PEP+1, GETINIT+18
>> IOBS PEP+1
IOF PEP+1
IOM PEP+1
ION PEP+1
>> IOS PEP+1
IOSL PEP+1, GETINIT+25
IOST PEP+1
>> IOT PEP+1
>> IOXY PEP+1
>> LINES GETINIT+25*, FOUNDIT+1, FOUNDIT+9*
>> MAXLINES GETINIT+25*, FOUNDIT+1
>> NEXTLINE GETINIT+13*, GETINIT+14*, GETINIT+20*, GETINIT+21, GETINIT+22, GETINIT+23, GETINIT+24
>> PG GETINIT+26*, FOUNDIT+1
>> QFLG PEP+5, GETINIT+27*, SEARCH+10, FOUNDIT+1
>> SCRCHSTR GETINIT+14
SRCHSTR PEP+5, GETINIT+12*, GETINIT+13, SEARCH~, SEARCH+6, SEARCH+7, SEARCH+11, SEARCH+12, SEARCH+24
>> STR1 SEARCH+4*, SEARCH+6, SEARCH+7, SEARCH+10*, SEARCH+11, SEARCH+12
TWO SETBLRVS~, SETBLRVS+2
U PEP+1
>> X GETINIT+12
>> XPARSYS PEP+1
>> XQXFLG PEP+1
>> Y GETINIT+10

Marked Items

Name Field # of Occurrence
$T( SETBLRVS+1
Info |  Source |  Call 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