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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: LRHYAFT

Package: Lab Service

Routine: LRHYAFT


Information

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

Source Information

Source file <LRHYAFT.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Lab Service 8 CONTROL^LRHYBC1  SCROLOFF^LRHYBC9  ^LRHYBL1  LRBOX^LRHYLRX  BCE^LRHYPH0  (SCRNOFF,SCRNON)^LRHYUTL  ^LRPARAM  ($$Y2K,LRGLIN,PT)^LRX  
VA Fileman 3 NOW^%DTC  ^DIC  ^DIR  
Kernel 2 (ENS,KILL)^%ZISS  $$CJ^XLFSTR  
Registration 1 RPCVIC^DPTLK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRHY PPOC LABEL PRINT  

Entry Points

Name Comments DBIA/ICR reference
VET ; Primary API for Howdy! Called by [LRHY PATIENT CARD SCAN (PPOC)] option.
SL ;
NOSCAN ;
LOG ; Howdy will default to the clerks judgement when multiple orders found.
VIE ;
LOG1 ; Howdy will default to the clerks judgement when multiple orders found.
PX ;
CHOOO
DEL7 ;
V2 ;
ORDERS ;
MICRO ;
NSCN ;
PRT1 ;
QQQ ;
VET1 ; Code below executes to handle Patient episode.
PICK ;
; pick the site from Howdy Site
QUITH ;
ORDCHK ; This block to be used for future version

External References

Name Field # of Occurrence
NOW^%DTC LOG+7, LOG1+5
ENS^%ZISS PX+15, PX+59
KILL^%ZISS VET+5
^DIC PICK+5, VET1+2, VET1+12
^DIR PX+10, QQQ+36
RPCVIC^DPTLK NSCN+6
CONTROL^LRHYBC1 VIE+1
SCROLOFF^LRHYBC9 V2+15, PX+11, VIE+3
^LRHYBL1 VET1+14
LRBOX^LRHYLRX PX+32
BCE^LRHYPH0 QQQ+13, QQQ+26
SCRNOFF^LRHYUTL QUITH+1
SCRNON^LRHYUTL PRT1+3
^LRPARAM V2+3
$$Y2K^LRX PX+4, PRT1+13, PRT1+15
LRGLIN^LRX PX+27
PT^LRX NSCN+10, LOG+6, LOG1+4
$$CJ^XLFSTR PRT1+10, PRT1+11

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: !,"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
  • Timeout: 9999999
  • Variable: X
  • Line Location: V2+14
Function Call: WRITE
  • Prompt: !
  • Line Location: V2+14
Function Call: READ
  • Timeout: 15
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: LRS
  • 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
Routine Call
  • DIC
  • Line Location:
    • PICK+5
    • VET1+2
    • VET1+12
Routine Call
  • DIR
  • Line Location:
    • PX+10
    • QQQ+36

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^%ZIS(2 - [#3.2] Classic Fileman Calls
^%ZIS(1 - [#3.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] PICK+17, CHOOO+4
^DIC(5 - [#5] PX+6
^DPT - [#2] NSCN+8, PX+2, PX+5, PX+7
^LAB(62 - [#62] PX+50, QQQ+8, QQQ+21
^LR - [#63] LOG+9, LOG1+6
^LRHY(69.86 - [#69.86] PICK+12, PICK+16, PRT1+10, PRT1+11
^LRO(68 - [#68] PX+37, PX+40, PX+41, PX+50, PX+55, QQQ+6, QQQ+7, QQQ+8, QQQ+9, QQQ+12
, QQQ+19, QQQ+20, QQQ+21, QQQ+22, QQQ+23, MICRO+3, MICRO+6, MICRO+7
^TMP("LRHYDY" NSCN+12!, LOG+8*, LOG+9*, LOG1+6*
^XTMP("LRHY LABELS" PX+30, PX+33, PX+35, QQQ+14!, QQQ+28!, QQQ+30, MICRO+1

Label References

Name Line Occurrences
CHOOO CHOOO+2
DEL7 QQQ+38
LOG NSCN+11
MICRO PX+38
PICK VET1+16
PX QQQ+1, QQQ+3, QQQ+15, QQQ+16, QQQ+37
QQQ SL+1
V2 VET1+5
VET NSCN+7, NSCN+11, QUITH+14
VIE QQQ+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LOG+8, LOG+9, LOG1+6
>> CNT PX+29*, PX+44*, PX+45, PX+48, QQQ+4
DFN NSCN+1!, NSCN+6, NSCN+7, NSCN+8, PX+2, PX+5, PX+7, LOG+8
DIC PICK+4*, PICK+8!, PICK+14!, CHOOO+5!, VET1+1!, VET1+2*, VET1+7*, VET1+9*, VET1+10*
DIC("A" VET1+6*
DIC(0 PICK+3*, PICK+15*, VET1+2*, VET1+8*, VET1+11*
DIR QQQ+31!
DIR("A" PX+9*, QQQ+32*
DIR("B" PX+9*, QQQ+35*
DIR(0 PX+9*, QQQ+34*
>> DOB PX+4
DT V2+7, PX+30, PX+49, QQQ+5, QQQ+6, QQQ+7, QQQ+18, QQQ+19, QQQ+20, PRT1+13
, PRT1+15
DTIME CHOOO, SL+1
>> DX PX+55*, PX+65*, PX+66*
>> DY PX+53*, PX+54*, PX+55*, PX+65*, PX+66*
>> I QQQ+1*, QQQ+4*, QQQ+10, QQQ+11, QQQ+17*
>> IOBM PX+59*
>> IODHLB PX+19, PX+24, PRT1+8, PRT1+15
>> IODHLT PX+17, PX+22, PRT1+6, PRT1+13
IOF V2+8, PX+3, PX+11, PX+14, VIE+2, PRT1+2
IOM PRT1+10, PRT1+11
>> IOSTBM PX+61
>> IOTM PX+59*
>> IOXY PX+55, PX+65, PX+66
>> LABCNT( PX+44*, QQQ+1, QQQ+11, QQQ+24
LR3CNT VET+2!*, VET+3*
LR3DTIME VET+11~, QUITH+6!
LR3DTN VET+11~, QUITH+6!
LR3SN VET+12~, QUITH+7!
LR3UID PX+13*, PX+33*, PX+34, PX+35, PX+37, PX+40, PX+41, PX+55!*, QQQ+12*, QQQ+14
, QQQ+22*, QQQ+25, QQQ+28, MICRO+1, MICRO+7
LR3UIDM VET+1!, MICRO+6*
LR3X VET+15~, QUITH+10!
>> LR68 MICRO+3*
LRAA VET+4~, V2+2!, MICRO+3*, MICRO+6, QUITH+2!
LRAAX5 VET+1!
LRACC VET+8~, QUITH+3!
>> LRACCXX MICRO+2*, MICRO+3, MICRO+4
>> LRACNODE MICRO+1*, MICRO+2, MICRO+5
LRAD VET+4~, V2+2!, PX+47*, PX+49*, PX+50, PX+55*, QQQ+5*, QQQ+6*, QQQ+7*, QQQ+8
, QQQ+9, QQQ+12, QQQ+18*, QQQ+19*, QQQ+20*, QQQ+21, QQQ+22, QQQ+23, MICRO+5*, MICRO+6
, QUITH+2!
>> LRADD PX+5*, PX+6
LRADX6 VET+1!
LRAHEAD VET+14~, QUITH+9!
LRAN VET+4~, V2+2!, MICRO+4*, MICRO+6, QUITH+2!
LRAN6 VET+1!
>> LRC PX+55*
LRCDT VET+8~, QUITH+3!
LRCHK VET+14~, QUITH+9!
LRCOL99 VET+14~, QUITH+9!
LRDEV PICK+13*, PICK+16*, PICK+17, PICK+18, CHOOO+3*, CHOOO+4, VET1+3!, VET1+5, VET1+12*, VET1+13!
, VET1+16
LRDFN VET+4~, V2+2!, NSCN+1!, NSCN+8*, NSCN+10, NSCN+11, NSCN+12, PX+2*, PX+30, PX+33
, PX+35, QQQ+14, QQQ+28, QQQ+30, MICRO+1, QUITH+2!, LOG+8, LOG+9, LOG1+6
LRDPA NSCN+1!
LRDPF VET+8~, NSCN+1!, QUITH+3!, LOG+5!, LOG1+3!
LRDT0 VET+12~, VET+15~, QUITH+7!, QUITH+10!
LRDUPT VET+15~, QUITH+10!
LREAL VET+12~, QUITH+7!
>> LREND PICK+2*, PICK+6*, CHOOO+1*, VET1+16
LRFUTURE VET+12~, QUITH+7!
LRGOTIT VET+12~, QUITH+7!
LRHOWDY VET+12~, V2+4*, QUITH+7!
LRHT1 VET+15~, QUITH+10!
LRHYCT VET+14~, V2+5*, NSCN+1!, QUITH+2!, QUITH+9!
LRHYCT2 PICK+15*, PICK+17, PICK+18*, CHOOO+6!
LRHYFIX VET+9~, QUITH+4!
LRHYHOK VET+12~, QUITH+7!
LRHYOK VET+14~, QUITH+9!
LRHYSITE PICK+7*, PICK+12, PICK+16, VET1+2*, VET1+3!, VET1+13!, PRT1+10, PRT1+11
LRI VET+8~, QUITH+3!
LRIDT VET+4~, V2+2!, QUITH+2!
LRIENZZ VET+12~, QUITH+7!
LRINFW VET+1!
LRIX VET+15~, QUITH+10!
LRLABLIO VET1+3!, VET1+12*, VET1+13!, VET1+15*
LRLABNO PX+35!
>> LRLABNOD PX+35*, PX+43
>> LRLABSTP VET1+15
LRLABTIM PX+30!*, PX+31, PX+33, PX+35, QQQ+14, QQQ+27, QQQ+28, QQQ+30, MICRO+1
LRLBL QQQ+2!
LRLBL( PX+43*, PX+44, PX+48, PX+55, QQQ+11*, QQQ+24*
LRLBLBP VET+13~, QUITH+8!
LRLLOC VET+8~, QUITH+3!
LRLLOC66 VET+13~, QUITH+8!
LRMAX2 VET+13~, QUITH+8!
LRNLT VET+13~, QUITH+8!
LRNODUP VET+8~, VET+13~, QUITH+3!, QUITH+8!
LRNONE VET+13~, QUITH+8!
LRNOTST VET+13~, QUITH+8!
LRNOW VET+7!
LRNPZZX VET+8~, VET+13~, QUITH+3!, QUITH+8!
LRODT VET+13~, V2+7*, QUITH+8!
LRODT0 VET+14~, QUITH+9!
LROLLOC VET+15~, QUITH+10!
LRORD QQQ+9*, QQQ+11, QQQ+23*, QQQ+24, LOG1+1!
LRORD24 VET+14~, QUITH+9!
LRORD3 VET+9~, QUITH+4!
LRORU3 VET+14~, QUITH+9!
LRPAST VET+14~, QUITH+9!
>> LRPHONE PX+7*
LRPIX VET+14~, QUITH+9!
LRPLICK VET+9~, QUITH+4!
LRPR VET+9~, QUITH+4!
LRPRAC VET+9~, QUITH+4!
LRPREF VET+1!
LRQUIET VET+9~, QUITH+4!
LRRB VET+9~, QUITH+4!
>> LRS SL+1*, QQQ+1, QQQ+3, QQQ+4, QQQ+15, QQQ+16, QQQ+17, QQQ+24
>> LRS3333 QQQ+1*
LRSAMP VET+9~, QUITH+4!
LRSCAN VET+6!, QQQ+27*
LRSKIPNO LOG+1, LOG1+7!*
LRSN VET+4~, V2+2!, QUITH+2!
LRSND VET+9~, QUITH+4!
LRSS VET+10~, QUITH+5!
LRST VET+10~, QUITH+5!
LRSTATUS VET+10~, QUITH+5!
LRSUB1 VET+10~, QUITH+5!
LRTIC VET+10~, QUITH+5!
LRTIM VET+10~, QUITH+5!
LRTN VET+10~, QUITH+5!
LRTOP VET+1!
LRTREA VET+10~, QUITH+5!
LRTS VET+10~, QUITH+5!
LRTSORU VET+10~, QUITH+5!
LRTST6 VET+11~, QUITH+6!
LRTSTZ99 VET+8~, QUITH+3!
LRTT VET+11~, QUITH+6!
LRUN VET+11~, QUITH+6!
LRWLC VET+11~, QUITH+6!
LRWLO VET+11~, QUITH+6!
LRWRD VET+11~, QUITH+6!
LRX VET+15~, PX+1~, PX+28*, PX+37*, PX+38, PX+39, PX+40, PX+41, PX+43, PX+44
, PX+45, PX+48, PX+50, PX+51*, PX+52*, PX+55*, QQQ+4*, QQQ+6, QQQ+7, QQQ+8
, QQQ+9, QQQ+11, QQQ+12, QQQ+17*, QQQ+19, QQQ+20, QQQ+21, QQQ+22, QQQ+23, QQQ+24
, MICRO+7*, QUITH+10!
LRX( PICK+18*, CHOOO+3
LRXCNT VET+7!
LRXCNT( PX+45*, QQQ+4, QQQ+10, QQQ+11, QQQ+16, QQQ+17, QQQ+24
LRXL VET+1!
>> LRXX QQQ+4*
LRXYZ VET+11~, PRT1+17*, QUITH+6!
LRY PX+1~, PX+36*, PX+41*, PX+43, PX+44, PX+45, PX+48, PX+50, QQQ+4*, QQQ+8
, QQQ+9, QQQ+12, QQQ+17*, QQQ+21, QQQ+22, QQQ+23
>> LRY1 PX+40*, PX+41, PX+47
PNM VET+4~, V2+2!, NSCN+1!, PX+4, PX+17, PX+19, PX+31, PRT1+4, QUITH+2!, LOG+5!
, LOG+9, LOG1+3!, LOG1+6
PNMALL PRT1+4!*, PRT1+6, PRT1+8
SSN VET+4~, V2+2!, PX+4, PX+22, PX+24, QUITH+2!, LOG+9, LOG1+6
U PICK+17, CHOOO+1, CHOOO+4, V2+15, PX+6, PX+7, PX+11, PX+45, PX+48, PX+50
, PX+55, QQQ+4, QQQ+6, QQQ+7, QQQ+8, QQQ+10, QQQ+11, QQQ+12, QQQ+17, QQQ+19
, QQQ+20, QQQ+21, QQQ+22, QQQ+24, QQQ+36, MICRO+2, MICRO+5, LOG+9, LOG1+6
VAIN QUITH+11!
X CHOOO*, CHOOO+1, CHOOO+2, CHOOO+3, V2+9!, V2+14*, V2+15, NSCN+6, NSCN+7*, NSCN+11!
, PX+46*, QQQ+36
XX VET+1!
Y PICK+6, PICK+7, PICK+15!, VET1+2, VET1+12, VET1+13, PX+11, PX+46*, QQQ+37, QQQ+38
Y(0 PX+12
ZTDESC VET+1!
ZTDTH VET+1!
ZTIO VET+1!
ZTRTN VET+1!
ZTSAVE VET+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All