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: LRMIEDIM

Package: Lab Service

Routine: LRMIEDIM


Information

LRMIEDIM ;BPFO/DTG - LAB MICRO - LOOP ETIOLOGY FIELD FILE 61.2 FOR INACTIVE DATE ;08/15/2017

Source Information

Source file <LRMIEDIM.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point from option
EN1
LOOP
LP1 ; ask inactive date
; first lock entry
ASKFILE()
DISP ; display message
GETVAL(C) ; get 61.2 info
OUT ; quit
XSET(A,B) ; set into XTMP
; A - Identifier, B - value

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Organism: ",$E($P(LR0,U,1),1,45)," (",LRRUN,")"
  • Line Location: LP1+6

FileMan Files Accessed Via FileMan Db Call

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