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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RMPFET2

Package: Remote Order Entry System

Routine: RMPFET2


Information

RMPFET2 ;DDC/KAW-FREE TEXT PATIENT ADDRESS; [ 06/16/95 3:06 PM ]

Source Information

Source file <RMPFET2.m>

Entry Points

Name Comments DBIA/ICR reference
AD1
AD11
START
ASK
ASK1
TEMP
TEMP1
END
DISPLAY
DEND
DISP
WRIT
DISPE
SET
SET1
SETE
HEAD
READ
CONT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"View patient address? YES// "
  • Line Location: AD1+0
Function Call: WRITE
  • Prompt: !!,"Enter <Y> to view or edit the patient address information",!?6,"<N> or <RETURN> to continue."
  • Line Location: AD11+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Do you wish to edit the ROES address for this patient? NO// "
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"Enter <Y> is you wish to edit the address for this patient.",!,"If the new address is complete, it will be transmitted to the",!,"DDC instead of the address in the DHCP patient file."
  • Line Location: ASK1+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK1+2
Function Call: WRITE
  • Prompt: !!,"Is this a <T>emporary or <P>ermanent Address? P// "
  • Line Location: TEMP+0
Function Call: WRITE
  • Prompt: !!,"Type <T> if this is a temporary address,",!?5,"<RETURN> or <P> if it a permanent address."
  • Line Location: TEMP1+0
Function Call: WRITE
  • Prompt: !?38,"|",!,"Addr [1]: ",A1,?38,"|",?41,"Addr [1]: ",L1
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,"Addr [2]: ",A2,?38,"|",?41,"Addr [2]: ",L2
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !,"Addr [3]: ",A3,?38,"|",?41,"Addr [3]: ",L3
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !?4,"City: ",A4,?38,"|",?45,"City: ",L4
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !?3,"State: ",A5,?38,"|",?44,"State: ",L5
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !?5,"Zip: ",A6,?38,"|",?46,"Zip: ",L6
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: W
  • Condition for execution: A7'="" ?3,"Begin: ",A7 W ?38,"|" I L7'=""
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: ?44,"Begin: ",L7
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: W
  • Condition for execution: A8'="" ?5,"End: ",A8 W ?38,"|" I L8'=""
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: ?46,"End: ",L8
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !?38,"|",!?6,$S(A7="":"*** PERMANENT ADDRESS ***",1:"*** TEMPORARY ADDRESS ***"),?38,"|"
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: ?47,MG
  • Line Location: WRIT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPE+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DISPE+0
Function Call: WRITE
  • Prompt: @IOF,!?32,"PATIENT ADDRESS"
  • 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: !?10,"DHCP PATIENT FILE",?38,"|",?51,"ROES PATIENT ADDRESS"
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !?10,"------------------",?38,"|",?51,"---------------------"
  • Line Location: HEAD+5
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: !
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: !,"Enter <RETURN> to continue or <^> to exit: "
  • Line Location: CONT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPF(791810 - [#791810] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call