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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 2 DD^%DT  ^DIE  
Registration 1 ADD^VADPT  
Remote Order Entry System 1 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: 3

Package Total Caller Graph
Remote Order Entry System 3 RMPFEI  RMPFET0  RMPFET5  

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

External References

Name Field # of Occurrence
DD^%DT SET1+4, SET1+5
^DIE ASK1+4, TEMP1+2, TEMP1+3
PAT^RMPFUTL DISPLAY
ADD^VADPT DISPLAY

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
Routine Call
  • DIE
  • Line Location:
    • ASK1+4
    • TEMP1+2
    • TEMP1+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPF(791810 - [#791810] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] SET1+3
^RMPF(791810 - [#791810] SET1+1
^RMPF(791810.1 - [#791810.1] RMPFET2+4

Label References

Name Line Occurrences
AD1 AD11
ASK ASK1
ASK1 ASK1+1
DISP DISPLAY+1
DISPLAY START
END AD1, AD11+1, ASK+2, ASK1+2, TEMP+1
HEAD DISP
READ AD1, ASK+1, TEMP+1, READ+1, CONT+1
SET DISPLAY+1
SETE SET1+1
START AD11+1, TEMP1+2, TEMP1+4
TEMP TEMP1
TEMP1 TEMP1+1
WRIT DISP+10

Naked Globals

Name Field # of Occurrence
^(0 SET1+3
^(1 SET1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%DT END!
A1 END+1!, DISP+1
A2 END+1!, DISP+2
A3 END+1!, DISP+3
A4 END+1!, DISP+4
A5 END+1!, DISP+5, SET+2*
A6 END+1!, DISP+6, SET+3*
A7 END+1!, DISP+7, DISP+9, SET+3*
A8 END+1!, DISP+8, SET+3*
AA END+1!
AD END!
BD END!
C END!, DISPE+1!
D END!
D0 END!
DA ASK1+3*, TEMP1+2*, TEMP1+3*, END!
>> DFN DISPLAY
DI END!
DIC END!
DIE ASK1+3*, TEMP1+2*, TEMP1+3*, END!
DISYS END+2!
DQ END!
DR ASK1+3*, TEMP1+2*, TEMP1+3*, END!
DTIME READ+1
ED END!
I ASK*, END!, DISPE*, DISPE+1!, SET*, SET+1*, SET1*, SET1+2*, SETE*, SETE+1!
, HEAD+3*, CONT*
IOF HEAD
J DISPE+1!, SETE*
L1 END+1!, DISP+1
L2 END+1!, DISP+2
L3 END+1!, DISP+3
L4 END+1!, DISP+4, DISP+10
L5 END+1!, DISP+5, DISP+10, SET1+3*
L6 END+1!, DISP+6, DISP+10, SET1+4*
L7 END+1!, DISP+7, DISP+12, SET1+4*
L8 END+1!, DISP+8, DISP+12, SET1+5*
MG DISP+10*, DISP+11*, DISP+12*, WRIT, DISPE+1!
RMPFA END+1!
>> RMPFDAT HEAD+1
RMPFDOB END+2!, HEAD+2
RMPFDOD END+2!
RMPFNAM END+2!, HEAD+2
RMPFOUT AD1, ASK+2, TEMP+1, READ!, READ+2*
RMPFQUT AD11, ASK1, ASK1+1*, TEMP1, TEMP1+1*, END!, READ!, READ+3*
RMPFSSN END+2!, HEAD+2
>> RMPFSTAP HEAD+1
>> RMPFSYS RMPFET2+4
>> RMPFTYP RMPFET2+4
>> RMPFX ASK1+3, TEMP1+2, TEMP1+3, DISPLAY, SET1+1
S END+1!
S1 END+1!, SET1+1*, SET1+2, SET1+3, SET1+4, SET1+5
S2 END+1!
ST END!
T END!
U RMPFET2+4, SET+2, SET+3, SET1+2, SET1+3, SET1+4, SET1+5, READ+1
VAERR END+2!
VAPA END+2!
VAPA( SET+1
VAPA(10 SET+3
VAPA(5 SET+2
VAPA(6 SET+3
VAPA(9 SET+3
X END!, SET1+3*, SETE+1!
Y AD11+1, ASK1+1*, ASK1+2, TEMP1+1*, TEMP1+2, END!, SET1+4*, SET1+5*, READ+1*, READ+2*
, READ+3*
Z END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All