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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RMPFDT8

Package: Remote Order Entry System

Routine: RMPFDT8


Information

RMPFDT8 ;DDC/KAW-DISPLAY AUTHORIZED AIDS [ 03/12/98 7:46 AM ]

Source Information

Source file <RMPFDT8.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Remote Order Entry System 3 MSG^RMPFDD  ^RMPFDT8  PAT^RMPFUTL  
VA FileMan 1 DD^%DT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Remote Order Entry System 3 RMPFDT  RMPFDT8  RMPFET0  

Entry Points

Name Comments DBIA/ICR reference
A1
TOT
END
HEAD
CONT
QUE
READ

External References

Name Field # of Occurrence
DD^%DT RMPFDT8+4
^%ZIS QUE, QUE+2
HOME^%ZIS QUE+5
^%ZISC TOT+2
^%ZTLOAD QUE+4
MSG^RMPFDD CONT+2
^RMPFDT8 QUE+2
PAT^RMPFUTL RMPFDT8+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(CT,2),?5,ID,?17,MK,?32,MD,?49,SN,?61,ST,?67,BT,?77,ER
  • Line Location: A1+5
Function Call: WRITE
  • Prompt: !!,"Total Number of Authorized Hearing Aids: ",CT
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !?28,"AUTHORIZED HEARING AIDS",!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !?2,"Patient Name: ",RMPFNAM,?63,"SSN: ",RMPFSSN
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,"Aids Validated: ",DV
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !?51,"Serial"
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !," #",?5,"Issue Date",?21,"Make",?37,"Model",?51,"Number",?61,"Sta.",?67,"Battery",?76,"Ear"
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,"---",?5,"----------",?17,"-------------",?32,"---------------",?49,"----------",?61,"----",?67,"-------",?76,"---"
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: !,"Enter <RETURN> to continue or <P>rint: "
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+0
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: READ+1
Function Call: READ
  • Variable: Y
  • Timeout: 5
  • Line Location: READ+1
Routine Call
  • %ZIS
  • Line Location:
    • QUE
    • QUE+2
Routine Call
  • %ZIS
  • Line Location:
    • QUE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPF(791810 - [#791810] RMPFDT8+4, A1, A1+1

Label References

Name Line Occurrences
A1 A1+1, A1+6
CONT TOT+3, CONT+2, CONT+3
END QUE
HEAD RMPFDT8+5
QUE TOT+3
READ CONT+1, READ+1
RMPFDT8 TOT+3
TOT A1

Naked Globals

Name Field # of Occurrence
^(0 RMPFDT8+4, A1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%T QUE+6!
%XX END+1!
%YY END+1!
>> %ZIS QUE*, QUE+2*
BT A1+4*, A1+5, END!
CT RMPFDT8+5*, A1+1*, A1+5, TOT, END!
DTIME READ+1
DV RMPFDT8+4*, END!, HEAD+3
ER A1+4*, A1+5, END!
I END!, CONT*
ID A1+2*, A1+5, END!
IO QUE+1
IO("S" TOT+2, QUE+1, QUE+2
IO(0 QUE+1
IOF TOT+1, HEAD
ION QUE+2, QUE+3
>> IOP QUE+2*
IOST TOT+1, TOT+3, HEAD
MD A1+3*, A1+5, END!
MK A1+3*, A1+5, END!
POP END!, QUE, QUE+6!
RMION TOT+3!, QUE!, QUE+1*
RMPFDOB END+1!
RMPFDOD END+1!
RMPFNAM END+1!, HEAD+2
RMPFOUT END!, READ!, READ+2*
RMPFQUT END!, CONT+2, READ!, READ+3*
RMPFSSN END+1!, HEAD+2
>> RMPFX RMPFDT8+4, A1, A1+1
RX RMPFDT8+5*, A1*, A1+1, END!
S0 A1+1*, A1+2, A1+3, A1+4, END!
SN A1+3*, A1+5, END!
ST A1+4*, A1+5, END!
U RMPFDT8+4, A1+2, A1+3, A1+4, READ+1
X END+1!
Y RMPFDT8+4*, TOT+3, END!, CONT+3*, READ+1*, READ+2*, READ+3*
>> ZTDESC QUE+3*
>> ZTIO QUE+3*
>> ZTRTN QUE+3*
>> ZTSAVE("DFN" QUE+4*
>> ZTSAVE("RMPFX" QUE+4*
ZTSK END!, QUE+1!, QUE+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All