Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRBLPE1

Package: Lab Service

Routine: LRBLPE1


Information

LRBLPE1 ; IHS/DIR/AAB - PATIENT DRUG LIST 15:41 ; [ 6/13/96 ]

Source Information

Source file <LRBLPE1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 3 C^LRBLS  (D,L,V,YN)^LRU  ^LRUTL  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLPE  

Entry Points

Name Comments DBIA/ICR reference
K
R
END
EN

External References

Name Field # of Occurrence
^%DT EN+2
C^LRBLS EN+6
D^LRU EN+2
L^LRU EN+6
V^LRU EN, END
YN^LRU EN+2, EN+4, EN+5
^LRUTL EN

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
  • Timeout: R[U
  • Variable: Q
  • Line Location: LRBLPE1+5
Function Call: WRITE
  • Prompt: !,"OUTPATIENT PHARMACY ITEM: ",$P(^(0),"^")
  • Line Location: LRBLPE1+5
Function Call: READ
  • Timeout: R[U
  • Variable: Q
  • Line Location: LRBLPE1+7
Function Call: WRITE
  • Prompt: !,"IV DRUG: ",$P(^(0),"^")
  • Line Location: LRBLPE1+7
Function Call: READ
  • Timeout: R[U
  • Variable: Q
  • Line Location: LRBLPE1+9
Function Call: WRITE
  • Prompt: !,"INPATIENT PHARMACY ITEM: ",$P(^(0),"^")
  • Line Location: LRBLPE1+9
Function Call: READ
  • Prompt: "'^' TO STOP "
  • Formatting: !
  • Timeout: DTIME
  • Variable: R
  • 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(69.9 - [#69.9] EN+6
^LAM("E" EN
^LRO(68 - [#68] EN+3, K, K+1!, K+2, K+3
^PS(52.6 - [#52.6] LRBLPE1+7
^PS(55 - [#55] LRBLPE1+4, LRBLPE1+6, LRBLPE1+8
^PSDRUG - [#50] LRBLPE1+5, LRBLPE1+9
^PSRX - [#52] LRBLPE1+4
^TMP($J LRBLPE1+3!, LRBLPE1+4*, LRBLPE1+5, LRBLPE1+6!*, LRBLPE1+7, LRBLPE1+8!*, LRBLPE1+9
^XUSEC("LRBLSUPER" EN+5

Label References

Name Line Occurrences
END EN, EN+2, EN+3, EN+4, EN+5
R LRBLPE1+5, LRBLPE1+7, LRBLPE1+9

Naked Globals

Name Field # of Occurrence
^( LRBLPE1+4, LRBLPE1+6, LRBLPE1+8
^(0 LRBLPE1+4, LRBLPE1+5, LRBLPE1+7, LRBLPE1+9, K+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+2*, EN+4*, EN+5*
%DT EN+2*!
%DT(0 EN+2*
>> A K+2*, K+3
>> A(1 LRBLPE1+3*, LRBLPE1+5, LRBLPE1+7, LRBLPE1+9, R+1*
>> DFN LRBLPE1+4, LRBLPE1+6, LRBLPE1+8
DTIME R
DUZ EN+5
IOF LRBLPE1+3
>> LRAA EN+3, K, K+1, K+2, K+3
>> LRAA(1 EN+2, EN+3
>> LRAA(4 EN+1
>> LRAD EN+2*, EN+3, K, K+1, K+2, K+3
>> LRAN K, K+1, K+2, K+3
LRC EN+4*!
LRE EN+5*!
>> LRH(0 EN+2*, EN+3
>> LRO(68 EN+1
>> LRP LRBLPE1+3
LRS EN+6!*
>> LRT K+1
>> LRW(0 EN*
>> R LRBLPE1+3*, LRBLPE1+5, LRBLPE1+6, LRBLPE1+7, LRBLPE1+8, LRBLPE1+9, R*
U LRBLPE1+5, LRBLPE1+6, LRBLPE1+7, LRBLPE1+8, LRBLPE1+9
>> X LRBLPE1+4*, LRBLPE1+5*, LRBLPE1+6*, LRBLPE1+7*, LRBLPE1+8*, LRBLPE1+9*, EN*, EN+6*, K+3*
>> X(1 K+3*
>> Y LRBLPE1+4*, LRBLPE1+6*, LRBLPE1+8*, EN, EN+2, K+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All