Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls