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
Print Page as PDF
Routine: RMPFET8

Package: Remote Order Entry System

Routine: RMPFET8


Information

RMPFET8 ;DDC/KAW-ADJUST AN ORDER [ 06/16/95 3:06 PM ]

Source Information

Source file <RMPFET8.m>

Entry Points

Name Comments DBIA/ICR reference
EN1
EDIT
END
SEL ;;Select adjustment action
SEL1
NUM
ITEM
ITEM1
DO
SELE
READ
HEAD
CERTIFY
MSG
DELETE ;;Delete old model when changing models

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,"ORDER ADJUSTMENTS"
  • Line Location: RMPFET8+5
Function Call: WRITE
  • Prompt: !!?32,"*** WARNING ***"
  • Line Location: RMPFET8+6
Function Call: WRITE
  • Prompt: !!,"This module is used to make adjustments to an order that has already been"
  • Line Location: RMPFET8+7
Function Call: WRITE
  • Prompt: !!,"sent to the DDC. Orders may be adjusted up to 60 working days after aids"
  • Line Location: RMPFET8+8
Function Call: WRITE
  • Prompt: !!,"are issued. If an adjustment is made after issue, the DDC will update the"
  • Line Location: RMPFET8+9
Function Call: WRITE
  • Prompt: !!,"the order with the status 'CERTIFICATION PENDING'. Certification will again"
  • Line Location: RMPFET8+10
Function Call: WRITE
  • Prompt: !!,"be required before the vendor will be paid."
  • Line Location: RMPFET8+11
Function Call: WRITE
  • Prompt: $C(7),!!,"ERROR IN ORDER TYPE"
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !!,"Select number of item to adjust: "
  • Line Location: ITEM+0
Function Call: WRITE
  • Prompt: !!,"Enter the number to the left of the item that you wish to adjust."
  • Line Location: ITEM1+0
Function Call: WRITE
  • Prompt: $C(7),!!,"*** THIS ORDER HAS BEEN CANCELED ***"
  • Line Location: ITEM1+3
Function Call: WRITE
  • Prompt: !!,$C(7),"*** LINE ITEMS WITH THIS STATUS CANNOT BE ADJUSTED ***"
  • Line Location: DO+0
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: @IOF,!?27,"ACTIVE ORDER INFORMATION"
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,"Station: ",RMPFSTAP,?68,RMPFDAT
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"Patient: ",$E(RMPFNAM,1,25),?40,"SSN: ",RMPFSSN,?62,"DOB: ",RMPFDOB
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !!,"*** THIS LINE ITEM MUST BE CERTIFIED ***"
  • Line Location: CERTIFY+3
Function Call: WRITE
  • Prompt: !!,"Enter <C> to change a hearing aid model"
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !?6,"<H> to view the history of the order actions"
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !?6,"<RETURN> to continue."
  • Line Location: MSG+4
Function Call: WRITE
  • Prompt: !!,"If the order consists of more than one model, the number of the model needing to",!,"be adjusted may be entered after the letter from the command line (i.g., 'C2')."
  • Line Location: MSG+5
Function Call: WRITE
  • Prompt: !!,"Enter <RETURN> to continue."
  • Line Location: MSG+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: DELETE+7
Function Call: WRITE
  • Prompt: $C(7),!!,"*** MODEL NOT DELETED ***"
  • Line Location: DELETE+9
Function Call: WRITE
  • Prompt: "."
  • Line Location: DELETE+11
Function Call: WRITE
  • Prompt: $C(7),!!,"*** COMPONENT NOT DELETED ***"
  • Line Location: DELETE+17
Info |  Source |  Entry Points |  Interaction Calls