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

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

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
Info |  Source |  Entry Points |  Interaction Calls