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 |  Marked Items  | All
Print Page as PDF
Routine: SCRPW28

Package: Scheduling

Routine: SCRPW28


Information

SCRPW28 ;RENO/KEITH - ACRP Ad Hoc Report (cont.) ; 12/5/00 4:44pm

Source Information

Source file <SCRPW28.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Scheduling 4 ^SCRPW22  STOP^SCRPW26  EXIT^SCRPW27  $$GETOE^SDOE  

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

Package Total Caller Graph
Scheduling 1 SCRPW27  

Entry Points

Name Comments DBIA/ICR reference
PDF ;Print delimited format
RPAR
ITEM(SDS1,SDS2) ;Print parameter item
IPRT
BRK(SDX) ;Print table break
EXT() ;Return external value
RSUM ;Print report summary
RSUM0
RSUM1(SDRPT,SDS1,SDS2)
CALC(SDI) ;Calculate % change
RDET
RDET1
DSV(SDPER) ;Encrypt detail sort values
DPTL ;Detail patient list
STOP
DPTL1
DPTL2
DPTL3
DDXP ;Detail dx/procedure lists
DAPP
DDXP1
DAPP1
APFH ;Addl. print fields header
APFP ;Addl. print fields print
APF()
OE0() ;Get encounter node

External References

Name Field # of Occurrence
^SCRPW22 RPAR+2, RPAR+3, RPAR+5
STOP^SCRPW26 BRK+1, STOP
EXIT^SCRPW27 PDF+1
$$GETOE^SDOE OE0+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$BRK("Report Parameters")
  • Line Location: RPAR+0
Function Call: WRITE
  • Prompt: !,"TYPE^CATEGORY^SUB-CATEGORY^VALUE^METHOD^INCLUDE/EXCLUDE"
  • Line Location: RPAR+1
Function Call: WRITE
  • Prompt: !,"FORMAT^",$P($T(F+SDI^SCRPW22),";;",2),"^(none)^",$P(SDPAR("F",SDI),U,2),"^^"
  • Line Location: RPAR+2
Function Call: WRITE
  • Prompt: !,"LIMITATION^",$P($T(L+SDI^SCRPW22),";;",2),"^(none)^",$P(SDPAR("L",SDI),U,2),"^^"
  • Line Location: RPAR+3
Function Call: WRITE
  • Prompt: !,"ORDER^",$P($T(O+SDI^SCRPW22),";;",2),"^(none)^",$P($G(SDPAR("O",SDI)),U,2),"^^"
  • Line Location: RPAR+5
Function Call: WRITE
  • Prompt: !,"ADDL. PRINT FIELD^",$P(SDX,U,2),U,$P(SDX,U,3)
  • Line Location: RPAR+6
Function Call: WRITE
  • Prompt: !,$$BRK("Report Summary")
  • Line Location: RSUM+1
Function Call: WRITE
  • Prompt: !,$P(SDPAR("P",1,1),U,2),U,"ENCOUNTERS",U,"VISITS",U,"UNIQUES"
  • Line Location: RSUM+2
Function Call: WRITE
  • Prompt: U,"PRIOR YEAR ENCOUNTERS",U,"PRIOR YEAR VISITS",U,"PRIOR YEAR UNIQUES",U,"% CHANGE ENCOUNTERS",U,"% CHANGE VISITS",U,"% CHANGE UNIQUES"
  • Line Location: RSUM+3
Function Call: WRITE
  • Prompt: !,"No data found within selected parameters."
  • Line Location: RSUM+4
Function Call: WRITE
  • Prompt: !,SDX
  • Line Location: RSUM1+5
Function Call: WRITE
  • Prompt: U,$S(SDX(SDI)="N/A":$J(SDX(SDI),8),1:$J(SDX(SDI),8,$S(SDI<6:0,SDX(SDI)'<100000:0,SDX(SDI)'<10000:1,1:2)))
  • Line Location: RSUM1+5
Function Call: WRITE
  • Prompt: !,$$BRK(SDX1)
  • Line Location: DPTL+2
Function Call: WRITE
  • Prompt: !,"PATIENT",U,"SSN"
  • Line Location: DPTL+3
Function Call: WRITE
  • Prompt: U,"DATE"
  • Line Location: DPTL+3
Function Call: WRITE
  • Prompt: U,"DATE"
  • Line Location: DPTL+3
Function Call: WRITE
  • Prompt: !,$$BRK(SDX1_" (LINKED SUB-TABLE)")
  • Line Location: DPTL+7
Function Call: WRITE
  • Prompt: !,"LINK^DATA VALUE"
  • Line Location: DPTL+7
Function Call: WRITE
  • Prompt: !,SDAPFM,U,^TMP("SCRPW",$J,"APFM",SDAPFM,SDX)
  • Line Location: DPTL+8
Function Call: WRITE
  • Prompt: !,SDPNAM,U,$P($G(^DPT(DFN,0)),U,9)
  • Line Location: DPTL1+0
Function Call: WRITE
  • Prompt: !,SDPNAM,U,$P($G(^DPT(DFN,0)),U,9)
  • Line Location: DPTL2+0
Function Call: WRITE
  • Prompt: U,Y
  • Line Location: DPTL2+0
Function Call: WRITE
  • Prompt: !,SDPNAM,U,$P($G(^DPT(DFN,0)),U,9),U,Y,U,SDCL
  • Line Location: DPTL3+1
Function Call: WRITE
  • Prompt: !,$$BRK($P(SDPAR("P",1,1),U,2)_": "_$$EXT()_" - Diagnosis ranking")
  • Line Location: DDXP+1
Function Call: WRITE
  • Prompt: !,"DIAGNOSIS",U,"PRIMARY",U,"SECONDARY",U,"TOTAL"
  • Line Location: DDXP+2
Function Call: WRITE
  • Prompt: !,"No diagnoses found for this detail item."
  • Line Location: DDXP+3
Function Call: WRITE
  • Prompt: !,"TOTAL",U,$J(SDTCT(1),10),U,$J(SDTCT(2),10),U,$J(SDTCT(3),10)
  • Line Location: DDXP+5
Function Call: WRITE
  • Prompt: !,$$BRK($P(SDPAR("P",1,1),U,2)_": "_$$EXT()_" - Ambulatory procedure ranking")
  • Line Location: DAPP+0
Function Call: WRITE
  • Prompt: !,"PROCEDURES",U,"TOTAL"
  • Line Location: DAPP+0
Function Call: WRITE
  • Prompt: !,"No procedures found for this detail item."
  • Line Location: DAPP+1
Function Call: WRITE
  • Prompt: !,"TOTAL",U,$J(SDTCT(1),10)
  • Line Location: DAPP+3
Function Call: WRITE
  • Prompt: !,SDS3,U,$J(SDICT(1),10),U,$J(SDICT(2),10),U,$J(SDICT(3),10)
  • Line Location: DDXP1+1
Function Call: WRITE
  • Prompt: !,SDS3,U,$J(SDICT(1),10)
  • Line Location: DAPP1+1
Function Call: WRITE
  • Prompt: U,$P(^TMP("SCRPW",$J,"ACT",$P(SDX,U)),T)
  • Line Location: APFH+2
Function Call: WRITE
  • Prompt: " (LINK)"
  • Condition for execution: $P(^TMP("SCRPW",$J,"ACT",$P(SDX,U)),T,12)
  • Line Location: APFH+2
Function Call: WRITE
  • Prompt: U,$$APF()
  • Line Location: APFP+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DPTL2, DPTL3
^DPT - [#2] DPTL1, DPTL2, DPTL3+1
^SC - [#44] DPTL3
^TMP("SCRPW" RSUM+4, RSUM+5, RSUM0, RSUM1+2, RSUM1+3, RDET, RDET1, DSV+1, DSV+2*, DSV+3*
, DPTL+4!, DPTL+5, DPTL+6, DPTL+8, DPTL1+1, DPTL2+1, DPTL3, DDXP+3, DDXP+4, DAPP+1
, DAPP+2, DDXP1, DAPP1, APFH+2, APFP+2, APF+1*

Label References

Name Line Occurrences
$$APF APFP+2
$$BRK RPAR, RSUM+1, DPTL+2, DPTL+7, DDXP+1, DAPP
$$DSV DPTL+1
$$EXT DPTL+2, DDXP+1, DAPP
$$OE0 APFP+2
APFH DPTL+4
APFP DPTL1, DPTL2, DPTL3+1
CALC RSUM1+4
DAPP DDXP+3
DAPP1 DAPP+2
DDXP RDET1+1
DDXP1 DDXP+4
DPTL RDET1+1
DPTL1 DPTL+5
DPTL2 DPTL1+1
DPTL3 DPTL2+1
IPRT ITEM+1, ITEM+4, ITEM+6
ITEM RPAR+3, RPAR+4
RDET PDF+1
RDET1 RDET
RPAR PDF+1
RSUM PDF+1
RSUM0 RSUM+5
RSUM1 RSUM+6, RSUM0
STOP RSUM1, DPTL+8, DPTL1, DPTL2, DPTL3, DDXP1+1, DAPP1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN DPTL+5*, DPTL1, DPTL1+1, DPTL2, DPTL2+1, DPTL3, DPTL3+1, OE0+1
S1 APFH+1~, APFH+2*, APFP+1~, APFP+2*
S2 APFH+1~, APFH+2*, APFP+1~, APFP+2*
SD ITEM+1!
SD( IPRT
SD(1 ITEM+1*
SD(2 ITEM+1*
SD(3 ITEM+1*
SD(4 ITEM+4*, ITEM+6*
SD(5 ITEM+2*
SD(6 ITEM+2*
SDACT APFP+1~, APFP+2*, APF
>> SDAPFM DPTL+4*, DPTL+8*, APF+1*, APF+2
>> SDCL DPTL3*, DPTL3+1
>> SDCT DDXP+4*, DAPP+2*, DDXP1+1*, DAPP1+1*
SDDSV DPTL+1~*, DPTL+5, DPTL1+1, DPTL2+1, DPTL3
>> SDDT DPTL2+1*, DPTL3
>> SDENC RDET1*
>> SDF(1 RDET
>> SDF(2 RSUM+3, RSUM1+3, RSUM1+4
>> SDF(3 RDET1+1
>> SDF(4 DPTL+2, DPTL+3, DPTL1, DPTL2, OE0+1
>> SDF(5 DDXP+4, DAPP+2
SDI RPAR+2*, RPAR+3*, RPAR+4*, RPAR+5*, RPAR+6*, IPRT~*, RSUM1+4*, RSUM1+5*, CALC~, CALC+1
, DDXP1*
>> SDICT( DDXP1*
>> SDICT(1 DDXP1+1, DAPP1*, DAPP1+1
>> SDICT(2 DDXP1+1
>> SDICT(3 DDXP1+1
>> SDII RPAR+6*
>> SDOE DPTL2+1*, DPTL3, OE0+2
SDOE0 APFP+1~, APFP+2*
>> SDORD RSUM+5
>> SDORDV RSUM+5*, RSUM0
>> SDOUT PDF+1*, RPAR, BRK+1, RSUM+1, RSUM+5, RSUM+6, RSUM0, RSUM1, RDET, RDET1+1
, DPTL+2, DPTL+5, DPTL+7, DPTL+8, DPTL1+1, DPTL2+1, DPTL3, DDXP+1, DDXP+4, DDXP+5
, DAPP, DAPP+2, DAPP+3
>> SDPAR( ITEM+1, ITEM+2, ITEM+3, ITEM+4, ITEM+6
>> SDPAR("F" RPAR+2
>> SDPAR("L" RPAR+3, RPAR+4
>> SDPAR("O" RPAR+5
>> SDPAR("P" EXT+1, RSUM+2, RSUM1+1, DPTL+2, DDXP+1, DAPP
>> SDPAR("PF" RPAR+6, DPTL+4, APFH+2, APFP+2
SDPER DSV~, DSV+1, DSV+3
>> SDPNAM DPTL+5*, DPTL1, DPTL1+1, DPTL2, DPTL2+1, DPTL3, DPTL3+1
>> SDQT DDXP+4*, DAPP+2*
SDRPT RSUM1~, RSUM1+1, RSUM1+2, RSUM1+3
SDS1 ITEM~, ITEM+1, ITEM+2, ITEM+3, ITEM+4, ITEM+6, EXT+1, RSUM0*, RSUM1~, RSUM1+1
, RSUM1+2, RSUM1+3, RDET*, RDET1, DPTL+1, DDXP+3, DDXP+4, DAPP+1, DAPP+2, DDXP1
, DAPP1
SDS2 ITEM~, ITEM+1, ITEM+2, ITEM+3, ITEM+4, ITEM+6, EXT+1, RSUM0*, RSUM1~, RSUM1+1
, RSUM1+2, RSUM1+3, RDET*, RDET1, DPTL+1, DDXP+3, DDXP+4, DAPP+1, DAPP+2, DDXP1
, DAPP1
>> SDS3 ITEM+3*, ITEM+4*, ITEM+6*, DDXP+4*, DAPP+2*, DDXP1, DDXP1+1, DAPP1, DAPP1+1
>> SDSTOP PDF+1*, STOP*
>> SDT DPTL1+1*, DPTL2, DPTL2+1, DPTL3
SDTCT DDXP+4!, DAPP+2!
SDTCT( DDXP1*
SDTCT(1 DDXP+5, DAPP+3, DAPP1*
SDTCT(2 DDXP+5
SDTCT(3 DDXP+5
>> SDUNI RDET1*
>> SDVIS RDET1*
SDX RPAR+6*, BRK~, BRK+2, RSUM1+1!*, RSUM1+5, DSV+1~*, DSV+2*, DSV+3, DPTL+8*, APFH+1~
, APFH+2*, APFP+1~, APFP+2!, APF*, APF+1*
SDX( RSUM1+5, CALC+1*, APF, APF+1
SDX(0 RSUM1+2*
SDX(1 RSUM1+2*
SDX(2 RSUM1+2*
SDX(3 RSUM1+3*
SDX(4 RSUM1+3*
SDX(5 RSUM1+3*
SDX1 DPTL+1~, DPTL+2*, DPTL+7
SDY BRK+2~*, BRK+3, APFP+1~, APFP+2*
SDZ APF~*
>> T APFH+2, APFP+2, APF
U RPAR+2, RPAR+3, RPAR+5, RPAR+6, ITEM+1, ITEM+2, IPRT, RSUM+2, RSUM+3, RSUM1+5
, DSV+1, DSV+3, DPTL+2, DPTL+3, DPTL+8, DPTL1, DPTL2, DPTL3, DPTL3+1, DDXP+1
, DDXP+2, DDXP+5, DAPP, DAPP+3, DDXP1, DDXP1+1, DAPP1+1, APFH+2, APFP+2, APF
, APF+1, OE0+1
>> Y DPTL2*, DPTL3*, DPTL3+1

Marked Items

Name Field # of Occurrence
$T(F+SDI^SCRPW22 RPAR+2
$T(L+SDI^SCRPW22 RPAR+3
$T(O+SDI^SCRPW22 RPAR+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All