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

Package: Lab Service

Routine: LRLSTWRL


Information

LRLSTWRL ;SLC/CJS/DALISC/DRH - BRIEF ACCESSION LIST PART 2 ;2/6/91 07:41 ;

Source Information

Source file <LRLSTWRL.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;from LRLSTWRK
CONTROL ;
INIT ;
LOOP1 ;
L1 ;
LOOP2 ;
HEAD1 ;
LOOP3 ;
L24 ;
L26 ;
LOOP4 ;
L27 ;
LRSTOP ;
L15
L30
END ;from LRLSTWRK
LRAA ;from LRLSTWRK
CHKDAT ;from LRLIST

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: L1+3
Function Call: WRITE
  • Prompt: !,?20,"SHORT ",$P(^LRO(68,LRAA(LRAA),0),U,1)," ACCESSION"
  • Line Location: LOOP2+2
Function Call: WRITE
  • Prompt: !,"FROM DATE: "
  • Line Location: LOOP2+4
Function Call: WRITE
  • Prompt: Y,!,"TO DATE: "
  • Line Location: LOOP2+7
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: LOOP2+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: L26+14
Function Call: WRITE
  • Prompt: $P(LRACC," ",1)," ",$P(LRACC," ",3),?11," ",$E(LRLLOC,1,4),?18," ",$E(SSN,$L(SSN)-3,$L(SSN)),?23," ",$E(PNM,1,15)
  • Line Location: L26+16
Function Call: WRITE
  • Prompt: !
  • Line Location: L26+17
Function Call: WRITE
  • Prompt: ?11,"ORD:",LRCEN
  • Condition for execution: LRCEN
  • Line Location: L26+17
Function Call: WRITE
  • Prompt: ?20," ",LRCDT
  • Line Location: L26+17
Function Call: WRITE
  • Prompt: ?40
  • Line Location: L26+18
Function Call: WRITE
  • Prompt: "ORD:",LRCEN
  • Condition for execution: LRCEN
  • Line Location: L26+18
Function Call: WRITE
  • Prompt: " ",LRCDT
  • Line Location: L26+18
Function Call: WRITE
  • Prompt: !,?11,"UID: ",LRUID
  • Line Location: L26+19
Function Call: WRITE
  • Prompt: ?($S(LR(4)>1:7,1:5)*(LRTEST-LRPTO)+35+LR(3))
  • Line Location: LOOP4+3
Function Call: WRITE
  • Prompt: $P(^(LRTEST),U,3)
  • Line Location: LOOP4+4
Function Call: WRITE
  • Prompt: ?($S(LR(4)>1:7,1:5)*(LRNTPP+1)+34+LR(3))
  • Line Location: LOOP4+5
Function Call: WRITE
  • Prompt: " ",LRSPEC
  • Line Location: LOOP4+6
Function Call: WRITE
  • Prompt: " NC"
  • Line Location: LOOP4+8
Function Call: WRITE
  • Prompt: !,"ACC #"
  • Line Location: L27+3
Function Call: WRITE
  • Prompt: !,"Need more columns on the display than are available, Either use a wider",!,"device or try fewer accessions (fewer tests may be encountered, resulting in",!,"a narrower display)."
  • Line Location: L15+1
Function Call: WRITE
  • Prompt: !,$P("Key:^done = mult test comp.^ pen = mult test incomp.^spen = stat mult incomp.^number = result^.... = incomplete^S... = STAT incomp.^ | = not ordered",U,I)
  • Line Location: L30+0
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,"Accession area selected has a YEARLY Accession date, you didn't choose that."
  • Line Location: CHKDAT+1
Function Call: WRITE
  • Prompt: !,"Accession area selected has a DAILY Accession date, you didn't choose that."
  • Line Location: CHKDAT+2
Function Call: WRITE
  • Prompt: !,"Accession area selected has a MONTHLY Accession date, you didn't choose that."
  • Line Location: CHKDAT+3
Info |  Source |  Entry Points |  Interaction Calls