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

Package: Scheduling

Routine: SCRPW15


Information

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

Source Information

Source file <SCRPW15.m>

Entry Points

Name Comments DBIA/ICR reference
EXIT
DCAL ;Calculate numbers for a division
DPRT(SDIV) ;Print report for a division
S1
ORD() ;Produce sort value
HDR(SDPG) ;Print page header
RTOT ;Print report total
T3
PVIEW(SDCOL,SDSKIP) ;Print report parameters
PDIV
SNAME() ;Produce item name
PRT ;Print data
DX ;Print diagnosis information
DX1 ;
DXHD ;Diagnosis sub-header
PROC ;Print procedure information
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
PROCHD
NONE ;List items with no activity
NO1

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