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

Package: Automated Medical Information Exchange

Routine: DVBCAMCK


Information

DVBCAMCK ;ALB/GTS-557/THM-AMPUTATION STUMP EXAM ; 5/21/91 10:07 AM

Source Information

Source file <DVBCAMCK.m>

Call Graph

Call Graph

Call Graph Total: 2

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

Entry Points

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

External References

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

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,"# 1405 Worksheet"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: ?33,"# 1405 Worksheet"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: "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,"Amputations must be described in accordance with the following",!?13,"levels:",!!!!!!!?5,"1. ARM:",!!?8,"a. Disarticulation",!?8,"b. Amputation above insertion of deltoid muscle",!?8,"c. Amputation below insertion of deltoid muscle",!!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: ?5,"2. FOREARM:",!!?8,"a. Above radial insertion of pronator teres (function is best indicator",!?11,"of disability)",!?8,"b. Below insertion of pronator teres",!!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: ?5,"3. THIGH:",!!?8,"a. Disarticulation, with loss of extrinsic pelvic girdle muscles",!?8,"b. Amputation of upper, middle or lower third, always measured",!?11,"from perineum to the boney end of the stump with the claimant",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: ?11,"recumbent and stump lying parallel with the other lower limb",!?8,"c. State whether this level permits satisfactory prosthesis",!!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: ?5,"4. LEG:",!!?8,"a. Give level of amputation and condition of stump",!?8,"b. State whether this level permits satisfactory prosthesis",!?8,"c. Describe any stump defects (e.g. painful neuroma or circulatory",!?11,"disturbance)",!!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: "A. Objective findings:",!!!!!!!!!!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: $S($D(CMBN):"A. ",1:"B. "),"Specific evaluation information required by the rating board",!?4,"(if the information requested is included elsewhere, do not",!?4,"repeat here):",!!!!
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: ?8,"1. Scar -",!!!!!?8,"2. Circulation -",!!!!!?8,"3. Skin -",!!!!!?8,"4. Muscles -",!!!!!?8,"5. Joint -",!!!!!
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: ?8,"8. Describe any limited motion or instability in",!?11,"the joint above the amputation site -",!!!!!!!!!!
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: $S($D(CMBN):"B. ",1:"E. "),"Diagnostic/clinical test results:",!!!!!!!!!!,$S($D(CMBN):"C. ",1:"F. "),"Diagnosis:",!!!!!!!!!!?25,"Signature: ______________________________",!!?30,"Date: _________________________",!
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: @IOF,!?(IOM-$L(DVBAX)\2),DVBAX,!?(IOM-$L(HD7)\2),HD8,!!!
  • Line Location: ATTACH+1
Function Call: WRITE
  • Prompt: "Length of stump",!!
  • Line Location: ATTACH+2
Function Call: WRITE
  • Prompt: " 1. The thigh. The stump of an amputated thigh will be measured from the",!,"perineum, at the origin of the adductor tendons, to the bony end of the stump,",!,"with the claimant recumbent and the stump lying parallel with the other",!
  • Line Location: ATTACH+3
Function Call: WRITE
  • Prompt: "lower limb. It is to be kept in mind that if the limb is abducted,",!,"flexed, rotated or adducted, its length will be altered. The effective length",!,"of a thigh stump is governed by its inside dimension. Measure length of",!
  • Line Location: ATTACH+4
Function Call: WRITE
  • Prompt: "normal thigh if present and indicate whether amputation is in upper,",!,"middle, or lower third. When amputation is bilateral, estimate the same",!,"for a person of similar height.",!!
  • Line Location: ATTACH+5
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+9, EN+10, EN+12, EN+13
SETIOF EN

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CMBN DVBCAMCK+4, EN+2, EN+9, EN+10, EN+12, EN+13
>> CNUM EN+2
>> DVBAX ATTACH+1*
>> HD7 EN+1*, EN+2, ATTACH+1, HD2
>> HD8 EN+1*, ATTACH+1
>> HD9 DVBCAMCK+4*, EN+1
>> HD91 DVBCAMCK+3*, EN+1
IOF EN, ATTACH+1, HD2
IOM ATTACH+1
IOST EN
LN EN+14!
LN1 EN+14!
LN2 EN+14!
>> NAME EN+2, HD2
>> PG DVBCAMCK+3*, HD2*
>> SSN EN+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All