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

Package: Prosthetics

Routine: RMPRPAT3


Information

RMPRPAT3 ;HINES-CIOFO/HNC,RVD - Detail Display Patient 10-2319 Transaction ;11/03/04

Source Information

Source file <RMPRPAT3.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;called from RMPRPAT2
HDR ;display heading
EXIT ;common exit point
EX1 ;back out through that point to clean up

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"TYPE OF FORM: ",$G(R19(660,RMPRDA,11,"E"))
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: ?25,"INITIATOR: ",$G(R19(660,RMPRDA,27,"E"))
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: ?55,"DATE: ",$G(R19(660,RMPRDA,1,"E"))
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: !,"DELIVER TO: ",$G(R19(660,RMPRDA,25,"E"))
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: !,"TYPE TRANS: ",$G(R19(660,RMPRDA,2,"E"))
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: ?30,"QTY: ",$G(R19(660,RMPRDA,5,"E"))
  • Line Location: PRINT+31
Function Call: WRITE
  • Prompt: ?40,"SOURCE: ",$G(R19(660,RMPRDA,12,"E"))
  • Line Location: PRINT+33
Function Call: WRITE
  • Prompt: !,"VENDOR: ",?15,$G(R19(660,RMPRDA,7,"E"))
  • Line Location: PRINT+38
Function Call: WRITE
  • Prompt: !,"DELIVERY DATE: "
  • Line Location: PRINT+44
Function Call: WRITE
  • Prompt: R19(660,RMPRDA,10,"E")
  • Line Location: PRINT+45
Function Call: WRITE
  • Prompt: ?40,"SUSPENSE DATE: "
  • Line Location: PRINT+46
Function Call: WRITE
  • Prompt: R19(660,RMPRDA,8.1,"E")
  • Line Location: PRINT+46
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+47
Function Call: WRITE
  • Prompt: "$"_$J(R19(660,RMPRDA,14,"E"),2)
  • Line Location: PRINT+50
Function Call: WRITE
  • Prompt: $S($G(R19(660,RMPRDA,6,"E"))'="":"$"_$J(R19(660,RMPRDA,6,"E"),2),$G(R19(660,RMPRDA,48,"E"))'="":"$"_$J(R19(660,RMPRDA,48,"E"),2),1:"")
  • Line Location: PRINT+51
Function Call: WRITE
  • Prompt: ?30,"OBL: ",$G(R19(660,RMPRDA,23,"E"))
  • Line Location: PRINT+52
Function Call: WRITE
  • Prompt: !,"REMARKS: ",?15,$G(R19(660,RMPRDA,16,"E"))
  • Line Location: PRINT+70
Function Call: WRITE
  • Prompt: ?40,"RETURN STATUS: ",R19(660,RMPRDA,17.5,"E")
  • Line Location: PRINT+71
Function Call: WRITE
  • Prompt: !,"DISABILITY SERVED: ",$G(R19(660,RMPRDA,62,"E"))
  • Line Location: PRINT+91
Function Call: WRITE
  • Prompt: !,"ITEM DESCRIPTION: ",$G(R19(660,RMPRDA,89,"E"))
  • Line Location: PRINT+94
Function Call: WRITE
  • Prompt: !,"*** See Above For Original Item Description ***"
  • Line Location: PRINT+96
Function Call: WRITE
  • Prompt: !,"APPLIANCE: ",$G(R19(660,RMPRDA,4,"E"))
  • Line Location: PRINT+97
Function Call: WRITE
  • Prompt: !,"CONTRACT #: ",$G(R19(660,RMPRDA,38.7,"E"))
  • Line Location: PRINT+98
Function Call: WRITE
  • Prompt: !,"EXCLUDED/WAIVER: ",$G(R19(660,RMPRDA,38.1,"E"))
  • Line Location: PRINT+99
Function Call: WRITE
  • Prompt: !,"PSAS HCPCS: ",$G(R19(660,RMPRDA,4.5,"E"))
  • Line Location: PRINT+100
Function Call: WRITE
  • Prompt: ?22,$P($G(^RMPR(661.1,$P(^RMPR(660,RMPRDA,1),U,4),0)),U,2)
  • Line Location: PRINT+101
Function Call: WRITE
  • Prompt: !,RMPRACS_"Message: "_$P(RMPRICD,U,2)
  • Line Location: PRINT+133
Function Call: WRITE
  • Prompt: !,RMPRTXT(RMPRCNT)
  • Line Location: PRINT+153
Function Call: WRITE
  • Prompt: !,"CPT MODIFIER: ",$G(R19(660,RMPRDA,4.7,"E"))
  • Line Location: PRINT+158
Function Call: WRITE
  • Prompt: !,"DESCRIPTION: ",DESCRPT
  • Line Location: PRINT+161
Function Call: WRITE
  • Prompt: !,"EXTENDED DESCRIPTION: ",!
  • Line Location: PRINT+162
Function Call: WRITE
  • Prompt: !,"EXTENDED DESCRIPTION: ",!
  • Line Location: PRINT+167
Function Call: WRITE
  • Prompt: !!,"*** Return For DETAIL REPORT ***"
  • Line Location: PRINT+170
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+170
Function Call: WRITE
  • Prompt: @IOF,RMPRNAM,?30," SSN: "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: $E(RMPRSSN,1,3)_"-"_$E(RMPRSSN,4,5)_"-"_$E(RMPRSSN,6,10),?50
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: $G(R19(660,RMPRDA,8,"E")),?70,"DOB: "
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $S(RMPRDOB:$E(RMPRDOB,4,5)_"-"_$E(RMPRDOB,6,7)_"-"_(1700+$E(RMPRDOB,1,3)),1:"Unknown")
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?20,"APPLIANCE/REPAIR LINE ITEM DETAIL ",?70,"<4-",ANS,">",!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EX1+1
Info |  Source |  Entry Points |  Interaction Calls