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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RMPR29W

Package: Prosthetics

Routine: RMPR29W


Information

RMPR29W ;PHX/JLT/HNB-DISPLAY JOB RECORD HDR AND ITEM [ 11/04/94 10:07 AM ]

Source Information

Source file <RMPR29W.m>

Entry Points

Name Comments DBIA/ICR reference
GET(PRDA) ;INFOR FOR JOB SECTION
EXIT ;common exit
HDR(PRDA) ;DISPLAY JOB RECORD HEADER
WP ;use DIWP to print REMARKS word processing field
HD ;print header
HDC ;print header of mult. page
HELP ;DISPLAY HELP FOR SCREENS
DIS(RMPRDFN,PDA) ;GET DISABILITY CODES PASS RMPRDFN AND PDA
LK ;do a lookup on 2529-3 record patient/disability code
DSP ;DISPLAY DISABILITY CODES

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,?31,"JOB RECORD SECTION",?65,"PAGE:"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?72,PAGE,!,?19,"(To be completed by VA Shop or Clinic only)"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"VETERAN",?25,"CLAIM #",?37,"WARD",?52,"SSN"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?64,"WORK ORDER #",!,RMPR("L")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"|"_^UTILITY("DIQ1",$J,664.1,PRDA,.02)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: ?24,"|"_$P($G(VAEL(7)),U),?36,"|"_^UTILITY("DIQ1",$J,664.1,PRDA,12)
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: ?51,"|"_$P(VADM(2),U)
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: ?64,"|"_^UTILITY("DIQ1",$J,664.1,PRDA,4),!,RMPR("L")
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,"|DATE ASSIGNED:",?16,^UTILITY("DIQ1",$J,664.1,PRDA,19)
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: ?36,"|ASSIGNED TO: ",^UTILITY("DIQ1",$J,664.1,PRDA,15),!,RMPR("L")
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,"|PHYSICIAN:",?16,^(12.1),?42,"|DIAGNOSIS:",?57,^(12.2),!,?0,"|TREATING SPEC:",?16,^(12.3),?42,"|EXT:",?57,^(12.4),!,RMPR("L")
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: ?10,"REQUEST AND RECEIPT FOR PROSTHETIC APPLIANCES OR SERVICES"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: ?70,"PAGE:",?77,PAGE,!,?34,"(Section I)"
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"VETERAN",?25,"WORK ORDER #",?44,"VENDOR",?60,"REQUESTOR"
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !,"|"_$E(^UTILITY("DIQ1",$J,664.1,RMPRDA,.02),1,20)
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: ?24,"|"_^UTILITY("DIQ1",$J,664.1,RMPRDA,4)
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: ?43,"|"_$E(^UTILITY("DIQ1",$J,664.1,RMPRDA,2),1,15),?59,"|"_$E(^(13),1,20)
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !,"|ORDERING STATION: ",?25,^UTILITY("DIQ1",$J,664.1,RMPRDA,.04)
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !,RMPR("L"),!,"|AUTHORITY: CFR 17.115",?42,"|DATE REQUIRED:"
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: ?57,^UTILITY("DIQ1",$J,664.1,RMPRDA,.09)
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: !,RMPR("L"),!,"|ASSIGNED TO:"
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: ?16,^UTILITY("DIQ1",$J,664.1,RMPRDA,15),?42,"|DATE ASSIGNED:"
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: ?57,^UTILITY("DIQ1",$J,664.1,RMPRDA,19),!,RMPR("L")
  • Line Location: HD+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDC+1
Function Call: WRITE
  • Prompt: ?10,"REQUEST AND RECEIPT FOR PROSTHETIC APPLIANCES OR SERVICES"
  • Line Location: HDC+2
Function Call: WRITE
  • Prompt: ?70,"PAGE:",?77,PAGE,!,?34,"(Section I)"
  • Line Location: HDC+3
Function Call: WRITE
  • Prompt: !,"VETERAN",?44,"VENDOR",?60,"REQUESTOR"
  • Line Location: HDC+4
Function Call: WRITE
  • Prompt: !,"|"_$E(^UTILITY("DIQ1",$J,664.1,RMPRDA,.02),1,20)
  • Line Location: HDC+5
Function Call: WRITE
  • Prompt: ?43,"|"_$E(^UTILITY("DIQ1",$J,664.1,RMPRDA,2),1,15)
  • Line Location: HDC+6
Function Call: WRITE
  • Prompt: ?59,"|"_$E(^UTILITY("DIQ1",$J,664.1,RMPRDA,13),1,20),!,RMPR("L")
  • Line Location: HDC+7
Function Call: WRITE
  • Prompt: !,"|TO: "_$E(^UTILITY("DIQ1",$J,664.1,RMPRDA,.11),1,30)
  • Line Location: HDC+8
Function Call: WRITE
  • Prompt: ?42,"ORDERING STATION: "_$E(^UTILITY("DIQ1",$J,664.1,RMPRDA,.04),1,20),RMPR("L")
  • Line Location: HDC+9
Function Call: WRITE
  • Prompt: !,"|AUTHORITY: CFR 17.115",?42,"|DATE REQUIRED:",?57,^(.09)
  • Line Location: HDC+10
Function Call: WRITE
  • Prompt: !,RMPR("L")
  • Line Location: HDC+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: RMPR90I=4
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: "("_$P($P(RMPR90DP,";",RMPR90I),":",1)_") "_$P($P(RMPR90DP,";",RMPR90I),":",2)_" "
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !,?5,$P($G(^RMPR(662,+RT,0)),U),?15,$S($P(RT,U,2)=1:"SC ",1:"NSC ")
  • Line Location: DSP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DSP+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: DSP+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(664.1 - [#664.1] Classic Fileman Calls
^RMPR(664.2 - [#664.2] Classic Fileman Calls
^RMPR(664.3 - [#664.3] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call