Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Automated Medical Information Exchange 1 PTXT^DVBCGMC1  
Kernel 1 HOME^%ZIS  

Entry Points

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

External References

Name Field # of Occurrence
HOME^%ZIS SETIOF+1
PTXT^DVBCGMC1 PTXT

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
Routine Call
  • %ZIS
  • Line Location:
    • SETIOF+1

Label References

Name Line Occurrences
HD2 EN+7, EN+9, EN+11, EN+14, EN+16, EN+17, EN+18
PTXT EN+4, EN+9, EN+16, EN+17, EN+18
SETIOF EN

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CMBN DVBCGMCK+4
>> CNUM EN+2
>> HD7 EN+1*, EN+3
>> HD8 EN+1*, HD2
>> HD9 DVBCGMCK+4*, EN+1
>> HD91 DVBCGMCK+3*, EN+1
IOF EN, HD2
IOST EN
LINE DVBCGMCK+3!, DVBCGMCK+5*, EN+5, EN+6, EN+13, EN+14, EN+23!
LN EN+23!
LN1 EN+23!
LN2 EN+23!
>> LNH EN+13*, EN+14
>> NAME EN+2, HD2
>> PG DVBCGMCK+3*, HD2*
>> SSN EN+2
>> TXT EN+4*, EN+9*, EN+16*, EN+17*, EN+18*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All