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

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Kernel 1 HOME^%ZIS  

Entry Points

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

External References

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

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

Label References

Name Line Occurrences
HD2 EN+6, EN+9, EN+10
SETIOF EN

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CMBN DVBCSCCK+3, EN+6, EN+7, EN+9, EN+10
>> CNUM EN+2
>> HD7 EN+1*, EN+2, HD2
>> HD8 EN+1*
>> HD9 DVBCSCCK+3*, EN+1
>> HD91 DVBCSCCK+3*, EN+1
IOF EN, HD2
IOST EN
LN EN+11!
LN1 EN+11!
LN2 EN+11!
>> NAME EN+2, HD2
>> PG DVBCSCCK+3*, HD2*
>> SSN EN+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All