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

Package: Prosthetics

Routine: RMPR4LOP


Information

RMPR4LOP ;PHX/HNB - LIST OPEN PURCHASE CARD TRANSACTIONS ;3/1/1996

Source Information

Source file <RMPR4LOP.m>

Entry Points

Name Comments DBIA/ICR reference
START
PRINT
EXIT
EX
CK ;check record, apply screen
WRI
ITE
COST
HDR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This report lists Open Purchase Card Transactions created in the"
  • Line Location: RMPR4LOP+3
Function Call: WRITE
  • Prompt: !,"Prosthetics Package."
  • Line Location: RMPR4LOP+4
Function Call: WRITE
  • Prompt: !!,"This report is sorted by Transaction Date and Initiator.",!
  • Line Location: RMPR4LOP+5
Function Call: WRITE
  • Prompt: !,"The PC # column is the abbreviated Purchase Card Transaction Number,"
  • Line Location: RMPR4LOP+6
Function Call: WRITE
  • Prompt: !,"Example: 644-PC546, would display as 546.",!!
  • Line Location: RMPR4LOP+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid Date Range Selection!!"
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !,?71,"=========",!,?65,"Total ",$J($FN(CNT,"P",2),9)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: $C(7),!!,"NO SELECTIONS MADE DURING THIS DATE RANGE!!"
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: !,"Initiator: ",INIB,!,"Patient",?14,"SSN",?19,"Purchase Card",?36,"Date",?43,"PC #",?50,"Vendor",?62,"Item",?70,"Item Cost",!,RMPR("L")
  • Line Location: WRI+0
Function Call: WRITE
  • Prompt: !,$E($P(^DPT($P(^RMPR(664,RP,0),U,2),0),U,1),1,12)
  • Line Location: WRI+1
Function Call: WRITE
  • Prompt: ?14,$E($P(^DPT($P(^RMPR(664,RP,0),U,2),0),U,9),6,9)
  • Line Location: WRI+2
Function Call: WRITE
  • Prompt: ?19
  • Line Location: WRI+3
Function Call: WRITE
  • Prompt: $$DEC^RMPR4LI($P(^RMPR(664,RP,4),U,1),$P(^RMPR(664,RP,0),U,9),RP)
  • Line Location: WRI+4
Function Call: WRITE
  • Prompt: "encrypted"
  • Line Location: WRI+5
Function Call: WRITE
  • Prompt: ?36,RD
  • Line Location: WRI+8
Function Call: WRITE
  • Prompt: "#"
  • Line Location: WRI+8
Function Call: WRITE
  • Prompt: ?43,$P(^RMPR(664,RP,4),U,5)
  • Line Location: WRI+9
Function Call: WRITE
  • Prompt: ?50
  • Line Location: WRI+10
Function Call: WRITE
  • Prompt: ?61,"*DELIVERY",?71,$J($FN($P(^RMPR(660,$P(^RMPR(664,RP,0),U,12),0),U,16),"P",2),9)
  • Line Location: ITE+0
Function Call: WRITE
  • Prompt: ?61,"*SHIPPING",?71,$J($FN($P(^RMPR(660,$P(^RMPR(664,RP,0),U,12),0),U,17),"P",2),9),!
  • Line Location: ITE+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IT>1
  • Line Location: ITE+5
Function Call: WRITE
  • Prompt: ?61,$E($P(^PRC(441,$P(^RMPR(661,$P(^RMPR(664,RP,1,IT,0),U,1),0),U,1),0),U,2),1,10)
  • Line Location: ITE+5
Function Call: WRITE
  • Prompt: ?71
  • Line Location: COST+0
Function Call: WRITE
  • Prompt: $J($FN($P(^RMPR(660,$P(^RMPR(664,RP,1,IT,0),U,13),0),U,16),"P",2),9)
  • Line Location: COST+1
Function Call: WRITE
  • Prompt: !
  • Line Location: COST+4
Function Call: WRITE
  • Prompt: !
  • Line Location: COST+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,RMPRX_"-",RMPRY," Open 2421PC Transactions "_"STA "_$$STA^RMPRUTIL,?72,"PAGE ",PAGE,!,"# = PURCHASE CARD Order CANCELLED on IFCAP SYSTEM",!
  • Line Location: HDR+2
Info |  Source |  Entry Points |  Interaction Calls