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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRHYBC1

Package: Lab Service

Routine: LRHYBC1


Information

LRHYBC1 ;VA/DALOI/HOAK - LAB PHLEB AND COLLECTION TIME UPDATER ;11/8/10 1:50pm

Source Information

Source file <LRHYBC1.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Lab Service 4 ^LRHYU4  ^LRHYU5  IO^LRWU  $$Y2K^LRX  
VA Fileman 4 NOW^%DTC  ^DIC  ^DIE  IX1^DIK  
Kernel 3 ^%ZISC  ^%ZTLOAD  $$NOW^XLFDT  
Automated Lab Instruments 1 EN^LA7ADL  
Registration 1 (,INP)^VADPT  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Lab Service 5 LRHY SCAN SPECIMENS INTO LAB  LRHY0  LRHYAFT  LRHYF2  LRHYPL  

Entry Points

Name Comments DBIA/ICR reference
ACCNX ;
BACK
SINGLE ;
; This block calls up the testing demographics.
; LRHYD123 IS LRUID
GUY ; COLLECTOR DEMOGRAPHICS stuff this into LR...99 COMMENT FIELD.
DISPLAY ;
TIC ;
CONTROL ;
LABIN ;
SET ;
TECH ;
SETFILE ;
CHECK ;
FINDER ;
P2 ;
END ;
THERE ;
ZZ1 ;
PAST ;
EDIT ;
TIME ;
PTSCAN ;
BINBRD ;
D2 ;
PST
D1 ;

External References

Name Field # of Occurrence
NOW^%DTC THERE+3, THERE+16, LABIN+9
^%ZISC D2+3
^%ZTLOAD BINBRD+2
^DIC FINDER+4, TECH+18, TIME+7
^DIE SETFILE+13, SETFILE+22, SETFILE+23, SETFILE+24, SETFILE+25, LABIN+13, D1+7
IX1^DIK SETFILE+26
EN^LA7ADL SINGLE+5
^LRHYU4 LABIN+1
^LRHYU5 SINGLE+11, DISPLAY+2
IO^LRWU DISPLAY+4
$$Y2K^LRX THERE+8, THERE+9, D1+9, D1+11, D1+13
^VADPT TIME+10
INP^VADPT TIME+10
$$NOW^XLFDT SETFILE+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: Y
  • Line Location: TECH+20
Function Call: WRITE
  • Prompt: !!
  • Line Location: SINGLE+3
Function Call: WRITE
  • Prompt: !,"Doesn't exist."
  • Line Location: SETFILE+1
Function Call: WRITE
  • Prompt: !,$S($D(^LAB(62.05,+LRURG,0)):$P(^(0),U),1:"")," "
  • Line Location: ZZ1+11
Function Call: WRITE
  • Prompt: !,"Please start over..."
  • Line Location: ZZ1+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PAST+12
Function Call: WRITE
  • Prompt: !
  • Line Location: THERE+1
Function Call: WRITE
  • Prompt: !!!
  • Line Location: GUY+4
Function Call: WRITE
  • Prompt: !!,"Please swipe PATIENT ID CARD or Type SSN: "
  • Line Location: PTSCAN+2
Function Call: READ
  • Timeout: 9999999
  • Variable: X
  • Line Location: PTSCAN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PTSCAN+3
Function Call: WRITE
  • Prompt: !,"NO SUCH PATIENT"
  • Line Location: PTSCAN+6
Function Call: WRITE
  • Prompt: !,PNM
  • Line Location: PTSCAN+8
Function Call: WRITE
  • Prompt: !,"WRONG PATIENT"
  • Line Location: P2+3
Function Call: WRITE
  • Prompt: !,^LRO(68,LRAA,1,LRAD,1,LRAN,.2),?20,$P(^LAB(60,LRX,0),U)
  • Line Location: P2+4
Function Call: WRITE
  • Prompt: !,"EVERYTHING MATCHES UP ",$P($P(^VA(200,LRHYTECH,0),U),",",2),", GREAT JOB!"
  • Line Location: P2+5
Function Call: WRITE
  • Prompt: !,"Incorrect UID try again..."
  • Line Location: LABIN+8
Function Call: WRITE
  • Prompt: !,"MUST ENTER UID, TRY AGAIN"
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !,"NO Entry in HOWDY SPECIMEN TIMES BY UID File. Run Phlebotomy log."
  • Line Location: D1+5
Function Call: WRITE
  • Prompt: !,"UID: ",LRUID
  • Line Location: D1+8
Function Call: WRITE
  • Prompt: !,"WALK-UP SCAN TIME:",?50,$$Y2K^LRX(^LRHY(69.87,LRDA,2))
  • Line Location: D1+9
Function Call: WRITE
  • Prompt: !,"COLLECTOR:",?50,?50,$P(^VA(200,^LRHY(69.87,LRDA,6),0),U)
  • Line Location: D1+10
Function Call: WRITE
  • Prompt: !,"TIME SPECIMEN COLLECTED:",?50,$$Y2K^LRX(^LRHY(69.87,LRDA,8))
  • Line Location: D1+11
Function Call: WRITE
  • Prompt: !,"TIME SCANNED INTO LAB:",?50,$$Y2K^LRX(^LRHY(69.87,LRDA,10))
  • Line Location: D1+13
Function Call: WRITE
  • Prompt: !,"RECEIVED INTO LAB BY: ",?50,$P(^VA(200,^LRHY(69.87,LRDA,12),0),U)
  • Line Location: D1+14
Function Call: WRITE
  • Prompt: !,"PT:",PNM
  • Line Location: D2+2
Routine Call
  • DIE
  • Line Location:
    • SETFILE+13
    • SETFILE+22
    • SETFILE+23
    • SETFILE+24
    • SETFILE+25
    • LABIN+13
    • D1+7
Routine Call
  • DIC
  • Line Location:
    • FINDER+4
    • TECH+18
    • TIME+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^VA(200 - [#200] Classic Fileman Calls
^LRHY(69.87 - [#69.87] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] TIME+9, PTSCAN+8, PTSCAN+9
^DPT("SSN" PTSCAN+7
^LAB(60 - [#60] P2+4
^LAB(62.05 - [#62.05] ZZ1+11
^LR - [#63] PAST+3
^LRHY(69.86 - [#69.86] BINBRD+2
^LRHY(69.87 - [#69.87] SETFILE+6, SETFILE+7, SETFILE+14, SETFILE+16*, SETFILE+17, LABIN+7, D1+2, D1+6, D1+9, D1+10
, D1+11, D1+12, D1+13, D1+14
^LRO(68 - [#68] SETFILE+1, SETFILE+3, SETFILE+4, SETFILE+20, SETFILE+21, ZZ1+7, ZZ1+8, EDIT+1, EDIT+2, THERE+9
, TIC+1, SET+2*, SET+3*, P2+2, P2+3, P2+4, LABIN+5, D1+7
^LRO(69 - [#69] SET+1*
^TMP("LRHY ASH" CONTROL+2!, ZZ1+3*, END+1!, ACCNX+2, ACCNX+4, ACCNX+6
^VA(200 - [#200] PST+2, GUY+2, GUY+3, P2+5, D1+10, D1+14
^XUSEC("LRLAB" BACK, THERE+10, THERE+19, GUY+3

Label References

Name Line Occurrences
EDIT ZZ1+14
END CONTROL+11, ZZ1+5, ZZ1+18
LABIN LABIN+8, LABIN+14
P2 ACCNX+6
PST TECH+6
PTSCAN CONTROL+13
SINGLE CONTROL+12, SETFILE+1, ZZ1+4, SET+6
TECH CONTROL+10, TECH+8
THERE BACK, BACK+1, THERE+12
TIC THERE+19

Naked Globals

Name Field # of Occurrence
^(0 ZZ1+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % THERE+16, LABIN+9
%DT THERE+2!, THERE+4*
%DT("A" THERE+5*
%DT("B" THERE+10*
DA SETFILE+7*, SETFILE+8*, SETFILE+14*, SETFILE+16, SETFILE+22*, SETFILE+23*, SETFILE+24*, SETFILE+25*, LABIN+7*, LABIN+8
, D1+7!*
>> DFN TIME+8*, TIME+9, PTSCAN+7*, PTSCAN+8, PTSCAN+9
DIC CONTROL+4!, CONTROL+5!, CONTROL+6!, CONTROL+7!, FINDER+1*, TECH+1!, TECH+2!, TECH+8!, TECH+13!, TECH+14!
, TECH+16*, TIME+5*
DIC("A" FINDER+3*
DIC(0 FINDER+2*, TECH+17*, TIME+6*
DIE CONTROL+5!, CONTROL+7!, TECH+2!, SETFILE+10*, SETFILE+12, SETFILE+22!*, SETFILE+23!*, SETFILE+24!*, SETFILE+25!*, SETFILE+26
, LABIN+10!, LABIN+11*, D1+7*
>> DIK SETFILE+12*, SETFILE+26*
DIR CONTROL+5!, CONTROL+7!, TECH+2!
DR SETFILE+11*, SETFILE+22*, SETFILE+23*, SETFILE+24*, SETFILE+25*, LABIN+12*, D1+7!*
>> DTOUT THERE+13
>> DUOUT THERE+13
DUZ TECH+6, PST, BACK, THERE+10, THERE+19, LABIN+12
IO D2+1
LR0NODE SINGLE+9!
LRAA SETFILE+1, SETFILE+3, SETFILE+4, SETFILE+20, SETFILE+21, ZZ1+3, ZZ1+7, ZZ1+8, END+2!, EDIT+1
, EDIT+2, THERE+9, TIC+1, TIC+4, SET+2, SET+3, ACCNX+1*, ACCNX+2*, ACCNX+4, ACCNX+6
, P2+2, P2+3, P2+4, LABIN+5, D1+7
>> LRAAX5 TIC+4*
>> LRACC SINGLE+4*
LRAD SETFILE+1, SETFILE+3, SETFILE+4, SETFILE+20, SETFILE+21, ZZ1+3, ZZ1+7, ZZ1+8, END+2!, EDIT+1
, EDIT+2, THERE+9, TIC+1, TIC+4, SET+2, SET+3, ACCNX+3*, ACCNX+4*, ACCNX+6, P2+2
, P2+3, P2+4, LABIN+5, D1+7
>> LRADX6 TIC+4*
LRAN SINGLE+12, SETFILE+1, SETFILE+3, SETFILE+4, SETFILE+20, SETFILE+21, ZZ1+3, ZZ1+7, ZZ1+8, END+2!
, EDIT+1, EDIT+2, THERE+9, TIC+1, TIC+4, SET+2, SET+3, ACCNX+5*, ACCNX+6*, P2+2
, P2+3, P2+4, LABIN+3, LABIN+5, DISPLAY+2, D1+7
>> LRANX6 TIC+4*
LRARIVE CONTROL+5!, CONTROL+7!, TECH+2!, END+2!, PAST+9!, TIC+1*, TIC+2
>> LRBBRD BINBRD+2*
LRBLOOD END+2!
LRCE END+2!
>> LRDA D1+2*, D1+5, D1+6, D1+7, D1+9, D1+10, D1+11, D1+12, D1+13, D1+14
LRDAT END+2!, SET+1
LRDFN TIME+9*, END+2!, EDIT+1*, PAST+3, PTSCAN+9*, P2+3
LRDLA END+3!
LRDLC END+3!
LRDPF END+3!
LRDRAW CONTROL+5!, CONTROL+7!, TECH+2!, END+3!, THERE+16*, SET+1, SET+2, SET+3
>> LRDRAW7 THERE+8*, THERE+9*, THERE+10
LRDT SETFILE+18~, SETFILE+19*, SETFILE+23, SETFILE+25
LRDT0 END+3!
LRDTO END+3!
LREND CONTROL+9*, TIME+4*, ZZ1+17!, THERE+13*
LRHN0 SINGLE+9!
LRHNODE SINGLE+9!
LRHYD123 SINGLE+5, SINGLE+7!, SETFILE+4*, SETFILE+6, SETFILE+9, SETFILE+15
LRHYDUZ CONTROL+4!, CONTROL+6!, TECH+1!, TECH+8!, TECH+14!, PST+1*, PST+2*, END+3!, PAST+1!, TIC+5*
LRHYNISH END+3!, GUY+2*
LRHYTECH CONTROL+4!, CONTROL+6!, TECH+1!, TECH+8!, TECH+14!, PST+1*, SETFILE+24, END+4!, GUY+2, GUY+3
, TIC+5, P2+5
LRIDT END+2!, EDIT+2*, PAST+3
LRIDTNEW ZZ1+17!
LRLABIN LABIN+9!*, LABIN+12
>> LRLABTIM SETFILE+20*
LRN0 SINGLE+9!
>> LRORDT1 SETFILE+3*
LRPHLEB CONTROL+4!, CONTROL+6!, TECH+1!, TECH+8!, PST+1*, SINGLE+9!
LRPL CONTROL+8*, CONTROL+15!
LRPON GUY+1!, GUY+3*
LRPRAC END+3!
LRPTARIV CONTROL+1!, CONTROL+16!, TIC+2*
LRRECV TECH+8!
LRRECVR CONTROL+4!, TECH+1!, PST+1*
LRSCAN CONTROL+3!, SETFILE+18~, SETFILE+21*, SETFILE+22
LRSN END+4!, SET+1
>> LRSPIEN SETFILE+17*, SETFILE+22, SETFILE+23, SETFILE+24, SETFILE+25
>> LRSS PAST+3*, PAST+4*
LRTEST ZZ1+7*, ZZ1+8, END+4!
>> LRUID SETFILE+15*, SETFILE+17, LABIN+6*, LABIN+7, DISPLAY+3*, D1+1*, D1+2, D1+8
>> LRUNC SETFILE+2*
>> LRUP THERE+14*, THERE+15*
LRURG ZZ1+8*, ZZ1+11, END+4!
LRX P2+1~*, P2+2*, P2+4
PNM END+4!, PTSCAN+8*, D2+2
SSN END+4!
U CONTROL+11, CONTROL+14, TECH+7, TECH+22, PST+2, SETFILE+3, SETFILE+7, SETFILE+14, SETFILE+16, ZZ1+8
, ZZ1+11, EDIT+1, EDIT+2, THERE+9, GUY+2, GUY+3, TIC+1, SET+1, SET+2, SET+3
, PTSCAN+4, PTSCAN+8, P2+4, P2+5, D1+7, D1+10, D1+14
VADM END+4!
VAIN END+4!
>> X CONTROL+11, CONTROL+12, CONTROL+14, TECH+4*, TECH+6*, TECH+7, TECH+8, TECH+22, SINGLE+10*, SETFILE+9*
, SETFILE+11, THERE+12, PTSCAN+3*, PTSCAN+4, PTSCAN+5, PTSCAN+6, PTSCAN+7, LABIN+5*, LABIN+6, DISPLAY+1*
, DISPLAY+3, D1+1
>> XQY0 ZZ1+1
Y TECH+15!, TECH+20, PST*, PST+1, TIME+8, THERE+14
>> ZTDTH BINBRD+2*
>> ZTIO BINBRD+2*
>> ZTQUEUED BINBRD+2
>> ZTREQ BINBRD+2*
>> ZTRTN DISPLAY+4*, BINBRD+1*
>> ZTSAVE("PNM" BINBRD+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All