Routine: RTP31

Information

RTP31 ;MJK/TROY ISC,JLU/TROY ISC;Clinic Pull List; ; 5/7/87 12:22 PM ;

Source file <RTP31.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"No lists needed to be produced." Line Location: RTP31+2
Function Call: WRITE	Prompt: !! Line Location: Q+0
Function Call: WRITE	Prompt: ! Line Location: PRT+13
Function Call: WRITE	Prompt: ?27,RTYPE Condition for execution: (RTLNME'=RTCNME)!(RTCUR=1) $E(RTCNME,1,20) W:(RTL'=RT)!(RTCUR=1) Line Location: PRT+13
Function Call: WRITE	Prompt: ?33,$J(RTQ,8),?42,$E(RTQST,1,12),?55,$E(RTQNME,1,15),?72,RTQTIME,?82,$E(RTCLOC,1,18),! Line Location: PRT+13
Function Call: WRITE	Prompt: ?10,"/",RTHLOC Line Location: PRT+14
Function Call: WRITE	Prompt: ?105,$E(Y,1,20),?127,$E(X,1,2)_":"_$E(X,3,4) Line Location: PRT0+0
Function Call: WRITE	Prompt: $S($P(RTQ0,"^",6)="x":"[* CANCELLED *]",1:""),?67,$S(RTWARD]"":"[Current Ward: "_RTWARD_"]",RTDED]"":"[Deceased: "_RTDED_"]",1:"") Line Location: PRTCHK+1
Function Call: WRITE	Prompt: !?5,"[Record Request Pull List, # ",RTJCOM,", for ",RTPNME,$S(RTLIST="U":" * UPDATE ONLY ",RTLIST="N":" REQUESTS NOT FILLABLE ONLY *",1:""),"]" Line Location: HDPULL+2
Function Call: WRITE	Prompt: " [Pull List Status: ",Y,"]" Line Location: HDPULL+3
Function Call: WRITE	Prompt: !!?5,"COMMENT: " Line Location: COM+0
Function Call: WRITE	Prompt: !,?5,"[Home location: ",RTHLN,"]",! Line Location: HCL+3