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

Package: Lab Service

Routine: LRHY0


Information

LRHY0 ;DALOI/HOAK - HOWDY MAIN DRIVER ;10/15/10 11:00am

Source Information

Source file <LRHY0.m>

Entry Points

Name Comments DBIA/ICR reference
PICK ;
; pick the site from Howdy Site FILE 69.86
CHOOO
ALT ;
VET ; Primary API for Howdy! Called by [LRHY PATIENT CARD SCAN] option.
VET1 ; Code below executes to handle Patient episode.
; Then, Howdy waits here for next Patient
PRT1 ;
QUITH ;
ORDCHK ; This block to be used for future version
LOG ; Howdy will default to the clerks judgement when multiple orders found.
LOG1 ; Howdy will default to the clerks judgement when multiple orders found.
ORDERS ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LRHYCT2,". ",$P(^%ZIS(1,LRDEV,0),U)
  • Line Location: PICK+17
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: CHOOO+0
Function Call: WRITE
  • Prompt: !,"Choose a label printer: "
  • Line Location: CHOOO+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CHOOO+0
Function Call: WRITE
  • Prompt: !,"NOTHING SELECTED"
  • Line Location: CHOOO+2
Function Call: WRITE
  • Prompt: !,"NUMBER NOT IN RANGE"
  • Line Location: CHOOO+3
Function Call: WRITE
  • Prompt: !,"enter the number please"
  • Line Location: CHOOO+5
Function Call: WRITE
  • Prompt: ?11,$P(^%ZIS(1,LRDEV,0),U)
  • Line Location: ALT+1
Function Call: WRITE
  • Prompt: !,"Please ask the clerk for assistance."
  • Line Location: VET1+28
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: VET1+30
Function Call: WRITE
  • Prompt: !!,"Please swipe your ID CARD or Type SSN: "
  • Line Location: VET1+33
Function Call: READ
  • Variable: X
  • Timeout: 9999999
  • Line Location: VET1+37
Function Call: WRITE
  • Prompt: !
  • Line Location: VET1+37
Function Call: READ
  • Variable: X
  • Timeout: 15
  • Line Location: VET1+54
Function Call: WRITE
  • Prompt: !,"No record for this person."
  • Line Location: VET1+54
Function Call: WRITE
  • Prompt: !,"No Lab Data Available... Please check with clerk at the Desk."
  • Line Location: VET1+58
Function Call: WRITE
  • Prompt: !!!,"Please check with clerk at the Desk"
  • Line Location: VET1+66
Function Call: WRITE
  • Prompt: !!!,"Please check with clerk at the Desk"
  • Line Location: VET1+67
Function Call: WRITE
  • Prompt: !,$G(LRCTYPE)," No Orders found. Please check with clerk at the Desk"
  • Line Location: VET1+68
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRT1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT1+5
Function Call: WRITE
  • Prompt: IODHLT," ",PNMALL
  • Line Location: PRT1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT1+7
Function Call: WRITE
  • Prompt: IODHLB," ",PNMALL
  • Line Location: PRT1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT1+9
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR($G(^LRHY(69.86,LRHYSITE,40)),IOM)
  • Line Location: PRT1+10
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Your Host is: "_$G(^LRHY(69.86,LRHYSITE,42)),IOM)
  • Line Location: PRT1+11
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR($G(^LRHY(69.86,LRHYSITE,44)),IOM)
  • Line Location: PRT1+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT1+13
Function Call: WRITE
  • Prompt: IODHLT," Orders for date: "_$$Y2K^LRX(DT)
  • Line Location: PRT1+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT1+15
Function Call: WRITE
  • Prompt: IODHLB," Orders for date: "_$$Y2K^LRX(DT)
  • Line Location: PRT1+16
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT1+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT1+20
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR($G(^LRHY(69.86,LRHYSITE,32,LRXYZ,0)),IOM)
  • Line Location: PRT1+21
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT1+22
Function Call: WRITE
  • Prompt: *7
  • Line Location: PRT1+23
Function Call: WRITE
  • Prompt: *7
  • Line Location: PRT1+23
Function Call: WRITE
  • Prompt: *7
  • Line Location: PRT1+23
Function Call: WRITE
  • Prompt: !,"NO ORDERS"
  • Line Location: LOG+4
Function Call: WRITE
  • Prompt: !,"MULTIPLE ORDERS"
  • Line Location: LOG1+2
Info |  Source |  Entry Points |  Interaction Calls