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

Package: Remote Order Entry System

Routine: RMPFDE


Information

RMPFDE ;DDC/KAW-DISPLAY REQUESTS FOR ELIGIBILITY DETERMINATION ;07/06/01 9:25 AM

Source Information

Source file <RMPFDE.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 1 DEM^VADPT  
Remote Order Entry System 1 ^RMPFDE1  
VA FileMan 1 DD^%DT  

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

Package Total Caller Graph
Remote Order Entry System 2 RMPFDE  RMPFDS2  

Entry Points

Name Comments DBIA/ICR reference
END
LIST ;;List active requests for eligibility determination
L1
L2
LISTOT
HEAD1
CONT
CONT1
QUE
QUEE
READ
PRINT

External References

Name Field # of Occurrence
DD^%DT L2+4
^%ZIS QUE, QUE+2
HOME^%ZIS QUE+11
^%ZISC QUE+5
^%ZTLOAD QUE+10
^RMPFDE1 CONT1+8
DEM^VADPT L2+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(TT,2),?4,Y,?24,$E(VADM(1),1,16),?43,$P(VADM(2),U,2),?56,$E(EL,1,24)
  • Line Location: L2+13
Function Call: WRITE
  • Prompt: !!,"Total Orders: ",TT
  • Line Location: LISTOT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LISTOT+1
Function Call: WRITE
  • Prompt: @IOF,!?17,"ROES ORDERS PENDING ELIGIBILITY DETERMINATION"
  • Line Location: HEAD1+0
Function Call: WRITE
  • Prompt: !,"Station: ",RMPFSTAP,?68,RMPFDAT
  • Line Location: HEAD1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !?1,"#",?7,"Request Date",?26,"Patient Name"
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: ?47,"SSN",?58,"Proposed Eligibility"
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,"--",?4,"------------------",?24,"-----------------"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: ?43,"-----------",?56,"------------------------"
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: !!,"Type the number of the order to process, <P>rint or <RETURN> to continue: "
  • Line Location: CONT1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+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
  • %ZIS
  • Line Location:
    • QUE
    • QUE+2
Routine Call
  • %ZIS
  • Line Location:
    • QUE+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPF(791810 - [#791810] L1, L2, L2+1, L2+5
^RMPF(791810.4 - [#791810.4] L2+6

Label References

Name Line Occurrences
CONT RMPFDE+9, L2+9
CONT1 CONT1+3
END RMPFDE+6, QUE
HEAD1 RMPFDE+4, L2+11, L2+12, QUE+4, PRINT
L1 L2
L2 L2+1, L2+14
LIST RMPFDE+5, QUE+4, PRINT
LISTOT RMPFDE+8, QUE+4, PRINT
QUE CONT1+7
QUEE QUE+1, QUE+2
READ CONT1+1, READ+1
RMPFDE RMPFDE+7, RMPFDE+10

Naked Globals

Name Field # of Occurrence
^(0 L2+2, L2+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%T QUEE!
%XX END+1!
%YY END+1!
%ZIS QUE*, QUE+2*, QUEE!
DDH END!
DFN END!, L2+2*
DISYS END!
DTIME READ+1
EL END!, L2+5*, L2+6*, L2+13
I END+1!, HEAD1+2*, CONT+1*
IO QUE+1
IO("S" QUE+1, QUE+2
IO(0 QUE+1
IOF LISTOT+1, HEAD1
ION QUE+2, QUE+10
>> IOP QUE+2*
IOSL L2+12
IOST L2+12, LISTOT+1
POP QUE, QUEE!
RD END!, LIST+3*, L1*, L2, L2+3
>> RMPFDAT HEAD1+1
RMPFOUT RMPFDE+6, END+1!, L2+8, L2+10, CONT1+2, READ!, READ+2*
RMPFQUT CONT1+3, READ!, READ+3*
RMPFS1 LIST+3!
RMPFS1( L2+7*, CONT1+8
>> RMPFSTAP HEAD1+1
>> RMPFVFG RMPFDE+3*, RMPFDE+9, L2+8, QUE+1*, QUE+3*, QUE+7*, QUE+8*, QUE+11*
RMPFX RMPFDE+2!, LIST+3!, CONT1+8*
RMPQOUT END+1!
RMPRVIEW RMPFDE+2!, RMPFDE+7, RMPFDE+10, L2+8, CONT!, CONT1+8*, QUE+1*, QUE+6*, QUE+11*
RX END!, L1+1*, L2*, L2+1, L2+5, L2+7
TT END!, LIST+3*, L2+7*, L2+13, LISTOT
U L2+2, L2+5, L2+6, L2+13, READ+1
VA END!
VADM END!
VADM(1 L2+13
VADM(2 L2+13
VAERR END!
Y END!, END+1!, L2+3*, L2+13, CONT1+6, CONT1+7, CONT1+8, READ+1*, READ+2*, READ+3*
ZTIO QUE+10*, QUEE!
ZTRTN QUE+9*, QUEE!
ZTSAVE QUEE!
ZTSAVE("RMPF*" QUE+9*
ZTSK QUE+12, QUEE!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All