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

Package: Lab Service

Routine: LRABG1


Information

LRABG1 ;SLC/RWF - PULMONARY LAB DATA DISPLAY ;2/22/87 2:08 PM ;

Source Information

Source file <LRABG1.m>

Entry Points

Name Comments DBIA/ICR reference
PRL
FI
AA
HEAD ;from LRABG
H4
DAT
WAIT
LREND

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?2,"@"_T
  • Line Location: PRL+7
Function Call: WRITE
  • Prompt: $E("AVC W",LRSPEC-79),?11
  • Line Location: PRL+7
Function Call: WRITE
  • Prompt: ?75
  • Line Location: FI+0
Function Call: WRITE
  • Prompt: LRFIO2
  • Line Location: FI+0
Function Call: WRITE
  • Prompt: LRFIO2
  • Line Location: FI+0
Function Call: WRITE
  • Prompt: !
  • Line Location: FI+1
Function Call: WRITE
  • Prompt: $E($P(^(0),U,1),1,14)
  • Line Location: FI+1
Function Call: WRITE
  • Prompt: ?15,"%MetHb IS ",$P(Z6,U,4)
  • Line Location: FI+2
Function Call: WRITE
  • Prompt: ?26,"TEMP ",LRPT,": "
  • Line Location: FI+3
Function Call: WRITE
  • Prompt: !,?6,"NOTE:"
  • Line Location: FI+4
Function Call: WRITE
  • Prompt: ^(I,0),!
  • Line Location: FI+4
Function Call: WRITE
  • Prompt: !?6,"computed LRALV-art=",$J(LRALV-LRPO2,1,0)
  • Line Location: AA+4
Function Call: WRITE
  • Prompt: " ERROR,",$C(7)
  • Condition for execution: LRALV<LRPO2
  • Line Location: AA+4
Function Call: WRITE
  • Prompt: " ERROR",$C(7)
  • Condition for execution: X>1
  • Line Location: AA+5
Function Call: WRITE
  • Prompt: !
  • Line Location: AA+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,$P($G(^DIC(4,+$P($G(^XMB(1,1,"XUS")),U,17),0)),U)," BLOOD GAS REPORT",?60,Y
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !?5,SSN,?30,PNM,?60,"AGE ",AGE
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,"DATE A/V"
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: H4+0
Function Call: WRITE
  • Prompt: $S(I=1:" TIME",I=2:"Ref High",1:"Ref Low ")
  • Condition for execution: J=0
  • Line Location: H4+0
Function Call: WRITE
  • Prompt: $S($D(LRLN(J)):$J($P(LRLN(J),U,I),7),I=1:$J($P(^LAB(60,$P(LRTST,U,J),.1),U,1),7),1:" ")
  • Line Location: H4+0
Function Call: WRITE
  • Prompt: !
  • Line Location: H4+1
Function Call: WRITE
  • Prompt: "----"
  • Line Location: H4+1
Function Call: WRITE
  • Prompt: "---"
  • Line Location: H4+2
Function Call: READ
  • Formatting: !
  • Prompt: "PRESS '^' TO STOP "
  • Variable: J
  • Timeout: DTIME
  • Line Location: WAIT+0
Info |  Source |  Entry Points |  Interaction Calls