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

Package: Remote Order Entry System

Routine: RMPFET71

Information

RMPFET71 ;DDC/KAW-CONTINUATION OF RMPFT7 [ 06/16/95 3:06 PM ]

Source Information

Source file <RMPFET71.m>

Entry Points

Name	Comments	DBIA/ICR reference
SET	;;Set line item issue information
PRIOR
S1
SETE
SUB	;;Check for delay in hearing aid issue
SUBE
READ
AUTH	;;Check user for authorization to certify or issue
AUTHE
IU	;;Check to see if user is an audiologist
IUE
STOCK	;;Check for issue delay in stock hearing aids

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Issue item number ",PT," ? YES// " Line Location: SET+4
Function Call: WRITE	Prompt: !! Line Location: S1+0
Function Call: WRITE	Prompt: $C(7),!!,"* SERIAL NUMBER REQUIRED *" Line Location: S1+4
Function Call: WRITE	Prompt: $C(7),!!,"* BATTERY REQUIRED *" Line Location: S1+5
Function Call: WRITE	Prompt: $C(7),!!,"* VALID ISSUE DATE REQUIRED *" Line Location: S1+6
Function Call: WRITE	Prompt: $C(7),!!,"* A REASON FOR DELAY MUST BE ENTERED *" Line Location: SUB+9
Function Call: READ	Variable: Y Timeout: DTIME Line Location: READ+1
Function Call: READ	Variable: Y Timeout: 5 Line Location: READ+1
Function Call: WRITE	Prompt: $C(7),!!,"* YOU HAVE NOT BEEN AUTHORIZED TO ",$S(NB=11:"CERTIFY ORDERS",1:"ISSUE CUSTOM AIDS")," *" Line Location: AUTH+6
Function Call: WRITE	Prompt: $C(7),!!,"* ISSUING USER MUST BE AN AUDIOLOGIST - SEE YOUR ADPAC *" Line Location: IU+4

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