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

Package: Scheduling

Routine: SCRPW301


Information

SCRPW301 ; BPFO/JRC - Performance Monitor Detailed Report ; 2/3/04 7:33am

Source Information

Source file <SCRPW301.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Main entry point for generation of local detailed report
EN1 ;Tasked entry point
SUMMARY ;Summary Page
PRTSUMS ;Print summaries
WAIT ;End of page logic
PRTHEAD ;Report Heading
PRTDTL ;Print detail line
SUB1SUM ;Summary for primary sort
EXIT ;Kill temporary arrays
EX1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"** REPORT REQUIRES 132 COLUMNS TO PRINT CORRECTLY **",!!
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SUMMARY+8
Function Call: WRITE
  • Prompt: !,"Performance Monitor Detailed Report",?120,"Page: ",PAGENUM
  • Line Location: SUMMARY+9
Function Call: WRITE
  • Prompt: !!,"Run Date: ",$$HTE^XLFDT($H)
  • Line Location: SUMMARY+10
Function Call: WRITE
  • Prompt: !!,"Encounter Date Range: ",?15,$$FMTE^XLFDT($P(@SCRNARR@("RANGE"),U,1))
  • Line Location: SUMMARY+11
Function Call: WRITE
  • Prompt: " to ",$$FMTE^XLFDT($P(@SCRNARR@("RANGE"),U,2))
  • Line Location: SUMMARY+12
Function Call: WRITE
  • Prompt: !!,"Time limit for acceptable signatures: ",@SCRNARR@("TLMT")
  • Line Location: SUMMARY+13
Function Call: WRITE
  • Prompt: !!,"Division(s): "
  • Line Location: SUMMARY+14
Function Call: WRITE
  • Prompt: !,?13,"/ "
  • Line Location: SUMMARY+19
Function Call: WRITE
  • Prompt: " / "
  • Line Location: SUMMARY+20
Function Call: WRITE
  • Prompt: "All"
  • Line Location: SUMMARY+24
Function Call: WRITE
  • Prompt: !!,"Provider(s): "
  • Line Location: SUMMARY+25
Function Call: WRITE
  • Prompt: !,?13,"/ "
  • Line Location: SUMMARY+30
Function Call: WRITE
  • Prompt: " / "
  • Line Location: SUMMARY+31
Function Call: WRITE
  • Prompt: "All"
  • Line Location: SUMMARY+35
Function Call: WRITE
  • Prompt: !!,"DSS ID(s) : "
  • Line Location: SUMMARY+36
Function Call: WRITE
  • Prompt: "All stop codes & credit pairs in national cohort"
  • Line Location: SUMMARY+38
Function Call: WRITE
  • Prompt: !,?13,"/ "
  • Line Location: SUMMARY+42
Function Call: WRITE
  • Prompt: " / "
  • Line Location: SUMMARY+43
Function Call: WRITE
  • Prompt: "All"
  • Line Location: SUMMARY+46
Function Call: WRITE
  • Prompt: !!,"Count encounters with scanned notes: ",$S(@SCRNARR@("SCANNED"):"YES",1:"NO")
  • Line Location: SUMMARY+47
Function Call: WRITE
  • Prompt: !!,"Total for facility ",$P(INFO,"^",2)," (",$P(INFO,"^",3),")"
  • Line Location: SUMMARY+54
Function Call: WRITE
  • Prompt: !!
  • Line Location: SUMMARY+55
Function Call: WRITE
  • Prompt: !,"Encounters (denominator): ",+$P(INFO,U,1)
  • Line Location: PRTSUMS+6
Function Call: WRITE
  • Prompt: ?34,"Compliant Notes (numerator): ",+$P(INFO,U,2)
  • Line Location: PRTSUMS+7
Function Call: WRITE
  • Prompt: ?69,"Compliance Rate: "
  • Line Location: PRTSUMS+8
Function Call: WRITE
  • Prompt: $TR($J(VAL,3,0)," ")_" %"
  • Line Location: PRTSUMS+10
Function Call: WRITE
  • Prompt: !,?5,"Encounter Providers: ",+$P(INFO,U,4)
  • Line Location: PRTSUMS+11
Function Call: WRITE
  • Prompt: ?34,"DSS IDs: ",+$P(INFO,U,5),?53,"Ave Time: "
  • Line Location: PRTSUMS+12
Function Call: WRITE
  • Prompt: $TR($J(VAL,3,0)," ")
  • Line Location: PRTSUMS+14
Function Call: WRITE
  • Prompt: ?71,"Scanned Notes: ",+$P(INFO,U,7)
  • Line Location: PRTSUMS+15
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIT+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRTHEAD+12
Function Call: WRITE
  • Prompt: !,"Performance indicator detailed report",?120,"Page: ",PAGENUM
  • Line Location: PRTHEAD+13
Function Call: WRITE
  • Prompt: !!,"Report for ",$P(SORTTEXT,U,1)," "
  • Line Location: PRTHEAD+14
Function Call: WRITE
  • Prompt: $P(SUB1,U,1)," (",$P(SUB1,U,2),")"
  • Line Location: PRTHEAD+16
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(SUB1,"D")
  • Line Location: PRTHEAD+17
Function Call: WRITE
  • Prompt: " sorted by ",$P(SORTTEXT,U,2)
  • Line Location: PRTHEAD+19
Function Call: WRITE
  • Prompt: !!,"Encounter",?40,"Primary Encounter",?62,"DSS"
  • Line Location: PRTHEAD+20
Function Call: WRITE
  • Prompt: ?89,"Acceptable Provider",?112,"Date",?122,"Time"
  • Line Location: PRTHEAD+21
Function Call: WRITE
  • Prompt: !,"Date",?11,"Patient Name",?34,"SSN",?40,"Provider",?62,"ID"
  • Line Location: PRTHEAD+22
Function Call: WRITE
  • Prompt: ?67,"Clinic Name",?89,"Signing Progress Note",?112,"Signed"
  • Line Location: PRTHEAD+23
Function Call: WRITE
  • Prompt: ?122,"Span"
  • Line Location: PRTHEAD+24
Function Call: WRITE
  • Prompt: !,$E(DASH,1,9),?11,$E(DASH,1,21),?34,$E(DASH,1,4),?40,$E(DASH,1,20)
  • Line Location: PRTHEAD+25
Function Call: WRITE
  • Prompt: ?62,$E(DASH,1,3),?67,$E(DASH,1,20),?89,$E(DASH,1,21),?112,$E(DASH,1,8)
  • Line Location: PRTHEAD+26
Function Call: WRITE
  • Prompt: ?122,$E(DASH,1,5)
  • Line Location: PRTHEAD+27
Function Call: WRITE
  • Prompt: !,$TR(VAL," ","0")
  • Line Location: PRTDTL+11
Function Call: WRITE
  • Prompt: ?11,$E(VADM(1),1,21)
  • Line Location: PRTDTL+12
Function Call: WRITE
  • Prompt: ?34,$E($P(VADM(2),U,1),6,10)
  • Line Location: PRTDTL+13
Function Call: WRITE
  • Prompt: ?40,$E($P($G(^VA(200,PROV,0)),U,1),1,20)
  • Line Location: PRTDTL+14
Function Call: WRITE
  • Prompt: ?40,"Provider Unknown"
  • Line Location: PRTDTL+15
Function Call: WRITE
  • Prompt: ?62,VAL
  • Line Location: PRTDTL+19
Function Call: WRITE
  • Prompt: ?67,$E(VAL,1,20)
  • Line Location: PRTDTL+23
Function Call: WRITE
  • Prompt: ?89,$E($P($G(^VA(200,VAL,0)),U,1),1,21)
  • Line Location: PRTDTL+25
Function Call: WRITE
  • Prompt: ?112,$TR(VAL," ","0")
  • Line Location: PRTDTL+27
Function Call: WRITE
  • Prompt: ?122,$P(INFO,U,3)
  • Line Location: PRTDTL+28
Function Call: WRITE
  • Prompt: !!,"Total for ",$P(SORTTEXT,U,1)," "
  • Line Location: SUB1SUM+11
Function Call: WRITE
  • Prompt: $P(SUB1,U,1)," (",$P(SUB1,U,2),")"
  • Line Location: SUB1SUM+13
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(SUB1,"D")
  • Line Location: SUB1SUM+14
Info |  Source |  Entry Points |  Interaction Calls