Routine: RMPRPIYT

Information

RMPRPIYT ;HINCIO/ODJ - TR - Transfer Items ;3/8/01

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: STN+1
Function Call: WRITE	Prompt: !!,"Transfer item quantity to another location.",! Line Location: HCPCS+0
Function Call: WRITE	Prompt: !,"** No HCPCS selected." Line Location: HCPCS2+4
Function Call: WRITE	Prompt: !!,"HCPCS: "_$G(RMPR1("HCPCS"))_" "_$G(RMPR1("SHORT DESC")) Line Location: HCPCS4+0
Function Call: WRITE	Prompt: !!,"IFCAP Item: ",$G(RMPR11("ITEM MASTER")) Line Location: HCPCS4+1
Function Call: WRITE	Prompt: !!,"PIP Item desc.: ",$G(RMPR11("DESCRIPTION")) Line Location: HCPCS4+2
Function Call: WRITE	Prompt: ! Line Location: CURST+3
Function Call: WRITE	Prompt: ! Line Location: CURST+10
Function Call: WRITE	Prompt: !,"*** Nothing transferred." Line Location: TLOCN+3
Function Call: WRITE	Prompt: ! Line Location: TLOCN+9
Function Call: WRITE	Prompt: "*** Forwarding and Receiving Location is the same!!!!" Line Location: TLOCN+10
Function Call: WRITE	Prompt: ! Line Location: TRANS+12
Function Call: WRITE	Prompt: "Quantity to transfer is greater than current balance: " Line Location: TRANS+13
Function Call: WRITE	Prompt: RMPR("QOH") Line Location: TRANS+14
Function Call: WRITE	Prompt: ! Line Location: TRANS+17
Function Call: WRITE	Prompt: "There were problems with the transfer, please contact support" Line Location: TRANS+18
Function Call: WRITE	Prompt: ! Line Location: TRANS+21
Function Call: WRITE	Prompt: "QTY "_RMPRQTY_" transferred from "_RMPR5F("NAME")_" to "_RMPR5T("NAME") Line Location: TRANS+22