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

Package: Lab Service

Routine: LRCAPFF


Information

LRCAPFF ;DALOI/PDL - Lab Mapping Set Up Utility ;04/30/12 08:51

Source Information

Source file <LRCAPFF.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 ^DIC  (,FILE)^DIE  ^DIR  
Lab Service 2 LINK^LR7OU4  $$GETLOCK^LRUTIL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRCAPFF  

Entry Points

Name Comments DBIA/ICR reference
START ;
; Main entry point that loops until user aborts
ASK(LRSS,LRABORT) ;
; Select #60 test, check associated file #64 field #63 record.
; Inputs
; LRSS: <byref> Subscript area (MI,SP,CY) (See outputs)
; LRABORT: <byref> See outputs
; Outputs
; LRSS: Initially set by ASK and passed back to START
; : Passed in to set the DIC("B") in ASK
; LRABORT: If user wants to abort LRABORT=1

External References

Name Field # of Occurrence
^DIC ASK+26, ASK+139
^DIE ASK+45
FILE^DIE ASK+149, ASK+168
^DIR ASK+17, ASK+99, ASK+112, ASK+123, ASK+159
LINK^LR7OU4 ASK+69
$$GETLOCK^LRUTIL ASK+34, ASK+57

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Could not lock file #60"
  • Line Location: ASK+36
Function Call: WRITE
  • Prompt: $C(7),!!," No National VA Lab Code associated with this test.",!
  • Line Location: ASK+52
Function Call: WRITE
  • Prompt: !,"Could not lock file #64"
  • Line Location: ASK+59
Function Call: WRITE
  • Prompt: !,"60 = ",TEST," [",R60,"]"
  • Line Location: ASK+65
Function Call: WRITE
  • Prompt: !,"64 = ",WKLD," (",WKLDCOD,") [",R64,"]"
  • Line Location: ASK+66
Function Call: WRITE
  • Prompt: !!,?10,"No Database Code on file for this NLT code.",!
  • Line Location: ASK+82
Function Call: WRITE
  • Prompt: !!!,?10,"Current Database Code for this NLT code is "
  • Line Location: ASK+87
Function Call: WRITE
  • Prompt: !,?15,X," [",R64061,"]"
  • Line Location: ASK+88
Function Call: WRITE
  • Prompt: !!,$C(7),?7,"** Invalid Database Code for ",LRSS," **"
  • Line Location: ASK+93
Function Call: WRITE
  • Prompt: !,?10,WKLD," (",WKLDCOD,") needs to be corrected."
  • Line Location: ASK+94
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+95
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+111
Function Call: WRITE
  • Prompt: "<no change>",!
  • Line Location: ASK+142
Function Call: WRITE
  • Prompt: !!,"Update complete."
  • Line Location: ASK+150
Function Call: WRITE
  • Prompt: !!,?15,"An MI/AP Database Code must be selected"
  • Line Location: ASK+154
Function Call: WRITE
  • Prompt: !,?15,"for this test to be used with LEDI results"
  • Line Location: ASK+155
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+160
Function Call: WRITE
  • Prompt: !," Mapping removed."
  • Line Location: ASK+169
Routine Call
  • DIC
  • Line Location:
    • ASK+26
    • ASK+139
Routine Call
  • DIE
  • Line Location:
    • ASK+45
Routine Call
  • DIE
  • Line Location:
    • ASK+149
    • ASK+168
Routine Call
  • DIR
  • Line Location:
    • ASK+17
    • ASK+99
    • ASK+112
    • ASK+123
    • ASK+159

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] ASK+33, ASK+49, ASK+54
^LAB(64.061 - [#64.061] ASK+85
^LAM - [#64] ASK+56, ASK+62, ASK+79

Label References

Name Line Occurrences
ASK START+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTION ASK+11~, ASK+120*, ASK+124*, ASK+130*, ASK+132, ASK+141*, ASK+161*, ASK+164
DA ASK+10~, ASK+40!, ASK+43*
DATA ASK+11~, ASK+62*, ASK+63, ASK+64, ASK+79*, ASK+80, ASK+85*, ASK+86
DBCERR ASK+11~, ASK+78*, ASK+92*, ASK+106
DIC ASK+10~, ASK+22*, ASK+27!, ASK+133!, ASK+135*, ASK+140!
DIC("A" ASK+24*, ASK+137*
DIC("S" ASK+25*, ASK+138*
DIC(0 ASK+23*, ASK+136*
DIE ASK+10~, ASK+40!, ASK+41*
DIE("NO^" ASK+42*
DIERR ASK+10~, ASK+145!, ASK+165!
DIR ASK+10~, ASK+96!, ASK+107!, ASK+119!, ASK+153~
DIR("A" ASK+15*, ASK+97*, ASK+108*, ASK+156*
DIR("B" ASK+16*, ASK+110*, ASK+158*
DIR(0 ASK+14*, ASK+98*, ASK+109*, ASK+122*, ASK+157*
DIROUT ASK+10~, ASK+96!, ASK+107!, ASK+153~
DIRUT ASK+10~, ASK+18, ASK+96!, ASK+100, ASK+107!, ASK+113, ASK+126, ASK+153~, ASK+161
DR ASK+10~, ASK+40!, ASK+44*
DTOUT ASK+10~, ASK+29, ASK+46, ASK+141, ASK+153~
DUOUT ASK+10~, ASK+28, ASK+141, ASK+153~
END ASK+68~, ASK+71
IEN ASK+12~, ASK+145!, ASK+146*, ASK+147, ASK+165!, ASK+166*, ASK+167
LRABORT START+2~, START+3*, START+4, ASK~, ASK+18*, ASK+28*
LRDATA ASK+68~
LRFDA ASK+12~, ASK+145!, ASK+165!
LRFDA(1 ASK+147*, ASK+167*
LRLCK1 ASK+11~, ASK+33*, ASK+34, ASK+47, ASK+51, ASK+60, ASK+75, ASK+104, ASK+117, ASK+128
, ASK+172
LRLCK2 ASK+11~, ASK+56*, ASK+57, ASK+74, ASK+103, ASK+116, ASK+127, ASK+171
LRMSG ASK+11~, ASK+145!, ASK+150, ASK+165!, ASK+169
LRSS START+2~, START+4, ASK~, ASK+16, ASK+19*, ASK+89, ASK+93, ASK+137, ASK+138
NLT ASK+11~
R60 ASK+12~, ASK+21*, ASK+30*, ASK+31, ASK+33, ASK+43, ASK+49, ASK+54, ASK+65, ASK+69
R63 ASK+12~
R64 ASK+12~, ASK+39*, ASK+49*, ASK+50, ASK+56, ASK+62, ASK+66, ASK+69, ASK+79, ASK+146
, ASK+166
R64061 ASK+12~, ASK+80*, ASK+81, ASK+84, ASK+85, ASK+88, ASK+106, ASK+121, ASK+130, ASK+132
, ASK+142, ASK+144, ASK+148*, ASK+152
REC ASK+11~, ASK+133!, ASK+134*, ASK+143*, ASK+144, ASK+147, ASK+148, ASK+152
STOP ASK+12~, ASK+13*, ASK+71*, ASK+73, ASK+100*, ASK+102, ASK+113*, ASK+115
TEST ASK+12~, ASK+54*, ASK+65
U ASK+49, ASK+54, ASK+63, ASK+64, ASK+80, ASK+86
WKLD ASK+12~, ASK+63*, ASK+66, ASK+94
WKLDCOD ASK+12~, ASK+64*, ASK+66, ASK+94
X ASK+11~, ASK+34*, ASK+35, ASK+57*, ASK+58, ASK+86*, ASK+88
Y ASK+11~, ASK+19, ASK+29, ASK+30, ASK+40!, ASK+46, ASK+89*, ASK+90, ASK+100, ASK+113
, ASK+124, ASK+142, ASK+143, ASK+161
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  | All