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

Package: Scheduling

Routine: SCRPW51


Information

SCRPW51 ;RENO/KEITH - Encounters by DSS Identifier/DSS ID by Frequency (OP0, OP1, OP2) ; 15 Jul 98 02:38PM

Source Information

Source file <SCRPW51.m>

Entry Points

Name Comments DBIA/ICR reference
START ;Print report
EXIT
SUB0
SUBT
DPRT(SDIV) ;Print division
PLINE ;Print output line
MO() ;Determine FY month
HDR ;Print header
HD1 ;Print subheader
DLIST ;Create alphabetic list of divisions found
VALID() ;Check encounter record
DIV() ;Check division
STOP ;Check for stop task request
SET(SDIV) ;Set division lists
SET1(SDC,SDPS) ;Set TMP global

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?(IOM-$L(SDX)\2),SDX
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DPRT+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: DPRT+5
Function Call: WRITE
  • Prompt: !,"TOTAL:"
  • Line Location: DPRT+6
Function Call: WRITE
  • Prompt: ?(9+(9*SDYMO)),$J(SDRTOT(SDYMO),7,0)
  • Line Location: DPRT+6
Function Call: WRITE
  • Prompt: ?117,$J(SDGTOT,15,0)
  • Line Location: DPRT+7
Function Call: WRITE
  • Prompt: !?2,SDSC
  • Line Location: PLINE+4
Function Call: WRITE
  • Prompt: ?(9+(9*SDYMO)),$J(SDCT,7,0)
  • Line Location: PLINE+5
Function Call: WRITE
  • Prompt: ?117,$J(SDTCT,15,0)
  • Line Location: PLINE+6
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: !,"DSS ID",?9
  • Line Location: HD1+1
Function Call: WRITE
  • Prompt: ?122,"FYTD TOTAL",!,"-------"
  • Line Location: HD1+3
Function Call: WRITE
  • Prompt: ?(9+(9*SDM1)),"-------"
  • Line Location: HD1+3
Function Call: WRITE
  • Prompt: ?117,"---------------"
  • Line Location: HD1+4
Info |  Source |  Entry Points |  Interaction Calls