Routine: MCESEDT2

Package	Total	Call Graph
VA Fileman	6	NOW^%DTC %XY^%RCR ^DIC FILE^DICN IX^DIK ^DIR
Medicine	3	(DELSS,HEADER)^MCESEDT $$ENCODE^MCESPRT $$NUMTOES^MCESSCR
Kernel	1	SIG^XUSESIG

Package	Total	Caller Graph
Medicine	1	MCESEDT

Entry Points

Name	Comments	DBIA/ICR reference
EDD	; Draft
EDS	; Superseded
EDRV	; Release On-line Verify
EDRNV1	;
SIGN	; Display message, checks for elect. sign
NOW(TA)	;
EDROV	; Release Off-Line Verify
EDPD	; Problem Draft
EDRNV	; Release Not Verify
ERROR	;
ASK	;
EDSROV	; OP
EDSRV	; NO

External References

Name	Field # of Occurrence
NOW^%DTC	NOW+1
%XY^%RCR	EDS+13
^DIC	EDROV+9, EDS+20
FILE^DICN	EDS+10
IX^DIK	EDS+15
^DIR	EDROV+2, EDRNV+4, EDRNV1+9, EDS+3, ASK+2
DELSS^MCESEDT	EDROV+11
HEADER^MCESEDT	EDROV+4, SIGN+4, ASK+5
$$ENCODE^MCESPRT	SIGN+5
$$NUMTOES^MCESSCR	EDPD+1
SIG^XUSESIG	SIGN+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,IOBON,"Please enter a provider that you are signing for",IOBOFF Line Location: EDROV+5
Function Call: WRITE	Prompt: !,"Note: This provider must have a key for ",IOUON,MCROUT,IOUOFF,! Line Location: EDROV+6
Function Call: WRITE	Prompt: !!,"In order to "_IOUON_"release and verify"_IOUOFF_" procedure results",!,"you must type in your electronic signature code." Line Location: SIGN+2
Function Call: WRITE	Prompt: !!,IOINHI,IOBON,*7,"This option should be used with extreme CAUTION.",IOINORM,IOBOFF Line Location: EDRNV+2
Function Call: WRITE	Prompt: !,"You can be held accountable for releasing unverified procedure results",!! Line Location: EDRNV+3
Function Call: WRITE	Prompt: !! Line Location: EDRNV1+1
Function Call: WRITE	Prompt: !!!,"You must sign a Superseded record in order to complete the process" Line Location: EDS+2
Function Call: WRITE	Prompt: !!,?14,IOBON,IODWL,IOUON,"Please Wait!",IOBOFF,IOUOFF Line Location: EDS+8
Function Call: WRITE	Prompt: !!,IOINHI,"An ",IOBON,"error",IOBOFF," has occured",!,"in creating the new record" Line Location: EDS+11
Function Call: WRITE	Prompt: !!,"Record "_REC_" copy to "_NEWREC_"." Line Location: EDS+12
Function Call: WRITE	Prompt: !,"Indexing "_NEWREC_"." Line Location: EDS+15
Function Call: WRITE	Prompt: !!,"Your Procedure has been Copied",!,"You can now make changes to the copy." Line Location: EDS+18
Function Call: WRITE	Prompt: !,"New Record:",! Line Location: EDS+19
Function Call: WRITE	Prompt: !!,IOINHI,IOBON,*7,"Your electronic signature is invalid or not declared.",IOINORM,IOBOFF Line Location: ERROR+2
Function Call: WRITE	Prompt: !!,"You must declare an electronic signature or ask your IRM for help." Line Location: ERROR+3
Function Call: WRITE	Prompt: !,"===> No changes to release status can be done. <====" Line Location: ERROR+4
Routine Call	DIC Line Location: EDROV+9 EDS+20
Routine Call	DIR Line Location: EDROV+2 EDRNV+4 EDRNV1+9 EDS+3 ASK+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^MCAR(	EDPD+2, EDS+5, EDS+9, EDS+14, EDS+23
^VA(200 - [#200]	SIGN+1

Label References

Name	Line Occurrences
$$NOW	EDPD+1, EDPD+2, EDRV+2, EDROV+12, EDRNV1+10, EDRNV1+11, EDS+6
EDRNV1	EDRNV+1
ERROR	SIGN+1, SIGN+4
SIGN	EDRV+1, EDROV+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NOW+1
>> %X	EDS+13*
>> %Y	EDS+13*
>> CDUZ	EDROV+10*, EDROV+11, EDROV+12
>> DA	EDS+15*
DD	EDS+9!
DIC	EDROV+7, EDROV+9!, EDS+9!, EDS+20*!
DIC("A"	EDROV+8*
DIC("S"	EDROV+9*
DIC(0	EDROV+7, EDS+9, EDS+20*
DIK	EDS+15*!
DIR	EDROV+2!, EDRNV+4!, EDRNV1+9!, EDS+3!, ASK+4!
DIR("?"	EDRNV1+5, EDRNV1+6, EDRNV1+7, EDRNV1+8
DIR("A"	EDRNV+4, EDRNV1+3, EDRNV1+4, EDS+3, ASK+1*
DIR("B"	EDRNV+4, EDRNV1+2, EDS+3*, ASK+3
DIR("T"	EDROV+2*
DIR(0	EDROV+2, EDRNV+4, EDRNV1+2, EDS+3
DIROUT	EDROV+2!, EDS+24!
DIRUT	EDROV+2!, EDRNV+5, EDRNV1+9, ASK+2
DO	EDS+9!
DTOUT	EDROV+2!, EDROV+11, EDS+24!
DUOUT	EDROV+3!, EDROV+11, EDS+24!
DUZ	EDPD+1, EDRV+2, EDROV+12, SIGN+1, EDRNV1+10, EDRNV1+11, EDS+14, EDS+17
>> ERROR	EDRV+1, EDROV+1, SIGN+1, SIGN+3, SIGN+4, ERROR+5*
>> EXIT	EDROV+3, EDROV+11, EDRNV+5, EDRNV1+9, EDS+4, EDS+11, ERROR+5, ASK+2, ASK+3*, ASK+4
>> HOLD	EDS+9*, EDS+13, EDS+15
>> IOBOFF	EDROV+5, EDRNV+2, EDS+8, EDS+11, ERROR+2
>> IOBON	EDROV+5, EDRNV+2, EDS+8, EDS+11, ERROR+2
>> IODWL	EDS+8
>> IOINHI	EDROV+8, EDRNV+2, EDS+11, ERROR+2, ASK+1
>> IOINORM	EDROV+8, EDRNV+2, ERROR+2, ASK+1
>> IOUOFF	EDROV+6, SIGN+2, EDRNV+4, EDRNV1+3, EDRNV1+5, EDRNV1+7, EDS+3, EDS+8
>> IOUON	EDROV+6, SIGN+2, EDRNV+4, EDRNV1+3, EDRNV1+5, EDRNV1+7, EDS+3, EDS+8
>> LOOP	EDPD+1
>> MCARGDA	SIGN+5
MCBACK	EDS+4!, EDS+22*
>> MCESCUR	EDS+22*
>> MCESPREV	EDS+22*
>> MCESTEMP	EDS+1*
>> MCFILE	EDPD+2, SIGN+5, EDS+5, EDS+9, EDS+14, EDS+20, EDS+23
>> MCROUT	EDROV+6, EDROV+8, EDRNV1+7
>> MCY	EDS+21*
>> MCY(0	EDS+21*
>> MX	EDS+5*
>> NCHANGE	EDRNV+1, EDRNV1+11
>> NEWREC	EDS+10*, EDS+12, EDS+13, EDS+14, EDS+15, EDS+16, EDS+22, EDS+23
NEWST	ERROR+1!, ASK+5*
NOW	EDS+6*, EDS+14, EDS+16, EDS+17, EDS+24!
>> ORG	EDROV+3, EDROV+11, EDS+1, ERROR+5
PDATE	EDS+7*, EDS+14, EDS+24!
>> PROV	ASK+3
>> REC	EDPD+2, EDS+5, EDS+9, EDS+12, EDS+13, EDS+14, EDS+22
>> SCRAMBLE	EDRV+2, EDROV+12, SIGN+5*
>> SUP	EDROV+11
TA	NOW~
>> TEMP	EDPD+1, EDPD+2, EDRV+2, EDROV+3, EDROV+11, EDROV+12, EDRNV1+10, EDRNV1+11, EDS+7, EDS+16* , EDS+17, EDS+23, ERROR+5
TY	EDS+24!
U	EDPD+1, EDPD+2, EDRV+2, EDROV+12, SIGN+1, EDRNV1+10, EDRNV1+11, EDS+4, EDS+5, EDS+7 , EDS+9, EDS+14, EDS+16, EDS+17, EDS+23
X	EDS+5, EDS+6, EDS+9, EDS+20*, EDS+24!
>> X1	SIGN+3
>> Y	EDROV+10, EDRNV+5, EDRNV1+10, EDS+4, EDS+10, EDS+11, EDS+21, ASK+3
>> Y(0	EDS+21, ASK+5

Customize PDF page

Package: Medicine

Routine: MCESEDT2

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: