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

Package: Scheduling

Routine: SCRPW59


Information

SCRPW59 ;RENO/KEITH - Visits and Unique SSNs by County (OP9) or (IP9) ; 15 Jul 98 02:38PM

Source Information

Source file <SCRPW59.m>

Entry Points

Name Comments DBIA/ICR reference
START ;Print report
EXIT
DPRT(SDV) ;Print division
PLINE ;Print output line
HDR ;Print header
HD1 ;Print subheader
DLIST ;Create alphabetic list of divisions found
SUBT ;Count uniques and visits
VALID() ;Check encounter record
DIV() ;Check division
STOP ;Check for stop task request
SET(SDIV) ;Set division lists

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?(IOM-$L(SDX)\2),SDX
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !?(C),$E($P(SDX," / ",2),1,22),?(C+24),$E($P(SDX," / "),1,20)
  • Line Location: PLINE+2
Function Call: WRITE
  • Prompt: ?(C+46+(12*SDI)),$J($P(SDY,U,(SDI+1)),10,0)
  • Line Location: PLINE+2
Function Call: WRITE
  • Prompt: !?(IOM-$L(SDTIT(SDI))\2),SDTIT(SDI)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,SDLINE,!,"For Fiscal Year activity through ",SD("PEDT"),!,"Date printed: ",SDPNOW,?(IOM-6-$L(SDPAGE)),"Page: ",SDPAGE,!,SDLINE
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?(C),"County",?(C+24),"State",?(C+50),"Visits",?(C+58),"Encounters",?(C+73),"Uniques",!?(C),$E(SDLINE,1,22),?(C+24),$E(SDLINE,1,20),?(C+46),$E(SDLINE,1,10),?(C+58),$E(SDLINE,1,10),?(C+70),$E(SDLINE,1,10)
  • Line Location: HD1+1
Info |  Source |  Entry Points |  Interaction Calls