Routine: SCRPW301

Package	Total	Call Graph
Scheduling	4	($$DATE,$$DIV,$$PROV,$$SCAN,$$TLMT)^SCRPW302 ($$DSS,$$SORT)^SCRPW303 GETDATA^SDPMUT1 $$ENCPROV^SDPMUT2
Kernel	3	$$S^%ZTLOAD ($$FMTE,$$HTE)^XLFDT EN^XUTMDEVQ
Registration	2	DEM^VADPT $$SITE^VASITE
VA Fileman	2	$$OREF^DILF ^DIR

Package	Total	Caller Graph
Scheduling	1	SCRPW304

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

Name	Field # of Occurrence
$$S^%ZTLOAD	SUMMARY+55, WAIT+14
$$OREF^DILF	EN+26, EN+30
^DIR	WAIT+11
$$DATE^SCRPW302	EN+9
$$DIV^SCRPW302	EN+11
$$PROV^SCRPW302	EN+13
$$SCAN^SCRPW302	EN+17
$$TLMT^SCRPW302	EN+7
$$DSS^SCRPW303	EN+15
$$SORT^SCRPW303	EN+19
GETDATA^SDPMUT1	EN1+12
$$ENCPROV^SDPMUT2	PRTDTL+8
DEM^VADPT	PRTDTL+7
$$SITE^VASITE	SUMMARY+53
$$FMTE^XLFDT	SUMMARY+11, SUMMARY+12, PRTHEAD+17, PRTDTL+10, PRTDTL+27, SUB1SUM+14
$$HTE^XLFDT	SUMMARY+10
EN^XUTMDEVQ	EN+33

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
Routine Call	DIR Line Location: WAIT+11

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	PRTDTL+17
^SC - [#44]	PRTDTL+21
^SCE - [#409.68]	PRTDTL+9
^VA(200 - [#200]	PRTDTL+14, PRTDTL+25

Name	Line Occurrences
EX1	EN+7, EN+9, EN+11, EN+13, EN+15, EN+17, EN+19, EN+34
EXIT	EN1+15, EN1+17, EN1+35
PRTDTL	EN1+26
PRTHEAD	EN1+21, EN1+27, SUB1SUM+7
PRTSUMS	SUMMARY+57, SUB1SUM+16
SUB1SUM	EN1+32
SUMMARY	EN1+15
WAIT	EN1+15, EN1+27, EN1+32, SUB1SUM+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DASH	PRTHEAD+7~, PRTHEAD+11*, PRTHEAD+25, PRTHEAD+26, PRTHEAD+27
DFN	EN1+6~, EN1+23*, EN1+24, EN1+25
DIR	WAIT+9~
DIR(0	WAIT+10*
DIROUT	WAIT+9~
DIRUT	WAIT+9~
DIV	EN1+7~, SUMMARY+7~, SUMMARY+17*, SUMMARY+18
DSS	SUMMARY+7~, SUMMARY+40*, SUMMARY+41
DTOUT	WAIT+9~
DUOUT	WAIT+9~
ENODE	EN1+6~, PRTDTL+6~, PRTDTL+9*, PRTDTL+10, PRTDTL+16, PRTDTL+20
INFO	EN1+25, SUMMARY+7~, SUMMARY+18, SUMMARY+19, SUMMARY+21, SUMMARY+29, SUMMARY+30, SUMMARY+32, SUMMARY+41, SUMMARY+42 , SUMMARY+44, SUMMARY+53, SUMMARY+54, SUMMARY+56, PRTSUMS+6, PRTSUMS+7, PRTSUMS+9, PRTSUMS+11, PRTSUMS+12, PRTSUMS+13 , PRTSUMS+15, PRTDTL+24, PRTDTL+26, PRTDTL+28, SUB1SUM+6~, SUB1SUM+10*
IOF	SUMMARY+8, PRTHEAD+12
IOM	SUMMARY+19, SUMMARY+30, SUMMARY+42, PRTHEAD+11
IOSL	EN1+27, WAIT+7, WAIT+8, SUB1SUM+7
IOST	SUMMARY+8, WAIT+7
OUTARR	EN1+6~, EN1+8*, EN1+10, EN1+12, EN1+17, EN1+20, EN1+22, EN1+23, EN1+24, EN1+25 , SUMMARY+48, SUMMARY+56, SUB1SUM+10, EXIT+1
PAGENUM	EN1+6~, EN1+14, SUMMARY+9, PRTHEAD+10, PRTHEAD+13
PROV	EN1+7~, SUMMARY+7~, SUMMARY+28, SUMMARY+29, PRTDTL+6~, PRTDTL+8, PRTDTL+14, PRTDTL+15
PS	SUMMARY+7~, SUMMARY+16, SUMMARY+19, SUMMARY+20, SUMMARY+22, SUMMARY+27, SUMMARY+30, SUMMARY+31, SUMMARY+33, SUMMARY+39* , SUMMARY+42, SUMMARY+43, SUMMARY+45
PTRENC	EN1+7~, EN1+24*, EN1+25, PRTDTL+8, PRTDTL+9
SCRNARR	EN+2~, EN+3*, EN+5, EN+7, EN+9, EN+11, EN+13, EN+15, EN+17, EN+26 , EN+28, EN1+12, SUMMARY+11, SUMMARY+12, SUMMARY+13, SUMMARY+15, SUMMARY+17, SUMMARY+18, SUMMARY+24, SUMMARY+26 , SUMMARY+28, SUMMARY+29, SUMMARY+35, SUMMARY+37, SUMMARY+38, SUMMARY+40, SUMMARY+41, SUMMARY+46, SUMMARY+47, PRTSUMS+15 , EX1
SORT	PRTHEAD+7~, PRTHEAD+8, PRTHEAD+15, SUB1SUM+6~, SUB1SUM+8, SUB1SUM+12
SORTARR	EN+2~, EN+4*, EN+5, EN+19, EN+30, EN+32, EN1+12, PRTHEAD+8, PRTHEAD+9, SUB1SUM+8 , SUB1SUM+9, EX1
SORTTEXT	PRTHEAD+7~, PRTHEAD+9, PRTHEAD+14, PRTHEAD+19, SUB1SUM+6~, SUB1SUM+9, SUB1SUM+11
STOP	EN1+7~, EN1+9, EN1+15, EN1+19, EN1+20, EN1+22, EN1+23, EN1+24, EN1+27, EN1+31 , WAIT+5, WAIT+12, WAIT+14*, WAIT+15, SUB1SUM+7
SUB1	EN1+7~, EN1+20*, EN1+22, EN1+23, EN1+24, EN1+25, PRTHEAD+16, PRTHEAD+17, PRTHEAD+18, SUB1SUM+10 , SUB1SUM+13, SUB1SUM+14, SUB1SUM+15
SUB2	EN1+7~, EN1+22*, EN1+23, EN1+24, EN1+25
TMP	EN+22~, EN+26, EN+27, EN+30, EN+31, EN1+6~
TNODE	EN1+7~
TYPE	PRTHEAD+7~, PRTHEAD+15, PRTHEAD+16, PRTHEAD+17, SUB1SUM+6~, SUB1SUM+12, SUB1SUM+13, SUB1SUM+14
U	SUMMARY+11, SUMMARY+12, PRTSUMS+6, PRTSUMS+7, PRTSUMS+9, PRTSUMS+11, PRTSUMS+12, PRTSUMS+13, PRTSUMS+15, PRTHEAD+14 , PRTHEAD+15, PRTHEAD+16, PRTHEAD+19, PRTDTL+10, PRTDTL+13, PRTDTL+14, PRTDTL+16, PRTDTL+17, PRTDTL+20, PRTDTL+21 , PRTDTL+24, PRTDTL+25, PRTDTL+26, PRTDTL+28, SUB1SUM+11, SUB1SUM+12, SUB1SUM+13
VA	PRTDTL+6~
VADM	PRTDTL+6~
VADM(1	PRTDTL+12
VADM(2	PRTDTL+13
VAERR	PRTDTL+6~
VAL	PRTSUMS+5~, PRTSUMS+9, PRTSUMS+10, PRTSUMS+13, PRTSUMS+14, PRTDTL+6~, PRTDTL+10, PRTDTL+11, PRTDTL+16, PRTDTL+17* , PRTDTL+18, PRTDTL+19, PRTDTL+20, PRTDTL+21, PRTDTL+22, PRTDTL+23, PRTDTL+24, PRTDTL+25, PRTDTL+26, PRTDTL+27*
X	WAIT+9~
Y	WAIT+9~, WAIT+12
ZTDESC	EN+22~, EN+24*, EN+33
ZTIO	EN+22~, EN+23*
ZTSAVE	EN+22~, EN+33
ZTSAVE(	EN+27, EN+28, EN+31, EN+32
ZTSAVE("SCRNARR"	EN+25*
ZTSAVE("SORTARR"	EN+29*

Customize PDF page

Package: Scheduling

Routine: SCRPW301

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: