Routine: MCESCONV

Information

MCESCONV ;WISC/DCB-Convert PFTs to Electronic Signature ;7/31/96 15:32

Name	Comments	DBIA/ICR reference
CONV	;
ESTOON	; Turn ES to ON.
SETESON(PROC,PIECE)	; Set ES ON ALL PULM AND GI PROC
START	;
PERSON(MCESKEY)	; Get a person with the right key.
STATUS	; Current status of the record
EXIT	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You do not have '"_MCESKEY_"' KEY for "_MCROUT_"." Line Location: CONV+15
Function Call: WRITE	Prompt: !,"You do not have the Manager key" Line Location: CONV+16
Function Call: WRITE	Prompt: ! Line Location: CONV+23
Function Call: WRITE	Prompt: ! Line Location: CONV+24
Function Call: WRITE	Prompt: !!,"Your records are being converted. Please wait!" Line Location: CONV+36
Function Call: WRITE	Prompt: !,"A mail message will be sent to you with records that are converted." Line Location: CONV+37
Function Call: WRITE	Prompt: !,"A dot is equal to 5 records." Line Location: CONV+38
Function Call: WRITE	Prompt: !,"Electronic Signature is already on!" Line Location: ESTOON+3
Function Call: WRITE	Prompt: !,"You do not have '"_MCESKEY_"' KEY for "_MCROUT_"." Line Location: ESTOON+4
Function Call: WRITE	Prompt: !,"You do not have the Manager key" Line Location: ESTOON+5
Function Call: WRITE	Prompt: !,"Electronic Signature is now turned on!" Line Location: ESTOON+12
Function Call: WRITE	Prompt: "." Line Location: START+14
Function Call: WRITE	Prompt: !,"In order to do the conversion, you must select a provider that" Line Location: PERSON+1
Function Call: WRITE	Prompt: !,"has the key to ",MCROUT,!!!! Line Location: PERSON+2