Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: VIABMS

Package: VistA Integration Adapter

Routine: VIABMS


Information

VIABMS ;AAC/JMC,AFS/PB - VIA BMS RPCs ;10/31/17 14:34

Source Information

Source file <VIABMS.m>

Call Graph

Call Graph

Call Graph Total: 6

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

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

External References

Name Field # of Occurrence
LIST^DIC LDIC+3
$$GET1^DIQ GETACT+25, GETACT+34, 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

Used in RPC

RPC Name Call Tags
VIAB BMS EN

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( GDIQ+9
^DPT("SSN" PATSSN+4
^EDP(230 - [#230] GETACT+22, GETACT+24, GETACT+28, GETACT+29, 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!

Label References

Name Line Occurrences
$$ACTDATE CANORDS+19
$$BETWEEN GETACT+22
@( 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+18, GETACT+37, 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 GETACT+21*, GETACT+23*, 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+13~, GETACT+31*, GETACT+32, PATSSN+3~, PATSSN+4*, PATSSN+5, PATSSN+6, PATCHK~
DISP GETACT+13~, GETACT+25*, GETACT+26
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+13~, GETACT+19*, GETACT+22*, GETACT+24, 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+13~, GETACT+24*, GETACT+25, GETACT+28, GETACT+29, 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+13~, GETACT+33*, GETACT+34
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+17*, GDIQ+1~, GDIQ+3*, LDIC+1~, LDIC+6*, SET+1*, SET+2, ERR+1~, ERR+2*
NMBR CANORDS+10~
NODE0 GETACT+13~, GETACT+28*, GETACT+31, GETACT+33
NODE1 GETACT+13~, GETACT+29*, GETACT+30, GETACT+35, GETACT+36
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
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+30, GETACT+31, GETACT+32, GETACT+33, GETACT+34, GETACT+35, GETACT+36, 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+13~, GETACT+27*, GETACT+30*, GETACT+32*, GETACT+34*, GETACT+35*, GETACT+36*, GETACT+37, 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+15*, GETACT+22, 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+14, 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+14*, GETACT+19, GETACT+22, 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+15, 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+13~, 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~

Marked Items

Name Field # of Occurrence
$T(HNDL+I PATH+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All