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

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

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

FileMan Files Accessed Via FileMan Db Call

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

Info | Source | Entry Points | Interaction Calls | FileMan Files Accessed Via FileMan Db Call