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: DVBCGMCK

Package: Automated Medical Information Exchange

Routine: DVBCGMCK


Information

DVBCGMCK ;ALB/GTS-557/THM-GENERAL MEDICAL EXAM ; 5/16/91 2:20 PM

Source Information

Source file <DVBCGMCK.m>

Entry Points

Name Comments DBIA/ICR reference
EN
HD2
PTXT
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,"# 0505 Worksheet"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: ?33,"# 0505 Worksheet"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"Name: ",NAME,?45,"SSN: ",SSN,!?45,"C-number: ",CNUM,!,"Date of exam: ____________________",!!,"Place of exam: ___________________"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"Type of Exam: ",HD7,!!!!,"Narrative:",!!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!!,"A. Occupational history (List most current first):",!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: LINE,!,"Name/Address of employer Type Monthly Emp dates Time lost",!,"(if unemployed, enter none)",?29,"Work Wages from/to Last 12 mo",!!!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: "1. ",$E(LINE,2,75),!!,"2. ",$E(LINE,2,75),!!,"3. ",$E(LINE,2,75),!!!,"State if time from employment was lost and give reasons.",!!!?3,$E(LINE,2,75),!!!,"B. Medical history (since last rating exam):",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: "C. Present complaints (symptoms only, NOT diagnosis):",!!!!!!!!!!!!,"D. Examination data:",!!!!,"Height:",?25,"Weight:",?45,"Max wgt past year:",!!!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: "Build and state of nutrition:",!!!,"Temperature:",?23,"Time:",?35,"AM/PM",?50,"Carriage:",!!!,"Posture:",?23,"Gait:",?45,"Right- or left-handed:",!?45,"(How determined)",!!!!!!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: "E. Skin, including appendages "
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: "F. Lymphatic and hemic systems "
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: "F. Lymphatic and hemic systems "
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: "H. Nose, sinuses, mouth and throat (include gross dental findings):"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: "I. Ears (describe canals, drums, perforations, discharge):",!!!!!!!!,"J. Eyes (describe external eye, pupil reaction, movements,",!
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: ?3,"field of vision, any uncorrectable refractive error or",!?3,"any retinopathy):",!!!!!!!!,"K. Cardiovascular system "
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: "(describe thrust, size, rhythm, sounds and condition",!," of peripheral vessels):",!!!!!!!!!!!!!!!?25,"Pulse",?39,"Blood pressure",?60,"Respiration",!,LINE,!
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: "Sitting",?21,LNH,!,LINE,!,"Recumbent",?21,LNH,!,LINE,!,"Standing",?21,LNH,!,LINE,!,"Sitting after exerc. ",LNH,!,LINE,!,"2 min after exercise ",LNH,!,LINE,!
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: "L. Varicose veins (describe location, size, extent, ulcers, scars, and",!," competency of deep circulation):",!
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !!!!!!,"M. Respiratory system "
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !!!!!!!!!,"N. Digestive system "
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !!!!!!!!!,"N. Digestive system "
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !!!!!!!!!,"N. Digestive system "
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !!!!!!!!!,"N. Digestive system "
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !!!!!!!!!,"Q. Musculo-skeletal system",!!
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: "R. Endocrine system (describe disease of thyroid, pituitary, adrenals",!?3,"gonads, other body systems affected, etc.):",!!!!!!!!
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: "S. Nervous system",!!
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !!!!!!!!!!,"T. Remarks:",!!!!!!!!!!
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !!!!!!!!!!,"T. Remarks:",!!!!!!!!!!
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: "W. Diagnosis:",!!!!!!!!!!!?25,"Signature: ______________________________",!!?30,"Date: _________________________",!
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !!?25,"Signature: ______________________________",!!?30,"Date: _________________________",!
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !!?25,"Signature: ______________________________",!!?30,"Date: _________________________",!
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !!!?16,"Reviewing Official: ______________________________",!!?30,"Date: _________________________",!
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: @IOF,!,"Page: ",PG,!!,"Compensation and Pension Exam "_HD8_" for ",!,NAME,!!!
  • Line Location: HD2+0
Info |  Source |  Entry Points |  Interaction Calls