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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 2

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Medical Information Exchange 1 DVBCAOC1  

Entry Points

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

External References

Name Field # of Occurrence
HOME^%ZIS SETIOF+1
^DVBCAOC1 EN+16

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

Label References

Name Line Occurrences
HD2 EN+8, EN+14
SETIOF EN

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNUM EN+2
>> HD7 EN+1*, EN+2, HD2
>> HD8 EN+1*
>> HD9 DVBCAOCK+3*, EN+1
>> HD91 DVBCAOCK+3*, EN+1
>> I EN+4*
IOF EN, HD2
IOST EN
>> LNS EN+4*, EN+5, EN+9
>> LX EN+4*
>> LY EN+4*
>> NAME EN+2, HD2
>> PG DVBCAOCK+3*, HD2*
>> SSN EN+2
>> X EN+6*, EN+8
>> Y EN+6*

Marked Items

Name Field # of Occurrence
$T(@LX+I EN+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  Marked Items  | All