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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRHYBC1

Package: Lab Service

Routine: LRHYBC1


Information

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

Source Information

Source file <LRHYBC1.m>

Entry Points

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

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: !,"Sorry, Collection Time already recorded!!.",!
  • Line Location: SETFILE+6
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
  • Variable: X
  • Timeout: 9999999
  • 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: !,"Sorry, Lab Arrival Time already recorded!!",!
  • Line Location: LABIN+9
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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call