Routine: ECMUTL

Package	Total	Call Graph
Event Capture	6	MSG^ECBEN2U ($$GETPRO,$$PRLST,KILLV,SRCHTM)^ECDSUTIL (CATS,PROS)^ECHECK1 ^ECL GET^ECPRVUTL $$ASKMOD^ECUTL
VA FileMan	2	^DIC ^DIR

Package	Total	Caller Graph
Event Capture	2	ECMLMD ECMLMP

Entry Points

Name	Comments	DBIA/ICR reference
ASKLOC()	; Get Location ; Input: None
ASKPRDT(DSSU,ONE)	; Get Procedure Start Date/Time ; Input: ECD = DSS Unit ien ; ONE = Ask procedure start date/time once
AGAIN
ASKPRDTQ
ASKCAT(ECL,ECD)	; Get category ; Input: ECL = Location ien ; ECD = DSS Unit ien
ASKCATQ
ASKPRO(ECL,ECD,ECC,NUM)	; Ask procedures ; Input: ECL = Location ien ; ECD = DSS Unit ien ; ECC = Category ien ; NUM = Only ask procedure once
SEL	;
ASKPROQ
CONTINU	;
CONTINUQ
SETP	;
LISTPR	;- List available procedures ; Input: None
LISTPRQ
PROCHDR	;- Procedure display header
ASKREAS(ECL,ECD,ECC,ECP,ECOUT)	;-Ask procedure reason ; Input: ECL = Location ien ; ECD = DSS Unit ien ; ECC = Category ien ; ECP = Procedure ien
ASKREASQ
ASKVOL(ECL,ECD,ECC,ECP,ECOUT)	;- Ask procedure volume ; Input: ECL = Location ien ; ECD = DSS Unit ien ; ECC = Category ien ; ECP = Procedure ien
ASKVOLQ
PROV(ECDT,ECPROVS)	;get providers - new providers function
ONEUNIT(ECDSSU)	;- Create ECDSSU containing DSS Unit ; Checks for validity and access to Unit
VALID(IEN)	;- Check DSS Unit for use by Event Capture

External References

Name	Field # of Occurrence
^DIC	ASKREAS+19, ONEUNIT+22
^DIR	AGAIN+4, ASKCAT+14, ASKPRO+18, LISTPR+9, ASKVOL+19, ONEUNIT+37
MSG^ECBEN2U	SEL+5, SEL+18
$$GETPRO^ECDSUTIL	SEL+4
$$PRLST^ECDSUTIL	SEL+17
KILLV^ECDSUTIL	SEL+5, SEL+11, SEL+18, ASKPROQ+1
SRCHTM^ECDSUTIL	SEL+7
CATS^ECHECK1	ASKCAT+9
PROS^ECHECK1	ASKPRO+14
^ECL	ASKLOC+6
GET^ECPRVUTL	PROV+20
$$ASKMOD^ECUTL	CONTINU+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Categories within "_$P($G(^ECD(+ECD,0)),"^")_":",! Line Location: ASKCAT+11
Function Call: WRITE	Prompt: !?5,X_". ",$P(ECC(X),"^",2) Line Location: ASKCAT+12
Function Call: WRITE	Prompt: ! Line Location: ASKCAT+13
Function Call: WRITE	Prompt: !!,"Within the ",ECLN," location there are no procedures defined",! Line Location: ASKPRO+16
Function Call: WRITE	Prompt: "for the DSS Unit ",$P(ECDSSU,"^",2),".",! Line Location: ASKPRO+17
Function Call: WRITE	Prompt: ! Line Location: SEL+4
Function Call: WRITE	Prompt: $P($G(^TMP("ECPRO",$J,+$G(^TMP("ECLKUP",$J,"LAST")))),"^",4) Line Location: SEL+14
Function Call: WRITE	Prompt: " "_$P($G(^TMP("ECPRO",$J,+CNT)),"^",4) Line Location: SEL+15
Function Call: WRITE	Prompt: " "_$S(ECPREV="S":$P($G(^TMP("ECPRO",$J,+CNT)),"^",3),1:$P($G(^TMP("ECPRO",$J,+CNT)),"^",4)) Line Location: SEL+20
Function Call: WRITE	Prompt: !,ECI_".",?5,$E($P(^TMP("ECPRO",$J,ECI),"^",4),1,30),?38,$E($P(^(ECI),"^",3),1,30),?72,$P(^(ECI),"^",5) Line Location: LISTPR+11
Function Call: WRITE	Prompt: !!?5,"Select by number, CPT or national code, procedure name, or synonym.",!?5,"Synonym must be preceded by the & character (example: &TESTSYN).",! Line Location: LISTPR+13
Function Call: WRITE	Prompt: ?2," Modifier(s) can be appended to a CPT code (ex: CPT code-mod1,mod2,mod3) ",! Line Location: LISTPR+14
Function Call: WRITE	Prompt: @IOF Line Location: PROCHDR+2
Function Call: WRITE	Prompt: !,"Available Procedures within "_$P(ECDSSU,"^",2)_": ",! Line Location: PROCHDR+3
Function Call: WRITE	Prompt: ?72,"National",!,?5,"Procedure Name",?40,"Synonym",?72,"Number",! Line Location: PROCHDR+4
Routine Call	DIC Line Location: ASKREAS+19 ONEUNIT+22
Routine Call	DIR Line Location: AGAIN+4 ASKCAT+14 ASKPRO+18 LISTPR+9 ASKVOL+19 ONEUNIT+37

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ECL - [#720.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^EC(725 - [#725]	SEL+26, CONTINU+2
^ECD - [#724]	ASKPRDT+9, ASKCAT+11, VALID+3
^ECJ - [#720.3]	ASKREAS+16, ASKVOL+18
^ECJ("AP"	ASKREAS+15, ASKVOL+15
^ECL - [#720.5]	SEL+25
^ECL("AD"	ASKREAS+16
^ECR - [#720.4]	SEL+25
^TMP("ECLKUP"	SEL+14, ASKPROQ!, SETP+1*
^TMP("ECPRDT"	AGAIN+6*, ASKPRDTQ, ASKPRO+13
^TMP("ECPRO"	ASKPRO+15, SEL+14, SEL+15, SEL+20, ASKPROQ!, SETP+2, LISTPR+8, LISTPR+11
^TMP("ECPROC"	SEL+25, SEL+28
^XUSEC("ECALLU"	ONEUNIT+16

Label References

Name	Line Occurrences
$$ASKREAS	CONTINU+7
$$ASKVOL	CONTINU+9
$$VALID	ONEUNIT+26, ONEUNIT+27
@(	AGAIN+6, SEL+10
ASKCATQ	ASKCAT+8, ASKCAT+10, ASKCAT+15
ASKPRDTQ	ASKPRDT+8
ASKPROQ	ASKPRO+10, ASKPRO+15, SEL+5, SEL+6, SEL+12, SEL+16
ASKREASQ	ASKREAS+14
ASKVOLQ	ASKVOL+14
CONTINU	SEL+12, SEL+21
CONTINUQ	CONTINU+3, CONTINU+8
PROCHDR	LISTPR+7, LISTPR+9
SEL	SEL+9, SEL+29
SETP	CONTINU+1

Naked Globals

Name	Field # of Occurrence
^(	LISTPR+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CATS	ASKCAT+6~
CNT	ASKCATQ!, ASKPRO+8~, SEL+2, SEL+13, SEL+15, SEL+16, SEL+17*, SEL+18, SEL+19, SEL+20 , SEL+23, SETP+1, SETP+2
DIC	ASKREAS+17, ASKREAS+19!, ONEUNIT+20, ONEUNIT+22!
DIC("A"	ASKREAS+18, ONEUNIT+20
DIC("S"	ASKREAS+18, ONEUNIT+21
DIC(0	ASKREAS+17, ONEUNIT+20
DIR	AGAIN+4!, ASKCAT+14!, ASKPRO+18!, LISTPR+5~, ASKVOL+11~, ONEUNIT+34!, ONEUNIT+37!
DIR("?"	AGAIN+2, SEL+3, ASKVOL+17, ONEUNIT+36
DIR("A"	AGAIN+1, ASKCAT+13, ASKVOL+16, ONEUNIT+35
DIR("B"	ASKPRDT+9, ASKVOL+18, ONEUNIT+35*
DIR(0	AGAIN+3, ASKCAT+13, ASKPRO+18, LISTPR+9, ASKVOL+16, ONEUNIT+35
DIRUT	AGAIN~, ASKCAT+6~, ASKCAT+15, LISTPR+5~, LISTPR+9, ASKVOL+11~, ASKVOL+21, ONEUNIT+15~, ONEUNIT+18!, ONEUNIT+34! , ONEUNIT+38
DSSU	ASKPRDT~, ASKPRDT+8, ASKPRDT+9
DTOUT	ASKPRDT+6~, AGAIN+5, ASKREAS+11~, ASKREAS+21, ASKVOL+11~, ONEUNIT+18!, ONEUNIT+23, ONEUNIT+34!, ONEUNIT+38
DUOUT	ASKPRDT+6~, AGAIN+5, ASKREAS+11~, ASKREAS+21, ASKVOL+11~, ONEUNIT+15~, ONEUNIT+18!, ONEUNIT+23, ONEUNIT+34!, ONEUNIT+38
DUZ	ONEUNIT+16
ECAT	ASKCATQ!
ECATEG	ASKCAT+6~, ASKCAT+7, ASKCAT+15!, ASKCAT+16, ASKCATQ+1
ECC	ASKCATQ!, ASKPRO~, ASKPRO+11, CONTINU+7, CONTINU+9, ASKREAS~, ASKREAS+13, ASKREAS+15, ASKVOL~, ASKVOL+13* , ASKVOL+15
ECC(	ASKCAT+12, ASKCAT+16
ECC(0	ASKCAT+10
ECCNT	ASKPRDT+6~, ASKPRDT+7*
ECCPT	ASKPRO+9~, SEL+26, SEL+27, SEL+28, CONTINU+2, CONTINU+3, CONTINU+5
ECD	ASKCAT~, ASKCAT+8, ASKCAT+11, ASKPRO~, ASKPRO+10, CONTINU+7, CONTINU+9, ASKREAS~, ASKREAS+14, ASKREAS+15 , ASKVOL~, ASKVOL+14, ASKVOL+15
ECDA	PROV+19~
ECDSSU	ASKPRO+17, PROCHDR+3, ONEUNIT~, ONEUNIT+17, ONEUNIT+26*, ONEUNIT+38!, ONEUNIT+39!
ECDT	ASKPRO+9~, ASKPRO+13*, CONTINU+5, PROV~, PROV+20
ECDUP	ASKPRDT+6~, ASKPRDT+7, AGAIN+1, AGAIN+6
ECERR	ASKPRDT+6~, ASKPRDT+7, AGAIN+5, ASKPRDTQ, ASKPRO+8~, SEL+12, SEL+16, CONTINU+3, CONTINU+5, CONTINU+7 , CONTINU+8, CONTINU+9
ECEXIT	ASKPRO+8~, SEL+2, LISTPR+8, LISTPR+9, LISTPR+10, LISTPR+12
ECI	LISTPR+5~, LISTPR+6, LISTPR+8, LISTPR+11
ECKEY	ONEUNIT+15~, ONEUNIT+16*
ECL	ASKLOC+8, ASKCAT~, ASKCAT+8, ASKPRO~, ASKPRO+10, CONTINU+7, CONTINU+9, ASKREAS~, ASKREAS+14, ASKREAS+15 , ASKVOL~, ASKVOL+14, ASKVOL+15
>> ECLN	ASKPRO+16
ECMAX	ASKCAT+6~, ASKCAT+7, ASKCAT+12, ASKCAT+13
ECMOD	ASKPRO+9~, SEL+1!, CONTINU+5
ECMOD(	SEL+27, SEL+28
ECMODF	CONTINU+5*, CONTINU+6!
ECMODS	ASKPRO+9~, CONTINU+4*, CONTINU+5, CONTINU+6!
ECOUNT	ASKPRO+8~, ASKPRO+12, SEL+5, SEL+6, SEL+24, SEL+25, SEL+28
ECOUT	ASKLOC+7!, ASKPRO+8~, ASKREAS~, ASKREAS+12, ASKREAS+21, ASKVOL~, ASKVOL+12, ASKVOL+21, PROV+20, PROV+22 , ONEUNIT+15~, ONEUNIT+17, ONEUNIT+23, ONEUNIT+24, ONEUNIT+38*, ONEUNIT+40
ECP	ASKPRO+8~, SEL+2, SEL+23, SEL+25, SEL+26, CONTINU+2, CONTINU+7, CONTINU+9, SETP+2, ASKREAS~ , ASKREAS+14, ASKREAS+15, ASKVOL~, ASKVOL+14, ASKVOL+15
ECPCNT	ASKPRO+8~, SEL+2, SEL+8, SEL+9, SEL+10, SEL+12, SEL+13, SEL+16
ECPNAME	SEL+1!, SEL+16
ECPNM	ASKPRO+8~, SEL+2, SEL+25, SETP+2
ECPREV	ASKPRO+8~, SEL+2, SEL+7, SEL+14, SEL+15, SEL+20
ECPROVS	PROV~
ECPROVS(1	PROV+21*
ECPROVS(2	PROV+21*
ECPROVS(3	PROV+21*
ECPRPTR	ASKREAS+11~, ASKREAS+12, ASKREAS+20, ASKREASQ
ECREAS	ASKPRO+8~, SEL+2, SEL+25, CONTINU+7
ECSCR	ASKREAS+11~, ASKREAS+12, ASKREAS+15, ASKREAS+16, ASKVOL+11~, ASKVOL+12, ASKVOL+15, ASKVOL+18
ECU	PROV+19~, PROV+20, PROV+21
ECU2	PROV+19~, PROV+20, PROV+21
ECU3	PROV+19~, PROV+20, PROV+21
ECVOL	ASKVOL+11~, ASKVOL+12, ASKVOL+20, ASKVOLQ
ECVOLU	ASKPRO+8~, SEL+2, SEL+23, SEL+25, CONTINU+9
ECX	ASKPRO+9~, SEL+2, SEL+4, SEL+5, SEL+6, SEL+7
IEN	VALID~, VALID+3
IOF	PROCHDR+2
IOSL	LISTPR+9
JJ	ASKPROQ!
LOC	ASKLOC+7!
NO	VALID+2~, VALID+5*, VALID+9
NODE	VALID+2~, VALID+3*, VALID+5
NUM	ASKPRO~, SEL+24, SEL+29
OK	ASKPROQ!
ONE	ASKPRDT~, AGAIN+6, ASKPRDTQ
VAL	VALID+2~, VALID+7, VALID+9, VALID+11*, VALID+12
X	ASKCAT+6~, ASKCAT+7, ASKCAT+12
Y	AGAIN~, AGAIN+6, ASKPRDTQ, ASKCAT+15, ASKCAT+16, ASKPRO+18!, LISTPR+5~, LISTPR+9, ASKREAS+20, ASKVOL+20 , ONEUNIT+15~, ONEUNIT+18!, ONEUNIT+25, ONEUNIT+26, ONEUNIT+27, ONEUNIT+28*, ONEUNIT+31, ONEUNIT+39
YES	VALID+2~, VALID+5*, VALID+11

Customize PDF page

Package: Event Capture

Routine: ECMUTL

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: