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

Package: Remote Order Entry System

Routine: RMPFETL


Information

RMPFETL ;DDC/KAW-ENTER/EDIT VETERAN ELIGIBILITY [ 06/16/95 3:06 PM ]

Source Information

Source file <RMPFETL.m>

Entry Points

Name Comments DBIA/ICR reference
ADD ;; input: DFN,RMPFTE,RMPFX
ADD0
ADD1
ADD2
EDIT ;; input: RMPFX,DFN,RMPFTE
EDIT1
EDIT2
END
SUB
SUB1
E1
HEAD
READ
WARN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** ROES ELIGIBILITY CANNOT BE DETERMINED FROM THE DATABASE FOR THIS PATIENT ***"
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: !!,"Eligibility determined from the DHCP database: ",$P(RMPFTE,U,1)
  • Line Location: ADD1+1
Function Call: WRITE
  • Prompt: !!,"Eligibility for ROES orders cannot be determined from the DHCP database."
  • Line Location: ADD2+1
Function Call: WRITE
  • Prompt: !!,"Eligibility associated with this order: ",$P(RMPFTE,U,1)
  • Line Location: EDIT1+1
Function Call: WRITE
  • Prompt: !?13,"Eligibility determined by: ",X
  • Line Location: EDIT2+0
Function Call: WRITE
  • Prompt: !!,"Do you wish to ",AC," the eligibility? NO// "
  • Line Location: SUB+0
Function Call: WRITE
  • Prompt: !!,"Enter a <Y> if you wish to select an eligibility",!?5,"an <N> or <RETURN> if you wish to continue."
  • Line Location: SUB1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: E1+0
Function Call: WRITE
  • Prompt: @IOF,!?29,"ENTER/EDIT ELIGIBILITY"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !!,"Patient: ",RMPFNAM,?40,"SSN: ",RMPFSSN,?63,"DOB: ",RMPFDOB,!
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEAD+3
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: !!?11,"*** DO NOT EDIT UNLESS YOU ARE SURE YOU WANT TO SEND ***",!?11,"*** ANOTHER ELIGIBILITY TO THE DDC ***"
  • Line Location: WARN+0

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