Routine: DVBACRRP

Information

DVBACRRP ;ALB/GTS-557/THM-REPRINT 21-DAY CERT FOR MAS ;21 JUL 89

Name	Comments	DBIA/ICR reference
KIL
DATA	;
KILL
CREATE	;CERTIFICATE CREATE
INIT	;
DATE()	;THis function returns a date of the original request from the user.
DEVICE	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Patient record missing for DFN ",DFN,!! Line Location: CREATE+4
Function Call: WRITE	Prompt: !,FDT(0),?32,"REPORT OF CONTACT",!,?31,"21-DAY CERTIFICATE",?(80-11),"PAGE: 1",!,?(80-$L(HD1)\2),HD1,!!!!!!!,"Patient name: ",?16,PNAM,!,?9,"SSN: ",?16,SSN,?33,"Claim #: ",?43,CNUM,!!,?9,"Ward: ",?16,WARD,?30,"Bed: ",?36,BED,!!! Line Location: CREATE+9
Function Call: WRITE	Prompt: " The patient above has been hospitalized for 21 consecutive days ",!,"from " Line Location: CREATE+10
Function Call: WRITE	Prompt: Y," to " Line Location: CREATE+10
Function Call: WRITE	Prompt: Y," to " Line Location: CREATE+10
Function Call: WRITE	Prompt: "Physician signature: " Line Location: CREATE+11
Function Call: WRITE	Prompt: "_" Line Location: CREATE+11
Function Call: WRITE	Prompt: !!!," Approved by: " Line Location: CREATE+12
Function Call: WRITE	Prompt: "_" Line Location: CREATE+12
Function Call: WRITE	Prompt: !!?5,"R0C 119",! Line Location: CREATE+13