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

Package: Prosthetics

Routine: RMPRLI


Information

RMPRLI ;PHX/HNB,RVD-DISPLAY ITEMS ON 1358 TRANSACTION ;10/19/1993

Source Information

Source file <RMPRLI.m>

Entry Points

Name Comments DBIA/ICR reference
LI
PRT
ASK
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,RMPRNAM,?35,$E(RMPRSSN,1,3)_"-"_$E(RMPRSSN,4,5)_"-"_$E(RMPRSSN,6,9),?55,RMPROB,!
  • Line Location: RMPRLI+4
Function Call: WRITE
  • Prompt: !,RMPR("L")
  • Line Location: RMPRLI+6
Function Call: WRITE
  • Prompt: !!,?25,"SUB TOTAL: ",?65,"$",$J(RBO,7,2)
  • Line Location: LI+4
Function Call: WRITE
  • Prompt: !?25,"SHIPPING CHARGE: "
  • Line Location: LI+15
Function Call: WRITE
  • Prompt: ?65,"$",$J(R2,7,2)
  • Line Location: LI+16
Function Call: WRITE
  • Prompt: !
  • Line Location: LI+16
Function Call: WRITE
  • Prompt: !,?25,"TOTAL COST: ",?65,"$",$J(R2+RBO,7,2)
  • Line Location: LI+17
Function Call: WRITE
  • Prompt: !,"NO ITEMS ON FILE"
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: !!?5,"ITEM: "
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: $S(RMPRAMIS="":"NO CODE FOR THIS ITEM",1:$P(^RMPR(663,RMPRAMIS,0),U,1))
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !,?5,"PSAS HCPCS CODE: ",$P(RMPRCPT,U,1),?29,$P(RMPRCPT,U,2)
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: !,?5,"CPT MODIFIER: ",$P($G(^RMPR(664,RMPRA,1,RMPRI,4)),U,2)
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: !?5,"REMARKS: ",$P(^(0),U,8)
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: !!?5,"DELIVER TO: ",RMPRDELN
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: !!?5,"DESCRIPTION: ",$P(RMPRI1,U,2)
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: !?5,"SERIAL NUMBER: "
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: RMPRSER
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: !,?5,"UNIT COST: "
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: R1,?25,"UNIT OF ISSUE: "
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: $J(R1*R2,0,2)
  • Line Location: PRT+17
Function Call: WRITE
  • Prompt: $J(R1*R2,0,2)
  • Line Location: PRT+19
Function Call: WRITE
  • Prompt: !?5,"TYPE: ",$S($P(RMPRI1,U,9)="X":"REPAIR",$P(RMPRI1,U,9)="I":"INITIAL",$P(RMPRI1,U,9)="R":"REPLACE",$P(RMPRI1,U,9)="S":"SPARE",$P(RMPRI1,U,9)="5":"RENTAL",1:"")
  • Line Location: PRT+20
Function Call: WRITE
  • Prompt: ?25,"CATEGORY: ",$S($P(RMPRI1,U,10)=1:"SC/OP",$P(RMPRI1,U,10)=2:"SC/IP",$P(RMPRI1,U,10)=3:"NSC/IP",$P(RMPRI1,U,10)=4:"NSC/OP",1:"")
  • Line Location: PRT+21
Function Call: WRITE
  • Prompt: ?44,"SPECIAL CATEGORY: "
  • Line Location: PRT+22
Function Call: WRITE
  • Prompt: $S($P(RMPRI1,U,11)=1:"SPEC/LEG",$P(RMPRI1,U,11)=2:"A&A",$P(RMPRI1,U,11)=3:"PHC",$P(RMPRI1,U,11)=4:"ELIGIBILITY REFORM",1:"")
  • Line Location: PRT+23
Function Call: READ
  • Timeout: DTIME
  • Line Location: ASK+0
Info |  Source |  Entry Points |  Interaction Calls