RTP311.m

RTP311 ;ALB/JLU - ;Taken from RTP31 to bring its size down.

 ;;v 2.0;Record Tracking;;10/22/91 

HD W @IOF,!,"Record Pull List",$S(RTLIST="U":" [UPDATE ONLY]",RTLIST="N":" [NOT FILLABLE REQUESTS]",1:"")," - ",$P($P(RTAPL,"^"),";",2),?103,"Page    : ",RTPAGE,!,"[Institution : ",$P(^DIC(4,RTDV,0),"^"),"]",?103,"Run Date: ",Y

 W !,"[Sorted by: "

 W $S(RTSORT="C":"Clinic and Terminal Digits",RTSORT="A":"Clinic and Appointment Time",RTSORT="H":"Home Location and Terminal Digits",RTSORT="D":"Home Location,Clinic and Terminal Digits",$D(RTTDFL):"Terminal Digits",1:"Name"),"]"

 S Y=$E(RTDT,1,12) D D^DIQ W ?97,"Requested Date: ",Y

 W !!?5,"Name",!,?6,"SSN" W:RTSORT="T" "/Home Loc." W ?27,"Type",?33,"Request#",?42,"Status",?55,"Requestor",?72,"Time",?82,"Current Location",?105,"Other Requests for Record:" D LINE^RTUTL3

 ;;;W !!?5,"Name/SSN" W ?27,"Type",?33,"Request#",?42,"Status",?55,"Requestor",?72,"Time",?82,"Current Location",?105,"Other Requests for Record:" D LINE^RTUTL3

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RTP311   993     printed  Oct 16, 2024@18:34:59                                                                                                                                                                                                       Page 2

RTP311    ;ALB/JLU - ;Taken from RTP31 to bring its size down.

 +1       ;;v 2.0;Record Tracking;;10/22/91 

HD         WRITE @IOF,!,"Record Pull List",$SELECT(RTLIST="U":" [UPDATE ONLY]",RTLIST="N":" [NOT FILLABLE REQUESTS]",1:"")," - ",$PIECE($PIECE(RTAPL,"^"),";",2),?103,"Page    : ",RTPAGE,!,"[Institution : ",$PIECE(^DIC(4,RTDV,0),"^"),"]",?103,"Run Date: ",

Y

 +1        WRITE !,"[Sorted by: "

 +2        WRITE $SELECT(RTSORT="C":"Clinic and Terminal Digits",RTSORT="A":"Clinic and Appointment Time",RTSORT="H":"Home Location and Terminal Digits",RTSORT="D":"Home Location,Clinic and Terminal Digits",$DATA(RTTDFL):"Terminal Digits",1:"Name"),"]"

 +3        SET Y=$EXTRACT(RTDT,1,12)

           DO D^DIQ

           WRITE ?97,"Requested Date: ",Y

 +4        WRITE !!?5,"Name",!,?6,"SSN"

           if RTSORT="T"

               WRITE "/Home Loc."

           WRITE ?27,"Type",?33,"Request#",?42,"Status",?55,"Requestor",?72,"Time",?82,"Current Location",?105,"Other Requests for Record:"

           DO LINE^RTUTL3

 +5       ;;;W !!?5,"Name/SSN" W ?27,"Type",?33,"Request#",?42,"Status",?55,"Requestor",?72,"Time",?82,"Current Location",?105,"Other Requests for Record:" D LINE^RTUTL3

 +6        QUIT