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

Package: Scheduling

Routine: SCRPW57


Information

SCRPW57 ;RENO/KEITH - Most Frequent 50 ICD Diagnosis Codes (OP7) or (IP7) ;5/6/03 1:18pm

Source Information

Source file <SCRPW57.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
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+14
Function Call: WRITE
  • Prompt: !,$J(SDII,3),?6,$E(^UTILITY($J,"W",DIWL,SDL2,0),1,38)
  • Line Location: PLINE+6
Function Call: WRITE
  • Prompt: !,?6,$E(^UTILITY($J,"W",DIWL,SDL2,0),1,38)
  • Line Location: PLINE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PLINE+8
Function Call: WRITE
  • Prompt: ?46,$E(SDPTN,1,38)
  • Line Location: PLINE+13
Function Call: WRITE
  • Prompt: ?(86+(12*(SDIII-1))),$J($P(SDPTV,U,SDIII),10,0)
  • Line Location: PLINE+14
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: !?87,"Prim. Dx.",?103,"Total",?111,"Prim. Dx.",?127,"Total",!,"Rank ICD Diagnosis code",?48,"Provider Type",?89,"Uniques",?101,"Uniques",?110,"Encounters",?122,"Encounters"
  • Line Location: HD1+1
Function Call: WRITE
  • Prompt: !,"----",?6,$E(SDLINE,1,38),?46,$E(SDLINE,1,38)
  • Line Location: HD1+2
Function Call: WRITE
  • Prompt: ?(86+(12*SDI)),$E(SDLINE,1,10)
  • Line Location: HD1+2
Info |  Source |  Entry Points |  Interaction Calls