Prompt: !,"3. Veterans Name (Last, First, MI)",?40,"4. Date of Authorization"
Line Location: HDR+21
Function Call: WRITE
Prompt: !,?5,VADM(1)
Line Location: HDR+22
Function Call: WRITE
Prompt: ?45,Y
Line Location: HDR+22
Function Call: WRITE
Prompt: !,RMPRB
Line Location: HDR+23
Function Call: WRITE
Prompt: !,RMPRB
Line Location: HDR+24
Function Call: WRITE
Prompt: !,"5. Veterans Address",?40,"6. Date Required",!,?5,VAPA(1),?45,RMPRDELD,!
Line Location: HDR+26
Function Call: WRITE
Prompt: ?5,VAPA(4)_","_$P(VAPA(5),U,2)_" "_VAPA(6),?40,$E(RMPRB,1,40),!,?40,"9. Authority For Issuance CFR 17.115",!,?5,VAPA(8),?43,"CHARGE MEDICAL APPROPRIATION"
Line Location: HDR+27
Function Call: WRITE
Prompt: ?5,VAPA(2),?40,$E(RMPRB,1,40),!,?5,VAPA(4)_","_$P(VAPA(5),U,2)_" "_VAPA(6),?40,"9. Authority For Issuance CFR 17.115",!,?5,VAPA(8),?43,"CHARGE MEDICAL APPROPRIATION"
Prompt: !,?30,$E(RMPRB,1,50),!,?30,"14. Delivery To: "
Line Location: HDR+36
Function Call: WRITE
Prompt: $P(R664(3),U)
Condition for execution: $D(R664(3))
Line Location: HDR+36
Function Call: WRITE
Prompt: !,RMPRB
Line Location: HDR+36
Function Call: WRITE
Prompt: !?17,"15. DESCRIPTION OF ITEMS OR SERVICES AUTHORIZED",!,RMPRB,!,"ITEM NUMBER",?23,"DESCRIPTION/NOMENCLATURE",?50,"QUANTITY",?60,"UNIT",?66,"UNIT",?73,"AMOUNT",!,?50,"ORDERED",?66,"PRICE",!,RMPRB