Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call