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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SCRPW40

Package: Scheduling

Routine: SCRPW40


Information

SCRPW40 ;RENO/KEITH - Diagnosis/Procedure Frequency Report ;06/22/99

Source Information

Source file <SCRPW40.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Scheduling 6 $$DIVA^SCRPW17  DISP0^SCRPW23  START^SCRPW401  ($$XY,END,SUBT,TITL)^SCRPW50  ($$ICDDX,$$IMP)^SCRPWICD  ($$GETOE,GETCPT,GETDX)^SDOE  
VA FileMan 4 ^%DT  NOW^%DTC  ^DIR  ^DIWP  
Kernel 2 $$S^%ZTLOAD  EN^XUTMDEVQ  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
Registration 1 $$PRIM^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 16

Package Total Caller Graph
Scheduling 16 SCRPW DX/CPT FREQUENCY REPORT  SCRPW11  SCRPW15  SCRPW16  SCRPW2  SCRPW401  SCRPW44  SCRPW51  
SCRPW54  SCRPW56  SCRPW57  SCRPW58  SCRPW59  SCRPW60  SCRPW61  SCRPW63  

Entry Points

Name Comments DBIA/ICR reference
BDT
EDT
START ;Print report
EXIT
DIV() ;Check division
STOP ;Check for stop task request
EVAL ;Evaluate encounter
DX ;Get diagnoses
DX1(SDIV)
PROC ;Get procedures
PROC1(SDIV)
ORD ;Determine list order
ORDV()
DPRT(SDIV) ;Print report for a division
DXPRT ;Print diagnosis list
DXP1
DXP2
PRPRT
PRP1 ;S SDI=0 F S SDI=$O(^TMP("SCRPW",$J,SDIV,"PROC",2,SDORD,SDI)) Q:'SDI!SDOUT!(SDCT>(SD("FREQ")-1)) S SDPR0=$G(^ICPT(SDI,0)) I $L(SDPR0) S SDPRC=$P(SDPR0,U),SDPRN=$P(SDPR0,U,2) D PRP2
PRP2
PRHD ;Print procedure subheader
DXHD ;Print diagnosis subheader
HDR ;Print report header
DHDR(SDI,SDT) ;Set up division subheaders

External References

Name Field # of Occurrence
^%DT BDT, EDT
NOW^%DTC START+4
$$S^%ZTLOAD STOP+1
^DIR EDT+7, EDT+10, EXIT, HDR+1
^DIWP DXP2+3
$$CPT^ICPTCOD PRP1+3
$$DIVA^SCRPW17 SCRPW40+8
DISP0^SCRPW23 START+10
START^SCRPW401 PRP2+9
$$XY^SCRPW50 HDR+3, HDR+4
END^SCRPW50 EXIT+2
SUBT^SCRPW50 SCRPW40+9, EDT+5
TITL^SCRPW50 SCRPW40+7
$$ICDDX^SCRPWICD DXP1
$$IMP^SCRPWICD SCRPW40+10
$$GETOE^SDOE START+2
GETCPT^SDOE PROC+1
GETDX^SDOE DX+1
$$PRIM^VASITE START+8
EN^XUTMDEVQ EDT+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BDT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+0
Function Call: WRITE
  • Prompt: !!,$C(7),"End date cannot be before begin date!",!
  • Line Location: EDT+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Beginning and Ending dates must both be prior to "_SD("I10DTE")_" (ICD-9) or both be on or after "_SD("I10DTE")_" (ICD-10)."
  • Line Location: EDT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+12
Function Call: WRITE
  • Prompt: !!?(IOM-$L(SDX)\2),SDX
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !!?(IOM-$L(SDX)\2),SDX
  • Line Location: DPRT+2
Function Call: WRITE
  • Prompt: !?(C),$E(SDLINE,1,7),?(C+9),$E(SDLINE,1,35),?(C+46),$E(SDLINE,1,10),?(C+58),$E(SDLINE,1,10),?(C+70),$E(SDLINE,1,10)
  • Line Location: DXPRT+3
Function Call: WRITE
  • Prompt: !?(C),"TOTAL:",?(C+46),$J(SDTOT("PRI"),9,0),?(C+58),$J(SDTOT("SEC"),9,0),?(C+70),$J(SDTOT("QTY"),9,0)
  • Line Location: DXPRT+4
Function Call: WRITE
  • Prompt: !?(C),SDDXC,?(C+9),$E(^UTILITY($J,"W",DIWL,SDL2,0),1,35)
  • Line Location: DXP2+5
Function Call: WRITE
  • Prompt: !,?(C+9),$E(^UTILITY($J,"W",DIWL,SDL2,0),1,35)
  • Line Location: DXP2+6
Function Call: WRITE
  • Prompt: ?(C+46),$J(SDDX("PRI"),9,0),?(C+58),$J(SDDX("SEC"),9,0),?(C+70),$J(SDDX("QTY"),9,0)
  • Line Location: DXP2+7
Function Call: WRITE
  • Prompt: !?(C),$E(SDLINE,1,6),?(C+8),$E(SDLINE,1,28),?(C+38),$E(SDLINE,1,10),?(C+50),$E(SDLINE,1,10),!?(C),"PROCEDURE TOTAL:",?(C+38),$J(SDTOT("ENC"),9,0),?(C+50),$J(SDTOT("QTY"),9,0)
  • Line Location: PRPRT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRP2+3
Function Call: WRITE
  • Prompt: !?(C),SDPRC,?(C+8),SDPRN,?(C+38),$J(SDPR("ENC"),9,0),?(C+50),$J(SDPR("QTY"),9,0)
  • Line Location: PRP2+4
Function Call: WRITE
  • Prompt: !!?(C),"CODE",!?(C),"NUMBER",?(C+8),"PROCEDURE/MODIFIER",?(C+38),"ENCOUNTERS",?(C+52),"QUANTITY",!?(C),$E(SDLINE,1,6),?(C+8),$E(SDLINE,1,28),?(C+38),$E(SDLINE,1,10),?(C+50),$E(SDLINE,1,10)
  • Line Location: PRHD+1
Function Call: WRITE
  • Prompt: !!?(C),"CODE",?(C+49),"PRIMARY",?(C+59),"SECONDARY",?(C+75),"TOTAL",!?(C),"NUMBER",?(C+9),"DIAGNOSIS",?(C+47),"DIAGNOSIS",?(C+59),"DIAGNOSIS",?(C+71),"FREQUENCY"
  • Line Location: DXHD+1
Function Call: WRITE
  • Prompt: !?(C),$E(SDLINE,1,7),?(C+9),$E(SDLINE,1,35),?(C+46),$E(SDLINE,1,10),?(C+58),$E(SDLINE,1,10),?(C+70),$E(SDLINE,1,10)
  • Line Location: DXHD+2
Function Call: WRITE
  • Prompt: $$XY^SCRPW50(IOF,1,0)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $$XY^SCRPW50("",0,0)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?(IOM-$L(SDT(SDI))\2),SDT(SDI)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,SDLINE,!,"For date range: ",SDPBDT," to ",SDPEDT,!,"Date printed: ",SDPNOW,?(IOM-6-$L(SDPAGE)),"Page: ",SDPAGE,!,SDLINE
  • Line Location: HDR+6
Routine Call
  • DIR
  • Line Location:
    • EDT+7
    • EDT+10
    • EXIT
    • HDR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SCRPW40+10, START+4, START+5
^DG(40.8 - [#40.8] START+9, DHDR+8
^SCE("B" START+2
^TMP("SCRPW" START+1!, START+3, START+9, START+10, START+12, DX1+1*, PROC1+1*, PROC1+2*, PROC1+10*, PROC1+11*
, ORD+1*, ORDV, DPRT+2, DPRT+3, DPRT+4, DXPRT+1, DXP1, DXP2+1, PRPRT, PRP1+2
, PRP2, PRP2+9, DHDR+8
^UTILITY($J DXP2+3!, DXP2+4, DXP2+5, DXP2+6

Label References

Name Line Occurrences
$$DIV START+2
$$ORDV ORD+1
BDT EDT+3
DHDR START+10, DPRT+2
DPRT START+11, START+13
DX EVAL+2
DX1 DX+2
DXHD DXPRT+1, DXPRT+2, DXP2+2
DXP1 DXPRT+1
DXP2 DXP1
DXPRT DPRT+3
EDT EDT+1
EVAL START+2
EXIT SCRPW40+8, BDT, EDT, EDT+7, EDT+10, EDT+12, START+3, START+4, START+10, START+13
HDR START+10, DPRT+2, DXPRT+1, DXPRT+2, DXP2+2, PRPRT, PRPRT+1, PRP2+1
ORD START+3
PRHD PRPRT, PRPRT+1, PRP2+1
PROC EVAL+2
PROC1 PROC+2
PRP1 PRPRT
PRP2 PRP1+7
PRPRT DPRT+4
STOP START+4, EVAL+1, HDR+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% START+4, EXIT+1!
%DT SCRPW40+6~, BDT*, EXIT+1!
%DT("A" BDT*, EDT*
%DT(0 BDT*
C EXIT+1!, DPRT+2*, DXPRT+3, DXPRT+4, DXP2+5, DXP2+6, DXP2+7, PRPRT*, PRPRT+2, PRP2+4
, PRHD+1, DXHD+1, DXHD+2
CPTINFO PRP1+1~, PRP1+3*, PRP1+4, PRP1+5, PRP1+6
DIR SCRPW40+6~, EDT+6!, EDT+9!, EXIT~, EXIT+1!, HDR+1~
DIR("?" EDT+6*, EDT+9*
DIR("A" EDT+6*, EDT+9*
DIR("B" EDT+9*
DIR(0 EDT+6*, EDT+9*, EXIT*, HDR+1*
DIVN EXIT+1!
DIWF DXP2~*
DIWL DXP2~*, DXP2+4, DXP2+5, DXP2+6
DTOUT EDT+7, EDT+10, EXIT+1!
DUOUT EDT+7, EDT+10, EXIT+1!
IOF HDR+3
IOM START+4, START+10, DPRT+2, PRPRT, HDR+5, HDR+6
IOSL DXPRT+2, DXP2+2, PRPRT+1, PRP2+1
IOST START+10, EXIT, HDR+1, HDR+3
LINEFLAG SCRPW40+6~, PRP2+3, PRP2+5*, PRHD+1*
SD SCRPW40+6~, EXIT+1!
SD("BDT" BDT+1*, EDT+1, EDT+3, START+2, START+5
SD("EDT" EDT+2*, EDT+3, START+2, START+5
SD("FREQ" EDT+11*, START+6, DXPRT+1, DXP1, PRPRT, PRP1+2
SD("I10DTE" SCRPW40+10*, EDT+4
SD("I10DTI" SCRPW40+10*, EDT+3
SD("TYPE" EDT+8*, START+5, START+6, EVAL+2
SDCT EXIT+1!, DXPRT+1*, DXP1, DXP2+2*, PRPRT*, PRP1+2, PRP2+1*
SDDIV SCRPW40+6~, SCRPW40+8, START+1, START+8, START+9, EXIT+1!, DIV+1, DHDR+3, DHDR+4, DHDR+7
SDDIV( START+1, START+7, DIV+1
SDDIV("" START+1
SDDIV("MULT" START+1*, START+12*, START+13, DX+2, PROC+2
SDDX EXIT+1!, DX1*, DX1+1
SDDX( DXP2+1*, DXP2+8
SDDX("PRI" DXP2+7
SDDX("QTY" DXP2+7
SDDX("SEC" DXP2+7
SDDX0 EXIT+1!, DXP1*
SDDXC EXIT+1!, DXP1*, DXP2+5
SDDXN EXIT+1!, DXP1*, DXP2+3
SDFF START+4*, EXIT+1!, HDR+1, HDR+3, HDR+6*
SDI START+1*, START+9*, START+12*, EXIT+1!, DX+1~, DX+2*, DX1, PROC+1~, PROC+2*, PROC1
, PROC1+7, PROC1+8, ORD+1*, ORDV, DXP1*, DXP2+1, PRP1+2*, PRP1+3, PRP2, PRP2+9
, HDR+5~*, DHDR~, DHDR+3, DHDR+5*, DHDR+8*
SDII EXIT+1!, ORD+1*, ORDV, DXP2+1*, DXP2+8*, PRP2*, PRP2+6*
SDIV START+3*, START+7*, START+10*, START+11*, START+13*, EXIT+1!, EVAL+2*, DX+2, DX1~, DX1+1
, PROC+2, PROC1~, PROC1+1, PROC1+2, PROC1+10, PROC1+11, ORD+1, ORDV, DPRT~, DPRT+2
, DPRT+3, DPRT+4, DXPRT+1, DXP1, DXP2+1, PRPRT, PRP1+2, PRP2, PRP2+9, DHDR+3
, DHDR+4, DHDR+7, DHDR+8~*
SDIV( START+7*, START+8*, START+9*, START+11, DHDR+5
SDIVN START+11*, EXIT+1!, DHDR+3, DHDR+4~*, DHDR+5*
SDL2 DXP2~, DXP2+4*, DXP2+5, DXP2+6
SDLINE START+4*, EXIT+1!, DXPRT+3, PRPRT+2, PRHD+1, DXHD+2, HDR+5, HDR+6
SDLIST EXIT+1!, DX+1~, PROC+1~
SDLIST( DX+2, DX1, PROC+2, PROC1, PROC1+7, PROC1+8
SDMOD PROC1+5~, PROC1+8*, PROC1+9, PROC1+10, PROC1+11
SDMODN PROC1+5~, PROC1+6*, PROC1+7*, PROC1+8
SDOE START+2*, EXIT+1!, DX+1, PROC+1
SDOE0 START+2*, EXIT+1!, DIV+1, EVAL+2
SDORD EXIT+2!, DXPRT+1*, DXP1, PRPRT*, PRP1+2
SDOUT SCRPW40+8*, BDT*, EDT*, EDT+7*, EDT+10*, EDT+12*, START+1*, START+2, START+3, START+4
, START+10, START+11, START+13, EXIT, EXIT+2!, STOP+1*, EVAL+1, DPRT+2, DPRT+3, DXPRT+1
, DXPRT+2, DXP1, DXP2+2, PRPRT, PRPRT+1, PRP1+2, PRP2+1, PRHD+1, DXHD+1, HDR+1*
, HDR+2
SDPAGE START+4*, EXIT+2!, DPRT+2*, DXPRT+1*, PRPRT*, HDR+6*
SDPBDT START+5*, EXIT+2!, HDR+6
SDPEDT START+5*, EXIT+2!, HDR+6
SDPNOW START+4*, EXIT+2!, HDR+6
SDPR EXIT+2!
SDPR( PRP2*, PRP2+6
SDPR("ENC" PRP2+4
SDPR("QTY" PRP2+4
SDPR0 EXIT+2!
SDPRC EXIT+2!, PRP1+5*, PRP2+4
SDPRN EXIT+2!, PRP1+6*, PRP2+4
SDPROC EXIT+2!, PROC1*, PROC1+1, PROC1+2, PROC1+10, PROC1+11
SDPS EXIT+2!, DX1*, DX1+1*
SDQT EXIT+2!, PROC1*, PROC1+2, PROC1+11
SDSTOP START+1*, EXIT+2!, EVAL+1*
SDT START+2*, START+10, EXIT+2!, DPRT+2, DHDR~
SDT( HDR+5, DHDR+3*, DHDR+5*, DHDR+8*
SDT(1 START+5*
SDT(2 START+6*
SDTOT EXIT+2!, DXPRT+1~, PRPRT~
SDTOT( DXP2+8*, PRP2+6*
SDTOT("ENC" PRPRT+2
SDTOT("PRI" DXPRT+4
SDTOT("QTY" DXPRT+4, PRPRT+2
SDTOT("SEC" DXPRT+4
SDX SCRPW40+6~, START+9*, START+10*, EXIT+2!, DPRT+2*
U START+1, START+2, START+8, START+9, DIV+1, EVAL+2, DX1, PROC1, DXP1, PRP1+5
, PRP1+6, DHDR+3, DHDR+4, DHDR+7, DHDR+8
X SCRPW40+6~, EXIT+2!, DXP2+3*
Y SCRPW40+6~, SCRPW40+10*, BDT, BDT+1, EDT, EDT+1, EDT+2, EDT+8, EDT+11, START+4*
, START+5*, EXIT+2!, HDR+1
>> ZTQUEUED STOP+1
ZTSAVE EDT+12~
ZTSAVE("SD(" EDT+12*
ZTSAVE("SDDIV" EDT+12*
ZTSAVE("SDDIV(" EDT+12*
>> ZTSTOP STOP+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All