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

Package: Prosthetics

Routine: RMPRPAT0


Information

RMPRPAT0 ;Hines IOFO/RFM,DDA - PATIENT INQUIRY SCREEN FROM MAS ;3/26/07 07:47

Source Information

Source file <RMPRPAT0.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Prosthetics 2 ^RMPRFO2  ASK2^RMPRPAT  
VA FileMan 2 YN^DICN  ^DIR  
Registration 1 (DEM,IN5,SDA,SDE)^VADPT  

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

Package Total Caller Graph
Prosthetics 1 RMPRPAT  

Entry Points

Name Comments DBIA/ICR reference
CLI
WRI
APP
WRI2
APPA
EXIT
DIRT

External References

Name Field # of Occurrence
YN^DICN WRI, APPA
^DIR DIRT
^RMPRFO2 APP, APP+5
ASK2^RMPRPAT EXIT
DEM^VADPT RMPRPAT0+7
IN5^VADPT RMPRPAT0+7
SDA^VADPT RMPRPAT0+7
SDE^VADPT RMPRPAT0+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPRPAT0+7
Function Call: WRITE
  • Prompt: !,$E(RMPRNAM,1,20),?23,"SSN: ",$P(VADM(2),U,2),?42
  • Line Location: RMPRPAT0+8
Function Call: WRITE
  • Prompt: "DOB: ",$P(VADM(3),U,2),?61,"CLAIM# ",$G(RMPRCNUM)
  • Line Location: RMPRPAT0+9
Function Call: WRITE
  • Prompt: !!?20,"Last Movement Actions",!
  • Line Location: RMPRPAT0+10
Function Call: WRITE
  • Prompt: !?5,"No Movements Recorded for this Patient",!!
  • Line Location: RMPRPAT0+10
Function Call: WRITE
  • Prompt: "Trans. Type: ",$P(VAIP(2),U,2),?40,"Trans. Type: ",$P(VAIP(13,2),U,2),!,"Date: ",$P(VAIP(3),U,2),?40,"Date: ",$P(VAIP(13,1),U,2),!,"Type of Movement: ",?40,"Type of Movement: ",!,$P(VAIP(4),U,2),?40,$P(VAIP(13,3),U,2)
  • Line Location: RMPRPAT0+11
Function Call: WRITE
  • Prompt: !,"Ward: ",$P(VAIP(5),U,2),?40,"Ward: ",$P(VAIP(13,4),U,2),!,"Physician: ",$E($P(VAIP(7),U,2),1,25),?40,"Physician: ",$E($P(VAIP(13,5),U,2),1,25)
  • Line Location: RMPRPAT0+12
Function Call: WRITE
  • Prompt: !,"Diagnosis: ",$E(VAIP(9),1,28),?40,"Diagnosis: ",$E(VAIP(9),1,28)
  • Line Location: RMPRPAT0+13
Function Call: WRITE
  • Prompt: !!?5,"No Clinic Enrollments for this Patient"
  • Line Location: CLI+0
Function Call: WRITE
  • Prompt: !,"Would you like to see more clinics"
  • Line Location: WRI+0
Function Call: WRITE
  • Prompt: !,"Enter `YES` or `NO`"
  • Line Location: WRI+1
Function Call: WRITE
  • Prompt: !,$P(^UTILITY("VAEN",$J,RO,"E"),U,1),?40,$P(^UTILITY("VAEN",$J,RO,"E"),U,2),?63,$P(^UTILITY("VAEN",$J,RO,"E"),U,3)
  • Line Location: WRI+2
Function Call: WRITE
  • Prompt: !!?5,"Fatal RSA error. See SDAM RSA ERROR LOG file."
  • Line Location: APP+1
Function Call: WRITE
  • Prompt: !!?5,"No Pending Appointments for this Patient"
  • Line Location: APP+2
Function Call: WRITE
  • Prompt: !,"Would you like to see more appointments"
  • Line Location: APPA+0
Function Call: WRITE
  • Prompt: !,"Answer `YES` or `NO`"
  • Line Location: APPA+1
Function Call: WRITE
  • Prompt: !,$P(^UTILITY("VASD",$J,RO,"E"),U,1),?20,$E($P(^UTILITY("VASD",$J,RO,"E"),U,2),1,29),?50,$P(^UTILITY("VASD",$J,RO,"E"),U,3),?60,$P(^UTILITY("VASD",$J,RO,"E"),U,4)
  • Line Location: APPA+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+0
Routine Call
  • DIR
  • Line Location:
    • DIRT

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^UTILITY("VAEN" CLI, CLI+1, WRI+2, EXIT!
^UTILITY("VASD" APP, APP+4, APPA+2, EXIT!

Label References

Name Line Occurrences
APP CLI, CLI+2
APPA APPA+1
CLI RMPRPAT0+10
DIRT APP, APP+5
EXIT APP, APP+6, DIRT
WRI CLI+1, WRI+1
WRI2 APP+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % WRI*, WRI+1, APPA*, APPA+1
>> DFN RMPRPAT0+7*
DIR DIRT~
DIR(0 DIRT*
>> DTOUT APPA
>> I CLI+1*, WRI, WRI+1, APP+4*, APPA, APPA+1
IOF RMPRPAT0+7
KILL CLI+1, WRI*, APP+4!, APPA*, EXIT!
>> RMPRCNUM RMPRPAT0+9
>> RMPRCOMB APP*, APP+5*
>> RMPRDFN RMPRPAT0+7
RMPRFLG WRI+2*, EXIT!
RMPRFLL WRI2*, EXIT!
>> RMPRNAM RMPRPAT0+8
RMPRQUES RMPRPAT0+7!
RMPRSDER RMPRPAT0+7*, APP, APP+1, EXIT!
RO CLI+1*, WRI+2, APP+4*, APPA+2, EXIT!
U RMPRPAT0+8, RMPRPAT0+9, RMPRPAT0+11, RMPRPAT0+12, WRI+2, APPA+2
>> VADM(2 RMPRPAT0+8
>> VADM(3 RMPRPAT0+9
VAERR RMPRPAT0+7!
VAHOW RMPRPAT0+6~
VAIP EXIT!
VAIP("D" RMPRPAT0+7*
VAIP(1 RMPRPAT0+10
VAIP(13 RMPRPAT0+11, RMPRPAT0+12
VAIP(2 RMPRPAT0+11
VAIP(3 RMPRPAT0+11
VAIP(4 RMPRPAT0+11
VAIP(5 RMPRPAT0+12
VAIP(7 RMPRPAT0+12
VAIP(9 RMPRPAT0+13
VASD EXIT!
>> Y DIRT
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All