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

Entry Points

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

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