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 |  All
Print Page as PDF
Routine: BLRRLV

Package: IHS Changes To Lab

Routine: BLRRLV


Information

BLRRLV ; cmi/anch/maw - BLR Verify Reference Lab Results ;

Source Information

Source file <BLRRLV.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
IHS Changes To Lab 3 ^BLREVTQ  DIQ^BLRLM  JOB^BLRPARAM  
IHS VA Utilities 1 EN^XBVK  

Entry Points

Name Comments DBIA/ICR reference
VER() ; EP -- verify individual results
RMV(DA) ;-- remove the entry from the tx log
EOJ ;-- kill variables
UPD(DA) ;-- mark entry as verified
ASKV() ;-- ask to mark all as verified
MAIN ;EP - this is the main routine driver
XREF(XIEN)
LOOP ;-- loop the xref and call VER
RFL ;-- mark all as verified and refile

External References

Name Field # of Occurrence
^BLREVTQ UPD+5, RFL+9
DIQ^BLRLM LOOP+8
JOB^BLRPARAM EOJ+1
^DIE UPD+3, RFL+7
^DIK RMV+1
$$GET1^DIQ UPD+2, RFL+6
^DIR ASKV+3, VER+2
EN^XBVK EOJ+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No results to verify"
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: !!,"No more results to verify"
  • Line Location: LOOP+10
Function Call: WRITE
  • Prompt: !!,"Please come back and verify remaining results"
  • Line Location: LOOP+12
Function Call: WRITE
  • Prompt: !,"Now marking all results as verified"
  • Line Location: RFL+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: RFL+3
Routine Call
  • DIE
  • Line Location:
    • UPD+3
    • RFL+7
Routine Call
  • DIR
  • Line Location:
    • ASKV+3
    • VER+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^BLRTXLOG - [#9009022] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLRRL - [#9009026] XREF+3, XREF+5
^BLRSITE - [#9009029] XREF+1
^BLRTXLOG("BVER" LOOP+1, LOOP+4, LOOP+9, LOOP+11, UPD+4!, RMV+2!, RFL+2, RFL+8!, XREF+7*

Label References

Name Line Occurrences
$$ASKV MAIN+1
EOJ MAIN+2, MAIN+4
LOOP MAIN+3
RFL MAIN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BLRHLD XREF+3*, XREF+4
>> BLRRL XREF+1*, XREF+2, XREF+3, XREF+5
>> BLRUNI XREF+5*, XREF+6
>> BLRVDA LOOP+4*, LOOP+7, UPD+4, UPD+5, RFL+2*, RFL+4, RFL+8, RFL+9
>> BLRVER MAIN+1*, MAIN+2
>> BLRVQ LOOP+4, LOOP+5
DA LOOP+7*, LOOP+8, UPD~, RMV~, RMV+2, RFL+4*, XREF+7
>> DIC LOOP+3*, LOOP+8
>> DIE UPD+1*, RFL+5*
>> DIK RMV+1*
DIR ASKV+4!, VER+3!
DIR("A" ASKV+1*, VER+1*
DIR("B" ASKV+2*
DIR(0 ASKV+1*, VER+1*
>> DR UPD+2*, RFL+6*
DUZ UPD+2, RFL+6
DUZ(2 XREF+1
IOF LOOP+6
U XREF+1, XREF+3, XREF+5
XIEN XREF~
>> Y ASKV+5, VER+4
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 |  All