Routine: ECREDIT

Information

ECREDIT ;ALB/CMD - Event Capture Edit Log Report ;Nov 16, 2022@13:37:55

Package	Total	Call Graph
Event Capture	2	DSSHDR^ECCLIPRO ($$GETDSSN,$$GETPROC,$$GETPROV,$$GETSSN)^ECRDSSA
Kernel	2	($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR
VA FileMan	2	YX^%DTC GETS^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Event Capture	1	ECRRPT2

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Main entry point for report
GETREC(SORT)	; Loop through "ADT" xref of EVENT CAPTURE PATIENT (#721) file and find records to put on report ; Input: ; SORT - sort type
BLDTMP(ECIEN,ECSRT,ECCNT)	;add record to list ; Input: ; ECIEN - IEN in the EVENT CAPTURE PATIENT (#721) file ; ECSRT - sort type "D" or "U" ; ECCNT - record counter
PRINT	;loop results array and format output
HDR	; print heading

External References

Name	Field # of Occurrence
YX^%DTC	EN+2
GETS^DIQ	BLDTMP+14
DSSHDR^ECCLIPRO	PRINT+35
$$GETDSSN^ECRDSSA	PRINT+42
$$GETPROC^ECRDSSA	BLDTMP+22
$$GETPROV^ECRDSSA	BLDTMP+23
$$GETSSN^ECRDSSA	BLDTMP+21
$$FMTE^XLFDT	BLDTMP+18, PRINT+17, PRINT+18, PRINT+19
$$NOW^XLFDT	PRINT+17
$$REPEAT^XLFSTR	HDR+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: ! Condition for execution: $G(PAGE) Line Location: HDR+2
Function Call: WRITE	Prompt: !?30,"EVENT CAPTURE EDIT LOG REPORT",?80,"Run Date: ",ECRDT,?122,"Page:",PAGE Line Location: HDR+4
Function Call: WRITE	Prompt: !!,?35,"For Location: ",ECCLOC Line Location: HDR+5
Function Call: WRITE	Prompt: !,?35,"Date Range: ",ECFDT," - ",ECTDT Line Location: HDR+6
Function Call: WRITE	Prompt: !,?35,"Sorted By: ",ECSRTBY,! Line Location: HDR+7
Function Call: WRITE	Prompt: !!,"PATIENT",?32,"SSN",?38,"PROCEDURE",?50,"DATE OF",?62,"PROVIDER",?98,"ENTERED/EDITED" Line Location: HDR+8
Function Call: WRITE	Prompt: !,?50,"PROCEDURE",?62,"NAME",?98,"BY STAFF NAME" Line Location: HDR+9
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",132) Line Location: HDR+10

FileNo	Call Tags
^ECH - [#721]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ECH - [#721]	GETREC+25
^ECH("AC"	GETREC+23, GETREC+24
^TMP($J	EN+3!, EN+5!, EN+7, EN+8!, BLDTMP+26, BLDTMP+27, BLDTMP+28, PRINT+23, PRINT+26, PRINT+29 , PRINT+32, PRINT+36, PRINT+38, PRINT+40, PRINT+41, PRINT+42*

Label References

Name	Line Occurrences
BLDTMP	GETREC+28
GETREC	EN+4
HDR	PRINT+25, PRINT+29, PRINT+30, PRINT+36, PRINT+44
PRINT	EN+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%H	EN+1~, EN+2*
CNT	PRINT+16~, PRINT+31, PRINT+39, PRINT+40*, PRINT+41
ECCDSS	PRINT+5~, PRINT+31, PRINT+32, PRINT+33, PRINT+34, PRINT+35, PRINT+36, PRINT+38, PRINT+40, PRINT+41 , PRINT+42
ECCLOC	PRINT+2~, PRINT+20, PRINT+24, PRINT+26*, PRINT+27, PRINT+28, PRINT+29, PRINT+32, PRINT+36, PRINT+38 , PRINT+40, PRINT+41, PRINT+42, HDR+5
ECCNT	BLDTMP~, BLDTMP+11*, BLDTMP+26, PRINT+8~
ECD	GETREC+8~
ECDAT	PRINT+9~
ECDFN	GETREC+9~
ECDSS	BLDTMP+9~, BLDTMP+16*, BLDTMP+26, BLDTMP+28
ECDSSF	GETREC+11~, GETREC+26*, GETREC+27
ECDSSNM	PRINT+7~
>> ECDSSU	PRINT+42
>> ECDSSU(	GETREC+20, GETREC+21
ECDT	GETREC+12~, GETREC+22, GETREC+23, GETREC+24
>> ECED	GETREC+22*, GETREC+23, PRINT+19
ECERR	BLDTMP+9~
ECFDT	PRINT+11~, PRINT+18*, HDR+6
ECIEN	GETREC+14~, GETREC+24*, GETREC+25, GETREC+28, BLDTMP~, BLDTMP+10, BLDTMP+12, BLDTMP+21, BLDTMP+23
ECIENS	BLDTMP+9~, BLDTMP+12*, BLDTMP+14, BLDTMP+15, BLDTMP+16, BLDTMP+17, BLDTMP+19, BLDTMP+20, BLDTMP+22
ECKEY	BLDTMP+9~, BLDTMP+25, BLDTMP+26, PRINT+13~, PRINT+31, PRINT+37, PRINT+38, PRINT+40, PRINT+41
ECL	GETREC+7~
>> ECLOC(	GETREC+18, GETREC+19, PRINT+24
>> ECLOC(""	PRINT+24
ECLOCA	BLDTMP+9~, BLDTMP+15*, BLDTMP+26, BLDTMP+27, BLDTMP+28
ECLOCF	GETREC+10~, GETREC+26*, GETREC+27
ECLOCNM	PRINT+4~
ECNT	GETREC+6~, GETREC+16, GETREC+28, PRINT+16~, PRINT+20, PRINT+41*, PRINT+42
ECPAT	BLDTMP+9~, BLDTMP+20*, BLDTMP+24
ECPDSS	PRINT+6~, PRINT+31, PRINT+33, PRINT+34
ECPLOC	PRINT+3~, PRINT+20, PRINT+27, PRINT+28
ECPRCDT	BLDTMP+9~, BLDTMP+17*, BLDTMP+18, BLDTMP+25
ECPROC	BLDTMP+9~, BLDTMP+22*, BLDTMP+24
ECPROCDT	BLDTMP+9~, BLDTMP+18*, BLDTMP+24
ECPROV	BLDTMP+9~, BLDTMP+23*, BLDTMP+24
>> ECPTYP	EN+6, PRINT+25, PRINT+42, HDR+1
>> ECPTYPE	PRINT+36
ECRDT	EN+1~, EN+2, PRINT+10~, PRINT+17, HDR+4
ECREC	GETREC+13~, GETREC+25, GETREC+26, BLDTMP+9~, BLDTMP+13, BLDTMP+24, BLDTMP+26, PRINT+15~, PRINT+41, PRINT+42 , PRINT+43
ECREC(721	BLDTMP+15, BLDTMP+16, BLDTMP+17, BLDTMP+19, BLDTMP+20, BLDTMP+22
>> ECSD	GETREC+22, PRINT+18
>> ECSORT	EN+4, PRINT+21
ECSRT	BLDTMP~, BLDTMP+25
ECSRTBY	PRINT+14~, PRINT+21*, HDR+7
ECSSN	BLDTMP+9~, BLDTMP+21*, BLDTMP+24
ECTDT	PRINT+12~, PRINT+19*, HDR+6
>> ECTYPE	PRINT+29
ECUSER	BLDTMP+9~, BLDTMP+19*, BLDTMP+24, BLDTMP+25
IO	PRINT+22
IOF	HDR+2
IOSL	PRINT+44
>> JJ	GETREC+18, GETREC+19, GETREC+20, GETREC+21
NLOC	GETREC+15~
NLOC(	GETREC+19*, GETREC+27
NUNIT	GETREC+15~
NUNIT(	GETREC+21*, GETREC+27
PAGE	PRINT+16~, HDR+2, HDR+3*, HDR+4
SORT	GETREC~, GETREC+28
U	GETREC+26, BLDTMP+24, PRINT+42, PRINT+43
>> Y	EN+2

Customize PDF page

Package: Event Capture