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

Package: Lab Service

Routine: LRMIXPD


Information

LRMIXPD ;SLC/BA - LAB DESCRIPTIONS ;2/6/91 08:23 ;

Source Information

Source file <LRMIXPD.m>

Entry Points

Name Comments DBIA/ICR reference
EXPND ;expands lab description from LRMISTF1
CHECK
SWITCH
PN ;checks for positive or negative entry from LRMISTF1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " (",$E(%S,1,$L(%S)-1),")"
  • Line Location: EXPND+2
Function Call: WRITE
  • Prompt: $C(7),!," ... TOO LONG ... Expanded text is limited to 68 characters."
  • Line Location: CHECK+0
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
Info |  Source |  Entry Points |  Interaction Calls