source: WorldVistAEHR/trunk/r/RECORD_TRACKING-RT/RTP311.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 984 bytes
Line 
1RTP311 ;ALB/JLU - ;Taken from RTP31 to bring its size down.
2 ;;v 2.0;Record Tracking;;10/22/91
3HD 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
4 W !,"[Sorted by: "
5 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"),"]"
6 S Y=$E(RTDT,1,12) D D^DIQ W ?97,"Requested Date: ",Y
7 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
8 ;;;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
9 Q
Note: See TracBrowser for help on using the repository browser.