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 Diagnosis Codes (OP7) or (IP7) ;5/6/03 1:18pm

Source Information

Source file <SCRPW57.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Scheduling 5 DISP0^SCRPW23  STOP^SCRPW40  ($$XY,PROV,RQUE)^SCRPW50  $$ICDDX^SCRPWICD  ($$GETOE,GETDX)^SDOE  
VA FileMan 3 NOW^%DTC  ^DIR  ^DIWP  
Kernel 2 $$S^%ZTLOAD  $$CODE2TXT^XUA4A72  

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

External References

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

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
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+2
^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+9, PLINE+11, SET+6*, SET+8*, SET+9*, SET+10*
^UTILITY($J PLINE+4!, PLINE+5, PLINE+6, PLINE+7

Label References

Name Line Occurrences
$$DIV VALID+3
$$VALID START+2
DLIST START+4
DPRT START+15, START+16
EXIT START+3, START+13, START+14, START+15, START+16
HD1 PLINE+2, PLINE+10
HDR START+14, DPRT+6, PLINE+2, PLINE+10
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*
DIWF PLINE+1~*
DIWL PLINE+1~*, PLINE+5, PLINE+6, PLINE+7
IOF HDR+2
IOM START+13, START+14, HDR+3, HDR+4
IOSL PLINE+2, PLINE+10
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+9, PLINE+11, SET+5*
, SET+6, SET+8, SET+9, SET+10
SDDXP EXIT+1!, SET+5*, SET+9, SET+10
SDFL EXIT+1!, PLINE+9*, PLINE+10*, PLINE+13*
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+6, SET+3~, SET+7*
SDIII EXIT+1!, PLINE+14*, SET+3~
SDIV START+2*, START+3*, START+4*, START+5, START+6, START+7, START+8, START+11, EXIT+1!, DLIST+1
, VALID+3, 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*
SDL2 PLINE+1~, PLINE+5*, PLINE+6, PLINE+7
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+2, VALID+3, 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+2, PLINE+9, PLINE+10, 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+9*, PLINE+11, PLINE+12
SDPTN EXIT+1!, PLINE+12*, PLINE+13
SDPTV EXIT+1!, PLINE+11*, PLINE+14
SDSTA SCRPW57+2*, SCRPW57+3, START+13, EXIT+1!, VALID+3
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+9, PLINE+11
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+12, PLINE+14, DLIST+1, VALID+2, VALID+3
, SET+3, SET+5, SET+8, SET+9
X EXIT+1!, PLINE+4*
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