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

Package: Remote Order Entry System

Routine: RMPFET7


Information

RMPFET7 ;DDC/KAW-SPECIAL EDIT SUB-ROUTINES [ 06/16/95 3:06 PM ]

Source Information

Source file <RMPFET7.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 ^%DT  ^DIC  FILE^DICN  ^DIK  ^DIR  
Remote Order Entry System 4 (,ARRAY2)^RMPFDT2  CLEAR^RMPFET61  (,AUTH)^RMPFET71  PAT^RMPFUTL  

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

Package Total Caller Graph
Remote Order Entry System 4 RMPFEI  RMPFET0  RMPFET81  RMPFET9  

Entry Points

Name Comments DBIA/ICR reference
ISSUE ;; input: RMPFX,RMPFTYP,RMPFHAT,DFN
START
A1
A11
ASK
ASK1
LOOP
LOOPE
SEL
SEL1
CAN ;; input: RMPFX,RMPFY,PT,CK,RMPFMD,RMPFTYP
EXIT1
END
COMPON ;;Add/Edit a component
COM1 ;W !,"SELECT COMPONENT: "
COM11 ;I $D(RMPFQUT) S X="?" G COM12
COM12
COM2
COME
DEL
DEL1
SECOND
READ
READ1
NEW
CHECK ;; input: RMPFTYP
CHECKE

External References

Name Field # of Occurrence
^%DT COM12+9
^DIC SECOND+6
FILE^DICN COM12+5
^DIK DEL1+4
^DIR READ1+5
^RMPFDT2 START+3
ARRAY2^RMPFDT2 COMPON+3
CLEAR^RMPFET61 CAN+5
^RMPFET71 CAN+8
AUTH^RMPFET71 ISSUE+2
PAT^RMPFUTL ISSUE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?36,"EXISTING ORDER"
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !,"Patient: ",RMPFNAM,?64,"SSN: ",RMPFSSN
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !
  • Line Location: START+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: $C(7),!!,"*** DUPLICATE SERIAL NUMBERS IN ORDER ***"
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !!,"*** NO LINE ITEMS TO ISSUE ***",!!,"Enter <RETURN> to continue."
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !!,"Enter <I>ssue or <RETURN> to exit. "
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: !!,"Enter an <I> to issue line item(s) or <RETURN> to exit."
  • Line Location: A11+0
Function Call: WRITE
  • Prompt: !!,"Issue ",CK," line items? YES// "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter a <Y> or <RETURN> to issue ",CK," line items",!?5,"an <N> to exit."
  • Line Location: ASK1+0
Function Call: WRITE
  • Prompt: !!,"Select number of item to issue: "
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,"Enter the number to the left of the item you wish to issue",!,"or <RETURN> to continue."
  • Line Location: SEL1+0
Function Call: WRITE
  • Prompt: $C(7),!!,"*** THIS LINE ITEM HAS BEEN CANCELED ***"
  • Line Location: CAN+2
Function Call: WRITE
  • Prompt: $C(7),!!,"*** LINE ITEMS WITH THIS STATUS CANNOT BE ISSUED ***"
  • Line Location: CAN+6
Function Call: WRITE
  • Prompt: $C(7),!!,"*** THIS LINE ITEM HAS NOT BEEN CERTIFIED *** "
  • Line Location: CAN+7
Function Call: WRITE
  • Prompt: $C(7),!!,"*** COMPONENT NOT ADDED ***"
  • Line Location: COM12+5
Function Call: WRITE
  • Prompt: !!,"The component you chose (",CM,") has already been added to this aid."
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !!,"Do you wish to delete the ",CM,"? NO// "
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !!,"Enter a <Y> to delete the component",!?6,"a <N> or <RETURN> to keep the component on order."
  • Line Location: DEL1+0
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: READ+1
Function Call: READ
  • Variable: Y
  • Timeout: 5
  • Line Location: READ+1
Routine Call
  • DIC
  • Line Location:
    • SECOND+6
Routine Call
  • DIR
  • Line Location:
    • READ1+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPF(791810 - [#791810] START+4, CAN+2, CAN+3, CAN+7, COMPON+4, COM12*, COM12+6, COM2*, SECOND+1, SECOND+3
SECOND+6*
^RMPF(791810.1 - [#791810.1] READ1+3, READ1+4, CHECK+3
^RMPF(791810.2 - [#791810.2] START+8, CAN+4
^RMPF(791811 - [#791811] SECOND+2
^RMPF(791811.2 - [#791811.2] DEL
^RMPF(791811.3 - [#791811.3] SECOND+3

Label References

Name Line Occurrences
A1 A11
ASK ASK1
ASK1 ASK1+2
CAN A11+2, LOOP+1, SEL1+2
COM2 COM12+8
COME COM1+1, COM11+1
COMPON COM12+2, COM12+5, COM2
DEL COM12+2, DEL1
DEL1 DEL1+1
END ISSUE+2, START+10, A1+1, A11+1, A11+2, ASKSEL+1, SEL1+1, SEL1+2
LOOP LOOP+1
LOOPE LOOPLOOP+1
NEW COM12+3
READ START+10, A1+1, ASKSEL+1, DEL+2, READ+1
READ1 COM1+1
SEL ASK1+3, SEL1
SEL1 SEL1+1
START A11+2, LOOPESEL1+3

Naked Globals

Name Field # of Occurrence
^( CHECK+3
^(0 START+4, START+8, CAN+4, SECOND+1, SECOND+2, SECOND+3, CHECK+3
^(2 SECOND+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!, COME!
%DT END!, COM12+9*, COME!
%Y END!
CK START+3*, START+8*, START+10, A11+2, ASKASK1, END!
CM END+1!, DEL*, DEL+1, DEL+2
CX END!
D END!
D0 END!, NEW~
D1 END!
DA SEL1+2*, EXIT1!, END!, COME!, DEL1+3*, NEW~
DA(1 COM12+4*, DEL1+3*
DA(2 COM12+4*, DEL1+3*
DD COM12+5!, NEW~
DI END!
DIC END!, COM12+3*, COME!, SECOND+4*, SECOND+8!, NEW~
DIC("A" SECOND+4*
DIC("B" SECOND+3*
DIC("S" COMPON+5*, CHECK+2!, CHECK+4*
DIC(0 COM12+4*, SECOND+5*
DIE EXIT1!, END!
DIK COME+1!, DEL1+3*
DIR COME!, READ1!
DIR("A" READ1+2*
DIR("S" READ1+3*, READ1+4*
DIR(0 READ1+1*
DISYS COME+1!
DLAYGO COM12+4*, COME+1!
DO COM12+5!, NEW~
DP NEW~
DQ END!, NEW~
DR EXIT1!, END!, NEW~
DTIME READ+1
DUZ COM12+8
I START+2*, COM12+2*, COME!
IOF START
IT COMPON+4*, COME!
IX COM12+2*, COME!, DEL1+3
K END+1!, CHECK+2*, CHECK+3*
M COME+1!
NB ISSUE+2*, END!
PT A11+2*, ASK1+3*, LOOP*, LOOP+1, SEL1+2*, END+1!
RM CHECK+2!
RMPF START+3!, END+1!
RMPF( START+8*, LOOPLOOP+1, CHECK+3*
RMPF(1 A11+2
RMPFADD COM12+7, COM12+8, COME!
RMPFC COME!
RMPFC( COM12+2
RMPFDOB END!
RMPFDOD END+1!
RMPFLA END+1!
RMPFMD END!
RMPFMD( SEL1+1, SEL1+2
RMPFNAM START+1, END+1!
RMPFO END!
RMPFO( START+3
RMPFOUT ISSUE+2, A1+1, A11+2, ASKLOOP+1, SEL+1, SEL1+2, CAN+8, COM1+1, DEL+2
, READ!, READ+2*, READ1!, READ1+6*
RMPFQUT A11ASK1ASK1+2*, SEL1SEL1+1*, COME+1!, DEL1DEL1+1*, READ!, READ+3*
, READ1!
>> RMPFRE COMPON+3*, COM12+8
RMPFSSN START+1, END+1!
RMPFSTO CAN+4*, CAN+5, CAN+6, EXIT1!, END+1!
>> RMPFTYP READ1+3, READ1+4, CHECK+2, CHECK+3
>> RMPFX START+4, CAN+2, CAN+3, CAN+7, COMPON+4, COM12COM12+3, COM12+4, COM12+6, COM2
DEL1+3, SECONDSECOND+1, SECOND+3, SECOND+6
RMPFY A11+2*, LOOP+1*, SEL1+2*, CAN+2, CAN+3, CAN+6!, CAN+7!, END+1!, COMPON+4, COM12
COM12+3, COM12+4, COM12+6, COM2DEL1+3, SECONDSECOND+1, SECOND+3, SECOND+6
RMPFZ COM12+6*, COM2, COME!
S END+1!
S0 START+4*, START+7, END+1!
SN START+4*, START+5, START+6, START+9!, END+1!
SN( START+5, START+6*
SU SECOND+2*, SECOND+8!
SX COM12+6*, COM12+7*, COM12+8*, COM12+9*, COM2, COME!
SZ SECOND+1*, SECOND+2, SECOND+8!
U START+4, START+7, START+8, CAN+2, CAN+3, CAN+4, CAN+7, COMPON+4, COM12+2, COM12+7
COM12+8, COM12+9, DELSECOND+2, SECOND+3, SECOND+6, READ+1, READ1+3, READ1+4, CHECK+3
X START+3*, START+4, START+8, CAN+3*, CAN+4, EXIT1!, END+1!, COM11+2*, COM12+3*, COM12+9*
, COME!, SECOND+3*, SECOND+8!, READ1+6, READ1+7
Y START+7*, START+8*, A11+1*, ASK1+1*, ASK1+2, ASK1+3, SEL1+1, SEL1+2, END+1!, COM11+1
COM11+2, COM12+2, COM12+3, COM12+5, COM12+6, COM12+7, COM12+9, COME!, DELDEL1+1*
DEL1+2, SECOND+6, SECOND+8!, READ+1*, READ+2*, READ+3*, READ1+6*, READ1+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All