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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RMPFDD

Package: Remote Order Entry System

Routine: RMPFDD


Information

RMPFDD ;DDC/KAW-PATIENT INFORMATION DISPLAY; [ 06/16/95 3:06 PM ]

Source Information

Source file <RMPFDD.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Remote Order Entry System 4 DISP^RMPFDD  ^RMPFDD1  ^RMPFDD2  (,MENU)^RMPFUTL  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 1 ^DIC  

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

Package Total Caller Graph
Remote Order Entry System 5 RMPFDB1  RMPFDD  RMPFDT4  RMPFDT8  RMPFET  

Entry Points

Name Comments DBIA/ICR reference
RMPFSET
PAT
CON
END
DISP ;; input: DFN
ELG0
ELG1
QUIT
CONT
QUE
HEAD
READ
MSG

External References

Name Field # of Occurrence
^%ZIS QUE, QUE+2
HOME^%ZIS QUE+5
^%ZISC ELG1+4
^%ZTLOAD QUE+4
^DIC PAT
DISP^RMPFDD QUE+2
^RMPFDD1 ELG1
^RMPFDD2 DISP+2
^RMPFUTL RMPFSET+1
MENU^RMPFUTL RMPFSET

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"*** A MENU SELECTION MUST BE MADE ***"
  • Line Location: RMPFSET+0
Function Call: WRITE
  • Prompt: @IOF,!,"PATIENT INFORMATION DISPLAY",!!
  • Line Location: RMPFSET+2
Function Call: WRITE
  • Prompt: $C(7),!?26,"*** PATIENT IS DECEASED ***"
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !?6,"Name: ",RMPFNAM,?49,"SSN: ",RMPFSSN
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !?7,"DOB: ",RMPFDOB
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: ?45,"Claim #: ",$J(RMPFCL,11)
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !?7,"DOD: ",RMPFDOD
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: RMPFA(1)
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: ?42,"Start Date: ",RMPFTSD
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !?12,$S($D(RMPFA(I)):RMPFA(I),1:"")
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: ?44,"End Date: ",RMPFTED
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: !?5,"Phone: ",RMPFONE
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: ?44,"End Date: ",RMPFTED
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ELG0+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: ELG0+0
Function Call: WRITE
  • Prompt: !!?5,"*** DHCP PATIENT FILE DETERMINATION OF ELIGIBILITY FOR ROES ORDERS ***"
  • Line Location: ELG0+1
Function Call: WRITE
  • Prompt: !!?1,"Veteran Eligibilities: "
  • Line Location: ELG0+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: II>1
  • Line Location: ELG0+3
Function Call: WRITE
  • Prompt: ?24,RMPFF(X)
  • Line Location: ELG0+3
Function Call: WRITE
  • Prompt: ?57,$J(RMPFELS,23)
  • Condition for execution: II=1&$D(RMPFELS)
  • Line Location: ELG0+3
Function Call: WRITE
  • Prompt: ?68,$J(RMPFELGD,12)
  • Condition for execution: II=2&$D(RMPFELGD)
  • Line Location: ELG0+3
Function Call: WRITE
  • Prompt: $C(7),!!?7,"*** An Allied Veteran Agreement must be on file at the DDC. ***"
  • Line Location: ELG1+1
Function Call: WRITE
  • Prompt: $C(7),!!,"*** This eligibility is subject to change. Be sure verification is recent. ***"
  • Line Location: ELG1+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ELG1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: !,"Enter <RETURN> to continue or <P>rint: "
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !?20,"REMOTE ORDER/ENTRY PATIENT INFORMATION"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"Station: ",RMPFSTAP,?68,RMPFDAT,!
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEAD+3
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: !!,"Enter <P> to print the screen"
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !?6,"<RETURN> to continue.",!
  • Line Location: MSG+1
Routine Call
  • %ZIS
  • Line Location:
    • QUE
    • QUE+2
Routine Call
  • %ZIS
  • Line Location:
    • QUE+5
Routine Call
  • DIC
  • Line Location:
    • PAT

Label References

Name Line Occurrences
CON CON, CON+1
CONT CON, CONT+2, CONT+3
DISP CON
ELG0 DISP+9
ELG1 ELG0+2
END PAT, CON, QUE
HEAD DISP+2
MSG CONT+2
QUE CON+1
READ CONT+1, READ+1
RMPFSET CON, CON+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%T QUE+6!
%XX END!
%Y END!
%YY END!
>> %ZIS QUE*, QUE+2*
A END!
C ELG0+2*, QUIT+2!
DFN PAT*, END!, DISP+2
DIC PAT*, END!
DIC(0 PAT*
DTIME READ+1
I END!, DISP+12*, ELG0*, ELG0+4, QUIT+2!, CONT*, HEAD+3*
II ELG0+3*, QUIT+2!
IO QUE+1
IO("S" ELG1+4, QUE+1, QUE+2
IO(0 QUE+1
IOF RMPFSET+2, ELG1+3, HEAD
ION QUE+2, QUE+3
>> IOP QUE+2*
IOST ELG1+3
J END!
N QUIT+2!
P QUIT+2!
POP END!, QUE, QUE+6!
RMPFA QUIT+1!
RMPFA( DISP+12
RMPFA(1 DISP+9
RMPFCL DISP+7, QUIT!
>> RMPFDAT RMPFSET+1, HEAD+2
RMPFDOB DISP+6, QUIT+1!
RMPFDOD DISP+4, DISP+8, QUIT!
RMPFE END!
RMPFELD QUIT+1!
RMPFELG QUIT!
RMPFELGD ELG0+3, ELG0+4, QUIT!
RMPFELP QUIT!
RMPFELS ELG0+3, QUIT+1!
RMPFF ELG0+2, QUIT+1!
RMPFF( ELG0+3
RMPFF(1 ELG1+1, ELG1+2
RMPFL QUIT+1!
>> RMPFMENU RMPFSET
RMPFNAM DISP+5, QUIT+1!
RMPFONE DISP+13, QUIT+2!
RMPFOUT CON, END!, READ!, READ+2*
RMPFQUT CON, END!, CONT+2, READ!, READ+3*
RMPFSSN DISP+5, QUIT+1!
>> RMPFSTAN RMPFSET+1
>> RMPFSTAP HEAD+2
>> RMPFSYS RMPFSET+1
RMPFT DISP+9!, QUIT+1!
RMPFTE END!
RMPFTED DISP+10!, DISP+12!, DISP+13, QUIT!
RMPFTSD DISP+10!, DISP+11, QUIT!
RMPFVET DISP+3, QUIT!
S QUIT+2!
S0 QUIT+2!
S1 QUIT+2!
S2 QUIT+2!
S6 QUIT+2!
ST QUIT+2!
T QUIT+2!
U READ+1
X END!, ELG0+2*, ELG0+3*, QUIT+2!
Y PAT, CON, CON+1, END!, QUIT+2!, CONT+3*, READ+1*, READ+2*, READ+3*
Z QUIT+2!
>> ZTDESC QUE+3*
>> ZTIO QUE+3*
>> ZTRTN QUE+3*
>> ZTSAVE("DFN" QUE+4*
>> ZTSAVE("RMPF*" QUE+4*
ZTSK CON+1, END!, QUE+1!, QUE+5, HEAD
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All