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

Package: Lab Service

Routine: LRHYAFT


Information

LRHYAFT ;DALOI/HOAK - HOWDY MAIN DRIVER WITH PPOC ADDON ;08/28/2005 ;12/13/10 11:19am

Source Information

Source file <LRHYAFT.m>

Entry Points

Name Comments DBIA/ICR reference
PICK ;
; pick the site from Howdy Site
CHOOO
VET ; Primary API for Howdy! Called by [LRHY PATIENT CARD SCAN (PPOC)] option.
VET1 ; Code below executes to handle Patient episode.
V2 ;
NSCN ;
PX ;
SL ;
QQQ ;
VIE ;
MICRO ;
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 ;
NOSCAN ;
DEL7 ;

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: !,"enter the number please"
  • Line Location: CHOOO+2
Function Call: WRITE
  • Prompt: ?11,$P(^%ZIS(1,LRDEV,0),U)
  • Line Location: CHOOO+4
Function Call: WRITE
  • Prompt: !,"No Howdy site selected. Goodbye. "
  • Line Location: VET1+3
Function Call: WRITE
  • Prompt: !,"No device selected. Goodbye. "
  • Line Location: VET1+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: V2+8
Function Call: WRITE
  • Prompt: !!,"Please swipe PATIENT ID CARD or Type SSN: "
  • Line Location: V2+11
Function Call: READ
  • Variable: X
  • Timeout: 9999999
  • Line Location: V2+14
Function Call: WRITE
  • Prompt: !
  • Line Location: V2+14
Function Call: READ
  • Variable: X
  • Timeout: 15
  • Line Location: NSCN+7
Function Call: WRITE
  • Prompt: !,"No record for this person."
  • Line Location: NSCN+7
Function Call: WRITE
  • Prompt: !,"No Lab Data Available... Please check with clerk at the Desk."
  • Line Location: NSCN+11
Function Call: WRITE
  • Prompt: !,"I'M DOING THE BEST I CAN"
  • Line Location: NSCN+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PX+3
Function Call: WRITE
  • Prompt: !,PNM,?40,SSN," ",$$Y2K^LRX(DOB)
  • Line Location: PX+4
Function Call: WRITE
  • Prompt: !,$P(LRADD,U),?35," ",$P(LRADD,U,4)," ",$P(^DIC(5,$P(LRADD,U,5),0),U)
  • Line Location: PX+6
Function Call: WRITE
  • Prompt: " Ph#:",$G(LRPHONE)
  • Line Location: PX+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PX+11
Function Call: WRITE
  • Prompt: !!,"PT CONFIRMATION FAILED..."
  • Line Location: PX+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PX+14
Function Call: WRITE
  • Prompt: *27,*91,*109
  • Line Location: PX+16
Function Call: WRITE
  • Prompt: *27,*91,45,*109
  • Line Location: PX+16
Function Call: WRITE
  • Prompt: IODHLT," ",PNM
  • Line Location: PX+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PX+18
Function Call: WRITE
  • Prompt: IODHLB," ",PNM
  • Line Location: PX+19
Function Call: WRITE
  • Prompt: !
  • Line Location: PX+20
Function Call: WRITE
  • Prompt: !
  • Line Location: PX+21
Function Call: WRITE
  • Prompt: IODHLT," ",SSN
  • Line Location: PX+22
Function Call: WRITE
  • Prompt: !
  • Line Location: PX+23
Function Call: WRITE
  • Prompt: IODHLB," ",SSN
  • Line Location: PX+24
Function Call: WRITE
  • Prompt: *27,"[",40,";",37,"m",!
  • Line Location: PX+25
Function Call: WRITE
  • Prompt: !
  • Line Location: PX+26
Function Call: WRITE
  • Prompt: !
  • Line Location: PX+27
Function Call: WRITE
  • Prompt: !
  • Line Location: PX+27
Function Call: WRITE
  • Prompt: !,"NOTHING TO PRINT ON ",PNM
  • Line Location: PX+31
Function Call: WRITE
  • Prompt: !,"UID < 10 CHRS. ACCESSION MANUALLY"
  • Line Location: PX+34
Function Call: WRITE
  • Prompt: !,CNT,") ",$P(LRLBL(LRX,LRY),U,6)
  • Line Location: PX+48
Function Call: WRITE
  • Prompt: ?21,$P(^LAB(62,$P(^LRO(68,LRX,1,LRAD,1,LRY,5,1,0),U,2),0),U,3)
  • Line Location: PX+50
Function Call: WRITE
  • Prompt: LR3UID
  • Line Location: PX+55
Function Call: WRITE
  • Prompt: !!
  • Line Location: PX+57
Function Call: WRITE
  • Prompt: !!
  • Line Location: PX+58
Function Call: WRITE
  • Prompt: @IOSTBM
  • Line Location: PX+61
Function Call: WRITE
  • Prompt: !!
  • Line Location: PX+62
Function Call: WRITE
  • Prompt: !
  • Line Location: PX+64
Function Call: WRITE
  • Prompt: !!," Proceed with COLLECTION:"
  • Line Location: PX+67
Function Call: WRITE
  • Prompt: *7
  • Line Location: PX+67
Function Call: WRITE
  • Prompt: !!
  • Line Location: PX+68
Function Call: WRITE
  • Prompt: !,"Select specimen(s) you actually collected to print corresponding labels:"
  • Line Location: PX+69
Function Call: READ
  • Variable: LRS
  • Timeout: DTIME
  • Line Location: SL+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SL+1
Function Call: WRITE
  • Prompt: !,"OUT OF RANGE"
  • Line Location: QQQ+1
Function Call: WRITE
  • Prompt: !,"You may enter 1 OR 2 OR 1,2,3,etc NO DASHES(-) PLEASE "
  • Line Location: QQQ+3
Function Call: WRITE
  • Prompt: !,"Sending to print: ",$P($G(^LRO(68,LRX,1,LRAD,1,LRY,.3)),U)," ",$P(^LAB(62,$P(^LRO(68,LRX,1,LRAD,1,LRY,5,1,0),U,2),0),U,3)
  • Line Location: QQQ+8
Function Call: WRITE
  • Prompt: !,"DASHES ARE NOT PERMITTED. ENTER 1,2,3 ETC"
  • Line Location: QQQ+15
Function Call: WRITE
  • Prompt: !,"OUT OF RANGE. TRY AGAIN"
  • Line Location: QQQ+16
Function Call: WRITE
  • Prompt: !,"Sending to print: ",$P($G(^LRO(68,LRX,1,LRAD,1,LRY,.3)),U)," ",$P(^LAB(62,$P(^LRO(68,LRX,1,LRAD,1,LRY,5,1,0),U,2),0),U,3)
  • Line Location: QQQ+21
Function Call: WRITE
  • Prompt: !,"REMOVING ",LR3UID
  • Line Location: QQQ+25
Function Call: WRITE
  • Prompt: !,"Use Lab option > Accessioning Menu: Delete test from an accession [LRTSTOUT]"
  • Line Location: QQQ+38
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: VIE+2
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($G(^LRHY(69.86,LRHYSITE,44)),IOM)
  • Line Location: PRT1+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT1+12
Function Call: WRITE
  • Prompt: IODHLT," Orders for date: "_$$Y2K^LRX(DT)
  • Line Location: PRT1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT1+14
Function Call: WRITE
  • Prompt: IODHLB," Orders for date: "_$$Y2K^LRX(DT)
  • Line Location: PRT1+15
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT1+16
Function Call: WRITE
  • Prompt: *7
  • Line Location: PRT1+18
Function Call: WRITE
  • Prompt: *7
  • Line Location: PRT1+18
Function Call: WRITE
  • Prompt: *7
  • Line Location: PRT1+18
Function Call: WRITE
  • Prompt: !,"NO ORDERS"
  • Line Location: LOG+3
Function Call: WRITE
  • Prompt: !,"MULTIPLE ORDERS"
  • Line Location: LOG1+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^%ZIS(2 - [#3.2] Classic Fileman Calls
^%ZIS(1 - [#3.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call