Routine: RTP5

Information

RTP5 ;MJK/TROY ISC;Clinic Pull List for Other Institution; ; 5/7/87 12:36 PM ;

Source file <RTP5.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,*7,"...this application only has one institution defined." Line Location: RTP5+2
Function Call: WRITE	Prompt: ! Line Location: RTDT+1
Function Call: WRITE	Prompt: !!?5,"[",$S(RTLIST1="S":"SEND",1:"RECEIVE")," these records ",$S(RTLIST1="S":"to",1:"from")," '",$S($D(^DIC(4,RTDIVZ,0)):$P(^(0),"^"),1:"UNKNOWN"),"']",! Line Location: DIGIT+0
Function Call: WRITE	Prompt: !!?5,"...no records need to be '",$S(RTLIST1="S":"SENT TO",1:"RECEIVED FROM"),"' other institutions." Line Location: NOT+0
Function Call: WRITE	Prompt: @IOF,!,"Special Multi-Institution Record Pull List",$S(RTLIST1="S":" [SEND ONLY]",1:" [RECEIVE ONLY]")," - ",$P($P(RTAPL,"^"),";",2),?103,"Page : ",RTPAGE,!,"[Institution : ",$P(^DIC(4,RTDV,0),"^"),"]",?103,"Run Date: ",Y Line Location: HD+3
Function Call: WRITE	Prompt: !,"[Sorted by: Terminal Digits]" Line Location: HD+4
Function Call: WRITE	Prompt: ?97,"Requested Date: ",Y Line Location: HD+4
Function Call: WRITE	Prompt: !!?5,"Name",?27,"Type",?33,"Request#",?42,"Status",?55,"Requestor",?72,"Time",?82,"Current Location",?105,"Other Requests for Record:" Line Location: HD+5