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 |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Lab Service 6 ORDCHK^LRHYB  BINBRD^LRHYBC1  (BAKUSER,USER,XTMP)^LRHYU  (SCRNOFF,SCRNON)^LRHYUTL  ^LRPARAM  ($$Y2K,PT)^LRX  
VA FileMan 2 NOW^%DTC  ^DIC  
Kernel 1 $$CJ^XLFSTR  
Registration 1 RPCVIC^DPTLK  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Lab Service 4 LRHY HOWDY BOT  LRHY PATIENT CARD SCAN  LRHYB  LRHYPH2  
Kernel 1 ^DIC(19  

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 ;

External References

Name Field # of Occurrence
NOW^%DTC VET1+69, LOG+8, LOG1+5
^DIC PICK+5
RPCVIC^DPTLK VET1+52
ORDCHK^LRHYB VET1+62
BINBRD^LRHYBC1 PRT1+25
BAKUSER^LRHYU VET1+38
USER^LRHYU ALT+4
XTMP^LRHYU VET+1
SCRNOFF^LRHYUTL QUITH+1
SCRNON^LRHYUTL PRT1+3
^LRPARAM VET1+25
$$Y2K^LRX PRT1+14, PRT1+16
PT^LRX VET1+57, LOG+7, LOG1+4
$$CJ^XLFSTR PRT1+10, PRT1+11, PRT1+12, PRT1+21

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
Routine Call
  • DIC
  • Line Location:
    • PICK+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] PICK+10, PICK+17, ALT+1
^%ZOSF("EOFF" VET1+36
^%ZOSF("EON" VET1+38, VET1+39
^DPT - [#2] VET1+55
^LR - [#63] LOG+10, LOG1+6
^LRHY(69.86 - [#69.86] PICK+10, PICK+16, PRT1+10, PRT1+11, PRT1+12, PRT1+19, PRT1+21, PRT1+25
^TMP("LRHYDY" VET1+24!, VET1+59!, LOG+9*, LOG+10*, LOG1+6*

Label References

Name Line Occurrences
ALT PICK+10
CHOOO CHOOO+3, CHOOO+5
LOG VET1+58, VET1+67, VET1+68
PICK VET1+21
QUITH VET1+66, VET1+67, VET1+68
VET1 VET1+54, VET1+58, QUITH+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LOG+9, LOG+10, LOG1+6
DFN VET1+47!, VET1+52, VET1+54, VET1+55, LOG+9
DIC PICK+4*, PICK+8!, PICK+14!, ALT+2!
DIC(0 PICK+3*, PICK+15*
DIK VET1+3!
DT VET1+29, PRT1+14, PRT1+16
DTIME CHOOO
>> IODHLB PRT1+8, PRT1+16
>> IODHLT PRT1+6, PRT1+14
IOF VET1+30, PRT1+2
IOM PRT1+10, PRT1+11, PRT1+12, PRT1+21
IOTLC VET1+7!
LABCNT VET1+14!
LN VET1+14!
LR0NODE VET1+14!
LR3 VET1+12!
LR33ORD VET1+4!
LR3D VET1+4!
LR3DTIME VET+5~, QUITH+6!
LR3DTN VET+5~, QUITH+6!
LR3MULT VET1+12!
LR3NX0 VET1+13!
LR3ODT VET1+13!
LR3SN VET+6~, QUITH+7!
LR3T VET1+4!
LR3X VET+9~, QUITH+10!
LR68 VET1+14!
LR6987 VET1+14!
LR700 VET1+14!
LR7LESS VET1+14!
LR7MORE VET1+15!
LRAA VET1+23!, QUITH+2!
LRAANAME VET1+15!
LRAAZ VET1+15!
LRAC1 VET1+15!
LRACC VET+2~, QUITH+3!
LRACCER VET1+15!
LRACCTM VET1+15!
LRACCXX VET1+15!
LRACNODE VET1+16!
LRACO VET1+16!
LRACTM VET1+16!
LRAD VET1+23!, QUITH+2!
LRADD VET1+16!
LRAHEAD VET+8~, QUITH+9!
LRAN VET1+23!, QUITH+2!
LRANX6 VET1+4!
LRBAR0 VET1+16!
LRBAR1 VET1+16!
LRBBRD VET1+16!
LRBINGO VET1+17!
LRC VET1+7!
LRCCOMX VET1+3!
LRCDT VET+2~, QUITH+3!
LRCEN VET1+17!
LRCHK VET+8~, QUITH+9!
LRCNTX VET1+17!
LRCOL99 VET+8~, QUITH+9!
LRCSQ VET1+4!
LRCTYPE VET1+17!, VET1+68
LRD VET1+17!
LRDA VET1+17!
>> LRDEV PICK+10*, PICK+13*, PICK+16*, PICK+17, PICK+18, CHOOO+6*, ALT+1, VET1+21
LRDFN VET1+23!, VET1+47!, VET1+55*, VET1+57, VET1+58, VET1+59, QUITH+2!, LOG+9, LOG+10, LOG1+6
LRDPA VET1+47!
LRDPF VET+2~, VET1+47!, QUITH+3!, LOG+6!, LOG1+3!
LRDPT LOG1+1!
LRDRAW0 VET1+17!
LRDRAW1 VET1+18!
LRDRAW7 VET1+18!
LRDT VET1+18!
LRDT0 VET+6~, VET+9~, QUITH+7!, QUITH+10!
LRDTX VET1+18!
LRDUP VET1+18!
LRDUPT VET+9~, QUITH+10!
LRDUX VET1+3!, VET1+18!
LRDX VET1+3!, VET1+18!
LREAL VET+6~, QUITH+7!
LREDT VET1+3!, VET1+18!
>> LREND PICK+2*, PICK+6*, CHOOO+1*, CHOOO+2*, CHOOO+4*, VET1+21, VET1+68*
LREXORD VET1+5!, QUITH+6!
LRFINX VET1+19!
LRFUTURE VET+6~, QUITH+7!
LRGOTIT VET+6~, QUITH+7!
LRHOWDY VET+6~, VET1+26*, QUITH+7!
LRHT1 VET+9~, QUITH+10!
LRHY3DT VET1+4!
LRHY3SN3 VET1+4!
LRHYCT VET+8~, VET1+27*, VET1+28!, VET1+47!, QUITH+2!, QUITH+9!
LRHYCT2 PICK+15*, PICK+17, PICK+18*, ALT+3!
LRHYCT3 VET1+7!
LRHYCTC VET1+7!
LRHYDJOB VET1+5!
LRHYFIX VET+3~, QUITH+4!
LRHYHOK VET+6~, QUITH+7!
LRHYOK VET+8~, QUITH+9!
LRHYORDZ VET1+13!
>> LRHYSITE PICK+7*, PICK+10, PICK+16, PRT1+10, PRT1+11, PRT1+12, PRT1+19, PRT1+21
LRHYSPC7 VET1+5!
LRHYTOK VET1+7!
LRHYURG3 VET1+5!
LRI VET+2~, QUITH+3!
LRIDT VET1+23!, QUITH+2!
LRIENZZ VET+6~, QUITH+7!
LRIX VET+9~, QUITH+10!
LRKIL VET1+7!
LRLABNOD VET1+7!
LRLABSTP VET1+8!
LRLBLBP VET+7~, QUITH+8!
LRLINE VET1+8!
LRLLOC VET+2~, QUITH+3!
LRLLOC66 VET+7~, QUITH+8!
LRLOCS VET1+66, QUITH+10!
LRLWC VET1+8!
LRM1 VET1+9!
LRM2 VET1+9!
LRM3 VET1+9!
LRMAX2 VET+7~, QUITH+8!
LRMERG VET1+6!
>> LRMULT VET1+67, LOG+1
LRN5 VET1+8!
LRNLT VET+7~, QUITH+8!
LRNODUP VET+2~, VET+7~, QUITH+3!, QUITH+8!
LRNONE VET+7~, QUITH+8!
LRNONONO VET1+8!
LRNOT VET1+8!
LRNOTEST VET1+8!
LRNOTST VET+7~, QUITH+8!
LRNOUP VET1+8!
LRNPZZX VET+2~, VET+7~, QUITH+3!, QUITH+8!
LRNT VET1+8!
LRNX0 VET1+8!
LRODRNUM VET1+6!
LRODRUM VET1+9!
LRODT VET+7~, VET1+29*, QUITH+8!
LRODT0 VET+8~, QUITH+9!
LROLLOC VET+9~, QUITH+10!
LRONE VET1+9!
LRORD VET1+68, LOG1+1!
LRORD24 VET+8~, QUITH+9!
LRORD3 VET+3~, QUITH+4!
LRORDNUM VET1+6!
LRORDSIZ VET1+9!
LRORDT VET1+9!
LRORDT1 VET1+9!
LRORIEN VET1+9!
LRORU3 VET+8~, QUITH+9!
LRPARAM VET1+6!
LRPAST VET+8~, QUITH+9!
LRPHONE VET1+9!
LRPIX VET+8~, QUITH+9!
LRPLICK VET+3~, QUITH+4!
LRPR VET+3~, QUITH+4!
LRPRAC VET+3~, QUITH+4!
LRQUIET VET+3~, QUITH+4!
LRRB VET+3~, QUITH+4!
LRS VET1+10!
LRS3333 VET1+5!
LRSAMP VET+3~, QUITH+4!
LRSC0 VET1+10!
LRSDT VET1+10!
>> LRSKIPNO LOG+2, LOG1+7*
LRSN VET1+23!, QUITH+2!
LRSN1 VET1+10!
LRSND VET+3~, QUITH+4!
LRSPIEN VET1+10!
LRSS VET+4~, QUITH+5!
LRSSN VET1+10!
LRST VET+4~, QUITH+5!
LRSTAR VET1+10!
LRSTATUS VET+4~, QUITH+5!
LRSTOP VET1+10!
LRSTUCK VET1+10!
LRSUB1 VET+4~, QUITH+5!
LRT0 VET1+11!
LRTAT VET1+5!
LRTECH VET1+11!
LRTIC VET+4~, QUITH+5!
LRTIM VET+4~, QUITH+5!
LRTKX VET1+11!
LRTM7 VET1+11!
LRTN VET+4~, QUITH+5!
LRTOTAL VET1+11!
LRTREA VET+4~, QUITH+5!
LRTS VET+4~, QUITH+5!
LRTSORU VET+4~, QUITH+5!
LRTST VET1+11!
LRTST6 VET+5~, QUITH+6!
LRTSTZ99 VET+2~, QUITH+3!
LRTT VET+5~, QUITH+6!
LRTUBE VET1+11!
LRTXT VET1+11!
LRUDT VET1+11!
LRUN VET+5~, QUITH+6!
LRUNC VET1+6!
LRUNK VET1+11!
LRUP VET1+4!
LRURG7 VET1+11!
LRURGA VET1+12!
LRURGNCY VET1+12!
LRURGT VET1+12!
LRURGZ19 VET1+12!
LRWLC VET+5~, QUITH+6!
LRWLO VET+5~, QUITH+6!
LRWRD VET+5~, QUITH+6!
LRX VET+9~, QUITH+10!
LRX( PICK+18*, CHOOO+3, CHOOO+6
LRX1 VET1+12!
LRX2 VET1+12!
LRX3 VET1+12!
LRXYZ VET+5~, PRT1+18*, PRT1+19*, PRT1+21, QUITH+6!
LRY1 VET1+12!
LRYTAT VET1+12!
M9 VET1+13!
PNM VET1+23!, VET1+47!, PRT1+4, QUITH+2!, LOG+6!, LOG+10, LOG1+1!, LOG1+3!, LOG1+6
>> PNMALL PRT1+4*, PRT1+6, PRT1+8
SSN VET1+23!, QUITH+2!, LOG+10, LOG1+6
U PICK+17, CHOOO+1, CHOOO+4, ALT+1, VET1+38, LOG+10, LOG1+6
V VET1+13!
VAIN QUITH+11!
X CHOOO*, CHOOO+1, CHOOO+2, CHOOO+3, CHOOO+4, CHOOO+5, CHOOO+6, VET1+31!, VET1+37*, VET1+38
, VET1+52, VET1+54*, VET1+58!, VET1+66!, VET1+67!, VET1+68!
Y PICK+6, PICK+7, PICK+15!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All