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

Package: Lab Service

Routine: LRBLPE1


Information

LRBLPE1 ;AVAMC/REG/CYM - PATIENT DRUG LIST ;6/13/96 15:41

Source Information

Source file <LRBLPE1.m>

Entry Points

Name Comments DBIA/ICR reference
R
EN
K
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,$C(7),$P(LRP,"^"),?30,$P(LRP,"^",9),!,"Patient has positive direct AHG(BS) test MEDICATIONS:"
  • Line Location: LRBLPE1+3
Function Call: READ
  • Variable: Q
  • Timeout: R[U
  • Line Location: LRBLPE1+5
Function Call: WRITE
  • Prompt: !,"OUTPATIENT PHARMACY ITEM: ",$P(^(0),"^")
  • Line Location: LRBLPE1+5
Function Call: READ
  • Variable: Q
  • Timeout: R[U
  • Line Location: LRBLPE1+7
Function Call: WRITE
  • Prompt: !,"IV DRUG: ",$P(^(0),"^")
  • Line Location: LRBLPE1+7
Function Call: READ
  • Variable: Q
  • Timeout: R[U
  • Line Location: LRBLPE1+9
Function Call: WRITE
  • Prompt: !,"INPATIENT PHARMACY ITEM: ",$P(^(0),"^")
  • Line Location: LRBLPE1+9
Function Call: READ
  • Formatting: !
  • Prompt: "'^' TO STOP "
  • Variable: R
  • Timeout: DTIME
  • Line Location: R+0
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13)
  • Line Location: R+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter 86250.0000 as 'Antihuman Globulin Test' in WKLD CODE file (#64)"
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !!?6,"Division: ",LRAA(4),!,"Accession Area: ",LRO(68)
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,LRAA(1)," Patient data entry for ",LRH(0)," "
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: $C(7),!!,"NO ",LRAA(1)," ACCESSIONS IN FILE FOR ",LRH(0),!!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"Enter TEST COMMENT(s) "
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"Edit SPECIMEN COMMENT(s) "
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: $C(7),!!,"I can't uncount this workload now 'cause someone else is editing this record. ",!!,"Use the Workload manual input option to delete workload data ",!!
  • Line Location: K+0
Info |  Source |  Entry Points |  Interaction Calls