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

Package: Prosthetics

Routine: RMPRN7PT


Information

RMPRN7PT ;HINES/HNC -PRINT NPPD NEW WORKSHEETS ;2/14/01

Source Information

Source file <RMPRN7PT.m>

Entry Points

Name Comments DBIA/ICR reference
HDR ;
CDATA ;
SUM ;Print summary for group
LBLG ;group description for final summary
LBL ;label for group
FSUM ;final summay on New Worksheets STATION
CHK ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"REPORT OF 2529-3 NEW PROSTHETICS ACTIVITIES"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,$$HDR^RMPRN7S(RMPRDET)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,DATE(3)," - "
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: DATE(4)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?10,"STATION: ",STN
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"Line",?7,"Item",?21,"VA",?26,"Com",?31,"Total",?37,"Cost",?46
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: "Ave Com",?54
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: "SC/OP",?61,"NSC/OP",?68,"SC/IP",?74,"NSC/IP"
  • Line Location: HDR+11
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 NEW ACTIVITIES)"
  • Line Location: SUM+14
Function Call: WRITE
  • Prompt: !,?21,"VA",?31,"Com",?41,"Total",?51,"Cost",?61
  • Line Location: SUM+15
Function Call: WRITE
  • Prompt: "Ave Com",?71,"Elg Ref $"
  • Line Location: SUM+16
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: SUM+17
Function Call: WRITE
  • Prompt: !,?21,$FN(CA,","),?31,$FN(CB,","),?41,$FN((CA+CB),","),?51,"$"_$FN($J(CC,0,0),",")
  • Line Location: SUM+18
Function Call: WRITE
  • Prompt: ?61,"$"_$FN($J((CC/CB),0,0),",")
  • Line Location: SUM+19
Function Call: WRITE
  • Prompt: ?71,"$"_$FN($J(CM,0,0),",")
  • Line Location: SUM+20
Function Call: WRITE
  • Prompt: !,LN,!!
  • Line Location: SUM+21
Function Call: WRITE
  • Prompt: ?21,"SC/OP",?31,"NSC/OP",?41,"SC/IP",?51,"NSC/IP"
  • Line Location: SUM+22
Function Call: WRITE
  • Prompt: !,LN,!,?21,CD,?31,CE,?41,CF,?51,CG
  • Line Location: SUM+23
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: SUM+24
Function Call: WRITE
  • Prompt: !,?21,"SPEC LEG",?31,"A&A",?41,"PHC",?51,"ELG REF",?61,"NEW"
  • Line Location: SUM+25
Function Call: WRITE
  • Prompt: !,LN,!,?21,CH,?31,CI,?41,CJ,?51,CK,?61,CL,!,LN
  • Line Location: SUM+26
Function Call: WRITE
  • Prompt: !,?21,"Total Disability: ",$FN((CD+CE+CF+CG),","),?47,"Unique SSN: ",SSNCT,!
  • Line Location: SUM+27
Function Call: WRITE
  • Prompt: !,"2529-3 WHEELCHAIRS AND ACCESSORIES"
  • Line Location: LBL+1
Function Call: WRITE
  • Prompt: !,"2529-3 ARTIFICIAL LEGS"
  • Line Location: LBL+2
Function Call: WRITE
  • Prompt: !,"2529-3 ARTIFICIAL ARMS AND TERMINAL DEVICES"
  • Line Location: LBL+3
Function Call: WRITE
  • Prompt: !,"2529-3 ORTHOSIS/ORTHOTICS"
  • Line Location: LBL+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LBL+5
Function Call: WRITE
  • Prompt: !,"2529-3 SHOES/ORTHOTICS"
  • Line Location: LBL+5
Function Call: WRITE
  • Prompt: !,"2529-3 SHOES/ORTHOTICS"
  • Line Location: LBL+6
Function Call: WRITE
  • Prompt: !,"2529-3 SENSORI-NEURO AIDS"
  • Line Location: LBL+7
Function Call: WRITE
  • Prompt: !,"2529-3 RESTORATIONS"
  • Line Location: LBL+8
Function Call: WRITE
  • Prompt: !,"2529-3 OXYGEN AND RESPIRATORY"
  • Line Location: LBL+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LBL+10
Function Call: WRITE
  • Prompt: !,"2529-3 MEDICAL EQUIPMENT"
  • Line Location: LBL+10
Function Call: WRITE
  • Prompt: !,"2529-3 MEDICAL EQUIPMENT"
  • Line Location: LBL+11
Function Call: WRITE
  • Prompt: !,"2529-3 ALL OTHER SUPPLIES AND EQUIPMENT"
  • Line Location: LBL+12
Function Call: WRITE
  • Prompt: !,"2529-3 HOME DIALYSIS PROGRAM"
  • Line Location: LBL+13
Function Call: WRITE
  • Prompt: !,"2529-3 ADAPTIVE EQUIPMENT"
  • Line Location: LBL+14
Function Call: WRITE
  • Prompt: !,"2529-3 HISA"
  • Line Location: LBL+15
Function Call: WRITE
  • Prompt: !,"2529-3 SURGICAL IMPLANTS"
  • Line Location: LBL+16
Function Call: WRITE
  • Prompt: !,"2529-3 BIOLOGICAL IMPLANTS"
  • Line Location: LBL+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LBL+18
Function Call: WRITE
  • Prompt: !,"2529-3 MISC"
  • Line Location: LBL+18
Function Call: WRITE
  • Prompt: !,"2529-3 MISC"
  • Line Location: LBL+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHK+2
Info |  Source |  Entry Points |  Interaction Calls