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

Package: Prosthetics

Routine: RMPRSP3


Information

RMPRSP3 ;HINES/HNC; - Print Pending Suspense Records File 668 ;5-5-00

Source Information

Source file <RMPRSP3.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;PRINT PENDING SUSPENSE
PRINT
ALL ;main sort logic
CK1 ;screen records
WRI
EXIT
WRI2
HEADER
HEADER1
TYPE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No Open/Pending Suspense Records",!
  • Line Location: WRI+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI2+2
Function Call: WRITE
  • Prompt: !,$$DAT1^RMPRUTL1(RP)
  • Line Location: WRI2+4
Function Call: WRITE
  • Prompt: ?10,$$STATUS^RMPREOU(RZ,4)
  • Line Location: WRI2+5
Function Call: WRITE
  • Prompt: " ",WRKDAY
  • Line Location: WRI2+6
Function Call: WRITE
  • Prompt: ?24,$E($P(^DPT($P(^RMPR(668,RZ,0),U,2),0),U),1,20),?42,$E($P(^(0),U,9),6,9)
  • Line Location: WRI2+7
Function Call: WRITE
  • Prompt: ?61,$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: WRI2+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+0
Function Call: WRITE
  • Prompt: !,"Prosthetics Open/Pending Summary Suspense List "
  • Line Location: HEADER1+1
Function Call: WRITE
  • Prompt: $P(Y,":",1,2)
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: ?70,"STA ",$$STA^RMPRUTIL,!,"DATE",?10,"STATUS",?24,"PATIENT"
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: ?42,"SSN",?48,"TYPE",?61,"SUSPENDED BY",?73,"PAGE ",RMPRPAGE
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79),!
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: !,"CON'T"
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: ?48,$S(FO=1:"ROUTINE",FO=2:"EYEGLASS",FO=3:"CONTACT LENS",FO=4:"OXYGEN",FO=5:"MANUAL",1:"")
  • Line Location: TYPE+0
Info |  Source |  Entry Points |  Interaction Calls