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

Package: Lab Service

Routine: LRNUM


Information

LRNUM ;SLC/BA-NUMERIC INPUT TRANSFORM ;2/6/91 08:55

Source Information

Source file <LRNUM.m>

Entry Points

Name Comments DBIA/ICR reference
BEGIN
END
CHECK
COM ;expands lab description from LRMISTF1, dd
COMCHK
COMCHK1
SWITCH
PN ;checks for positive or negative entry from LRMISTF1
AFS ;checks for acid fast stain entry from LRMISTF1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"Enter 'N' for NEGATIVE or 'P' for POSITIVE"
  • Line Location: PN+1
Function Call: WRITE
  • Prompt: " (",$S(X="P":"POSITIVE",1:"NEGATIVE"),")"
  • Line Location: PN+2
Function Call: WRITE
  • Prompt: $C(7),!,"Enter 'DP' for DIRECT POSITIVE, 'DN' for DIRECT NEGATIVE,",!,"'CP' for CONCENTRATE POSITIVE, or 'CN' for CONCENTRATE NEGATIVE"
  • Line Location: AFS+1
Function Call: WRITE
  • Prompt: " (",$S(X="DP":"DIRECT POSITIVE",X="DN":"DIRECT NEGATIVE",X="CP":"CONCENTRATE POSITIVE",1:"CONCENTRATE NEGATIVE"),")"
  • Line Location: AFS+2
Info |  Source |  Entry Points |  Interaction Calls