Routine: VIABMS

Package	Total	Call Graph
VA FileMan	2	LIST^DIC ($$GET1,GETS)^DIQ
Kernel	1	$$UP^XLFSTR
Registration	1	PID^VADPT
Scheduling	1	$$SDAPI^SDAMA301
VistA Integration Adapter	1	PIENS^VIABMS1

Package	Total	Caller Graph
VistA Integration Adapter	5	VIAB BMS VIABMS1 VIABMS2 VIABMS3 VIABMS4

Entry Points

Name	Comments	DBIA/ICR reference
EN(RESULT,VIA)	; entry point for RPC
PARSE(VIA)	; -- array parsing to parameters
PATH(VIATAG)	;The PATH parameter determines the line tag executed and data returned by the RPC.
GETACT	;returns activity from the ED LOG (#230) file
BETWEEN(VIAX,VIAA,VIAB)	;
PRIMDX(VIADA)	;return primary diagnosis
GETPAT	;Returns patient information based on DFN from File #2;ICR-10035, ICR-6607
PATSSN	;Returns patient information based on SSN from File #2
LADMPAT	;Returns a list of admitted patients from File #2
LSTPAT	;Returns a list of patients from File #2;ICR-10035, ICR-6607
GPAT	;Get patient data from File #2;ICR-10035,ICR-6607
ADMTPAT	;Returns a list of admitted patients from File #2 up to the Admitted IEN;ICR-10035
WRDLOC	;Returns information for a ward from File #42;ICR-6609
NEWPER	;Returns a list of people from the NEW PERSON file #200 for a date range on DATE ENTERED Field (#30)
SPLTY	;Returns a list of specialties from the SPECIALTY file #42.4;ICR-2652
PATAPPT	; Returns a list of patient appointments using API SDAPI^SDAMA301;ICR-4433
PATAPPTQ
CANORDS	; Returns a list of cancelled orders from the ORDER file #100;ICR-5771
ACTDATE(IEN)	;Returns the date of the first ORDER ACTION found
LWRDLOC	; Returns a list of ward locations from the WARD LOCATION file #42;ICR-6609
MOVTYP	; Returns a list of facility movement type from the FACILITY MOVEMENT TYPE file #405.1;ICR-6610
DTCHK(RESULT,VIASDT,VIAEDT)	;check/set date
PATCHK(DFN)	;check if patient is valid in File #2
GDIQ	;Runs GETS^DIQ
LDIC	;Runs LIST^DIC
SET(X)	;
ERR(X)	;Error processing
KVAR	;Clean-up
GMVTR(IENS)	;
HNDL	;Finds PATH and linetag that needs to be executed for results

Name	Field # of Occurrence
LIST^DIC	LDIC+3
$$GET1^DIQ	GETACT+21, GETACT+22, GETACT+32, PRIMDX+7, GETPAT+11, LADMPAT+7, LSTPAT+22, LSTPAT+32, CANORDS+18, CANORDS+20 , CANORDS+21
GETS^DIQ	GDIQ+2, GMVTR+3
$$SDAPI^SDAMA301	PATAPPT+18
PID^VADPT	PATCHK+1
PIENS^VIABMS1	SPLTY+9, LWRDLOC+9, MOVTYP+9
$$UP^XLFSTR	PATH+3, GETACT+22

RPC Name	Call Tags
VIAB BMS	EN

FileNo	Call Tags
^OR(100 - [#100]	GET1^DIQ
^EDP(230 - [#230]	GET1^DIQ
230.04	GET1^DIQ
^EDPB(233.1 - [#233.1]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^DGPM - [#405]	GET1^DIQ, GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DD(	GDIQ+9
^DPT("SSN"	PATSSN+4
^EDP(230 - [#230]	GETACT+18, GETACT+20, GETACT+26, GETACT+27, PRIMDX+3, PRIMDX+4
^OR(100 - [#100]	CANORDS+15, ACTDATE+2, ACTDATE+4
^TMP("VIARSLT"	LDIC+4!, LDIC+14, LDIC+15, LDIC+23!
^TMP($J	PATAPPT+22, PATAPPT+25, PATAPPT+28, PATAPPT+29, PATAPPTQ!

Name	Line Occurrences
$$ACTDATE	CANORDS+19
$$BETWEEN	GETACT+18
@(	EN+8
DTCHK	LSTPAT+27, NEWPER+20
ERR	EN+3, EN+4, GETPAT+7, PATSSN+5, ADMTPAT+7, WRDLOC+6, PATAPPT+9, CANORDS+9, DTCHK+1, PATCHK+2
GDIQ	GETPAT+9, LSTPAT+19, WRDLOC+8, NEWPER+15
GETPAT	PATSSN+7
GPAT	LADMPAT+5, LSTPAT+30
KVAR	EN+9
LDIC	GPAT+6, ADMTPAT+10, NEWPER+22, SPLTY+8, LWRDLOC+8, MOVTYP+8
PARSE	EN+6
PATAPPTQ	PATAPPT+19
PATH	EN+7
SET	GETACT+16, GETACT+35, GDIQ+4, GDIQ+10, GDIQ+12, GDIQ+13, GDIQ+15, GDIQ+18, LDIC+8, LDIC+11 , LDIC+13, LDIC+16, LDIC+19, LDIC+20, ERR+3, ERR+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTDT	CANORDS+10~, CANORDS+19*, CANORDS+22
C	GDIQ+1~
CLNIEN	PATAPPT+8~, PATAPPT+24, PATAPPT+25, PATAPPT+26, PATAPPT+28, PATAPPT+29, PATAPPT+30, PATAPPT+32
CNT	LSTPAT+8~, LSTPAT+14, LSTPAT+23, NEWPER+11, NEWPER+17, PATAPPT+8~, PATAPPT+13, PATAPPT+30, PATAPPT+36, PATAPPT+39 , CANORDS+10~, CANORDS+12, CANORDS+17, CANORDS+23
DATE	CANORDS+10~
DFN	GETACT+12~, GETACT+29, GETACT+30, PATSSN+3~, PATSSN+4, PATSSN+5, PATSSN+6, PATCHK~
DISP	GETACT+12~, GETACT+21*
DISPI	GETACT+12~, GETACT+22*
DT	PATAPPT+12
DX	PRIMDX+1~, PRIMDX+7*, PRIMDX+8
FLDS	LSTPAT+8~, LSTPAT+13, LSTPAT+21, GMVTR+1~, GMVTR+2, GMVTR+3
HLOC	CANORDS+10~, CANORDS+21*, CANORDS+22
I	PATH+1~, PATH+3, GETACT+12~, GETACT+17, GETACT+18, GETACT+20, PRIMDX+1~, PRIMDX+2, PRIMDX+3, PRIMDX+4 , PRIMDX+6, LSTPAT+8~, LSTPAT+15, NEWPER+12, PATAPPT+8~, PATAPPT+36, PATAPPT+37, PATAPPT+38, PATAPPT+39, CANORDS+10~ , CANORDS+13, CANORDS+14, LDIC+1~, LDIC+14*, LDIC+15, GMVTR+1~
IEN	GETACT+12~, GETACT+19, GETACT+20, GETACT+21, GETACT+22, GETACT+26, GETACT+27, CANORDS+10~, CANORDS+14*, CANORDS+15 , CANORDS+16, CANORDS+22, ACTDATE~, ACTDATE+2, ACTDATE+4, GMVTR+1~
IENS	PRIMDX+1~, PRIMDX+6, PRIMDX+7, CANORDS+10~, CANORDS+16, CANORDS+18, CANORDS+20, CANORDS+21, GMVTR~, GMVTR+3 , GMVTR+4, GMVTR+5, GMVTR+6, GMVTR+7, GMVTR+8, GMVTR+9, GMVTR+10, GMVTR+11, GMVTR+12, GMVTR+13
INST	GETACT+12~, GETACT+31*, GETACT+32
J	LSTPAT+21, LSTPAT+22, GDIQ+1~, GDIQ+11, GDIQ+12, GMVTR+1~
LEX	BETWEEN+1~, BETWEEN+2*, BETWEEN+4
>> MORE	PATAPPT+13, PATAPPT+32, PATAPPT+36
MOUT	GMVTR+1~
N	GETACT+15, GDIQ+1~, GDIQ+3, LDIC+1~, LDIC+6, SET+1, SET+2, ERR+1~, ERR+2*
NMBR	CANORDS+10~
NODE0	GETACT+12~, GETACT+26*, GETACT+29, GETACT+31
NODE1	GETACT+12~, GETACT+27*, GETACT+28, GETACT+33, GETACT+34
OUT	GMVTR+1~
OUT(405	GMVTR+5, GMVTR+6, GMVTR+7, GMVTR+8, GMVTR+9, GMVTR+10, GMVTR+11, GMVTR+12, GMVTR+13
PAT	CANORDS+10~, CANORDS+18*, CANORDS+22
PRIM	PRIMDX+1~, PRIMDX+4*, PRIMDX+5
QFLG	PATAPPT+8~, PATAPPT+13, PATAPPT+22, PATAPPT+25, PATAPPT+32, PATAPPT+33
RCNT	PATAPPT+8~, PATAPPT+13, PATAPPT+27, PATAPPT+28, PATAPPT+30, PATAPPT+31
REC	CANORDS+10~, CANORDS+22, CANORDS+23, GMVTR+1~, GMVTR+4, GMVTR+5, GMVTR+6, GMVTR+7, GMVTR+8, GMVTR+9* , GMVTR+10, GMVTR+11, GMVTR+12, GMVTR+13, GMVTR+14
RES	PRIMDX+1~, PRIMDX+2*
RESULT	EN~, GETACT+38, LSTPAT+15, LSTPAT+18!, LSTPAT+20!, LSTPAT+24!, LSTPAT+27, NEWPER+12, NEWPER+14!, NEWPER+18! , NEWPER+20, PATAPPT+34, PATAPPT+35!, DTCHK~, GDIQ+20, LDIC+22, ERR+5
RESULT(	GETPAT+11, LADMPAT+7, LSTPAT+21, LSTPAT+22, LSTPAT+32, PATAPPT+30, PATAPPT+39, CANORDS+23
RESULT(1	LSTPAT+20, NEWPER+16, PATAPPT+13, PATAPPT+36, CANORDS+11*
RESULT(2	LSTPAT+20, NEWPER+17, PATAPPT+36*
RESULT(3	PATAPPT+36*
REX	BETWEEN+1~, BETWEEN+3*, BETWEEN+5
SIEN	ACTDATE+1~, ACTDATE+2*, ACTDATE+3, ACTDATE+4
STATUS	CANORDS+10~, CANORDS+20*, CANORDS+22
>> TARRAY	PATAPPT+34*
>> TARRAY(	PATAPPT+37, PATAPPT+38, PATAPPT+39
>> TCFLAG	GETACT+22*, GETACT+24
TCFLGS	GETACT+12~
TRESULT	LSTPAT+8~, LSTPAT+15, NEWPER+7~, NEWPER+12
TRESULT(	LSTPAT+23, NEWPER+17
TRESULT(1	LSTPAT+14, NEWPER+11
TVIAIENS	LSTPAT+8~, LSTPAT+9, LSTPAT+10, LSTPAT+15, NEWPER+7~, NEWPER+9, NEWPER+10, NEWPER+12, SPLTY+5~, SPLTY+7* , SPLTY+9, LWRDLOC+5~, LWRDLOC+7, LWRDLOC+9, MOVTYP+5~, MOVTYP+7, MOVTYP+9
U	GETACT+28, GETACT+29, GETACT+30, GETACT+31, GETACT+32, GETACT+33, GETACT+34, PRIMDX+4, GETPAT+11, LADMPAT+7 , LSTPAT+16, LSTPAT+21, LSTPAT+22, LSTPAT+32, NEWPER+17, CANORDS+22, ACTDATE+4, GDIQ+9, LDIC+9, GMVTR+5 , GMVTR+6, GMVTR+7, GMVTR+8, GMVTR+9, GMVTR+10, GMVTR+11, GMVTR+12, GMVTR+13
VA	PATCHK+3!
VAERR	PATCHK+2, PATCHK+3!
VAL	GETACT+12~, GETACT+25, GETACT+28, GETACT+30, GETACT+32, GETACT+33, GETACT+34, GETACT+35, GETPAT+6~, GETPAT+11* , LADMPAT+3~, LADMPAT+7, LSTPAT+22, LSTPAT+32, ACTDATE+1~, ACTDATE+4, ACTDATE+5, LDIC+1~, LDIC+15*, LDIC+16
VALUE	LSTPAT+8~, LSTPAT+16, LSTPAT+21, LSTPAT+22*, LSTPAT+23
VALX	LSTPAT+8~
VIA	EN~, EN+6, PARSE~
VIA(""	EN+3
VIA("CLNIEN"	PARSE+18
VIA("EDATE"	PARSE+13
VIA("FLAGS"	PARSE+2
VIA("FROM"	PARSE+6
VIA("ID"	PARSE+11
VIA("IENS"	PARSE+1
VIA("LASTEDT"	PARSE+14
VIA("MAX"	PARSE+3, LSTPAT+14*
VIA("MOVDATE"	PARSE+15
VIA("MOVTYPE"	PARSE+16
VIA("ORDIEN"	PARSE+19
VIA("PART"	PARSE+8
VIA("PATH"	EN+4, PATH+3
VIA("PATIEN"	PARSE+17
VIA("SCREEN"	PARSE+10
VIA("SDATE"	PARSE+12
VIA("SSN"	PARSE+20
VIA("TO"	PARSE+7
VIA("VALUE"	PARSE+21
VIA("XREF"	PARSE+9
VIA3	KVAR+2!
VIAA	BETWEEN~, BETWEEN+2, BETWEEN+6, KVAR+2!
VIAB	BETWEEN~, BETWEEN+3, BETWEEN+6, KVAR+2!
VIAC	KVAR+2!
VIACIEN	PARSE+18, PATAPPT+11, PATAPPT+15, KVAR+2!
VIACNT	PATAPPT+8~, PATAPPT+18*, PATAPPT+19, PATAPPT+20
VIAD	KVAR+2!
VIADA	PRIMDX~, PRIMDX+3, PRIMDX+4, PRIMDX+6
VIADATA	GDIQ+1~
VIADATA(	GDIQ+5, GDIQ+11, GDIQ+12, GDIQ+15
>> VIADFN	PATAPPT+11, PATAPPT+16, PATAPPT+21, PATAPPT+22*, PATAPPT+23, PATAPPT+25, PATAPPT+28, PATAPPT+29, PATAPPT+32
VIADFNS	PATAPPT+8~
VIADT	PATAPPT+8~, PATAPPT+27, PATAPPT+28, PATAPPT+29, PATAPPT+30, PATAPPT+32
VIAEDT	PARSE+13, GETACT+14, GETACT+18, LSTPAT+27, NEWPER+20, PATAPPT+12, PATAPPT+14, DTCHK~, DTCHK+1, DTCHK+2 , KVAR+1!
VIAER	EN+1~, EN+3, EN+4, GETPAT+7, PATSSN+5, ADMTPAT+7, WRDLOC+6, PATAPPT+9, CANORDS+9, DTCHK+1* , PATCHK+2*
VIAERR	GDIQ+1~, GDIQ+17, LDIC+1~, LDIC+18
VIAERR("DIERR"	LDIC+20
VIAFIELDS	GETPAT+6~, GETPAT+8, LSTPAT+8~, LSTPAT+11, GPAT+4~, GPAT+5, ADMTPAT+6~, ADMTPAT+8, WRDLOC+5~, WRDLOC+7* , NEWPER+7~, NEWPER+8, NEWPER+10, SPLTY+5~, SPLTY+6, LWRDLOC+5~, LWRDLOC+6, MOVTYP+5~, MOVTYP+6*, GDIQ+2 , LDIC+3, KVAR+1!
VIAFILE	GETPAT+6~, GETPAT+8, LSTPAT+8~, LSTPAT+11, GPAT+4~, GPAT+5, ADMTPAT+6~, ADMTPAT+8, WRDLOC+5~, WRDLOC+7* , NEWPER+7~, NEWPER+8, SPLTY+5~, SPLTY+6, LWRDLOC+5~, LWRDLOC+6, MOVTYP+5~, MOVTYP+6, GDIQ+2, GDIQ+5 , GDIQ+6, GDIQ+9, GDIQ+11, GDIQ+12, GDIQ+15, LDIC+3, KVAR+1!
VIAFLAGS	PARSE+2, GETPAT+6~, GETPAT+8, LSTPAT+8~, LSTPAT+11, GPAT+4~, GPAT+5, ADMTPAT+6~, ADMTPAT+9, WRDLOC+7 , NEWPER+7~, NEWPER+8, NEWPER+10, SPLTY+5~, SPLTY+6, LWRDLOC+5~, LWRDLOC+6, MOVTYP+5~, MOVTYP+6*, GDIQ+2 , LDIC+3, KVAR+1!
VIAFLD	GDIQ+1~, GDIQ+5*, GDIQ+6, GDIQ+9, GDIQ+11, GDIQ+12, GDIQ+15
VIAFROM	PARSE+6, GETACT+13, PATAPPT+21, PATAPPT+23, PATAPPT+24, PATAPPT+26, PATAPPT+27, LDIC+2, LDIC+3, LDIC+7 , LDIC+9, KVAR+1!
VIAFROM("IEN"	LDIC+2*, LDIC+10
VIAID	PARSE+11*, LDIC+3, KVAR+1!
VIAIENS	PARSE+1, GETPAT+7, PATSSN+6, LSTPAT+9, LSTPAT+15, LSTPAT+16, LSTPAT+17, WRDLOC+6, NEWPER+9, NEWPER+12* , NEWPER+13, NEWPER+17, SPLTY+7, SPLTY+9, PATAPPT+9, PATAPPT+11, CANORDS+9, CANORDS+13, CANORDS+14, CANORDS+19 , LWRDLOC+7, LWRDLOC+9, MOVTYP+7, MOVTYP+9*, GDIQ+2, GDIQ+5, GDIQ+6, GDIQ+11, GDIQ+12, GDIQ+15 , LDIC+3, KVAR+1!
VIALEDT	PARSE+14*, KVAR+2!
VIAMAX	PARSE+3, PARSE+5, SPLTY+7, PATAPPT+28, PATAPPT+31, LWRDLOC+7, MOVTYP+7*, LDIC+3, KVAR+1!
VIAMDT	PARSE+15*, KVAR+2!
VIAMTYP	PARSE+16*, KVAR+2!
VIAOI	KVAR+2!
VIAOIEN	PARSE+19*, KVAR+2!
VIAOK	LDIC+4!, LDIC+5!
VIAPART	PARSE+8*, LDIC+3, KVAR+1!
VIAPIEN	PARSE+17*, KVAR+2!
VIAPPT	PATAPPT+8~, PATAPPT+29*, PATAPPT+30
VIAR	KVAR+2!
VIARRAY	PATAPPT+8~, PATAPPT+18
VIARRAY("FLDS"	PATAPPT+17*
VIARRAY(1	PATAPPT+14*
VIARRAY(2	PATAPPT+15*
VIARRAY(4	PATAPPT+16*
VIASCRN	PARSE+10, LADMPAT+3~, LADMPAT+4, LSTPAT+29, ADMTPAT+6~, ADMTPAT+9, NEWPER+21*, LDIC+3, KVAR+1!
VIASDT	PARSE+12, GETACT+13, GETACT+17, GETACT+18, LSTPAT+26, LSTPAT+27, NEWPER+20, PATAPPT+14, DTCHK~, DTCHK+1 , DTCHK+2*, KVAR+1!
VIASSN	PARSE+20*, PATSSN+4, KVAR+2!
VIATAG	EN+1~, EN+2, EN+7, EN+8, PATH~, PATH+3
VIATO	PARSE+7, GETACT+14, ADMTPAT+7, ADMTPAT+8, ADMTPAT+9, KVAR+2!
VIATSDT	LSTPAT+8~, LSTPAT+26*
VIAV	KVAR+2!
VIAVAL	PARSE+21*, KVAR+1!
VIAX	BETWEEN~, BETWEEN+4, BETWEEN+5, KVAR+2!
VIAXREF	PARSE+9, LADMPAT+3~, LADMPAT+4, LSTPAT+28, ADMTPAT+8, NEWPER+8*, LDIC+3, KVAR+1!
X	PATH+1~, PATH+2, PATH+3, GETPAT+6~, GETPAT+11, LADMPAT+3~, LADMPAT+7, LSTPAT+32, GDIQ+1~, GDIQ+6 , GDIQ+10, GDIQ+15, LDIC+1~, LDIC+2, LDIC+9, LDIC+10*, LDIC+11, SET~, SET+2, ERR~ , ERR+4, KVAR+2!
X1	BETWEEN+1~, BETWEEN+4*, BETWEEN+6
X2	BETWEEN+1~, BETWEEN+5*, BETWEEN+6
Y	GETACT+12~, GETACT+38, LSTPAT+8~, LSTPAT+21*, LSTPAT+22, GDIQ+1~, GDIQ+20, LDIC+1~, LDIC+22, ERR+5 , KVAR+2!
Y(	SET+2*
Z	LSTPAT+8~

Customize PDF page

Package: VistA Integration Adapter

Routine: VIABMS

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 5

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items