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

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Remote Order Entry System 6 (,ARRAY2)^RMPFDT2  ^RMPFDT7  CONT^RMPFET  (ADDC,CHANGEM,REMOVEC)^RMPFET81  ^RMPFET85  PAT^RMPFUTL  
VA FileMan 2 ^%DT  FILE^DICN  

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

Package Total Caller Graph
Remote Order Entry System 3 RMPFET0  RMPFET81  RMPFET84  

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

External References

Name Field # of Occurrence
^%DT DELETE+4
FILE^DICN DELETE+8, DELETE+17
^RMPFDT2 EDIT
ARRAY2^RMPFDT2 DELETE+10
^RMPFDT7 SEL1+4
CONT^RMPFET RMPFET8+12
ADDC^RMPFET81 DO+3
CHANGEM^RMPFET81 DO+1
REMOVEC^RMPFET81 DO+2
^RMPFET85 CERTIFY+4
PAT^RMPFUTL EDIT

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPF(791810 - [#791810] EN1, SEL+3, SEL1+5, NUM+1, ITEM1+3, DO, CERTIFY, CERTIFY+2, DELETE+3, DELETE+13*
, DELETE+18*
^RMPF(791810.1 - [#791810.1] EN1+1
^RMPF(791810.2 - [#791810.2] DO

Label References

Name Line Occurrences
CERTIFY DO+1, DO+2, DO+3
DO SEL1+5, NUM+1
EDIT EDIT+2
END RMPFET8+12, EN1+2, EDIT+2, DO+1, DO+2, DO+3
HEAD EDIT
ITEM NUM, ITEM1
ITEM1 ITEM1+1, ITEM1+3
MSG SEL1
READ SEL+5, SEL+8, ITEM, READ+1, MSG+6
SEL EDIT+2
SEL1 SEL1+2, SEL1+3
SELE SEL+9, SEL1, SEL1+1, SEL1+4, ITEM, ITEM1+1, DO, DO+1, DO+2, DO+3

Naked Globals

Name Field # of Occurrence
^(0 EN1+1, DO, DELETE+18*
^(90 CERTIFY+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DELETE+20!
%DT DELETE+4*, DELETE+20!
>> BX CERTIFY+4*
CM END+1!
CT EDIT+1*, END!, SEL1+5
CX END+1!, DELETE+4*, DELETE+7, DELETE+12*, DELETE+18, DELETE+19!
D0 DELETE+20!
DA DELETE+19!
DA(1 DELETE+5*, DELETE+15*
DA(2 DELETE+15*
DD DELETE+8!, DELETE+17!
>> DFN RMPFET8+4
DI END+1!, DELETE+20!
DIC END+1!, DELETE+5*, DELETE+14*, DELETE+19!
DIC("DR" DELETE+7*, DELETE+16*
DIC(0 DELETE+6*, DELETE+15*
DIE DELETE+20!
DLAYGO DELETE+5*, DELETE+15*, DELETE+20!
DO DELETE+8!, DELETE+17!
DQ DELETE+20!
DR DELETE+20!
DTIME READ+1
DUZ DELETE+7, DELETE+16
I EDIT+1*, END+1!, HEAD+3*, CERTIFY+2*
IOF RMPFET8+5, HEAD
IT DELETE+3*, DELETE+6, DELETE+12*, DELETE+14, DELETE+19!
IX DELETE+11*, DELETE+20!
LR DELETE+4*, DELETE+7, DELETE+20!
RMPFADJ EN1!, END!
RMPFC DELETE+19!
RMPFC( DELETE+11, DELETE+12
>> RMPFDAT HEAD+1
RMPFDOB END+1!, HEAD+2
RMPFDOD END!
>> RMPFHAT EN1+2
RMPFMD END+1!, SELE!
RMPFMD( NUM+1, ITEM1+1, ITEM1+2
RMPFMD(1 SEL1+5
>> RMPFMESG DELETE+7
RMPFNAM END+1!, HEAD+2
RMPFO END+1!
RMPFO( EDIT+1
>> RMPFODAT SEL+3*, SEL+4, SEL+6, SEL1+2, SEL1+3, DO+2, DO+3, MSG+1, MSG+2
RMPFOUT RMPFET8+12, EDIT+2, END!, SEL+9, SEL1, ITEM, DO+1, DO+2, DO+3, READ!
, READ+2*, DELETE+19!
RMPFQUT EDIT+2, END!, SEL1*, SEL1+2*, SEL1+3*, ITEM1, ITEM1+1*, ITEM1+3*, READ!, READ+3*
, DELETE+19!
RMPFRE END+1!, DELETE+7, DELETE+16, DELETE+19!
RMPFSEL1 EN1+3!, EDIT+2, END!, SEL1+1*, SEL1+2, SEL1+3, SEL1+4, DO+1, DO+2, DO+3
RMPFSSN END+1!, HEAD+2
>> RMPFSTAP HEAD+1
>> RMPFTYP EN1+1, EN1+2
RMPFTYPP EN1+1*, END!
>> RMPFX RMPFET8+4, EN1, SEL+3, SEL1+5, NUM+1, ITEM1+3, DO, CERTIFY, CERTIFY+2, DELETE+3
, DELETE+5, DELETE+13, DELETE+14, DELETE+15, DELETE+18
RMPFY SEL1+5*, NUM+1*, ITEM1+2*, ITEM1+3, DO, DO+1, DO+2, DO+3, SELE!, CERTIFY
, CERTIFY+2, DELETE+10*
>> RMPFY1 DELETE+3, DELETE+7, DELETE+10
RMPFY3 DELETE+8*, DELETE+13, DELETE+14, DELETE+15, DELETE+18, DELETE+19!
RMPFZ DELETE+11*, DELETE+12, DELETE+19!
>> S0 EN1*, CERTIFY*, CERTIFY+1, DELETE+3*, DELETE+4
TD DELETE+4*, DELETE+7, DELETE+16, DELETE+19!
U EN1+1, SEL1+5, NUM+1, ITEM1+3, DO, READ+1, CERTIFY+1, CERTIFY+2, DELETE+3, DELETE+4
, DELETE+12, DELETE+18
X EDIT+1*, END!, DO*, SELE!, DELETE+4*, DELETE+6*, DELETE+14*, DELETE+19!
Y END+1!, SEL1+1, NUM, ITEM1+1, ITEM1+2, SELE!, READ+1*, READ+2*, READ+3*, DELETE+4
, DELETE+8, DELETE+9, DELETE+17, DELETE+18, DELETE+19!
Z NUM*, NUM+1, SELE!
ZY DELETE+19!
ZZ DELETE+19!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All