Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Remote Order Entry System 10 HEADP1^RMPFDT1  ^RMPFDT2  APPROV1^RMPFEA2  CONT^RMPFEI  CONT^RMPFET  ^RMPFET3  (,AUTH)^RMPFET71  EN1^RMPFET8  
^RMPFET85  PAT^RMPFUTL  
VA FileMan 1 ^DIC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Remote Order Entry System 2 RMPFET0  RMPFET84  

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

External References

Name Field # of Occurrence
^DIC PAT+1
HEADP1^RMPFDT1 DISP1+1
^RMPFDT2 DISP1+2
APPROV1^RMPFEA2 MG1+3
CONT^RMPFEI PAT+4
CONT^RMPFET MG1+2, MSG+6
^RMPFET3 DISP1+3
^RMPFET71 DISP1+7, LOOP2, CH1+4
AUTH^RMPFET71 RMPFET84+3, DISP
EN1^RMPFET8 DISP1+4
^RMPFET85 DISP1+7, LOOP+2, CH1+2
PAT^RMPFUTL DISP1+1

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
Routine Call
  • DIC
  • Line Location:
    • PAT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPF(791810 - [#791810] PAT+2, PAT+3, PAT+6, DISP1+5, LOOP+1, ISSUE, ISSUE+1, SEL+3, SEL+4, SEL+5
^RMPF(791810.2 - [#791810.2] PAT+3, MG1+1, DISP1+5, LOOP+1, SEL+4

Label References

Name Line Occurrences
ASK ASK1
ASK1 ASK1+1
CH1 CH1+1
CHOOSE ASK1+2, CH1
DISP0 MG1+3
DISP1 DISP1+4, DISP1+6, DISP1+7, ASK, LOOPE, CH1+3, CH1+4
END RMPFET84+3, PAT+1, MG1, MG1+2, MG1+3, DISP1+2, DISP1+3, CH1+2, CH1+3, CH1+4
I1 I1+1
ISSUE DISP1+7, LOOP1, CH1+3, I1
LOOP LOOP+1, LOOP+2
LOOP1 LOOP
LOOP2 LOOP2
LOOPE LOOP+2, LOOP1, LOOP2
MG1 MG1+1
MSG RMPFET84+3
MSG1 SEL1
PAT PAT+4, PAT+5, MG1+2, MG1+3
READ ASK, CHOOSE, ISSUE+2, READ+1, SEL+8
SEL DISP1+2, SEL1
SEL1 SEL1+2

Naked Globals

Name Field # of Occurrence
^( PAT+3
^(0 DISP1+5, LOOP+1, SEL+4, SEL+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A DISP1+5*
BX DISP1+5*, DISP1+6, DISP1+7, ASK, LOOP2, CH1+4, END!
>> C PAT+2*, PAT+3*
>> CK DISP1+7*, LOOP2*, CH1+4*
CX END!
>> DFN PAT+1*, PAT+2
>> DIC PAT+1*
>> DIC(0 PAT+1*
DTIME READ+1
FL END!, SEL+2*, SEL+3*, SEL+4*, SEL+5*, SEL+7, SEL1+4!
FX END+1!, SEL+2*, SEL+7*, SEL1+2, SEL1+4!
>> FY DISP1+7*, LOOP2*, CH1+4*
IOF PAT, DISP1, MSG
MD DISP1+5*, DISP1+7, ASK1+2*, LOOP*, LOOP1*, LOOP2*, LOOPE!, CH1+2*, CH1+4
NB RMPFET84+3*, DISP*, END+1!
PT DISP1+7*, LOOP2*, CH1+4*, END+1!
RMPFDOB END!
RMPFDOD END!
>> RMPFHAT RMPFET84+2*, DISP1+7, LOOP1
RMPFMD END!
RMPFMD( DISP1+5, DISP1+7, LOOP, LOOP2, CH1+1, CH1+2, SEL1+3
RMPFNAM END!
RMPFO END+1!
RMPFO( SEL+2
RMPFOUT RMPFET84+3, MG1+2, MG1+3, DISP, DISP1+2, DISP1+7, ASK, LOOP+2, CHOOSE+1, CH1+2
, CH1+3, CH1+4, END+1!, ISSUE+3, READ!, READ+2*, SEL+8
RMPFQUT ASK1, ASK1+1*, CH1, CH1+1*, END+1!, I1, I1+1*, READ!, READ+3*, SEL1
, SEL1+2*
RMPFSEL DISP1+3, DISP1+4, END+1!, SEL1+1*, SEL1+2
RMPFSSN END!
RMPFST END+1!
>> RMPFTP RMPFET84+2*
>> RMPFTYP RMPFET84+2*
RMPFX PAT+1!, PAT+3*, PAT+4, PAT+5, PAT+6, DISP1+5, LOOP+1, ISSUE, ISSUE+1, SEL+3
, SEL+4, SEL+5
RMPFY DISP1+2!, DISP1+7*, LOOP*, LOOP+1, LOOP2*, CH1+2*, CH1+4, ISSUE, ISSUE+1, SEL1+3*
RMPFY1 END!
>> S0 PAT+3*, DISP1+5*
SG END!
SX END!
U PAT+3, PAT+6, MG1+1, DISP1+5, LOOP+1, ISSUE, ISSUE+1, READ+1, SEL+3, SEL+4
, SEL+5
X PAT+2*, PAT+3, PAT+6*, MG1, MG1+1*, MG1+2, DISP1+5*, LOOP+1*, ISSUE*, SEL+2*
, SEL+3, SEL+4, SEL+5, SEL1+3*, SEL1+4!
X1 PAT+3*, END!, SEL+4*
Y PAT+1, PAT+3*, DISP1+7, ASK1+1*, ASK1+2, LOOP1, CH1+1, CH1+2, CH1+3, END!
, I1+1*, READ+1*, READ+2*, READ+3*, SEL1+1, SEL1+3, SEL1+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All