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

Package: IHS Dental System

Routine: ADERVURD


Information

ADERVURD ;IHS/ITSC/TPF - READ NEW RVUS FROM FILE AND PLACE INTO ADA CODE FILE 8/27/2003 12:50:16 PM

Source Information

Source file <ADERVURD.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ($$LIST,$$OPEN,$$STATUS,CLOSE)^%ZISH  
VA Fileman 2 ^DIE  ^DIR  
IHS VA Utilities 1 $$DIR^XBDIR  

Entry Points

Name Comments DBIA/ICR reference
EXCEPTRP ;
UPDATE(ADAIEN,RVU,ADANLC) ;
RETURN ;EP - Press return to continue
HDR ;
FNAME1 ;
EXCEPT(MSG,ADACODE,ADADESCR) ;
ADDTOFIL(ADACODE,RVU,ADADESCR,ADANLC) ;
EXIT
FNAME ;
; Select a file (directory can be pre-loaded into XBDIR)
ASK
PLACE ;
RDFILE(XBDIR,XBFN,XBNODE) ;

External References

Name Field # of Occurrence
^%ZIS EXCEPTRP+9
^%ZISC EXCEPTRP+20
$$LIST^%ZISH FNAME1+12
$$OPEN^%ZISH RDFILE+4
$$STATUS^%ZISH RDFILE+8
CLOSE^%ZISH RDFILE+10
^DIE UPDATE+5
^DIR ASK+6, FNAME1+4, EXCEPTRP+6, RETURN+3
$$DIR^XBDIR RDFILE+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,*7,"CANNOT OPEN (OR ACCESS) FILE '",XBDIR,XBFN,"'."
  • Line Location: RDFILE+5
Function Call: WRITE
  • Prompt: !!,"READING FROM FILE "
  • Line Location: RDFILE+7
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: RDFILE+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: RDFILE+8
Function Call: WRITE
  • Prompt: !,I," RECORDS READ"
  • Line Location: RDFILE+9
Function Call: WRITE
  • Prompt: !!,"ADDING RVU INFO TO 'ADA CODE' FILE"
  • Line Location: PLACE+1
Function Call: WRITE
  • Prompt: !!,"EXCEPTION FILE HAS BEEN DELETED!"
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: ADDTOFIL+1
Function Call: WRITE
  • Prompt: !,"EXCEPTIONS HAVE BEEN FOUND"
  • Line Location: EXCEPTRP+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXCEPTRP+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?CENTER,X
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?CENTER,X
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!,"ADA CODE",?10,"DESCRIPTION"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: RETURN+3
Routine Call
  • DIE
  • Line Location:
    • UPDATE+5
Routine Call
  • DIR
  • Line Location:
    • ASK+6
    • FNAME1+4
    • EXCEPTRP+6
    • RETURN+3
Routine Call
  • %ZIS
  • Line Location:
    • EXCEPTRP+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTTADA - [#9999999.31] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTADA - [#9999999.31] ADDTOFIL+8
^AUTTADA("B" ADDTOFIL+6
^AUTTADA("BA" ADDTOFIL+3
^TMP("ADERVURD" RDFILE+6!, RDFILE+8*, PLACE+3, PLACE+4, PLACE+6, PLACE+7, PLACE+8, PLACE+10, EXIT+1!, EXIT+2!
, EXCEPT+1*, EXCEPTRP+13, EXCEPTRP+14
^XTV(8989.3 - [#8989.3] ASK+2

Label References

Name Line Occurrences
ADDTOFIL PLACE+9
ASK ASK+12, ASK+14, ASK+17
EXCEPT ADDTOFIL+4, ADDTOFIL+7, ADDTOFIL+8
EXCEPTRP PLACE+10
EXIT ASK+7, ASK+8, ASK+16
FNAME ASK+11, FNAME1+10
FNAME1 FNAME1+9
HDR EXCEPTRP+11, EXCEPTRP+16, EXCEPTRP+17
PLACE ASK+15
RDFILE ASK+13
RETURN EXCEPTRP+17, EXCEPTRP+18
UPDATE ADDTOFIL+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADACODE PLACE+4*, PLACE+5, PLACE+9, EXIT!, ADDTOFIL~, ADDTOFIL+3, ADDTOFIL+4, ADDTOFIL+6, ADDTOFIL+7, EXCEPT~
, EXCEPT+1, EXCEPTRP+12*, EXCEPTRP+13*, EXCEPTRP+14, EXCEPTRP+15
ADADESCR PLACE+8*, PLACE+9, EXIT!, ADDTOFIL~, ADDTOFIL+4, ADDTOFIL+7, ADDTOFIL+8, EXCEPT~, EXCEPT+1, EXCEPTRP+14*
, EXCEPTRP+15
ADAIEN EXIT!, ADDTOFIL+3*, ADDTOFIL+4, ADDTOFIL+6*, ADDTOFIL+7, ADDTOFIL+8, ADDTOFIL+9, UPDATE~, UPDATE+3
ADANLC PLACE+7*, PLACE+9, EXIT!, ADDTOFIL~, ADDTOFIL+9, UPDATE~
CENTER EXIT!, HDR+3*, HDR+4, HDR+6*, HDR+7
DA EXIT!, UPDATE+3*
DIE EXIT!, UPDATE+2*, UPDATE+6!
DIR ASK+1!, ASK+10!, FNAME+2!, FNAME1+5!, EXCEPTRP+2!, RETURN+1~, RETURN+4!
DIR("?" ASK+4*
DIR("A" ASK+3*, FNAME1+3*, EXCEPTRP+4*, RETURN+2*
DIR("B" ASK+2*, FNAME1+9*, EXCEPTRP+5*
DIR(0 ASK+3*, FNAME1+2*, EXCEPTRP+3*, RETURN+2*
DIROUT RETURN+4!
DIRUT ASK+7, RETURN+4!
DR EXIT!, UPDATE+4*
DTIME RDFILE+8, FNAME1+13
DTOUT FNAME1+6, RETURN+4!
DUOUT RETURN+4!
ERROR ASK+5*, ASK+14, RDFILE+1*, RDFILE+5*, EXIT!
I RDFILE+3~, RDFILE+8*, RDFILE+9, EXIT!
IO RDFILE+8, EXCEPTRP+10
IOF ASK, EXCEPTRP+19, HDR+1
IOM EXCEPTRP+8, HDR+3, HDR+6
IOSL EXCEPTRP+16, EXCEPTRP+17
IOST EXCEPTRP+16, EXCEPTRP+18
LINE EXIT!, EXCEPTRP+8*, HDR+9
MSG EXIT!, EXCEPT~, EXCEPT+1
>> POP RDFILE+5, EXCEPTRP+9
RECORD PLACE+2*, PLACE+3*, PLACE+4, PLACE+6, PLACE+7, PLACE+8, EXIT!
RVU PLACE+6*, PLACE+9, EXIT!, ADDTOFIL~, ADDTOFIL+9, UPDATE~
U ADERVURD+2*, ASK+8, RDFILE+8, PLACE+4, PLACE+6, PLACE+7, PLACE+8, EXCEPT+1, EXCEPTRP+14
X ASK+9, RDFILE+3~, RDFILE+8*, FNAME1+12*, FNAME1+13*, HDR+2*, HDR+3, HDR+4, HDR+5*, HDR+6
, HDR+7, RETURN+4!
XBDIR ASK+9*, ASK+13, RDFILE~, RDFILE+4, RDFILE+5, FNAME1+12
XBFL FNAME1+11!, FNAME1+12
XBFL( FNAME1+9, FNAME1+13
XBFN ASK+12, ASK+13, RDFILE~, RDFILE+4, RDFILE+5, FNAME1+1*, FNAME1+14*
>> XBHDR RDFILE+2*
>> XBI FNAME1+13*
XBNODE RDFILE~
>> XREF ADDTOFIL+2*, ADDTOFIL+4, ADDTOFIL+5*, ADDTOFIL+7
Y ASK+8, RDFILE+3~, RDFILE+4*, RDFILE+5*, FNAME1+7, FNAME1+8, FNAME1+9, FNAME1+10, FNAME1+12, FNAME1+14
, EXCEPTRP+7, RETURN+4!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All