Routine: RMPOBIL5

Information

RMPOBIL5 ;(NG)/DUG - HOME OXYGEN BILLING TRANSACTIONS ;7/24/98

Name	Comments	DBIA/ICR reference
DIS	;DISPLAY APPLIANCES OR REPAIRS
END
EXIT
XIT()
PRT
OVER
HDR	;Print Header, Screen 4

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No home oxygen items for this veteran!",!! Line Location: END+0
Function Call: WRITE	Prompt: !!,"End of Home Oxygen records for this veteran!" Line Location: END+3
Function Call: WRITE	Prompt: ! Line Location: EXIT+1
Function Call: WRITE	Prompt: !,RK,". ",DATE,?13,QTY,?17 Line Location: PRT+14
Function Call: WRITE	Prompt: $E($P(^("HST"),U,1),1,10) Line Location: PRT+18
Function Call: WRITE	Prompt: ?30,TRANS,?31,TRANS1 Line Location: PRT+19
Function Call: WRITE	Prompt: ?33,RMPRLPRO Line Location: PRT+21
Function Call: WRITE	Prompt: ?33,$E(VEN,1,10) Line Location: PRT+23
Function Call: WRITE	Prompt: ?50,$E(SN,1,9),?60,DEL Line Location: PRT+26
Function Call: READ	Variable: ANS Timeout: DTIME Line Location: OVER+1
Function Call: WRITE	Prompt: $C(7),!," Must be between 1 and ",RK," to be valid" Line Location: OVER+6
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !,$E(RMPRNAM,1,20),?23,"SSN: " Line Location: HDR+3
Function Call: WRITE	Prompt: $E(RMPRSSN,1,3)_"-"_$E(RMPRSSN,4,5)_"-"_$E(RMPRSSN,6,10) Line Location: HDR+4
Function Call: WRITE	Prompt: ?42,"DOB: " Line Location: HDR+5
Function Call: WRITE	Prompt: Y Line Location: HDR+6
Function Call: WRITE	Prompt: ?61,"CLAIM# ",$G(RMPRCNUM) Line Location: HDR+7
Function Call: WRITE	Prompt: !?4,"Date",?12,"Qty",?19,"HCPCS",?28,"Type",?34,"Vendor",?45,"Sta",?50,"Serial",?58,"Delivery Date",?72,"Tot Cost" Line Location: HDR+8