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

Package: Prosthetics

Routine: RMPR4LI


Information

RMPR4LI ;PHX/HNB,RVD-DISPLAY ITEMS ON PURCHASE CARD TRANSACTION ;3/1/1996

Source Information

Source file <RMPR4LI.m>

Entry Points

Name Comments DBIA/ICR reference
LI
PRT
ASK
EXIT
ENC(X,X1,X2) ;encrypt
DEC(X,X1,X2) ;decript

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,$G(RMPRSSNE)
  • Line Location: RMPR4LI+7
Function Call: WRITE
  • Prompt: ?55,"Purchase Card",!
  • Line Location: RMPR4LI+8
Function Call: WRITE
  • Prompt: ?5,$$STA^RMPRUTIL,"-",$P(^RMPR(664,RMPRA,4),U,5)
  • Line Location: RMPR4LI+9
Function Call: WRITE
  • Prompt: ?55,$$DEC($P(^RMPR(664,RMPRA,4),U,1),$P(^RMPR(664,RMPRA,0),U,9),RMPRA)
  • Line Location: RMPR4LI+10
Function Call: WRITE
  • Prompt: ?55,"encrypted"
  • Line Location: RMPR4LI+11
Function Call: WRITE
  • Prompt: !
  • Line Location: RMPR4LI+12
Function Call: WRITE
  • Prompt: !,RMPR("L")
  • Line Location: RMPR4LI+14
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: !,?5,"BANK AUTHORIZATION: ",$P(^RMPR(664,RMPRA,4),U,2)
  • Line Location: LI+18
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,"VENDOR TRACKING: ",$P($G(^RMPR(664,RMPRA,1,RMPRI,4)),U,1)
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !,?5,"PSAS HCPCS CODE: ",$P(RMPRCPT,U,1),?31,$P(RMPRCPT,U,2)
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: !,?5,"CPT MODIFIER: ",$P($G(^RMPR(664,RMPRA,1,RMPRI,4)),U,2)
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: !?5,"REMARKS: ",$P(^(0),U,8)
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: !!?5,"DELIVER TO: ",RMPRDELN
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: !!?5,"DESCRIPTION: ",$P(RMPRI1,U,2)
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: !?5,"CONTRACT #: "
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: RMPRVAL
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: !?5,"MODEL: "
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: RMPRVAL
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: !?5,"SERIAL NUMBER: "
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: RMPRSER
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: !?5,"LOT #: "
  • Line Location: PRT+17
Function Call: WRITE
  • Prompt: RMPRVAL
  • Line Location: PRT+17
Function Call: WRITE
  • Prompt: !,?5,"UNIT COST: "
  • Line Location: PRT+20
Function Call: WRITE
  • Prompt: R1,?25,"UNIT OF ISSUE: "
  • Line Location: PRT+20
Function Call: WRITE
  • Prompt: $J(R1*R2,0,2)
  • Line Location: PRT+22
Function Call: WRITE
  • Prompt: $J(R1*R2,0,2)
  • Line Location: PRT+24
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+25
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+26
Function Call: WRITE
  • Prompt: ?44,"SPECIAL CATEGORY: "
  • Line Location: PRT+27
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+28
Function Call: READ
  • Timeout: DTIME
  • Line Location: ASK+0
Info |  Source |  Entry Points |  Interaction Calls