Routine: RMPVS633

Package	Total	Call Graph
VA FileMan	4	^%DT (,$$FIND1)^DIC (FILE,UPDATE)^DIE GETS^DIQ
Kernel	1	(,UNWIND)^%ZTER
Prosthetics Vision 4 Sight II	1	RUN^RMPVDRV

Entry Points

Name	Comments	DBIA/ICR reference
TEST	;test tag
TEST2	;test tag
TEST3	;test tag
TEST4	; test tag for multiples
RUN(REQUEST,RESPONSE)	; set up input/output vars and run
ETRAP	;error trap tag
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
FINDSUSP(DFN,CONSULT)	; Find suspense record
INIT	; initialization
SCREEN	; Select a screen "ASK1+12^RMPRPAT"
GETPAT	; Select patient "GETPAT+2^RMPRUTIL"
PDCA	; Add prosthetic disability code "AMP^RMPRDIS" ; Called more than once. Only create an entry on the first call.
PDCE	; Edit prosthetic disability code "EDIT+1^RMPRDIS"
PDCS	; Select prosthetic disability code "SEL+2^RMPRDIS"
TRAN	; Transaction type "TRAN+7^RMPRPIYI"
PCAT	; Patient category "PCAT+2^RMPRIYI"
SPE	; Special category "SPE^RMPRPIYI"
BARC1	; Barcode "BARC1^RMPRPIYS"
QTY	; Quantity "QTY+1^RMPRPIYJ"
DATESERV	; Date of service "SERV+3^RMPRPIYJ"
SER	; Serial number "LI+1^RMPRPIYJ"
LOT	; Lot number "LOT+3^RMPRPIYJ"
REMA	; Remarks "REMA+3^RMPRPIYJ"
PED	; POST/EDIT/DELETE stock issue "LIST+9^RMPRPIYJ"
XSITE	; Site selection (669.9) "DIV+4^RMPRSIT"
SITE	; Site selection (669.9) "DIV+4^RMPRSIT"
DECEASED	; Patient deceased "GETPAT+12^RMPRUTIL"
NOOP	; Never called in Legacy "EN+3^RMPRDIS"
DISCHK(REQ)	;disability code checker

External References

Name	Field # of Occurrence
^%DT	DATESERV+2
^%ZTER	ETRAP+1
UNWIND^%ZTER	ETRAP+1
^DIC	GETPAT+2, XSITE+2, SITE+3
$$FIND1^DIC	DISCHK+5
FILE^DIE	PDCE+6
UPDATE^DIE	PDCA+6
GETS^DIQ	DISCHK+6
RUN^RMPVDRV	RUN+23

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	FIND1^DIC
^RMPR(665 - [#665]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT("SSN"	RUN+3
^RMPR(668 - [#668]	FINDSUSP+2, FINDSUSP+3, FINDSUSP+4
^RMPR(669.9 - [#669.9]	SITE+7
^TMP("JDA"	%WRITE+5*
^TMP($J	RUN+2!, RUN+6, RUN+10, RUN+13, RUN+14, RUN+16, RUN+17, RUN+18, RUN+19, RUN+24! , RUN+26, ERROR+1, ERROR+2, ISERROR+1, LOADVARS+1, SETDFLT+1, INIT+1!, INIT+2, INIT+3, INIT+4 , INIT+5, INIT+6, INIT+7, INIT+8, INIT+9, INIT+10, INIT+11, INIT+12, INIT+13, INIT+14 , INIT+15, INIT+16, INIT+18, INIT+19, INIT+20, GETPAT+1, PDCA+2, PDCA+8, TRAN+1, TRAN+3! , TRAN+4, TRAN+5, BARC1+2, QTY+2, DATESERV+1, SER+1, LOT+1, REMA+1, XSITE+1, SITE+2 , SITE+9, %WRITE+3, %WRITE+6, %WRITE+8

Label References

Name	Line Occurrences
$$DISCHK	RUN+11
$$FINDSUSP	RUN+7
$$ISERROR	RUN+24, BARC1+1, QTY+1, PED+1
ERROR	RUN+5, RUN+9, RUN+12, SITE+8, SITE+9, %WRITE+2, %WRITE+6, %WRITE+8, %WRITE+11
LOADVARS	RUN+20
RUN	TEST+6, TEST2+6, TEST3+12, TEST4+37
SETDFLT	LOADVARS+3, LOADVARS+4, LOADVARS+5, LOADVARS+6, LOADVARS+7, LOADVARS+8, LOADVARS+9, LOADVARS+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	DATESERV+1*
ARG	%WRITE~, %WRITE+2, %WRITE+3, %WRITE+4, %WRITE+7, %WRITE+10
ARY	TEST4+2~
ARY(	TEST4+36
ARY(1	TEST4+4, TEST4+5, TEST4+6, TEST4+7, TEST4+8, TEST4+9, TEST4+10, TEST4+11, TEST4+12*
ARY(2	TEST4+14, TEST4+15, TEST4+16, TEST4+17, TEST4+18, TEST4+19, TEST4+20, TEST4+21, TEST4+22*
ARY(3	TEST4+24, TEST4+25, TEST4+26, TEST4+27, TEST4+28, TEST4+29, TEST4+30, TEST4+31, TEST4+32*
CNSLT	FINDSUSP+4~*, FINDSUSP+5
CONSULT	FINDSUSP~, FINDSUSP+5
>> DA	PDCE+2
>> DA(1	PDCA+4, PDCE+2
DFLT	SETDFLT~, SETDFLT+1
DFN	RUN+3~*, RUN+4, RUN+7, FINDSUSP~, FINDSUSP+2
DIC	GETPAT+1, XSITE+2, SITE+1~, SITE+3*
DIC(0	GETPAT+1, XSITE+2, SITE+3*
>> DUOUT	ISERROR+2*
EREF	%WRITE~
FDA	PDCA+3~, PDCE+1~
FDA(	PDCA+5, PDCE+3, PDCE+4, PDCE+5
I	TEST4+2~, TEST4+34*, TEST4+36
IENROOT	PDCA+3~
IENROOT(1	PDCA+7
IENS	PDCA+3~, PDCA+4, PDCA+5, PDCE+1~, PDCE+2, PDCE+3, PDCE+4, PDCE+5
INSTIEN	SITE+1~, SITE+5*, SITE+7
MSG	ERROR~, ERROR+1, PDCA+3~, PDCE+1~
PROP	SETDFLT~, SETDFLT+1
REQ	TEST+2~, TEST+6, TEST2+2~, TEST2+6, TEST3+2~, TEST3+12, DISCHK~
REQ("barcode_key"	TEST+5, TEST2+5, TEST3+5*
REQ("consult_ien"	TEST+3, TEST2+3, TEST3+3*, DISCHK+3
REQ("hcpcs"	TEST3+7*
REQ("inventory_location"	TEST3+6*
REQ("issue_date"	TEST3+9*
REQ("patient_ssn"	TEST+4, TEST2+4, TEST3+4*, DISCHK+4
REQ("quantity"	TEST3+10*
REQ("remarks"	TEST3+11*
REQ("type_of_transaction"	TEST3+8*
REQUEST	TEST4+2~, TEST4+35~, TEST4+36*, TEST4+37, RUN~, RUN+11, RUN+20, LOADVARS~, LOADVARS+1
REQUEST("consult_ien"	RUN+7, RUN+13, RUN+19
REQUEST("patient_ssn"	RUN+3
RESP	TEST+2~, TEST+6, TEST2+2~, TEST2+6, TEST3+2~, TEST3+12, TEST4+35~, TEST4+37
RESPONSE	RUN~, RUN+6, RUN+10, RUN+14, RUN+26
>> RMPR60("IEN"	%WRITE+2, %WRITE+3
ROUTINE	%FOLLOW~, %FOLLOW+1, %FOLLOW+2, %FOLLOW+3
STATUS	FINDSUSP+3~*, FINDSUSP+5
SUSP	RUN+7~*, RUN+8, RUN+18
SUSPIDX	FINDSUSP+1~, FINDSUSP+2, FINDSUSP+3, FINDSUSP+4, FINDSUSP+5
SUSPIEN	FINDSUSP+1~, FINDSUSP+2, FINDSUSP+5, FINDSUSP+6
TAG	%FOLLOW~, %FOLLOW+1, %FOLLOW+2, %FOLLOW+3
U	FINDSUSP+3, FINDSUSP+4, PDCA+7, SITE+5
X	ISERROR+2, SCREEN+1, GETPAT+1, TRAN+2, TRAN+4, PCAT+1, SPE+1, BARC1+2, QTY+2, DATESERV+1 , SER+1, LOT+1, REMA+1, PED+2, XSITE+1, SITE+1~, SITE+2, DECEASED+1, NOOP+1
Y	ISERROR+2, SCREEN+1, PDCA+2, PDCA+7, PDCS+1, TRAN+2, TRAN+4, PCAT+1, SPE+1, BARC1+2 , QTY+2, SER+1, LOT+1, REMA+1, PED+2, SITE+4, SITE+6!, SITE+7, SITE+8, DECEASED+1 , NOOP+1*
Y(0	PCAT+1, SPE+1, SITE+5
consultIEN	DISCHK+2~, DISCHK+3*
disabilityCodes	DISCHK+2~, DISCHK+7
>> patientIEN	DISCHK+5*, DISCHK+6
patientSSN	DISCHK+2~, DISCHK+4*, DISCHK+5

Marked Items

Name	Field # of Occurrence
$T(	RUN+23

Customize PDF page

Package: Prosthetics Vision 4 Sight II

Routine: RMPVS633

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items