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

Package: Scheduling

Routine: SCRPW56


Information

SCRPW56 ;RENO/KEITH - Most Frequent 50 CPT Codes (OP6) or (IP6) ;06/22/99

Source Information

Source file <SCRPW56.m>

Call Graph

Call Graph Total: 9

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

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+5
$$S^%ZTLOAD STOP+1
^DIR EXIT, HDR+1
$$CPT^ICPTCOD PLINE+4
DISP0^SCRPW23 START+5
STOP^SCRPW40 SET+2
$$XY^SCRPW50 HDR+2
PROV^SCRPW50 SET+4
RQUE^SCRPW50 SCRPW56+5
$$GETOE^SDOE START+2
GETCPT^SDOE SET+4
$$CODE2TXT^XUA4A72 PLINE+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?(IOM-$L(SDX)\2),SDX
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !?7,$J(SDII,3),?13,SDPROC,?50,$J(SDI,10,0)
  • Line Location: PLINE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PLINE+10
Function Call: WRITE
  • Prompt: ?62,$E(SDPTN,1,50),?114,$J(^TMP("SCRPW",$J,SDV,0,SDCPT,SDPT),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: !?52,"CPT Code",?114,"Prov. Type",!?7,"Rank",?13,"CPT Code",?51,"Frequency",?62,"Provider Type",?115,"Frequency"
  • Line Location: HD1+1
Function Call: WRITE
  • Prompt: !?7,"----",?13,$E(SDLINE,1,35),?50,$E(SDLINE,1,10),?62,$E(SDLINE,1,50),?114,$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+5
^DG(40.8 - [#40.8] DLIST+1
^SC - [#44] VALID+1
^SCE("B" START+2
^TMP("SCRPW" START+1!, START+4*, START+6, EXIT+1!, DPRT+6, PLINE+11, PLINE+14, SET+6*, SET+8*

Label References

Name Line Occurrences
$$DIV VALID+2
$$VALID START+2
DLIST START+4
DPRT START+7, START+8
EXIT START+3, START+5, START+6, START+7, START+8
HD1 PLINE+1, PLINE+12
HDR START+6, DPRT+6, PLINE+1, PLINE+12
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+5, EXIT+1!
%H EXIT+1!
%I EXIT+1!
CPTCODE PLINE+3~, PLINE+6*, PLINE+8
CPTINFO PLINE+3~, PLINE+4*, PLINE+5, PLINE+6, PLINE+7
CPTTEXT PLINE+3~, PLINE+7*, PLINE+8
DIR EXIT~, EXIT+1!, HDR+1~
DIR(0 EXIT*, HDR+1*
IOF HDR+2
IOM START+5, START+6, HDR+3, HDR+4
IOSL PLINE+1, PLINE+12
IOST START+5, EXIT, HDR+1, HDR+2
SD EXIT+1!
SD("EDT" START+2
SD("FYD" START+1
SD("PEDT" HDR+4
SDCPT START+4*, EXIT+1!, DPRT+6*, PLINE+4, PLINE+11, PLINE+14, SET+5*, SET+6, SET+8
SDDIV EXIT+1!, DPRT+2, DPRT+3, DIV+1
SDDIV( DIV+1
SDFL EXIT+1!, PLINE+11*, PLINE+12*, PLINE+14*
SDI START+4*, EXIT+1!, DPRT+4*, DPRT+6*, PLINE+10, HDR+3~*, SET+3~, SET+5*
SDII EXIT+1!, DPRT+6*, PLINE+9*, PLINE+10, SET+3~, SET+7*
SDIII EXIT+1!, SET+3~
SDIV START+2*, START+3*, START+4*, EXIT+1!, DLIST+1, VALID+2, DIV+1, SET~, SET+6, SET+8
SDIV( START+7, DPRT+4, DLIST+1*
SDIVN START+7*, EXIT+1!, DPRT+2, DPRT+4*
SDLINE START+5*, 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
SDOUT START+1*, START+2, START+3, START+4, START+5, START+6, START+7, START+8, EXIT, EXIT+1!
, DPRT+6, PLINE+1, PLINE+11, PLINE+12, HDR+1*, HDR+2, HD1+1, STOP+1*, SET+2
SDPAGE START+6*, EXIT+1!, DPRT+6*, HDR+4*
SDPG START+5*, EXIT+1!, HDR+1, HDR+2, HDR+4*
SDPNOW START+5*, EXIT+1!, HDR+4
SDPROC EXIT+1!, PLINE+8*, PLINE+10, SET+3~
SDPROC( SET+5
SDPRTY EXIT+1!, SET+3~, SET+4
SDPRTY( SET+7
SDPT EXIT+1!, PLINE+11*, PLINE+13, PLINE+14
SDPTN EXIT+1!, PLINE+13*, PLINE+14
SDQTY EXIT+1!, SET+5*, SET+6
>> SDSTA SCRPW56+4*, SCRPW56+5, START+5, 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+5*
SDTIT(2 DPRT+2*, DPRT+3*
SDV EXIT+1!, DPRT~, DPRT+2, DPRT+3, DPRT+6, PLINE+11, PLINE+14
SDVCT START+3*, START+8, EXIT+1!, DLIST+1*
SDX START+6*, EXIT+1!, DLIST+1*, SET+3~, SET+7*, SET+8
U START+2, DPRT+3, PLINE+13, DLIST+1, VALID+1, VALID+2, SET+5
X EXIT+1!
Y START+5*, 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