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

Package: Automated Medical Information Exchange

Routine: DVBCAOCK


Information

DVBCAOCK ;ALB/GTS-557/THM-AGENT ORANGE/RESIDUALS OF DIOXIN ; 5/21/91 9:56 AM

Source Information

Source file <DVBCAOCK.m>

Entry Points

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

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,"# 1710 Worksheet"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: ?33,"# 1710 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,$P(LY,";;",2),!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"A. Initial data base for possible exposure to toxic chemicals:",!!,"Branch of service: ",LNS,?33,"Service serial number: ",LNS,!!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: "Dates of service:",!?26,X,?40,X,!!,"Last period: ",?21,Y,!!?26,X,?40,X,!!,"Next to last period: ",Y,!!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: "Date of birth: __________",!!,"Marital status: ___ married ___ divorced ___ separated",!!!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: "Did veteran have military service in Vietnam? ___ Yes ___ No",!!,"If yes, list all tours of duty in Vietnam:",!!?7,X,?35,X,!,"From:",?30,"To:",!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: "Indicate the Corps or area where veteran served in Vietnam:",!!,"I Corps ___ II Corps ___ III Corps ___ IV Corps ___ Sea duty ___",!!,"More than one ___ Don't know ___ Other (specify)",LNS,!!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: "List military units in which veteran served (specify complete",!,"unabbreviated titles such as company, battalion, etc.):",!!!!!
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: "B. Veteran's exposure to Agent Orange (indicate one category for",!?5,"each circumstance):",!!?36,"Definitely Probably Not Definitely",!?39,"yes",?50,"yes",?58,"sure",?69,"no",!!
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: ?3,"1. Veteran was involved in",!?3,"handling or spraying A.O.",!!?3,"2. Veteran was not directly",!?3,"sprayed but was in a recently",!?3,"sprayed area.",!!
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: ?3,"3. Veteran was exposed to",!?3,"herbicides other than A.O.",!!?3,"4. Veteran was directly",!?3,"sprayed with Agent Orange.",!!?3,"5. Veteran ate food or drink",!?3,"that could have been contaminated.",!!!
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !!,"C. Indicate how many exposures the veteran alleges:",!!!,"D. Indicate the nature of each exposure:",!
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: "E. Medical history (include symptoms at time of exposure or",!?4,"later attributed by veteran to exposure):",!!!!!!!,"F. Subjective complaints:",!!!!!!!,"G. Objective findings:",!!
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: ?2,"a. Height _____ weight _____ pulse _____ blood pressure _______",!!
  • Line Location: EN+16
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