Routine: RMPRSP

Information

RMPRSP ;HINES-IO/HNC-PRINT SUSPENSE RECORDS ;7/28/00

Source file <RMPRSP.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No Open/Pending Suspense Records",! Line Location: MAIN+20
Function Call: WRITE	Prompt: !,$$DAT1^RMPRUTL1(DATE) Line Location: DISPLAY+1
Function Call: WRITE	Prompt: ?10,$E(VADM(1),0,18) Line Location: DISPLAY+2
Function Call: WRITE	Prompt: ?28,$P($P(VADM(2),U,2),"-",3) Line Location: DISPLAY+3
Function Call: WRITE	Prompt: ?34,$$STATUS^RMPREOU(RO,4)," " Line Location: DISPLAY+4
Function Call: WRITE	Prompt: WRKDAY Line Location: DISPLAY+5
Function Call: WRITE	Prompt: ?44,$$TYPE^RMPREOU(RO,8) Line Location: DISPLAY+6
Function Call: WRITE	Prompt: ?59,$P(^DIC(4,$P(^RMPR(668,RO,0),U,7),0),U,1) Line Location: DISPLAY+7
Function Call: WRITE	Prompt: !,$$DES^RMPREOU(RO,79) Line Location: DISPLAY+8
Function Call: WRITE	Prompt: !,"**Initial Action Date: ",$$DAT1^RMPRUTL1(INIA)," (",INIDAY," Working Days)" Line Location: DISPLAY+10
Function Call: WRITE	Prompt: ! Line Location: HEADER+0
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+0
Function Call: WRITE	Prompt: !,"Prosthetics Open/Pending Suspense File List " Line Location: HEADER1+2
Function Call: WRITE	Prompt: $P(Y,":",1,2) Line Location: HEADER1+3
Function Call: WRITE	Prompt: !,"DATE",?10,"PATIENT",?28,"SSN",?34,"STATUS",?44,"TYPE",?59,"STATION",?73,"PAGE ",RMPRPAGE Line Location: HEADER1+5
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79) Line Location: HEADER1+6
Function Call: WRITE	Prompt: !,"CON'T" Line Location: HEADER1+6