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

Package: Lab Service

Routine: LRHYDEL


Information

LRHYDEL ;DALOI/HOAK - HOWDY DEL A TEST ;8/28/2005

Source Information

Source file <LRHYDEL.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
FIX
FX1 ;
CHG
SHOWTST ;
DEMO
SET ;
ROL ;
LRACC
LREND
UNLOCK ;
EXIT ;
END ;
FX2 ;
FX3
63(LRDFN,LRSS,LRIDT,LRTNM,LRCCOM) ;
631

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"You are not authorized to change test status.",!,$C(7)
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: FIX+1
Function Call: WRITE
  • Prompt: !?5,"Accession has no Test ",!
  • Line Location: FIX+3
Function Call: WRITE
  • Prompt: !,"Someone else is working on this accession",!
  • Line Location: FIX+4
Function Call: WRITE
  • Prompt: !,PNM,?30,SSN
  • Line Location: FIX+8
Function Call: WRITE
  • Prompt: !,"Someone else is working on this data."
  • Line Location: FIX+9
Function Call: WRITE
  • Prompt: !?5," Can't find Lab Data for this accession",!
  • Line Location: FIX+10
Function Call: WRITE
  • Prompt: !
  • Line Location: CHG+0
Function Call: WRITE
  • Prompt: !?5,"No Test Selected",!
  • Line Location: CHG+6
Function Call: WRITE
  • Prompt: !,"NO CHANGE"
  • Line Location: CHG+7
Function Call: WRITE
  • Prompt: !?5,"There is no Order for this Accession",!
  • Line Location: CHG+8
Function Call: WRITE
  • Prompt: @IOF,!!?5,"Change Accession : ",LRACN,?40,"UID: ",LRUID
  • Line Location: CHG+9
Function Call: WRITE
  • Prompt: !?10,LRCTST(I)
  • Line Location: CHG+10
Function Call: WRITE
  • Prompt: !,?5,$P(^(0),U)
  • Line Location: SHOWTST+5
Function Call: WRITE
  • Prompt: ?35," "_$S($L($P(LRIC,U,3)):$P(LRIC,U,3),1:"Completed")_" "_$$FMTE^XLFDT($P(LRIC,U,2),"5FMPZ")_" by "_$P(LRIC,U)
  • Line Location: SHOWTST+6
Function Call: WRITE
  • Prompt: !,PNM,?50,SSN
  • Line Location: DEMO+0
Function Call: WRITE
  • Prompt: !,"TESTS ON ACCESSION: ",LRACN,?40,"UID: ",LRUID
  • Line Location: DEMO+1
Function Call: WRITE
  • Prompt: !?5,"No Subscript for this Accession Area ",!!
  • Line Location: LRACC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: FX2+5
Function Call: WRITE
  • Prompt: !
  • Line Location: FX3+0
Function Call: WRITE
  • Prompt: !,"("_LRCCOM_")"
  • Line Location: FX3+12
Info |  Source |  Entry Points |  Interaction Calls