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

Package: Lab Service

Routine: LRLIST


Information

LRLIST ;DALOI/STAFF - LAB RESULTS LIST ;05/06/13

Source Information

Source file <LRLIST.m>

Entry Points

Name Comments DBIA/ICR reference
EN
C
INST
ALL
C2 ;
L10 ;
L20 ;
L22 ;
L23 ;
L26 ;
L28 ;
PR ;
PR1
TOF
END ;
HDR ;
HD1 ;
RANGE ;
TST
DQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Summary List (Supervisors') >>> NOT FOR WARD USE <<<",!
  • Line Location: LRLIST+4
Function Call: WRITE
  • Prompt: !!?5,"Do you wish to see all tests including Common Accessions "
  • Line Location: ALL+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: L10+4
Function Call: WRITE
  • Prompt: "END OF REPORT",!
  • Line Location: L10+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: L20+4
Function Call: WRITE
  • Prompt: !,"END OF REPORT",!
  • Line Location: L20+5
Function Call: WRITE
  • Prompt: !!?10," Accession ",LRAN," deleted ",!!,$C(7)
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PR1+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PR1+2
Function Call: WRITE
  • Prompt: !!,PNM,?40,SSN,!,LRAA(LRAA,1)," ACC: ",$S($D(^LRO(68,+LRAA(LRAA),1,LRAD,1,LRAN,.2)):^(.2),1:"no acc")
  • Line Location: PR1+6
Function Call: WRITE
  • Prompt: ?45,$S($D(^LRO(68,+LRAA(LRAA),1,LRAD,1,LRAN,.1)):" ORDER #: "_^(.1),1:"")
  • Line Location: PR1+7
Function Call: WRITE
  • Prompt: !,"Person placing order: ",LRX
  • Line Location: PR1+11
Function Call: WRITE
  • Prompt: " Person performing test: ",$E(LRX,1,(IOM-($X+1)))
  • Line Location: PR1+20
Function Call: WRITE
  • Prompt: !," ACCESSION #: ",LRAN," HAS AN ERROR NOTIFY SYSTEM MANAGER >>> ",!!
  • Line Location: PR1+23
Function Call: WRITE
  • Prompt: !," ACCESSION #: ",LRAN," >>>>ERROR PLEASE NOTIFY SYSTEM MANAGER<<<<<",!
  • Line Location: PR1+24
Function Call: WRITE
  • Prompt: !
  • Line Location: PR1+26
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TOF+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TOF+2
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: !,"88888"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: "SUMMARY LIST (SUPERVISORS') FOR DATE: ",LRRDT,?(IOM-12),"PAGE: ",LRRPG,!
  • Line Location: HD1+1
Function Call: WRITE
  • Prompt: " >> NOT FOR WARD USE <<"
  • Line Location: HD1+2
Function Call: WRITE
  • Prompt: ?40,"Report for date: ",$$FMTE^XLFDT($S(LRDATE>0:LRDATE,1:$$DT^XLFDT),"D")
  • Condition for execution: $L(LRRDT)=4
  • Line Location: HD1+2
Function Call: WRITE
  • Prompt: !,"ACCESSION AREA(S): "
  • Line Location: HD1+3
Function Call: WRITE
  • Prompt: LRAA(ZZ,1)," "
  • Line Location: HD1+3
Function Call: WRITE
  • Prompt: !,"Collecting Site(s) "
  • Line Location: HD1+4
Function Call: WRITE
  • Prompt: $P(^DIC(4,ZZ,0),U)," / "
  • Line Location: HD1+4
Function Call: WRITE
  • Prompt: !,LREQ
  • Line Location: HD1+5

FileMan Files Accessed Via FileMan Db Call

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