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

Package: Lab Service

Routine: LRWRKS2


Information

LRWRKS2 ;SLC/RWF/MILW/JMC - WORK SHEET ACCESSION LIST PART 2 ;2/7/91 14:48 ;

Source Information

Source file <LRWRKS2.m>

Entry Points

Name Comments DBIA/ICR reference
ENT ;from LRWRKS
LINE ;
LP4
LP3 ;
LP5
BLANK
HED ;
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LRACC,?17,$E(PNM,1,19),?41,SSN(1)
  • Line Location: LP4+5
Function Call: WRITE
  • Prompt: " Ver"
  • Condition for execution: LRV
  • Line Location: LP4+5
Function Call: WRITE
  • Prompt: ?61,LRURG(LRURG)
  • Line Location: LP4+5
Function Call: WRITE
  • Prompt: !,LRUID,?17,LRCDT,?41,$E(LRDOC,1,18),?61,$E(LRLLOC,1,19)
  • Line Location: LP4+6
Function Call: WRITE
  • Prompt: !?17,LRLINE,?61,LRSPEC,!?17
  • Line Location: LP3+1
Function Call: WRITE
  • Prompt: !?17,LRLINE,!?17
  • Condition for execution: $X>17
  • Line Location: LP3+2
Function Call: WRITE
  • Prompt: $P(LRTSTS(I),U,1)
  • Line Location: LP3+2
Function Call: WRITE
  • Prompt: !?16,LRLINE,!?16
  • Condition for execution: $X>16
  • Line Location: LP3+3
Function Call: WRITE
  • Prompt: $P(LRTSTS(I),U,1)
  • Line Location: LP3+3
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: $X>17
  • Line Location: LP3+4
Function Call: WRITE
  • Prompt: !?17
  • Condition for execution: $L($P(LRTSTS(I),U,1))+$X>(IOM-4)
  • Line Location: LP3+4
Function Call: WRITE
  • Prompt: $P(LRTSTS(I),U,1)
  • Line Location: LP3+4
Function Call: WRITE
  • Prompt: !,LRLINE,$E(LRLINE,1,39)
  • Line Location: LP3+5
Function Call: WRITE
  • Prompt: ?37,$J(^(L),8)
  • Line Location: LP5+0
Function Call: WRITE
  • Prompt: !,LRLINE,$E(LRLINE,1,39)
  • Line Location: BLANK+0
Function Call: WRITE
  • Prompt: !!,"LAB ONLY WORK-SHEET FOR Accession area ",$P(^LRO(68,LRAA,0),U,1),?60,LRDT0,"@"_T
  • Line Location: HED+3
Function Call: WRITE
  • Prompt: !?5,"Uncompleted work only"
  • Condition for execution: LRUNC
  • Line Location: HED+3
Function Call: WRITE
  • Prompt: !,"Accession",?17,"Name",?41,"ID",?61,"Urgency",!,"UID",?17,"Collection Time",?41,"Doc",?61,"Loc"
  • Line Location: HED+5
Info |  Source |  Entry Points |  Interaction Calls