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 ;VA/DALOI/HOAK - HOWDY MAIN DRIVER ;10/15/10 11:00am

Source Information

Source file <LRHY0.m>

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

Caller Graph Total: 4

Package Total Caller Graph
Lab Service 4 LRHY HOWDY BOT  LRHY PATIENT CARD SCAN  LRHYB  LRHYPH2  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC VET1+50, LOG+8, LOG1+5
^DIC PICK+5
RPCVIC^DPTLK VET1+34
ORDCHK^LRHYB VET1+44
BINBRD^LRHYBC1 PRT1+25
BAKUSER^LRHYU VET1+20
USER^LRHYU ALT+4
XTMP^LRHYU VET+1
SCRNOFF^LRHYUTL QUITH+1
SCRNON^LRHYUTL PRT1+3
^LRPARAM VET1+7
$$Y2K^LRX PRT1+14, PRT1+16
PT^LRX VET1+39, 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
  • Timeout: DTIME
  • Variable: X
  • 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+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: VET1+12
Function Call: WRITE
  • Prompt: !!,"Please swipe your ID CARD or Type SSN: "
  • Line Location: VET1+15
Function Call: READ
  • Timeout: 9999999
  • Variable: X
  • Line Location: VET1+19
Function Call: WRITE
  • Prompt: !
  • Line Location: VET1+19
Function Call: READ
  • Timeout: 15
  • Variable: X
  • Line Location: VET1+36
Function Call: WRITE
  • Prompt: !,"No record for this person."
  • Line Location: VET1+36
Function Call: WRITE
  • Prompt: !,"No Lab Data Available... Please check with clerk at the Desk."
  • Line Location: VET1+40
Function Call: WRITE
  • Prompt: !!!,"Please check with clerk at the Desk"
  • Line Location: VET1+48
Function Call: WRITE
  • Prompt: !,$G(LRCTYPE)," No Orders found. Please check with clerk at the Desk"
  • Line Location: VET1+49
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+18
^%ZOSF("EON" VET1+20, VET1+21
^DPT - [#2] VET1+37
^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+6!, VET1+41!, LOG+9*, LOG+10*, LOG1+6*

Label References

Name Line Occurrences
ALT PICK+10
CHOOO CHOOO+3, CHOOO+5
LOG VET1+40, VET1+48, VET1+49
PICK VET1+3
VET VET1+36, VET1+40, VET1+48, VET1+49
VET1 QUITH+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LOG+9, LOG+10, LOG1+6
DFN VET1+29!, VET1+34, VET1+36, VET1+37, LOG+9
DIB VET+10!
DIC PICK+4*, PICK+8!, PICK+14!, ALT+2!
DIC(0 PICK+3*, PICK+15*
DIK VET+10!
DT VET1+11, PRT1+14, PRT1+16
DTIME CHOOO
>> IODHLB PRT1+8, PRT1+16
>> IODHLT PRT1+6, PRT1+14
IOF VET1+12, PRT1+2
IOM PRT1+10, PRT1+11, PRT1+12, PRT1+21
IOTLC VET+14!
LABCNT VET+21!
LN VET+21!
LR0NODE VET+21!
LR3 VET+19!
LR33ORD VET+11!
LR3D VET+11!
LR3DTIME VET+5~, QUITH+6!
LR3DTN VET+5~, QUITH+6!
LR3MULT VET+19!
LR3NX0 VET+20!
LR3ODT VET+20!
LR3SN VET+6~, QUITH+7!
LR3T VET+11!
LR3X VET+9~, QUITH+10!
LR68 VET+21!
LR6987 VET+21!
LR700 VET+21!
LR7LESS VET+21!
LR7MORE VET+22!
LRAA VET1+5!, QUITH+2!
LRAANAME VET+22!
LRAAZ VET+22!
LRAC1 VET+22!
LRACC VET+2~, QUITH+3!
LRACCER VET+22!
LRACCTM VET+22!
LRACCXX VET+22!
LRACNODE VET+23!
LRACO VET+23!
LRACTM VET+23!
LRAD VET1+5!, QUITH+2!
LRADD VET+23!
LRAHEAD VET+8~, QUITH+9!
LRAN VET1+5!, QUITH+2!
LRANX6 VET+11!
LRBAR0 VET+23!
LRBAR1 VET+23!
LRBBRD VET+23!
LRBINGO VET+24!
LRC VET+14!
LRCCOMX VET+10!
LRCDT VET+2~, QUITH+3!
LRCEN VET+24!
LRCHK VET+8~, QUITH+9!
LRCNTX VET+24!
LRCOL99 VET+8~, QUITH+9!
LRCSQ VET+11!
LRCTYPE VET+24!, VET1+49
LRD VET+24!
LRDA VET+24!
>> LRDEV PICK+10*, PICK+13*, PICK+16*, PICK+17, PICK+18, CHOOO+6*, ALT+1, VET1+3
LRDFN VET1+5!, VET1+29!, VET1+37*, VET1+39, VET1+40, VET1+41, QUITH+2!, LOG+9, LOG+10, LOG1+6
LRDPA VET1+29!
LRDPF VET+2~, VET1+29!, QUITH+3!, LOG+6!, LOG1+3!
LRDPT LOG1+1!
LRDRAW0 VET+24!
LRDRAW1 VET+25!
LRDRAW7 VET+25!
LRDT VET+25!
LRDT0 VET+6~, VET+9~, QUITH+7!, QUITH+10!
LRDTX VET+25!
LRDUP VET+25!
LRDUPT VET+9~, QUITH+10!
LRDUX VET+10!, VET+25!
LRDX VET+10!, VET+25!
LREAL VET+6~, QUITH+7!
LREDT VET+10!, VET+25!
>> LREND PICK+2*, PICK+6*, CHOOO+1*, CHOOO+2*, CHOOO+4*, VET1+3, VET1+49*
LRFINX VET+26!
LRFUTURE VET+6~, QUITH+7!
LRGOTIT VET+6~, QUITH+7!
LRHOWDY VET+6~, VET1+8*, QUITH+7!
LRHT1 VET+9~, QUITH+10!
LRHY3DT VET+11!
LRHY3SN3 VET+11!
LRHYCT VET+8~, VET1+9*, VET1+10!, VET1+29!, QUITH+2!, QUITH+9!
LRHYCT2 PICK+15*, PICK+17, PICK+18*, ALT+3!
LRHYCT3 VET+14!
LRHYCTC VET+14!
LRHYDJOB VET+12!
LRHYFIX VET+3~, QUITH+4!
LRHYHOK VET+6~, QUITH+7!
LRHYOK VET+8~, QUITH+9!
LRHYORDZ VET+20!
>> LRHYSITE PICK+7*, PICK+10, PICK+16, PRT1+10, PRT1+11, PRT1+12, PRT1+19, PRT1+21
LRHYSPC7 VET+12!
LRHYTOK VET+14!
LRHYURG3 VET+12!
LRI VET+2~, QUITH+3!
LRIDT VET1+5!, QUITH+2!
LRIENZZ VET+6~, QUITH+7!
LRIX VET+9~, QUITH+10!
LRKIL VET+14!
LRLABNOD VET+14!
LRLABSTP VET+15!
LRLBLBP VET+7~, QUITH+8!
LRLINE VET+15!
LRLLOC VET+2~, QUITH+3!
LRLLOC66 VET+7~, QUITH+8!
LRLWC VET+15!
LRM1 VET+16!
LRM2 VET+16!
LRM3 VET+16!
LRMAX2 VET+7~, QUITH+8!
LRMERG VET+13!
>> LRMULT VET1+48, LOG+1
LRN5 VET+15!
LRNLT VET+7~, QUITH+8!
LRNODUP VET+2~, VET+7~, QUITH+3!, QUITH+8!
LRNONE VET+7~, QUITH+8!
LRNONONO VET+15!
LRNOT VET+15!
LRNOTEST VET+15!
LRNOTST VET+7~, QUITH+8!
LRNOUP VET+15!
LRNPZZX VET+2~, VET+7~, QUITH+3!, QUITH+8!
LRNT VET+15!
LRNX0 VET+15!
LRODRNUM VET+13!
LRODRUM VET+16!
LRODT VET+7~, VET1+11*, QUITH+8!
LRODT0 VET+8~, QUITH+9!
LROLLOC VET+9~, QUITH+10!
LRONE VET+16!
LRORD VET1+49, LOG1+1!
LRORD24 VET+8~, QUITH+9!
LRORD3 VET+3~, QUITH+4!
LRORDNUM VET+13!
LRORDSIZ VET+16!
LRORDT VET+16!
LRORDT1 VET+16!
LRORIEN VET+16!
LRORU3 VET+8~, QUITH+9!
LRPARAM VET+13!
LRPAST VET+8~, QUITH+9!
LRPHONE VET+16!
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 VET+17!
LRS3333 VET+12!
LRSAMP VET+3~, QUITH+4!
LRSC0 VET+17!
LRSDT VET+17!
>> LRSKIPNO LOG+2, LOG1+7*
LRSN VET1+5!, QUITH+2!
LRSN1 VET+17!
LRSND VET+3~, QUITH+4!
LRSPIEN VET+17!
LRSS VET+4~, QUITH+5!
LRSSN VET+17!
LRST VET+4~, QUITH+5!
LRSTAR VET+17!
LRSTATUS VET+4~, QUITH+5!
LRSTOP VET+17!
LRSTUCK VET+17!
LRSUB1 VET+4~, QUITH+5!
LRT0 VET+18!
LRTAT VET+12!
LRTECH VET+18!
LRTIC VET+4~, QUITH+5!
LRTIM VET+4~, QUITH+5!
LRTKX VET+18!
LRTM7 VET+18!
LRTN VET+4~, QUITH+5!
LRTOTAL VET+18!
LRTREA VET+4~, QUITH+5!
LRTS VET+4~, QUITH+5!
LRTSORU VET+4~, QUITH+5!
LRTST VET+18!
LRTST6 VET+5~, QUITH+6!
LRTSTZ99 VET+2~, QUITH+3!
LRTT VET+5~, QUITH+6!
LRTUBE VET+18!
LRTXT VET+18!
LRUDT VET+18!
LRUN VET+5~, QUITH+6!
LRUNC VET+13!
LRUNK VET+18!
LRUP VET+11!
LRURG7 VET+18!
LRURGA VET+19!
LRURGNCY VET+19!
LRURGT VET+19!
LRURGZ19 VET+19!
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 VET+19!
LRX2 VET+19!
LRX3 VET+19!
LRXYZ VET+5~, PRT1+18*, PRT1+19*, PRT1+21, QUITH+6!
LRY1 VET+19!
LRYTAT VET+19!
M9 VET+20!
PNM VET1+5!, VET1+29!, PRT1+4, QUITH+2!, LOG+6!, LOG+10, LOG1+1!, LOG1+3!, LOG1+6
>> PNMALL PRT1+4*, PRT1+6, PRT1+8
SSN VET1+5!, QUITH+2!, LOG+10, LOG1+6
U PICK+17, CHOOO+1, CHOOO+4, ALT+1, VET1+20, LOG+10, LOG1+6
V VET+20!
VAIN QUITH+11!
X CHOOO*, CHOOO+1, CHOOO+2, CHOOO+3, CHOOO+4, CHOOO+5, CHOOO+6, VET1+13!, VET1+19*, VET1+20
, VET1+34, VET1+36*, VET1+40!, VET1+48!, VET1+49!
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