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

Package: Prosthetics

Routine: RMPR4C1


Information

RMPR4C1 ;PHX/HNB,RVD - PURCHASE CARD SUMMARY SHEET ;3/1/1996

Source Information

Source file <RMPR4C1.m>

Entry Points

Name Comments DBIA/ICR reference
START
PCRD ;ask purchase card number
PRINT
EXIT
EX
CK ;check record, apply screen
WRI
HDR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Prosthetics Purchase Card Summary Sheet"
  • Line Location: RMPR4C1+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: RMPR4C1+4
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: !,$C(7),$C(7),"Try Later!"
  • Line Location: PCRD+4
Function Call: WRITE
  • Prompt: !,"Must be 16 a Digit Number."
  • Line Location: PCRD+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: $C(7),!!,"NO SELECTIONS MADE DURING THIS DATE RANGE!!"
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+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,RD,?26,$P($G(^RMPR(664,RP,4)),U,5)
  • Line Location: WRI+6
Function Call: WRITE
  • Prompt: ?36,$J(AACNT,9,2)
  • Line Location: WRI+25
Function Call: WRITE
  • Prompt: ?48,$J(RMAMEN,7,2)
  • Line Location: WRI+26
Function Call: WRITE
  • Prompt: ?57,$J(CLCNT,9,2)
  • Line Location: WRI+27
Function Call: WRITE
  • Prompt: ?69,$J(CNT,9,2)_RMAST
  • Line Location: WRI+28
Function Call: WRITE
  • Prompt: !
  • Line Location: WRI+30
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,RMPRX_"-",RMPRY," "_RMPRPCRD_" Summary "_"STA "_$$STA^RMPRUTIL,?72,"PAGE ",PAGE,!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"Patient",?14,"SSN",?19,"Date",?26,"PC #",?37,"Auth Amt",?48,"Adj Amt",?59,"Liq Amt",?71,"Cum Amt",!,RMPR("L")
  • Line Location: HDR+2
Info |  Source |  Entry Points |  Interaction Calls