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

Entry Points

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

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