Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: DVBCSCCK

Package: Automated Medical Information Exchange

Routine: DVBCSCCK


Information

DVBCSCCK ;ALB/GTS-557/THM-SCAR EXAM ; 12/27/90 1:52 PM

Source Information

Source file <DVBCSCCK.m>

Entry Points

Name Comments DBIA/ICR reference
EN
HD2
SETIOF ; ** Set device control var's

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?25,HD91,!?22,"Compensation and Pension Examination",!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: ?33,"# 1445 Worksheet"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: ?33,"# 1445 Worksheet"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"Name: ",NAME,?45,"SSN: ",SSN,!?45,"C-number: ",CNUM,!,"Date of exam: ____________________",!!,"Place of exam: ___________________",!!,"Type of Exam: ",HD7
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!!!,"Narrative:"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: ?13,"The type of injury or infection causing the wound or scar,",!?13,"its date, the treatment used and the response to such",!?13,"treatment should be described. Point of entrance and exit of",!?13,"missiles are important "
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: "in evaluating injuries of nerves, vessels,",!?13,"and muscles. Photographs, if indicated, (see Physician's Guide,",!?13,"Paragraph 1.19) should be submitted.",!!!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: "A. Medical history:",!!!!!!!!!!,"B. Subjective complaints:",!!!!!!!!!!,"C. Objective findings:",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: $S($D(CMBN):"A. ",1:"D. "),"Specific evaluation information required by the rating board",!,?4,"(if the information requested is included elsewhere, do not",!?4,"repeat here):",!!!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: ?8,"1. Position, shape, texture, length, width, color, depth -",!!!!!?8,"2. Keloid formation, adherance, herniation -",!!!!!?8,"3. Inflammation, swelling, depression, vascular supply, ulceration -",!!!!!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: ?8,"4. Tender and painful on objective demonstration -",!!!!!?8,"5. Cosmetic effects (submit photographs of all facial",!?29,"and other significant scars) -",!!!!!?8,"6. Limitation of function of part affected -",!!!!!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: $S($D(CMBN):"C. ",1:"F. "),"Diagnosis:",!!!!!!!!!!?25,"Signature: ______________________________",!!?30,"Date: _________________________",!
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: @IOF,!,"Page: ",PG,!!,"Compensation and Pension Exam for ",!,HD7,!!,"for "_NAME,!!!
  • Line Location: HD2+0
Info |  Source |  Entry Points |  Interaction Calls