Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: RTP51

Package: Record Tracking

Routine: RTP51


Information

RTP51 ;MJK/TROY ISC;Clinic Pull List; ; 5/7/87 12:22 PM ;

Source Information

Source file <RTP51.m>

Entry Points

Name Comments DBIA/ICR reference
PRT
PRT0
PRTCHK
HD ;
HDPULL ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: ?27,RTYPE
  • Condition for execution: RTLNME'=RTCNME RTTD,?5,$E(RTCNME,1,20) W:RTL'=RT
  • Line Location: PRT+6
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+6
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_"]",1:"")
  • Line Location: PRTCHK+1
Function Call: WRITE
  • Prompt: @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
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"[Sorted by: ",$S(RTSORT="C":"Clinic and Terminal Digits",RTSORT="A":"Clinic and Appointment Time",$D(RTTDFL):"Terminal Digits",1:"Name"),"]"
  • 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
Function Call: WRITE
  • Prompt: !?5,"[Record Request Pull List for ",RTPNME,$S(RTLIST="U":" *** UPDATE ONLY ***",RTLIST="N":" *** REQUESTS NOT FILLABLE ONLY ***",1:""),"]"
  • Line Location: HDPULL+1
Function Call: WRITE
  • Prompt: " [Pull List Status: ",Y,"]"
  • Line Location: HDPULL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDPULL+3
Function Call: WRITE
  • Prompt: !!?5,"COMMENT: "
  • Line Location: HDPULL+3
Info |  Source |  Entry Points |  Interaction Calls