Routine: DVBCMOCK

Information

DVBCMOCK ;ALB/GTS-557/THM-MENTAL, NOT ELSEWHERE CLASSIFIED ; 5/10/90 9:17 AM

Name	Comments	DBIA/ICR reference
EN
TXT	;;This exam is to handle the balance of currently recognized mental disorders
HD2
SETIOF	; ** Set device control var's

Name	Line Occurrences
Function Call: WRITE	Prompt: !?22,"Compensation and Pension Examination",!?33,"# 0905 Worksheet",!,?(IOM-$L(DVBAX)\2),DVBAX,!! Line Location: EN+2
Function Call: WRITE	Prompt: "Name: ",NAME,?45,"SSN: ",SSN,!,?45,"C-number: ",CNUM,!,"Date of exam: ____________________",!!,"Place of exam: ___________________",!!,"Type of Exam: MENTAL, NOT ELSEWHERE CLASSIFIED",!! Line Location: EN+3
Function Call: WRITE	Prompt: "Physician's Guide Reference: None",!!,"Narrative:",!! Line Location: EN+4
Function Call: WRITE	Prompt: $P(LY,";;",2),! Line Location: EN+5
Function Call: WRITE	Prompt: @IOF,!,"Page: ",PG,!!,"Compensation and Pension Exam for "_NAME,! Line Location: HD2+0
Function Call: WRITE	Prompt: "For MENTAL, NOT ELSEWHERE CLASSIFIED",!!! Line Location: HD2+1