Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SCRPW57

Package: Scheduling

Routine: SCRPW57


Information

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

Source Information

Source file <SCRPW57.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Scheduling 4 DISP0^SCRPW23  STOP^SCRPW40  ($$XY,PROV,RQUE)^SCRPW50  ($$GETOE,GETDX)^SDOE  
Kernel 2 $$S^%ZTLOAD  $$CODE2TXT^XUA4A72  
VA Fileman 2 NOW^%DTC  ^DIR  
DRG Grouper 1 $$ICDDX^ICDCODE  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC START+13
$$S^%ZTLOAD STOP+1
^DIR EXIT, HDR+1
$$ICDDX^ICDCODE PLINE+3
DISP0^SCRPW23 START+13
STOP^SCRPW40 SET+2
$$XY^SCRPW50 HDR+2
PROV^SCRPW50 SET+4
RQUE^SCRPW50 SCRPW57+3
$$GETOE^SDOE START+2
GETDX^SDOE SET+4
$$CODE2TXT^XUA4A72 PLINE+8

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(SDDIAG,1,38)
  • Line Location: PLINE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PLINE+4
Function Call: WRITE
  • Prompt: ?46,$E(SDPTN,1,38)
  • Line Location: PLINE+9
Function Call: WRITE
  • Prompt: ?(86+(12*(SDIII-1))),$J($P(SDPTV,U,SDIII),10,0)
  • Line Location: PLINE+10
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 IDC-9-DM 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
Routine Call
  • DIR
  • Line Location:
    • EXIT
    • HDR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+13
^DG(40.8 - [#40.8] DLIST+1
^SC - [#44] VALID+1
^SCE("B" START+2
^TMP("SCRPW" START+1!, START+4, START+5, START+6, START+7*, START+8*, START+11*, START+14, EXIT+1!, DPRT+6
, PLINE+5, PLINE+7, SET+6*, SET+8*, SET+9*, SET+10*

Label References

Name Line Occurrences
$$DIV VALID+2
$$VALID START+2
DLIST START+4
DPRT START+15, START+16
EXIT START+3, START+13, START+14, START+15, START+16
HD1 PLINE+1, PLINE+6
HDR START+14, DPRT+6, PLINE+1, PLINE+6
PLINE DPRT+6
SET START+2
STOP START+4, HDR+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% START+13, EXIT+1!
%H EXIT+1!
%I EXIT+1!
DFN START+5*, START+6, START+8, EXIT+1!, SET+3*, SET+10
DIR EXIT~, EXIT+1!, HDR+1~
DIR(0 EXIT*, HDR+1*
IOF HDR+2
IOM START+13, START+14, HDR+3, HDR+4
IOSL PLINE+1, PLINE+6
IOST START+13, EXIT, HDR+1, HDR+2
SD EXIT+1!
SD("EDT" START+2
SD("FYD" START+1
SD("PEDT" HDR+4
SDDIAG EXIT+1!, PLINE+3*, PLINE+4, SET+3~
SDDIAG( SET+5
SDDIV EXIT+1!, DPRT+2, DPRT+3, DIV+1
SDDIV( DIV+1
SDDX START+6*, START+7, START+8, START+11*, EXIT+1!, DPRT+6*, PLINE+3, PLINE+5, PLINE+7, SET+5*
, SET+6, SET+8, SET+9, SET+10
SDDXP EXIT+1!, SET+5*, SET+9, SET+10
SDFL EXIT+1!, PLINE+5*, PLINE+6*, PLINE+9*
SDI START+11*, EXIT+1!, DPRT+4*, DPRT+6*, HDR+3~*, HD1+2~*, SET+3~, SET+5*
SDII EXIT+1!, DPRT+6*, PLINE+3*, PLINE+4, SET+3~, SET+7*
SDIII EXIT+1!, PLINE+10*, SET+3~
SDIV START+2*, START+3*, START+4*, START+5, START+6, START+7, START+8, START+11, EXIT+1!, DLIST+1
, VALID+2, DIV+1, SET~, SET+6, SET+8, SET+9, SET+10
SDIV( START+15, DPRT+4, DLIST+1*
SDIVN START+15*, EXIT+1!, DPRT+2, DPRT+4*
SDLINE START+13*, EXIT+1!, HDR+3, HDR+4, HD1+2
SDMD START+2, EXIT+1!
SDOE START+2*, EXIT+1!, SET+4
SDOE0 START+2*, EXIT+1!, VALID+1, VALID+2, SET+3
SDOUT START+1*, START+2, START+3, START+4, START+13, START+14, START+15, START+16, EXIT, EXIT+1!
, DPRT+6, PLINE+1, PLINE+5, PLINE+6, HDR+1*, HDR+2, HD1+1, STOP+1*, SET+2
SDPAGE START+14*, EXIT+1!, DPRT+6*, HDR+4*
SDPG START+13*, EXIT+1!, HDR+1, HDR+2, HDR+4*
SDPNOW START+13*, EXIT+1!, HDR+4
SDPRTY EXIT+1!, SET+3~, SET+4
SDPRTY( SET+7
SDPT START+6*, START+7, START+8, EXIT+1!, PLINE+5*, PLINE+7, PLINE+8
SDPTN EXIT+1!, PLINE+8*, PLINE+9
SDPTV EXIT+1!, PLINE+7*, PLINE+10
SDSTA SCRPW57+2*, SCRPW57+3, START+13, EXIT+1!, VALID+2
SDSTOP START+1*, EXIT+1!, SET+2*
SDT START+1*, START+2*, EXIT+1!
SDTIT EXIT+1!
SDTIT( DPRT+4*, HDR+3
SDTIT(1 START+13*
SDTIT(2 DPRT+2*, DPRT+3*
SDV EXIT+1!, DPRT~, DPRT+2, DPRT+3, DPRT+6, PLINE+5, PLINE+7
SDVCT START+3*, START+16, EXIT+1!, DLIST+1*
SDX START+14*, EXIT+1!, DLIST+1*, SET+3~, SET+7*, SET+8, SET+9, SET+10
U START+2, START+7, START+8, DPRT+3, PLINE+3, PLINE+8, PLINE+10, DLIST+1, VALID+1, VALID+2
, SET+3, SET+5, SET+8, SET+9
X EXIT+1!
Y START+13*, EXIT+1!, HDR+1
>> ZTQUEUED STOP+1
>> ZTSTOP STOP+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All