Routine: RMPVS925

Package	Total	Call Graph
VA FileMan	2	^%DT ^DIC
Prosthetics Vision 4 Sight II	1	RUN^RMPVDRV

Entry Points

Name	Comments	DBIA/ICR reference
TEST	;test tag
TEST2	;test tag
RUN(REQUEST,RESPONSE)	; set up input/output vars and run
ERROR(MSG)	; Set error return
ISERROR()	; If error, simulate up-arrow and return 1
LOADVARS(REQUEST)	; Load input variables into globals
SETDFLT(PROP,DFLT)	; Set defaults
FIND6616	; Find the new record in file 661.6
INIT	; Initialization
GET660	; Select appliance repair IEN
DELED	; Delete or edit
TRAN	; Transaction type
PCAT	; Patient category
SPE	; Special category
BARC1	; Barcode
CPT	; Edit CPT prompt
VEND	; Vendor
SOURCE	; Source
QTY	; Quantity
DATESERV	; Date of service
SER	; Serial number
LOT	; Lot number
REMA	; Remarks
POST	; Post
SITE	; Site selection (669.9) "DIV+4^RMPRSIT"

FileNo	Call Tags
^RMPR(661.5 - [#661.5]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^RMPR(660 - [#660]	RUN+8, INIT+3
^RMPR(661.6 - [#661.6]	FIND6616+4, FIND6616+5, FIND6616+6, INIT+2, INIT+4
^RMPR(669.9 - [#669.9]	SITE+7
^TMP("RMPV"	RUN+1!, RUN+2, RUN+3, RUN+4, RUN+5, RUN+7, RUN+14, RUN+15!, ERROR+1, ERROR+2* , ISERROR+1, LOADVARS+1, SETDFLT+1, FIND6616+1, FIND6616+3, FIND6616+4, FIND6616+6, FIND6616+7, INIT+2, INIT+3 , INIT+4, INIT+5, GET660+1, TRAN+1, BARC1+2, QTY+1, SER+1, LOT+1, REMA+1, SITE+2 , SITE+9, %WRITE+2, %WRITE+4
^TMP($J	INIT+6, INIT+7, INIT+8, INIT+9, INIT+10, INIT+11, INIT+12, INIT+13, INIT+14, INIT+15 , INIT+16, INIT+17, INIT+18, INIT+19, INIT+20, INIT+21

Name	Line Occurrences
$$ISERROR	RUN+9, RUN+11, RUN+13, BARC1+1, POST+1
ERROR	RUN+8, FIND6616+7, SITE+8, SITE+9, %WRITE+2, %WRITE+4, %WRITE+7
FIND6616	RUN+13
LOADVARS	RUN+9
RUN	TEST+7, TEST2+16
SETDFLT	LOADVARS+3, LOADVARS+4, LOADVARS+5, LOADVARS+6, LOADVARS+7, LOADVARS+8, LOADVARS+9

Name	Field # of Occurrence
>> %DT	DATESERV+1*
APPIEN	RUN+6~*, RUN+7, RUN+8
ARG	%WRITE~, %WRITE+1, %WRITE+3, %WRITE+6
DFLT	SETDFLT~, SETDFLT+1
DIC	SITE+1~, SITE+3*
DIC("B"	VEND+1
DIC(0	SITE+3*
>> DUOUT	ISERROR+2*
EREF	%WRITE~
>> HCPCS	FIND6616+1*, FIND6616+5
IEN	FIND6616+3~, FIND6616+4, FIND6616+5, FIND6616+6
INSTIEN	SITE+1~, SITE+5*, SITE+7
IOF	INIT+1*
IOM	INIT+1*
ISSUE	INIT+3~*, INIT+4
MSG	ERROR~, ERROR+1
PROP	SETDFLT~, SETDFLT+1
REQ	TEST+2~, TEST+7, TEST2+2~, TEST2+16
REQ("appliance_repair_ien"	TEST+3, TEST2+10
REQ("barcode_key"	TEST+5, TEST+6, TEST2+7*
REQ("charge_id"	TEST+4, TEST2+14
REQ("consult_ien"	TEST2+4*
REQ("inventory_location"	TEST2+6*
REQ("patient_category"	TEST2+12*
REQ("patient_ssn"	TEST2+5*
REQ("quantity"	TEST2+8*
REQ("remarks"	TEST2+9*
REQ("special_category"	TEST2+13*
REQ("type_of_transaction"	TEST2+11*
REQUEST	RUN~, RUN+9, LOADVARS~, LOADVARS+1
REQUEST("appliance_repair_ien"	RUN+6
REQUEST("charge_id"	RUN+4
REQUEST("consult_ien"	RUN+5
RESP	TEST+2~, TEST+7, TEST2+2~, TEST2+16
RESPONSE	RUN~, RUN+14*
ROUTINE	%FOLLOW~, %FOLLOW+1, %FOLLOW+2, %FOLLOW+3
TAG	%FOLLOW~, %FOLLOW+1, %FOLLOW+2, %FOLLOW+3
U	FIND6616+5, FIND6616+6, INIT+3, INIT+4, SITE+5
X	ISERROR+2, GET660+1, DELED+1, TRAN+1, PCAT+1, SPE+1, BARC1+2, CPT+1, VEND+1, SOURCE+1 , QTY+1, DATESERV+1, SER+1, LOT+1, REMA+1, POST+2, SITE+1~, SITE+2*
Y	ISERROR+2, GET660+1, DELED+1, TRAN+1, PCAT+1, SPE+1, BARC1+2, CPT+1, VEND+1, SOURCE+1 , QTY+1, SER+1, LOT+1, REMA+1, POST+2, SITE+4, SITE+6!, SITE+7, SITE+8*
Y(0	PCAT+1, SPE+1, SITE+5

Name	Field # of Occurrence
$T(	RUN+11