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

Package: Prosthetics

Routine: RMPRN7PR


Information

RMPRN7PR ;HINES/HNC -PRINT REPAIR WORKSHEETS ;2/14/01

Source Information

Source file <RMPRN7PR.m>

Entry Points

Name Comments DBIA/ICR reference
HDR ;leave this form feed alone
CDATA ;
SUM ;Print summary for group
LBLG ;group description fo final repair summary
LBLR ;label for repair group
FSUM ;final summay on Repair Worksheets STATION
CHK ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"REPORT OF 2529-3 REPAIR PROSTHETICS ACTIVITIES"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,$$HDR^RMPRN7S(RMPRDET)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,Y," - "
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,?10,"STATION: ",STN
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,"Line",?7,"Item",?21,"VA",?26,"Com",?31,"Total",?37,"Cost",?46
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: "Ave Com",?54
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: "SC/OP",?61,"NSC/OP",?68,"SC/IP",?74,"NSC/IP"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: ?83,CH,?90,CI,?97,CJ,?104,CK,?112,CL,?120,CM
  • Line Location: SUM+7
Function Call: WRITE
  • Prompt: !!,"STATION SUMMARY (2529-3 REPAIR ACTIVITIES)"
  • Line Location: SUM+14
Function Call: WRITE
  • Prompt: !,?21,"VA",?31,"Com",?41,"Total",?51,"Cost",?61
  • Line Location: SUM+16
Function Call: WRITE
  • Prompt: "Ave Com",?71,"Elg Ref $"
  • Line Location: SUM+17
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: SUM+18
Function Call: WRITE
  • Prompt: !,?21,CA,?31,CB,?41,(CA+CB),?51,"$"_$FN($J(CC,0,0),",")
  • Line Location: SUM+19
Function Call: WRITE
  • Prompt: ?61
  • Line Location: SUM+20
Function Call: WRITE
  • Prompt: "$"_$FN($J((CC/CB),0,0),",")
  • Line Location: SUM+21
Function Call: WRITE
  • Prompt: ?71
  • Line Location: SUM+22
Function Call: WRITE
  • Prompt: "$"_$FN($J((CM),0,0),",")
  • Line Location: SUM+23
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: SUM+24
Function Call: WRITE
  • Prompt: !,?21,"SC/OP",?31,"NSC/OP",?41,"SC/IP",?51,"NSC/IP"
  • Line Location: SUM+25
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: SUM+26
Function Call: WRITE
  • Prompt: ?21,CD,?31,CE,?41,CF,?51,CG
  • Line Location: SUM+27
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: SUM+28
Function Call: WRITE
  • Prompt: !,?21,"SPEC LEG",?31,"A&A",?41,"PHC",?51,"ELG REF",?61,"NEW"
  • Line Location: SUM+29
Function Call: WRITE
  • Prompt: !,LN,!,?21,CH,?31,CI,?41,CJ,?51,CK,?61,CL,!,LN
  • Line Location: SUM+30
Function Call: WRITE
  • Prompt: !,?21,"Total Disability: ",(CD+CE+CF+CG),!,LN,!
  • Line Location: SUM+31
Function Call: WRITE
  • Prompt: !,"2529-3 WHEELCHAIRS AND ACCESSORIES"
  • Line Location: LBLR+1
Function Call: WRITE
  • Prompt: !,"2529-3 ARTIFICIAL LEGS"
  • Line Location: LBLR+2
Function Call: WRITE
  • Prompt: !,"2529-3 ARTIFICIAL ARMS AND TERMINAL DEVICES"
  • Line Location: LBLR+3
Function Call: WRITE
  • Prompt: !,"2529-3 ORTHOSIS"
  • Line Location: LBLR+4
Function Call: WRITE
  • Prompt: !,"2529-3 SHOES/ORTHOTICS"
  • Line Location: LBLR+5
Function Call: WRITE
  • Prompt: !,"2529-3 SENSORI-NEURO AIDS"
  • Line Location: LBLR+6
Function Call: WRITE
  • Prompt: !,"2529-3 HOME DIALYSIS EQUIPMENT"
  • Line Location: LBLR+7
Function Call: WRITE
  • Prompt: !,"2529-3 MEDICAL EQUIPMENT"
  • Line Location: LBLR+8
Function Call: WRITE
  • Prompt: !,"2529-3 MEDICAL EQUIPMENT"
  • Line Location: LBLR+9
Function Call: WRITE
  • Prompt: !,"2529-3 ALL OTHER"
  • Line Location: LBLR+10
Function Call: WRITE
  • Prompt: !,"2529-3 OXYGEN & RESPIRATORY"
  • Line Location: LBLR+11
Function Call: WRITE
  • Prompt: !,"2529-3 AUTO & VAN EQUIP"
  • Line Location: LBLR+12
Function Call: WRITE
  • Prompt: !,"2529-3 MISC"
  • Line Location: LBLR+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHK+2
Info |  Source |  Entry Points |  Interaction Calls