Routine: RMPRSP3

Information

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

Source file <RMPRSP3.m>

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