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

Package: Remote Order Entry System

Routine: RMPFET84


Information

RMPFET84 ;DDC/KAW-CERTIFY A CUSTOM HEARING AID RECEIPT [ 06/16/95 3:06 PM ]

Source Information

Source file <RMPFET84.m>

Entry Points

Name Comments DBIA/ICR reference
PAT
MG1
DISP
DISP0 ;; input: RMPFX,DFN,RMPFHAT,RMPFTYP
DISP1
ASK
ASK1
LOOP
LOOP1
LOOP2
LOOPE
CHOOSE
CH1
END
ISSUE
I1
READ
SEL ;; input: RMPFO,RMPFMD,RMPFX
SEL1
MSG
MSG1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"CERTIFY CUSTOM HEARING AIDS"
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+1
Function Call: WRITE
  • Prompt: !!,"*** THERE ARE NO ORDERS TO BE CERTIFIED FOR THIS PATIENT ***"
  • Line Location: PAT+4
Function Call: WRITE
  • Prompt: !!,"*** ERROR IN ORDER ***"
  • Line Location: MG1+0
Function Call: WRITE
  • Prompt: !!,"*** THE STATUS OF THIS ORDER DOES NOT PERMIT CERTIFICATION ***"
  • Line Location: MG1+2
Function Call: WRITE
  • Prompt: @IOF,!?20,"CERTIFY RECEIPT OF A CUSTOM HEARING AID"
  • Line Location: DISP1+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISP1+2
Function Call: WRITE
  • Prompt: !!,"*** THERE ARE NO LINE ITEMS TO CERTIFY ***"
  • Line Location: DISP1+6
Function Call: WRITE
  • Prompt: !!,"Certify ",BX," orders? YES// "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter a <Y> or <RETURN> to certify all orders in the status 'ISSUE DATE PENDING'",!?5,"an <N> to select a line item to certify."
  • Line Location: ASK1+0
Function Call: WRITE
  • Prompt: !!,"Select the number of the line item to certify: "
  • Line Location: CHOOSE+0
Function Call: WRITE
  • Prompt: !!,"Enter the number to the left of the line item you wish to certify or <RETURN> to exit."
  • Line Location: CH1+0
Function Call: WRITE
  • Prompt: !!,"Do you wish to enter the issue information? NO// "
  • Line Location: ISSUE+2
Function Call: WRITE
  • Prompt: !!,"Enter a <Y> to edit the issue information",!?5,"an <N> to exit."
  • Line Location: I1+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: !!,"Enter "
  • Line Location: SEL+6
Function Call: WRITE
  • Prompt: "<A>djust, <C>ertify or "
  • Line Location: SEL+7
Function Call: WRITE
  • Prompt: "<RETURN> to exit: "
  • Line Location: SEL+8
Function Call: WRITE
  • Prompt: @IOF,!!?21,"CUSTOM HEARING AID ORDER CERTIFICATION"
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !!!,"When you certify a custom hearing aid order please be absolutely sure that the"
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !,"ROES order exactly matches the aid and components that you received from"
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: !,"the vendor. You are authorizing the DDC to pay for the order as it appears on"
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !,"your screen."
  • Line Location: MSG+4
Function Call: WRITE
  • Prompt: !!,"If necessary you may use the adjustment procedure to adjust the order prior to",!,"certification."
  • Line Location: MSG+5
Function Call: WRITE
  • Prompt: !!,"Enter an <A> to adjust the order (MUST BE DONE PRIOR TO CERTIFICATION)"
  • Line Location: MSG1+0
Function Call: WRITE
  • Prompt: !?7,"a <C> to certify the order"
  • Line Location: MSG1+1
Info |  Source |  Entry Points |  Interaction Calls