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

Package: Prosthetics

Routine: RMPRSP1


Information

RMPRSP1 ;PHX/RFM/HPL/HNC-PRINT 5 DAY OLD SUSPENSE RECORDS ;8/29/1994

Source Information

Source file <RMPRSP1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT
C
CK
WRI ;
EXIT1 ;common exit
WRI2
WRI3 ;
HEADER ;
HEADER1 ;
EXT ;display only the first line of description
PEXT ;
FORM ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,Y,?25,"OVER 5 DAY OLD SUSPENSE REPORT"
  • Line Location: WRI+8
Function Call: WRITE
  • Prompt: !!,"No open suspense records over 5 days!"
  • Line Location: WRI+9
Function Call: WRITE
  • Prompt: !
  • Line Location: WRI+12
Function Call: WRITE
  • Prompt: "-"
  • Line Location: WRI+12
Function Call: WRITE
  • Prompt: !,"PSC",?5,"2421",?11,"2237",?17,"2529-3",?25,"2529-7",?33,"2474",?39,"2431",?45,"2914",?51,"OTHER",?58,"2520",?64,"STK ISU",?74,"TOTAL"
  • Line Location: WRI+13
Function Call: WRITE
  • Prompt: !,$J(FOT(1),3),?5,$J(FOT(2),4),?11,$J(FOT(3),4),?17,$J(FOT(4),6),?25,$J(FOT(5),6),?33,$J(FOT(6),4),?39,$J(FOT(7),4),?45,$J(FOT(8),4),?51,$J(FOT(9),5),?58,$J(FOT(10),4),?64,$J(FOT(11),7)
  • Line Location: WRI+14
Function Call: WRITE
  • Prompt: ?74,$J(TOT,5)
  • Line Location: WRI+17
Function Call: WRITE
  • Prompt: !
  • Line Location: WRI+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI2+2
Function Call: WRITE
  • Prompt: !,DAT1,?13,$E($P(^DPT($P(^RMPR(668,RZ,0),U,2),0),U),1,20),?35,$E($P(^(0),U,9),6,9)
  • Line Location: WRI3+3
Function Call: WRITE
  • Prompt: ?59,$S($D(^VA(200,+$P(^RMPR(668,RZ,0),U,4),0)):$E($P(^VA(200,$P(^RMPR(668,RZ,0),U,4),0),U),1,19),1:"NO NAME AVAILABLE")
  • Line Location: WRI3+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,?23,"DELINQUENT OPEN SUSPENSE REPORT",?70,"STA ",$$STA^RMPRUTIL,!,?2,"DATE",?18,"PATIENT",?35,"SSN",?41,"FORM",?59,"SUSPENDED BY",?73,"PAGE ",RMPRPAGE,!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: !,"CON'T"
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PEXT+2
Function Call: WRITE
  • Prompt: ?41,$S(FO=1:"PSC",FO=2:"2421",FO=3:"2237",FO=4:"2529-3",FO=5:"2529-7",FO=6:"2474",FO=7:"2431",FO=8:"2914",FO=9:"OTHER",FO=10:"2520",FO=11:"STOCK ISSUE",1:"UNK")
  • Line Location: FORM+2
Info |  Source |  Entry Points |  Interaction Calls