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

Package: Lab Service

Routine: LRHY01


Information

LRHY01 ;VA/DALOI/HOAK - HOWDY MAIN DRIVER ;10/15/10 11:02am

Source Information

Source file <LRHY01.m>

Call Graph

Call Graph Total: 10

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRHY PATIENT CARD SCAN (PPOC)  

Entry Points

Name Comments DBIA/ICR reference
BINGO ;
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.
PRIBB ;
CHOOO
QUITH ;
ORDERS ;
LRHYBING ;
; Display Patient on Bingo board.
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+47, LOG+7, LOG1+5
^%ZTLOAD LRHYBING+8
^DIC PICK+5
RPCVIC^DPTLK VET1+31
ORDCHK^LRHYB VET1+41
BAKUSER^LRHYU VET1+18
XTMP^LRHYU VET+1
SCRNOFF^LRHYUTL QUITH+1
SCRNON^LRHYUTL PRT1+3
^LRPARAM VET1+5
$$Y2K^LRX PRT1+14, PRT1+16
PT^LRX VET1+36, LOG+6, 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+20
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+1
Function Call: WRITE
  • Prompt: !,"enter the number please"
  • Line Location: CHOOO+3
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+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: VET1+10
Function Call: WRITE
  • Prompt: !!,"Please swipe your ID CARD or Type SSN: "
  • Line Location: VET1+13
Function Call: READ
  • Timeout: 9999999
  • Variable: X
  • Line Location: VET1+17
Function Call: WRITE
  • Prompt: !
  • Line Location: VET1+17
Function Call: READ
  • Timeout: 15
  • Variable: X
  • Line Location: VET1+33
Function Call: WRITE
  • Prompt: !,"No record for this person."
  • Line Location: VET1+33
Function Call: WRITE
  • Prompt: !,"No Lab Data Available... Please check with clerk at the Desk."
  • Line Location: VET1+37
Function Call: WRITE
  • Prompt: !!!,"Please check with clerk at the Desk"
  • Line Location: VET1+45
Function Call: WRITE
  • Prompt: !,$G(LRCTYPE)," No Orders found. Please check with clerk at the Desk"
  • Line Location: VET1+46
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+3
Function Call: WRITE
  • Prompt: !,"MULTIPLE ORDERS"
  • Line Location: LOG1+2
Function Call: WRITE
  • Prompt: !!,LRHYCT3,". ",$P(^%ZIS(1,LRBINGO,0),U)
  • Line Location: BINGO+4
Function Call: WRITE
  • Prompt: !
  • Line Location: BINGO+4
Function Call: READ
  • Timeout: DTIME
  • Variable: LRHYX
  • Line Location: BINGO+6
Function Call: WRITE
  • Prompt: !,"Choose PPOC Bingo Board: "
  • Line Location: BINGO+6
Function Call: WRITE
  • Prompt: !
  • Line Location: BINGO+6
Function Call: WRITE
  • Prompt: !,"NOTHING SELECTED "
  • Line Location: BINGO+7
Function Call: WRITE
  • Prompt: !,"NOTHING SELECTED "
  • Line Location: BINGO+8
Function Call: WRITE
  • Prompt: !,"CHOOSE A NUMBER "
  • Line Location: BINGO+9
Function Call: WRITE
  • Prompt: !,"Choose NUMBER "
  • Line Location: BINGO+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: BINGO+14
Function Call: WRITE
  • Prompt: $P(^%ZIS(1,LRBINGO,0),U)
  • Line Location: BINGO+15
Function Call: WRITE
  • Prompt: !
  • Line Location: BINGO+16
Function Call: WRITE
  • Prompt: !,"SENDING TO BINGO BOARD ",LRBINGO
  • Line Location: LRHYBING+2
Function Call: WRITE
  • Prompt: !,$G(PNM)
  • Line Location: PRIBB+1
Routine Call
  • DIC
  • Line Location:
    • PICK+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] PICK+10, PICK+11, PICK+20, ALT+1, BINGO+4, BINGO+15, BINGO+17
^%ZOSF("EOFF" VET1+16
^%ZOSF("EON" VET1+18, VET1+19
^DPT - [#2] VET1+34
^LR - [#63] LOG+9, LOG1+6
^LRHY(69.86 - [#69.86] PICK+19, PRT1+10, PRT1+11, PRT1+12, PRT1+19, PRT1+21, PRT1+25, BINGO+3
^TMP("LRHYDY" VET1+4!, VET1+38!, LOG+8*, LOG+9*, LOG1+6*

Label References

Name Line Occurrences
ALT PICK+13
BINGO PICK+12, BINGO+9, BINGO+11
CHOOO CHOOO+3
LOG VET1+37, VET1+45, VET1+46
LRHYBING PRT1+25
PICK VET1+2
VET VET1+33, VET1+37, VET1+45, VET1+46
VET1 QUITH+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LOG+8, LOG+9, LOG1+6
DFN VET1+26!, VET1+31, VET1+33, VET1+34, LOG+8
DIC PICK+4*, PICK+8!, PICK+17!, ALT+2!, BINGO+2!
DIC(0 PICK+3*, PICK+18*, BINGO+2*
DT VET1+9, PRT1+14, PRT1+16
DTIME CHOOO, BINGO+6
>> IODHLB PRT1+8, PRT1+16
>> IODHLT PRT1+6, PRT1+14
IOF VET1+10, PRT1+2
IOM PRT1+10, PRT1+11, PRT1+12, PRT1+21
LR33ORD VET+11!
LR3D VET+11!
LR3DTIME VET+6~, QUITH+6!
LR3DTN VET+6~, QUITH+6!
LR3SN VET+7~, QUITH+7!
LR3T VET+11!
LR3X VET+10~, QUITH+10!
LRAA VET+2~, VET1+3!, QUITH+2!
LRACC VET+3~, QUITH+3!
LRAD VET+2~, VET1+3!, QUITH+2!
LRAHEAD VET+9~, QUITH+9!
LRAN VET+2~, VET1+3!, QUITH+2!
LRANX6 VET+11!
>> LRBINGO BINGO+1*, BINGO+3*, BINGO+4, BINGO+5, BINGO+12*, BINGO+13, BINGO+15, BINGO+17*, LRHYBING+2, LRHYBING+7
LRCCOMX VET+15!
LRCDT VET+3~, QUITH+3!
LRCHK VET+9~, QUITH+9!
LRCOL99 VET+9~, QUITH+9!
LRCSQ VET+11!
>> LRCTYPE VET1+46
>> LRDEV PICK+11*, PICK+16*, PICK+19*, PICK+20, PICK+21, CHOOO+4*, ALT+1, VET1+2
LRDFN VET+2~, VET1+3!, VET1+26!, VET1+34*, VET1+36, VET1+37, VET1+38, QUITH+2!, LOG+8, LOG+9
, LOG1+6
LRDPA VET1+26!
LRDPF VET+3~, VET1+26!, QUITH+3!, LOG+5!, LOG1+3!
LRDPT LOG1+1!
LRDT0 VET+7~, VET+10~, QUITH+7!, QUITH+10!
LRDUPT VET+10~, QUITH+10!
LREAL VET+7~, QUITH+7!
>> LREND PICK+2*, PICK+6*, CHOOO+1*, CHOOO+2*, VET1+2, VET1+46*
LRFINX VET+16!
LRFUTURE VET+7~, QUITH+7!
LRGOTIT VET+7~, QUITH+7!
LRHOWDY VET+7~, VET1+6*, QUITH+7!
LRHT1 VET+10~, QUITH+10!
LRHY PICK+10~*, PICK+11
LRHY3DT VET+11!
LRHY3DT3 VET+13!, VET+14!
LRHY3SN3 VET+11!
LRHYCT VET+9~, VET1+7*, VET1+8!, VET1+26!, QUITH+2!, QUITH+9!
LRHYCT2 PICK+18*, PICK+20, PICK+21*, ALT+3!
>> LRHYCT3 BINGO+2*, BINGO+4, BINGO+5*
LRHYDJOB VET+12!
LRHYFIX VET+4~, QUITH+4!
LRHYHOK VET+7~, QUITH+7!
LRHYOK VET+9~, QUITH+9!
>> LRHYSITE PICK+7*, PICK+19, PRT1+10, PRT1+11, PRT1+12, PRT1+19, PRT1+21, PRT1+25, BINGO+3
LRHYSPC7 VET+12!
LRHYURG3 VET+12!
LRHYX BINGO+6~*, BINGO+7, BINGO+8, BINGO+9, BINGO+10, BINGO+11, BINGO+12
LRI VET+3~, QUITH+3!
LRIDT VET+2~, VET1+3!, QUITH+2!
LRIENZZ VET+7~, QUITH+7!
LRIX VET+10~, QUITH+10!
LRLBLBP VET+8~, QUITH+8!
LRLLOC VET+3~, QUITH+3!
LRLLOC66 VET+8~, QUITH+8!
LRMAX2 VET+8~, QUITH+8!
>> LRMULT VET1+45
LRNLT VET+8~, QUITH+8!
LRNODUP VET+3~, VET+8~, QUITH+3!, QUITH+8!
LRNONE VET+8~, QUITH+8!
LRNOTST VET+8~, QUITH+8!
LRNPZZX VET+3~, VET+8~, QUITH+3!, QUITH+8!
LRODT VET+8~, VET1+9*, QUITH+8!
LRODT0 VET+9~, QUITH+9!
LROLLOC VET+10~, QUITH+10!
LRORD VET1+46, LOG1+1!
LRORD24 VET+9~, QUITH+9!
LRORD3 VET+4~, QUITH+4!
LRORU3 VET+9~, QUITH+9!
LRPAST VET+9~, QUITH+9!
LRPIX VET+9~, QUITH+9!
LRPLICK VET+4~, QUITH+4!
LRPR VET+4~, QUITH+4!
LRPRAC VET+4~, QUITH+4!
LRQUIET VET+4~, QUITH+4!
LRRB VET+4~, QUITH+4!
LRS3333 VET+12!
LRSAMP VET+4~, QUITH+4!
>> LRSKIPNO LOG+1, LOG1+7*
LRSN VET+2~, VET1+3!, QUITH+2!
LRSND VET+4~, QUITH+4!
LRSS VET+5~, QUITH+5!
LRST VET+5~, QUITH+5!
LRSTATUS VET+5~, QUITH+5!
LRSUB1 VET+5~, QUITH+5!
LRTAT VET+12!
LRTIC VET+5~, QUITH+5!
LRTIM VET+5~, QUITH+5!
LRTN VET+5~, QUITH+5!
LRTREA VET+5~, QUITH+5!
LRTS VET+5~, QUITH+5!
LRTSORU VET+5~, QUITH+5!
LRTST6 VET+6~, QUITH+6!
LRTSTZ99 VET+3~, QUITH+3!
LRTT VET+6~, QUITH+6!
LRUN VET+6~, QUITH+6!
LRUP VET+11!
LRWLC VET+6~, QUITH+6!
LRWLO VET+6~, QUITH+6!
LRWRD VET+6~, QUITH+6!
LRX VET+10~, QUITH+10!, BINGO+12
LRX( PICK+21*, CHOOO+4, BINGO+5*, BINGO+12
LRXYZ VET+6~, PRT1+18*, PRT1+19*, PRT1+21, QUITH+6!
PNM VET+2~, VET1+3!, VET1+26!, PRT1+4, QUITH+2!, LOG+5!, LOG+9, LOG1+1!, LOG1+3!, LOG1+6
, PRIBB+1
>> PNMALL PRT1+4*, PRT1+6, PRT1+8
SSN VET+2~, VET1+3!, QUITH+2!, LOG+9, LOG1+6
U PICK+20, CHOOO+2, ALT+1, VET1+18, LOG+9, LOG1+6, BINGO+4, BINGO+7, BINGO+10, BINGO+15
, BINGO+17
VAIN QUITH+11!
X CHOOO*, CHOOO+1, CHOOO+2, CHOOO+3, CHOOO+4, VET1+11!, VET1+17*, VET1+18, VET1+31, VET1+33*
, VET1+37!, VET1+45!, VET1+46!
Y PICK+6, PICK+7, PICK+18!, BINGO+2!
>> ZTDESC LRHYBING+6*
>> ZTDTH LRHYBING+5*
>> ZTIO LRHYBING+7*
>> ZTQUEUED LRHYBING+8
>> ZTREQ LRHYBING+8*
>> ZTRTN LRHYBING+4*
>> ZTSAVE("PNM" LRHYBING+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All