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

Package: Scheduling

Routine: SCRPW40


Information

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

Source Information

Source file <SCRPW40.m>

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

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