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

Package: Remote Order Entry System

Routine: RMPFET1


Information

RMPFET1 ;DDC/KAW-ENTER/EDIT PATIENT ORDER [ 05/24/99 9:24 AM ]

Source Information

Source file <RMPFET1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 ^%DT  ^DIC  FILE^DICN  ^DIE  ^DIK  
Remote Order Entry System 4 CONT^RMPFET  REMOV^RMPFET10  ^RMPFET5  (ADD,EDIT)^RMPFETL  

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

Package Total Caller Graph
Remote Order Entry System 4 RMPFES  RMPFET  RMPFET0  RMPFET83  

Entry Points

Name Comments DBIA/ICR reference
ORDER
END
END1
ADD ;;Add a new order
ADD1
ADD2
TYP
AUTO
ADDE
EXIST ;;Access and existing order
EDIT
EXISTE
DELETE
DEL1
KILL
DELETEE
READ

External References

Name Field # of Occurrence
^%DT AUTO+13, AUTO+19
^DIC TYP+2
FILE^DICN AUTO+16
^DIE AUTO+22
^DIK KILL
CONT^RMPFET AUTO+9
REMOV^RMPFET10 KILL
^RMPFET5 ORDER
ADD^RMPFETL AUTO+17, EXIST+7
EDIT^RMPFETL EDIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Do you wish to add an order? NO// "
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: !!,"Enter a <Y> to add an order, <N> or <RETURN> to exit."
  • Line Location: ADD1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: TYP+2
Function Call: WRITE
  • Prompt: $C(7),!!,?80-$L(X)\2,X
  • Line Location: AUTO+12
Function Call: WRITE
  • Prompt: $C(7),!!,"THIS ORDER DOES NOT EXIST - FILE ERROR"
  • Line Location: EXIST+4
Function Call: WRITE
  • Prompt: !!,"*** MUST ENTER AN ELIGIBILITY ***"
  • Line Location: EXIST+8
Function Call: WRITE
  • Prompt: !!,"Are you sure you want to delete this order? NO// "
  • Line Location: DELETE+0
Function Call: WRITE
  • Prompt: !!,"If you enter a <Y> the order will be permanently deleted from this order.",!,"If you enter a <N> or <RETURN> the order will be retained on the order."
  • Line Location: DEL1+0
Function Call: WRITE
  • Prompt: !!,"*** ORDER DELETED ***"
  • Line Location: KILL+1
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: READ+1
Function Call: READ
  • Variable: Y
  • Timeout: 5
  • Line Location: READ+1
Routine Call
  • DIC
  • Line Location:
    • TYP+2
Routine Call
  • DIE
  • Line Location:
    • AUTO+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPF(791810 - [#791810] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGSL(38.1 - [#38.1] AUTO+23
^RMPF(791810 - [#791810] AUTO+14, AUTO+17, AUTO+23*, EXIST+4, EXIST+5, EXIST+8
^RMPF(791810.1 - [#791810.1] AUTO, AUTO+1, AUTO+11
^RMPF(791810.4 - [#791810.4] AUTO+18, EXIST+6, EDIT

Label References

Name Line Occurrences
ADD RMPFET1+3, ADD1
ADD1 ADD1+1
ADDE ADD+4, ADD1+2, TYP+2, AUTO+16, AUTO+17
DEL1 DEL1+1
DELETE DEL1
DELETEE DELETE+1, DEL1+2
EDIT EXIST+5, EXIST+6
END AUTO+9
END1 ORDER
EXIST RMPFET1+2, EXIST+8
EXISTE EXIST+4, EXIST+7, EXIST+9
KILL AUTO+17
ORDER RMPFET1+2
READ ADD+3, DELETE, READ+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END1!, ADDE!
%DT END1!, AUTO+13*, AUTO+19*, ADDE!
%Y END1!, ADDE!
D END1!, ADDE!
D0 END1!, ADDE!
DA END1!, AUTO+19*, ADDE!, KILL*, DELETEE!
DD AUTO+16!
>> DFN AUTO+21, AUTO+23
DI END1!, ADDE!
DIC END1!, TYP*, TYP+2!, AUTO+15*, AUTO+16!, ADDE!
DIC("A" TYP*
DIC("DR" AUTO+15*
DIC("S" TYP+1*
DIC(0 TYP*, AUTO+15*
DIE END1!, AUTO+19*, ADDE!
DIK KILL*, DELETEE!
DISYS END1!, ADDE!
>> DLAYGO AUTO+16*
DO AUTO+16!
DQ END1!, ADDE!
DR END1!, AUTO+20*, AUTO+21*, ADDE!
DT AUTO+21
DTIME READ+1
DUZ AUTO+20, AUTO+21
I EXISTE!
IOF AUTO+2
J AUTO+14*, ADDE!
RMPFHAT END!, AUTO*
>> RMPFMENU AUTO+15
RMPFOUT ORDER, ADD+4, AUTO+9, AUTO+17, EXIST+7, DELETE+1, READ!, READ+2*
RMPFQUT ADD1, ADD1+1*, DEL1, DEL1+1*, READ!, READ+3*
RMPFSEL DELETEE!
RMPFST END!, ADD2*, AUTO+20
>> RMPFSTAP AUTO+20
RMPFTE END!, AUTO+17, AUTO+18, AUTO+21, EXIST+8, EDIT*, KILL*
>> RMPFTP ADD2, AUTO+17, AUTO+18, AUTO+21, AUTO+23, EXIST+5, EDIT
RMPFTYP END!, TYP+2*, AUTO, AUTO+1, AUTO+11, AUTO+20
RMPFX RMPFET1+2, ORDER, ADD1+2!, AUTO+16*, AUTO+17, AUTO+19, AUTO+23, EXIST+4, EXIST+5, EXIST+8
, KILL, DELETEE!
RMSEN AUTO+23*, ADDE!
S0 END1!, EXISTE!
S1 EXISTE!
S2 END1!, EXIST+5*, EDIT, EXISTE!
U AUTO, AUTO+1, AUTO+11, AUTO+17, AUTO+18, AUTO+21, AUTO+23, EXIST+5, EXIST+8, EDIT
, READ+1
X END1!, AUTO+11*, AUTO+12*, AUTO+13*, AUTO+14*, AUTO+19*, ADDE!, EXIST+5*, EXIST+6, EXISTE!
XX AUTO+18*, ADDE!
Y ADD1+1*, ADD1+2, TYP+2, AUTO+13, AUTO+16, AUTO+20, DEL1+1*, DEL1+2, DELETEE!, READ+1*
, READ+2*, READ+3*
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