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

Package: Scheduling

Routine: SCRPW27


Information

SCRPW27 ;RENO/KEITH - ACRP Ad Hoc Report (cont.) ;03 Aug 98 9:06 PM

Source Information

Source file <SCRPW27.m>

Entry Points

Name Comments DBIA/ICR reference
PRT ;Print ACRP Ad Hoc Report
HIN ;Header initialization
PFT ;Print as formatted text
PPAR ;Print parameters only
RPAR ;Print report parameters
RPRT ;Print formatted report
RPRT0
RPRT1(SDRPT,SDS1,SDS2)
CALC(SDI) ;Calculate % change
RDET
RDET1
DSV(SDPER) ;Encrypt detail sort values
DPTL ;Detail patient list
DPTL1
DPTL2
DPTL3
DDXP ;Detail dx/procedure lists
DDXP0
DAPP
DAPP0
DDXP1
DAPP1
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PFT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RPRT+1
Function Call: WRITE
  • Prompt: !!?(IOM-$L(SDX)\2),SDX
  • Line Location: RPRT+2
Function Call: WRITE
  • Prompt: !?(SDCOL),"========================================== ======== ======== ======== "
  • Line Location: RPRT1+6
Function Call: WRITE
  • Prompt: "======== ======== ======== ======== ======== ========"
  • Condition for execution: SDCOL=0
  • Line Location: RPRT1+6
Function Call: WRITE
  • Prompt: !?(SDCOL),$E(^UTILITY($J,"W",DIWL,SDL2,0),1,42)
  • Line Location: RPRT1+8
Function Call: WRITE
  • Prompt: ?(SDCOL+44+(10*SDI)),$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: RPRT1+9
Function Call: WRITE
  • Prompt: !?(SDCOL+19),SDPNAM,?(SDCOL+51),$P($G(^DPT(DFN,0)),U,9)
  • Line Location: DPTL1+0
Function Call: WRITE
  • Prompt: !?(SDCOL+13),SDPNAM,?(SDCOL+45),$P($G(^DPT(DFN,0)),U,9)
  • Line Location: DPTL2+0
Function Call: WRITE
  • Prompt: ?(SDCOL+57),Y
  • Line Location: DPTL2+0
Function Call: WRITE
  • Prompt: !?(SDCOL),$E(SDPNAM,1,18),?(SDCOL+20),$P($G(^DPT(DFN,0)),U,9)
  • Line Location: DPTL3+2
Function Call: WRITE
  • Prompt: ?(SDCOL+32),$P(Y,":",1,2),?(SDCOL+52),$E(SDCL,1,28)
  • Line Location: DPTL3+2
Function Call: WRITE
  • Prompt: !!,"No diagnoses found for this detail item."
  • Line Location: DDXP0+0
Function Call: WRITE
  • Prompt: !?(SDCOL),"==========================================",?(SDCOL+46),"==========",?(SDCOL+61),"==========",?(SDCOL+76),"==========",!?(SDCOL),"TOTAL:",?(SDCOL+46),$J(SDTCT(1),10),?(SDCOL+61),$J(SDTCT(2),10),?(SDCOL+76),$J(SDTCT(3),10)
  • Line Location: DDXP0+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: DAPP+1
Function Call: WRITE
  • Prompt: !!,"No procedures found for this detail item."
  • Line Location: DAPP0+0
Function Call: WRITE
  • Prompt: !?(SDCOL+13),"======================================",?(SDCOL+56),"==========",!?(SDCOL+13),"TOTAL:",?(SDCOL+56),$J(SDTCT(1),10)
  • Line Location: DAPP0+3
Function Call: WRITE
  • Prompt: !?(SDCOL),$E(^UTILITY($J,"W",DIWL,SDL2,0),1,42)
  • Line Location: DDXP1+2
Function Call: WRITE
  • Prompt: ?(SDCOL+46),$J(SDICT(1),10),?(SDCOL+61),$J(SDICT(2),10),?(SDCOL+76),$J(SDICT(3),10)
  • Line Location: DDXP1+3
Function Call: WRITE
  • Prompt: !?(SDCOL+13),SDS3,?(SDCOL+56),$J(SDICT(1),10)
  • Line Location: DAPP1+1
Info |  Source |  Entry Points |  Interaction Calls