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

Package: Prosthetics

Routine: RMPRELG2


Information

RMPRELG2 ;Hines IOFO/RFM,DDA - DISPLAY ELIGIBILITY SECOND PAGE ;3/26/07 07:39

Source Information

Source file <RMPRELG2.m>

Entry Points

Name Comments DBIA/ICR reference
CLI
WRI
APP
VIEW
WRI2
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPRELG2+6
Function Call: WRITE
  • Prompt: $E(RMPRNAM,1,20),?23,"SSN: ",$P(VADM(2),U,2),?42,"DOB: ",$P(VADM(3),U,2),?61,"CLAIM# ",RMPRCNUM
  • Line Location: RMPRELG2+7
Function Call: WRITE
  • Prompt: !!?20,"Last Movement Actions",!
  • Line Location: RMPRELG2+8
Function Call: WRITE
  • Prompt: !?5,"No Movements Recorded for this Patient",!!
  • Line Location: RMPRELG2+8
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: RMPRELG2+9
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: RMPRELG2+10
Function Call: WRITE
  • Prompt: !,"Diagnosis: ",$E(VAIP(9),1,28),?40,"Diagnosis: ",$E(VAIP(9),1,28)
  • Line Location: RMPRELG2+11
Function Call: WRITE
  • Prompt: !!?5,"No Clinic Enrollments for this Patient"
  • Line Location: CLI+0
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+0
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: !,$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: WRI2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+0
Info |  Source |  Entry Points |  Interaction Calls