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

Package: Scheduling

Routine: SCRPW15


Information

SCRPW15 ;RENO/KEITH - Encounter Activity Report (Cont.) ;06/19/99

Source Information

Source file <SCRPW15.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Scheduling 5 (EXIT,STOP)^SCRPW14  DISP0^SCRPW23  DHDR^SCRPW40  $$XY^SCRPW50  $$ICDDX^SCRPWICD  
VA FileMan 3 NOW^%DTC  ^DIR  ^DIWP  
CPT HCPCS Codes 2 $$CPT^ICPTCOD  $$MOD^ICPTMOD  
Registration 1 $$PRIM^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SCRPW14  

Entry Points

Name Comments DBIA/ICR reference
SNAME() ;Produce item name
PROCHD
PROC1 ;D:$Y>(IOSL-6) HDR(),PROCHD Q:SDOUT S SDP0=^ICPT(SDP,0),SDTOT=SDTOT+SDT W !?12,$P(SDP0,U),?18,$P(SDP0,U,2),?55,$J(SDT,10) Q
ORD() ;Produce sort value
PRT ;Print data
PVIEW(SDCOL,SDSKIP) ;Print report parameters
S1
RTOT ;Print report total
DCAL ;Calculate numbers for a division
T3
DX1 ;
PDIV
DPRT(SDIV) ;Print report for a division
PROC ;Print procedure information
NONE ;List items with no activity
HDR(SDPG) ;Print page header
DX ;Print diagnosis information
EXIT
DXHD ;Diagnosis sub-header
NO1

External References

Name Field # of Occurrence
NOW^%DTC SCRPW15+7
^DIR SCRPW15+16, HDR+2
^DIWP DX1+7
$$CPT^ICPTCOD PROC1+3
$$MOD^ICPTMOD PROC1+27
EXIT^SCRPW14 EXIT
STOP^SCRPW14 DCAL+1, HDR+1
DISP0^SCRPW23 SCRPW15+11
DHDR^SCRPW40 SCRPW15+11, T3
$$XY^SCRPW50 HDR+3
$$ICDDX^SCRPWICD DX1+3
$$PRIM^VASITE SCRPW15+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?(80-$L(SDX)\2),SDX
  • Line Location: SCRPW15+11
Function Call: WRITE
  • Prompt: !!?(80-$L(SDX)\2),SDX
  • Line Location: DPRT+1
Function Call: WRITE
  • Prompt: $$XY^SCRPW50("",0,0)
  • Condition for execution: $X
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: SDLINE,!?22,"<*> ENCOUNTER ACTIVITY REPORT <*>"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?(80-$L(SDTIT(SDI))\2),SDTIT(SDI)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,SDLINE
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,SDLINE,!,"Date printed: ",SDPNOW,?(74-$L(SDPAGE)),"Page: ",SDPAGE,!,SDLINE,!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,$S(SD("CAT")="C":"Clinic: ",SD("CAT")="P":"Provider: ",1:"Stop Code: "),$$SNAME()," (cont.)",!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,$S(SD("CAT")="C":"Clinic",SD("CAT")="P":"Provider",1:"Stop Code"),?40,"Encounters",?59,"Visits",?73,"Uniques",!,"------------------------------------",?40,"----------",?55,"----------",?70,"----------"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !!,"====================================",?40,"==========",?55,"==========",?70,"==========",!!,"REPORT TOTAL:",?40,$J(SDRPEN(SDIV),10),?55,$J(SDRPVS(SDIV),10),?70,$J(SDRPUN(SDIV),10)
  • Line Location: RTOT+1
Function Call: WRITE
  • Prompt: !?SDCOL," Activity date range: "
  • Line Location: PVIEW+3
Function Call: WRITE
  • Prompt: Y," to "
  • Line Location: PVIEW+3
Function Call: WRITE
  • Prompt: Y," to "
  • Line Location: PVIEW+3
Function Call: WRITE
  • Prompt: !?(SDCOL+8),"Report category: ",$S(SD("CAT")="C":"CLINIC",SD("CAT")="P":"PROVIDER",1:"STOP CODE")," perspective",!?(SDCOL+10),"Output format: ",$S(SD("FMT")="S":"SUMMARY",1:"DETAIL")
  • Line Location: PVIEW+4
Function Call: WRITE
  • Prompt: !?(SDCOL+8),"Collation order: ",$S(SD("ORD")="A":"ALPHABETIC",SD("ORD")="E":"by ENCOUNTER TOTAL",SD("ORD")="V":"by VISIT TOTAL",1:"by UNIQUE TOTAL")
  • Line Location: PVIEW+5
Function Call: WRITE
  • Prompt: !?(SDCOL+25),$P(^SD(409.63,X,0),U)
  • Line Location: PVIEW+6
Function Call: WRITE
  • Prompt: !?SDCOL,"Medical Center Division: ",$P(SDDIV,U,2)
  • Line Location: PDIV+0
Function Call: WRITE
  • Prompt: !?SDCOL,"Medical Center Division: ",SDDIV(SDI)
  • Line Location: PDIV+1
Function Call: WRITE
  • Prompt: !,$$SNAME(),?40,$J(^TMP("SCRPW",$J,SDIV,1,SDS,"ENC"),10),?55,$J(^TMP("SCRPW",$J,SDIV,1,SDS,"VIS"),10),?70,$J(^TMP("SCRPW",$J,SDIV,1,SDS,"UNIQ"),10)
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !!,"(No diagnosis information identified)"
  • Line Location: DX+1
Function Call: WRITE
  • Prompt: !,"====================================",?40,"==========",?55,"==========",?70,"==========",!,"TOTAL:",?40,$J(SDTOT1,10),?55,$J(SDTOT2,10),?70,$J(SDTOT,10)
  • Line Location: DX+4
Function Call: WRITE
  • Prompt: !,$E(^UTILITY($J,"W",DIWL,SDL2,0),1,36)
  • Line Location: DX1+8
Function Call: WRITE
  • Prompt: ?40,$J(SDT1,10),?55,$J(SDT2,10),?70,$J((SDT1+SDT2),10)
  • Line Location: DX1+9
Function Call: WRITE
  • Prompt: !!,"Diagnosis",?43,"Primary",?56,"Secondary",?75,"Total",!,"------------------------------------",?40,"----------",?55,"----------",?70,"----------"
  • Line Location: DXHD+1
Function Call: WRITE
  • Prompt: !!?12,"(No procedure information identified)"
  • Line Location: PROC+1
Function Call: WRITE
  • Prompt: !?12,"===================================",?55,"==========",!?12,"PROCEDURE TOTAL:",?55,$J(SDTOT,10)
  • Line Location: PROC+4
Function Call: WRITE
  • Prompt: !?12,$P(SDP0,U),?18,$P(SDP0,U,2),?55,$J(SDT,10)
  • Line Location: PROC1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PROC1+9
Function Call: WRITE
  • Prompt: !?12,CPTCODE,?18,CPTTEXT,?55,$J(SDT,10)
  • Line Location: PROC1+10
Function Call: WRITE
  • Prompt: !,?13,"-",MODCODE,?18,MODTEXT,?55,$J(SDMQTY2,10)
  • Line Location: PROC1+35
Function Call: WRITE
  • Prompt: !!?12,"Procedures/Modifiers",?60,"Total",!?12,"--------------------------------------",?55,"----------"
  • Line Location: PROCHD+0
Function Call: WRITE
  • Prompt: !!,"No activity found for ",$S(SD("CAT")="C":"clinic",SD("CAT")="P":"provider",1:"stop code"),": ",$$SNAME()
  • Line Location: NO1+0
Routine Call
  • DIR
  • Line Location:
    • SCRPW15+16
    • HDR+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SCRPW15+7, PVIEW+3
^DG(40.8 - [#40.8] SCRPW15+10
^DIC(40.7 - [#40.7] SNAME+2
^SC - [#44] SNAME+1
^SD(409.63 - [#409.63] PVIEW+6
^TMP("SCRPW" SCRPW15+6, SCRPW15+10, SCRPW15+11, SCRPW15+13, DCAL+2*, DCAL+3, DPRT+1, DPRT+3, S1, S1+2*
, S1+3*, ORD+1, HDR+7, PRT+2, DX+1, DX+2, DX1+4, DX1+5, PROC+1, PROC+2
, PROC1+13!, PROC1+16, PROC1+17, PROC1+18*, PROC1+22, PROC1+24, PROC1+39!, NONE+1, NONE+2
^UTILITY($J DX1+7!, DX1+8
^VA(200 - [#200] SNAME+1

Label References

Name Line Occurrences
$$ORD DCAL+2
$$SNAME ORD+1, HDR+8, PRT+2, NO1
DCAL SCRPW15+6
DPRT SCRPW15+12, SCRPW15+14
DX PRT+2
DX1 DX+2
DXHD DX+1, DX1+2
EXIT SCRPW15+11, SCRPW15+14
HDR SCRPW15+11, DPRT+1, DPRT+2, RTOT+1, PRT+1, PRT+2, DX1+2, PROC+1, PROC1+2, PROC1+25
, NONE+1, NONE+2
NO1 NONE+2
NONE DPRT+5
PDIV PVIEW+3
PROC PRT+2
PROC1 PROC+2
PROCHD PROC+1, PROC1+2, PROC1+25
PRT DPRT+3
PVIEW HDR+5
RTOT DPRT+4
S1 DCAL+2
T3 DPRT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SCRPW15+7
CPTCODE PROC1+1~, PROC1+5*, PROC1+10
CPTTEXT PROC1+1~, PROC1+6*, PROC1+10
>> DFN DCAL+3*
DIR SCRPW15+16~, HDR+2~
DIR(0 SCRPW15+16*, HDR+2*
DIWF DX1+1~*
DIWL DX1+1~*, DX1+8
IOF HDR+3
IOSL RTOT+1, PRT+2, DX1+2, PROC+1, PROC1+2, PROC1+25, NONE+2
IOST SCRPW15+11, SCRPW15+16, HDR+2
LINEFLAG SCRPW15+5~, PROC1+9, PROC1+11*, PROC1+37*, PROCHD*
MODCODE PROC1+26~, PROC1+29*, PROC1+31*, PROC1+35
MODINFO PROC1+26~, PROC1+27*, PROC1+28, PROC1+29, PROC1+32
MODTEXT PROC1+26~, PROC1+32*, PROC1+35
SD EXIT!
SD("BDT" PVIEW+3
SD("CAT" HDR+8, HDR+9, PVIEW+4, SNAME+1, NO1
SD("EDT" PVIEW+3
SD("FMT" DPRT+1, DPRT+4, DPRT+5, S1+1, HDR+8, PVIEW+4, PVIEW+5, PRT+1, PRT+2
SD("LIST" NONE+1, NONE+2
SD("ORD" DPRT+3, ORD+1, PVIEW+5
SD("STAT" PVIEW+6
SDCOL PVIEW~, PVIEW+3, PVIEW+4, PVIEW+5, PVIEW+6, PDIV, PDIV+1
>> SDD S1+2*, DX+2*, DX1+3, DX1+4, DX1+5
>> SDD0 DX1+3*
SDDET DPRT+1*, PRT+1, PRT+2!
SDDIAG DX1+1~, DX1+3*, DX1+7
SDDIV SCRPW15+9, SCRPW15+10, EXIT!, PDIV
SDDIV( SCRPW15+8, PDIV+1
>> SDDT DCAL+3*, S1*
>> SDFFS SCRPW15+7*, HDR+2, HDR+3, HDR+6*
SDI SCRPW15+10*, SCRPW15+13*, HDR+4~*, PDIV+1~*
SDIV SCRPW15+6*, SCRPW15+8*, SCRPW15+11*, SCRPW15+12*, SCRPW15+14*, DCAL+2, DCAL+3, DPRT~, DPRT+1, DPRT+3
, S1, S1+2, S1+3, ORD+1, HDR+7, RTOT+1, PRT+2, DX+1, DX+2, DX1+4
, DX1+5, PROC+1, PROC+2, PROC1+13, PROC1+16, PROC1+17, PROC1+18, PROC1+22, PROC1+24, PROC1+39
, NONE+1, NONE+2
SDIV( SCRPW15+8*, SCRPW15+9*, SCRPW15+10*, SCRPW15+12
>> SDIVN SCRPW15+12*
SDL2 DX1+1~, DX1+8*
>> SDLINE SCRPW15+7*, HDR+3, HDR+5, HDR+6
>> SDMD SCRPW15+13*, SCRPW15+14
SDMOD PROC1+1~, PROC1+14*, PROC1+16*, PROC1+17, PROC1+18, PROC1+23*, PROC1+24*, PROC1+27
SDMODQTY PROC1+1~, PROC1+17*, PROC1+18, PROC1+21*, PROC1+22*, PROC1+24, PROC1+34
SDMQTY2 PROC1+26~, PROC1+34*, PROC1+35
>> SDN NONE+1*, NONE+2
>> SDOUT SCRPW15+6, SCRPW15+11, SCRPW15+12, SCRPW15+14, SCRPW15+16, DCAL+1, DPRT+1, DPRT+2, DPRT+3, DPRT+4
, DPRT+5, HDR+1, HDR+2*, RTOT+1, PRT+1, PRT+2, DX+2, DX+3, DX1+2, DXHD+1
, PROC+1, PROC+2, PROC+3, PROC1+2, PROC1+25, PROCHD, NONE+1, NONE+2
>> SDP S1+3*, PROC+2*, PROC1+3, PROC1+15
>> SDP0 PROC1+3*, PROC1+4, PROC1+5, PROC1+6
>> SDPAGE SCRPW15+7*, DPRT+1*, HDR+3*, HDR+5, HDR+6*, HDR+8
SDPG HDR~, HDR+3, HDR+8
>> SDPNOW SCRPW15+7*, HDR+6
>> SDPROC PROC1+15*, PROC1+16, PROC1+17
>> SDPT S1*
>> SDRPEN( RTOT+1
>> SDRPUN( DCAL+3*, RTOT+1
>> SDRPVS( DCAL+3*, RTOT+1
>> SDS DCAL+2*, DPRT+3*, S1, S1+2, S1+3, ORD+1, SNAME+1, SNAME+2, PRT+2, DX+1
, DX+2, DX1+4, DX1+5, PROC+1, PROC+2, PROC1+13, PROC1+16, PROC1+17, PROC1+18, PROC1+22
, PROC1+24, PROC1+39, NONE+1*, NONE+2*
SDSKIP PVIEW~, PVIEW+3
>> SDSV DPRT+3*
>> SDT SCRPW15+11, DX+2*, PROC+2*, PROC1+7, PROC1+10
>> SDT1 DX1+4*, DX1+6, DX1+9
>> SDT2 DX1+5*, DX1+6, DX1+9
SDTIT T3!
SDTIT( HDR+4
>> SDTOT S1+2*, S1+3*, DX+2*, DX+4, DX1+6*, PROC+2*, PROC+4, PROC1+7*
>> SDTOT1 DX+2*, DX+4, DX1+6*
>> SDTOT2 DX+2*, DX+4, DX1+6*
>> SDUN( DCAL+2, S1*, ORD+1
>> SDVS( DCAL+2, S1*, ORD+1
>> SDX SCRPW15+10*, SCRPW15+11*, DPRT+1*
U SCRPW15+9, SCRPW15+10, PVIEW+6, PDIV, SNAME+1, SNAME+2, DX1+3, PROC1+5, PROC1+6
X PVIEW+6*, SNAME+2~*, DX1+7*
>> Y SCRPW15+7*, HDR+2, PVIEW+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All