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: SCRPW76

Package: Scheduling

Routine: SCRPW76


Information

SCRPW76 ;BP-OIFO/KEITH,ESW - Clinic appointment availability extract (cont.) ; 5/28/03 4:02pm

Source Information

Source file <SCRPW76.m>

Entry Points

Name Comments DBIA/ICR reference
HINI ;Initialize header variables
HDR(SDTY,SDREPORT,SDIV,SDCP,SC) ;Print header
HDRX(SDTY) ;Extra header lines
SUBT(SDTY,SDREPORT) ;Print subtitles
SUBT1
SUBT2
SUBT3
SUBT4
SUBT5
HDRXM(SDREPORT)
SUBTXM(SDTY,SDREPORT) ;Create message header subtitles
STXM1
STXM2
STXM3
STXM4
STOP ;Check for stop task request
XMTX(SDX) ;Set mail message text line

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: SDLINE,!?(SDIOM-$L(SDTITL)\2),SDTITL
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !?(SDIOM-$L(SDX)\2),SDX
  • Line Location: HDR+26
Function Call: WRITE
  • Prompt: !?(SDIOM-$L(SDTIT(SDI))\2),SDTIT(SDI)
  • Line Location: HDR+28
Function Call: WRITE
  • Prompt: !?(SDIOM-$L(SDTIT(SD))\2),SDTIT(SD)
  • Line Location: HDR+30
Function Call: WRITE
  • Prompt: !,SDLINE
  • Line Location: HDR+32
Function Call: WRITE
  • Prompt: !,"For clinic availability dates ",SDPBDT," through ",SDPEDT
  • Line Location: HDR+33
Function Call: WRITE
  • Prompt: !,"Date printed: ",SDPNOW,?(IOM-6-$L(SDPAGE)),"Page: ",SDPAGE
  • Line Location: HDR+34
Function Call: WRITE
  • Prompt: !,SDLINE
  • Line Location: HDR+35
Function Call: WRITE
  • Prompt: !?(SDCOL+44),"Ava.",?(SDCOL+51),"Pct."
  • Line Location: SUBT1+1
Function Call: WRITE
  • Prompt: ?(SDCOL+63+(14*SDI)),"--Type '",SDI,"'---"
  • Line Location: SUBT1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SUBT1+5
Function Call: WRITE
  • Prompt: ?(SDCOL),"Credit Pair"
  • Condition for execution: SDTY>1
  • Line Location: SUBT1+5
Function Call: WRITE
  • Prompt: ?(SDCOL+35),"Clinic",?(SDCOL+43),"Appt.",?(SDCOL+50),"Slots"
  • Line Location: SUBT1+6
Function Call: WRITE
  • Prompt: ?(SDCOL+65+(14*SDI)),"Sch. Wait"
  • Line Location: SUBT1+9
Function Call: WRITE
  • Prompt: !?(SDCOL+4),$S(SDTY=1:"Availability Date",1:"Clinic Name")
  • Line Location: SUBT1+11
Function Call: WRITE
  • Prompt: ?(SDCOL+33),"Capacity",?(SDCOL+43),"Slots",?(SDCOL+51),"Ava."
  • Line Location: SUBT1+12
Function Call: WRITE
  • Prompt: ?(SDCOL+64+(14*SDI)),"Appts Time"
  • Line Location: SUBT1+15
Function Call: WRITE
  • Prompt: !?(SDCOL),$E(SDLINE,1,($S(SDPAST:132,1:58)))
  • Line Location: SUBT1+17
Function Call: WRITE
  • Prompt: !?48,"Next",?54,$E(SDLINE,1,24),"Non-next Available Appointments",$E(SDLINE,1,23)
  • Line Location: SUBT2+1
Function Call: WRITE
  • Prompt: !?40,"Next Ava. 0-1 0-1 2-7 2-7 8-30 8-30 31-60 31-60 >60 >60"
  • Line Location: SUBT2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SUBT2+3
Function Call: WRITE
  • Prompt: "Credit Pair"
  • Condition for execution: SDTY>1
  • Line Location: SUBT2+3
Function Call: WRITE
  • Prompt: ?40,"Ava. Wait"
  • Line Location: SUBT2+3
Function Call: WRITE
  • Prompt: ?(SDI),"Days Wait"
  • Line Location: SUBT2+4
Function Call: WRITE
  • Prompt: !?4,$S(SDTY=1:"Availability Date",1:"Clinic Name")
  • Line Location: SUBT2+5
Function Call: WRITE
  • Prompt: ?(SDI),"Appts Time"
  • Line Location: SUBT2+6
Function Call: WRITE
  • Prompt: !,SDLINE
  • Line Location: SUBT2+7
Function Call: WRITE
  • Prompt: !?38,"Next",?43,$E(SDLINE,1,29),"Non-next Available Appointments",$E(SDLINE,1,29)
  • Line Location: SUBT3+1
Function Call: WRITE
  • Prompt: !?32,"Next Ava. 0-1 0-1 0-1 2-7 2-7 2-7 8-30 8-30 8-30 31-60 31-60 31-60 >60 >60 >60"
  • Line Location: SUBT3+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SUBT3+3
Function Call: WRITE
  • Prompt: "Credit Pair"
  • Condition for execution: SDTY>1
  • Line Location: SUBT3+3
Function Call: WRITE
  • Prompt: ?32,"Ava. Wait"
  • Line Location: SUBT3+3
Function Call: WRITE
  • Prompt: ?(SDI),"Days Wait Wait"
  • Line Location: SUBT3+4
Function Call: WRITE
  • Prompt: !?4,$S(SDTY=1:"Availability Date",1:"Clinic Name"),?31,"Appts Time1"
  • Line Location: SUBT3+5
Function Call: WRITE
  • Prompt: ?(SDI),"Appts Time1 Time2"
  • Line Location: SUBT3+6
Function Call: WRITE
  • Prompt: !,SDLINE
  • Line Location: SUBT3+7
Function Call: WRITE
  • Prompt: !?96,"Next",!,"Date",?96,"Ava. Date Wait Wait"
  • Line Location: SUBT4+0
Function Call: WRITE
  • Prompt: !,"Scheduled Patient Name SSN Appointment Date Scheduling Request Type Ind. Desired F/U Time1 Time2"
  • Line Location: SUBT4+1
Function Call: WRITE
  • Prompt: !,SDLINE
  • Line Location: SUBT4+2
Function Call: WRITE
  • Prompt: !?11,"SCHEDULING",?63,"TIME",!,"DATE",?11,"REQUEST",?31,"DATE",?58,"WAIT",?63,"TO",?68,"APPT",?96,"APPT",?102,"COMPLETION"
  • Line Location: SUBT5+0
Function Call: WRITE
  • Prompt: !,"SCHEDULED",?11,"TYPE",?31,"DESIRED",?42,"APPT DATE/TIME",?58,"TIME",?63,"APPT",?68,"TYPE",?73,"F/U",?79,"REBOOK DATE",?96,"STAT",?102,"DATE",?113,"SCHEDULER"
  • Line Location: SUBT5+1
Function Call: WRITE
  • Prompt: !,SDLINE
  • Line Location: SUBT5+2
Info |  Source |  Entry Points |  Interaction Calls