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

Package: Scheduling

Routine: SCRPW44


Information

SCRPW44 ;RENO/KEITH - Means Test/Eligibility/Enrollment Report (cont.) ; 03 Feb 99 2:10 PM

Source Information

Source file <SCRPW44.m>

Entry Points

Name Comments DBIA/ICR reference
START ;Print report
DPRT(SDIV) ;Print a division
STOP ;Check for stop task request
HDR ;Print report header
SUMM(SDIV) ;Print summary for a division
SHDS(SDX,SDY) ;Print subheader for summary
SLP(SDI) ;Print summary line
STOT ;Print summary total
PRTD ;Print detail
PRT0 ;Print 0 sorts
PRT1 ;Print 1 sort
PRT2 ;Print 2 sorts
PRT3 ;Print 3 sorts
PRT4 ;Print 4 sorts
PRT5 ;Print 5 sorts
PRT6 ;Print 6 sorts
PRT11
PRT21
PRT31
PRT41
PRT51
PRT61
SHD(SDLEV) ;Print sort subheaders
PLINE(SDLEV) ;Print detail line
SST(SDLEV) ;Print sort subtotal
HD1 ;Print detail category
HD2 ;Print detail subheader

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?(IOM-$L(SDX)\2),SDX
  • Line Location: DPRT+4
Function Call: WRITE
  • Prompt: $$XY^SCRPW50(IOF,1,0)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?(IOM-$L(SDTIT(SDI))\2),SDTIT(SDI)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,SDLINE,!,"For date range: ",$P(SD("BDT"),U,2)," to ",$P(SD("EDT"),U,2),!,"Date printed: ",SDPNOW,?(IOM-6-$L(SDPAGE)),"Page: ",SDPAGE,!,SDLINE
  • Line Location: HDR+5
Function Call: READ
  • Prompt: M E A N S T E S T I N D I C A T O R"
  • Variable: "Means Test indicator") Q
  • Timeout: SDOUT
  • Line Location: SUMM+2
Function Call: READ
  • Prompt: E L I G I B I L I T Y"
  • Variable: "Encounter eligibility") Q
  • Timeout: SDOUT
  • Line Location: SUMM+3
Function Call: READ
  • Prompt: R E N T E N R O L L M E N T P R I O R I T Y"
  • Variable: "Enrollment priority") Q
  • Timeout: SDOUT
  • Line Location: SUMM+4
Function Call: WRITE
  • Prompt: !!?(IOM-$L(SDX)\2),SDX,!?(IOM-$L(SDX)\2),$E(SDLINE,1,$L(SDX))
  • Line Location: SHDS+2
Function Call: WRITE
  • Prompt: !?(C),SDY,?(C+40),"Encounters",?(C+59),"Visits",?(C+73),"Uniques",!?(C),$E(SDLINE,1,30),?(C+40),$E(SDLINE,1,10),?(C+55),$E(SDLINE,1,10),?(C+70),$E(SDLINE,1,10)
  • Line Location: SHDS+3
Function Call: WRITE
  • Prompt: !?(C),$E(SDLINE,1,30),?(C+40),$E(SDLINE,1,10),?(C+55),$E(SDLINE,1,10),?(C+70),$E(SDLINE,1,10),!?(C),"TOTAL:",?(C+40),$J(SDE,10,0),?(C+55),$J(SDV,10,0),?(C+70),$J(SDU,10,0)
  • Line Location: STOT+3
Function Call: WRITE
  • Prompt: !!?(IOM-$L(SDX)\2),SDX
  • Line Location: PRTD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT11+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT21+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT31+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT41+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT51+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT61+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SHD+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SHD+5
Function Call: WRITE
  • Prompt: !?(5*SDI),$P(SD("SORT",SDI),U,2),": ",@("S"_SDI)
  • Line Location: SHD+6
Function Call: WRITE
  • Prompt: !,SDPNAM,?32,$P(SDX,U),?44,$P(SDX,U,2),?67,$P(SDX,U,3),?99,$P(SDX,U,4)
  • Line Location: PLINE+2
Function Call: WRITE
  • Prompt: !?(5*SDLEV),"SUBTOTAL: ",SDT(SDLEV)," "
  • Line Location: SST+2
Function Call: WRITE
  • Prompt: "(",SDX,")"
  • Line Location: SST+2
Function Call: WRITE
  • Prompt: !?(IOM-$L(SDZ)\2),SDZ,!?(IOM-$L(SDZ)\2),$E(SDLINE,1,$L(SDZ))
  • Line Location: HD1+1
Function Call: WRITE
  • Prompt: !,"Patient:",?32,"SSN:",?44,"Means Test Indicator:",?67,"Encounter Eligibility:",?99,"Enrollment Priority:"
  • Line Location: HD2+1
Info |  Source |  Entry Points |  Interaction Calls