Routine: MCESSCR

Information

MCESSCR ;WISC/DCB-Sets up the screening for Electronic Signature ;6/26/96 12:51

Package	Total	Call Graph
Medicine	2	POST^MCESEDT ^MCWORKLD

Package	Total	Caller Graph
Medicine	17	MCARE MCARGD MCARGE MCARGES MCARGP MCARHP MCARP MCARPS1 MCARPS2 MCARPS3 MCEF MCESEDT MCESEDT2 MCOR MCPFTE MCPFTI MCPFTP

Name	Comments	DBIA/ICR reference
SCRPRT(KEY,MFD,SUP,SUPV)	; Screens out the records for printing.
ESRC(MCFILE,MCARGDA)	; Electronic Singature & Release Control
PREEDIT(MCFILE)	; sets screen logic for edit
PREVIEW(MCFILE)	; sets screen logic for display and prints.
SCRSUMPT(MCESKEY,REC,SUPV)	;Screen out the records for summary of patients ; Screens out mark for deletion and draft reports if the user don't ; have the key
SCRGI(MCFILE,REC,KEY,SUPV)
SCRDEL(MCFILE,REC)	;Screen out for deleting drafts
SCREDIT()	; Screens out the records for edits
ESTONUM1(TP)	; Convert a value to Release status
NUMTOES(TP)
ESTONUM(MCFILE,MCREC)	; Convert Release Code to Number

Name	Field # of Occurrence
POST^MCESEDT	ESRC+1
^MCWORKLD	ESRC+1

Name	Line Occurrences (* Changed, ! Killed)
^MCAR(	SCRPRT+5, SCRPRT+6, SCRPRT+7, SCREDIT+4, SCREDIT+5, SCRSUMPT+4, SCRSUMPT+5, SCRGI+4, SCRDEL+2, ESTONUM+1 , ESRC+1
^XUSEC(	SCRSUMPT+5

Name	Line Occurrences
$$ESTONUM1	SCRPRT+7, SCREDIT+4, SCRSUMPT+5, SCRGI+4, SCRDEL+2, ESTONUM+2

Name	Field # of Occurrence
CODE	SCRPRT+4~, SCRPRT+7, SCRPRT+8, SCRPRT+9, SCRPRT+10, SCREDIT+3~, SCREDIT+4, SCREDIT+6, SCRSUMPT+3~, SCRSUMPT+5* , SCRSUMPT+6, SCRGI+3~, SCRGI+4, SCRGI+5, SCRDEL+1~, SCRDEL+2
>> DIC("DR"	PREEDIT+2*
>> DIC("S"	PREEDIT+3, PREVIEW+4
DUZ	SCRSUMPT+5
KEY	SCRPRT~, SCRGI~
MCARGDA	ESRC~, ESRC+1
MCESKEY	SCRSUMPT~, SCRSUMPT+5
MCESMFD	PREVIEW+3!
>> MCESON	ESRC+1
>> MCESSEC	SCRPRT+10, SCREDIT+4, SCRSUMPT+5*, SCRSUMPT+6, SCRGI+4, SCRDEL+3
MCESSUP	PREVIEW+3!
MCFILE	PREEDIT~, PREVIEW~, SCRPRT+5, SCRPRT+6, SCRPRT+7, SCREDIT+4, SCREDIT+5, SCRSUMPT+4, SCRSUMPT+5, SCRGI~ , SCRGI+4, SCRDEL~, SCRDEL+2, ESTONUM~, ESTONUM+1, ESRC~, ESRC+1
MCREC	ESTONUM~, ESTONUM+1
>> MCSUP	PREVIEW+4
MFD	PREVIEW+2~, PREVIEW+3, PREVIEW+4, SCRPRT~, SCRPRT+10, SCREDIT+3~, SCREDIT+4, SCREDIT+6, SCRSUMPT+3~, SCRSUMPT+5* , SCRSUMPT+6, SCRGI+3~, SCRGI+4, SCRGI+5, SCRDEL+1~, SCRDEL+2
MFD2	SCRPRT+4~
REC	SCRSUMPT~, SCRSUMPT+4, SCRSUMPT+5, SCRGI~, SCRGI+4, SCRDEL~, SCRDEL+2
RMFD	SCRPRT+4~, SCRPRT+7*, SCRPRT+10
SUP	SCRPRT~, SCRPRT+10
SUPV	PREVIEW+3*, PREVIEW+4, SCRPRT~, SCRPRT+8, SCRPRT+9, SCRSUMPT~, SCRSUMPT+6, SCRGI~, SCRGI+5
TEMP	SCRPRT+4~, SCRPRT+7, SCREDIT+3~, SCREDIT+4, SCREDIT+6, SCRSUMPT+3~, SCRSUMPT+5, SCRGI+3~, SCRGI+4, SCRGI+5 , SCRDEL+1~, SCRDEL+2*, SCRDEL+3
TP	ESTONUM+1*, ESTONUM+2, ESTONUM1~, ESTONUM1+1, NUMTOES~, NUMTOES+2
U	SCRPRT+7, SCREDIT+4, SCRSUMPT+5, SCRGI+4, SCRDEL+2, ESTONUM+1, ESRC+1
>> UNSIGNED	ESRC+1*
>> Y	SCRPRT+5, SCRPRT+6, SCRPRT+7, SCREDIT+4, SCREDIT+5