Routine: BSDV

Information

BSDV ; IHS/ANMC/LJF - CREATE VISIT AT CHECK-IN ;

Source Information

Source file <BSDV.m>

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
VA Fileman	5	EN^DDIOL ^DIC ^DIE $$GET1^DIQ ^DIR
IHS Changes To Scheduling	4	$$OI^BSDAM GETVISIT^BSDAPI4 SELECT^BSDAPI5 $$PRV^BSDU
Patient Care Component	4	^APCDALVR ^APCDCVDT (EN1,EN2)^APCDEKL ^APCDVDLT
IHS Changes To ADT	1	PAUSE^BDGF
IHS Patient	1	($$VCN,MOD,VCN)^AUPNVSIT

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Changes To Scheduling	1	BSDAPI4
Patient Care Component	1	APCDAPI4

Entry Points

Name	Comments	DBIA/ICR reference
SERCAT(CLINIC,PAT)	;EP; -- returns service category for visit
MSGADD(ERROR,STRING)	; -- put message string into array
MSG(DATA,PRE,POST)	; -- writes line to device
PP(VSTN,PROV)	;
PROVUPD	; will update provider on visit that was created earlier; IHS/ITSC/LJF 4/28/2005 PATCH 1003
CLNCODE(CLINIC)	; -- asks user for clinic code
FAC(CLINIC)	; -- return facility location ien for clinic ; try institution field in file 44, then institution based on division ; then try user's division and make sure it is a PCC site
VISIT(BSDCLN,BSDDT,APTN,DFN,BSDCC,BSDPROV,BSDOPT,BSDMSG)	;EP; -- create visit
PROV(CLINIC)	; - asks user for visit provider
HOSLUPD	; update hospital location on visit; IHS/ITSC/LJF 5/5/2004 PATCH 1003
VSTUPD(BSDCLN,BSDDT,APTN,DFN,BSDMSG)	; interactive updating of visit data during ckeck-in edit ; if check in time different, update visit if there is one
VDATE(BSDEVT,BSDCLN,BSDDT,APTN,DFN,BSDCKO,BSDMSG)	;EP
RDT(X)	; -- reverse date
VSTEND
CHKIN(BSDEVT,BSDCLN,BSDDT,APTN,DFN)	;EP; -- ask visit related check-in questions ; called by Scheduling Event driver ; user interface for 2 questions (clinic code and provider) ; Input variables: ; BSDEVT = type of event (4=checkin) ; BSDCLN = clinic ien ; BSDDT = appt date/time ; APTN = ien for appt under date mutiple ; DFN = patient ien
SETVAR	; IHS/ITSC/LJF 5/4/2005 PATCH 1003 sets basic variables needed by API call
PRVIEN(Y)	; -- determines correct provider file to use

External References

Name	Field # of Occurrence
^APCDALVR	VISIT+55, VSTUPD+31, PROVUPD+23
^APCDCVDT	VDATE+40
EN1^APCDEKL	VSTEND
EN2^APCDEKL	VSTEND
^APCDVDLT	VDATE+32
$$VCN^AUPNVSIT	VISIT+58
MOD^AUPNVSIT	VSTUPD+18, VSTUPD+22
VCN^AUPNVSIT	VISIT+58
PAUSE^BDGF	CHKIN+21, CHKIN+46
$$OI^BSDAM	CHKIN+31, VSTUPD+15
GETVISIT^BSDAPI4	CHKIN+39, VISIT+36, VISIT+41
SELECT^BSDAPI5	VISIT+38
$$PRV^BSDU	PROV+4
EN^DDIOL	MSG+3, MSG+4
^DIC	PROV+7
^DIE	VDATE+27, VDATE+35, VSTUPD+18, VSTUPD+22, PROVUPD+14, HOSLUPD+3
$$GET1^DIQ	CHKIN+11, VISIT+22, PP+6, VDATE+14, VDATE+26, VDATE+31, VDATE+37, CLNCODE+4, CLNCODE+7, PROV+4 , PROV+8, FAC+4, FAC+5, SERCAT+3, PROVUPD+9, SETVAR+3, SETVAR+4
^DIR	CLNCODE+9

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DIC(40.7 - [#40.7]	GET1^DIQ
^DG(40.8 - [#40.8]	GET1^DIQ
^SCE - [#409.68]	Classic Fileman Calls, GET1^DIQ
^SC - [#44]	GET1^DIQ
^AUPNVSIT - [#9000010]	Classic Fileman Calls, GET1^DIQ
^AUPNVPRV - [#9000010.06]	GET1^DIQ
^APCCCTRL - [#9001000]	GET1^DIQ
^APCDSITE - [#9001001.2]	GET1^DIQ
^BSDSC - [#9009017.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDSITE - [#9001001.2]	FAC+7
^AUPNVPRV - [#9000010.06]	PP+5, PROVUPD+8
^AUPNVPRV("AD"	PP+4, VDATE+32, VSTUPD+21, PROVUPD+7
^AUPNVSIT - [#9000010]	VISIT+48, PROVUPD+16
^AUPNVSIT("AA"	VDATE+17, VDATE+18, VSTUPD+7, VSTUPD+8
^BSDSC - [#9009017.2]	CHKIN+29, CHKIN+30, VSTUPD+13, VSTUPD+14
^BSDSC("B"	CHKIN+26, CHKIN+28, VSTUPD+10, VSTUPD+12
^DD(9000010.06	PRVIEN+1
^DIC(19 - [#19]	VISIT+31, VISIT+32
^DPT - [#2]	VISIT+29, VDATE+25, SERCAT+2
^SC - [#44]	CHKIN+23, VISIT+23, VDATE+20, VSTUPD+4, SETVAR+1
^SCE("AVSIT"	VDATE+29
^VA(200 - [#200]	PRVIEN+2

Label References

Name	Line Occurrences
$$CLNCODE	CHKIN+33
$$FAC	SETVAR+2
$$PP	VISIT+48
$$PROV	CHKIN+34, VSTUPD+24
$$PRVIEN	PROV+11
$$RDT	VDATE+17, VDATE+18, VSTUPD+7, VSTUPD+8
$$SERCAT	SETVAR+6
HOSLUPD	VISIT+25
MSG	CHKIN+21, CHKIN+22, CHKIN+45, PROV+9
MSGADD	VISIT+42, VISIT+56, VDATE+18, VDATE+41, VDATE+43, VSTUPD+8, VSTUPD+32, PROVUPD+24
PROVUPD	VISIT+25
SETVAR	CHKIN+38, VISIT+28
VDATE	CHKIN+15
VISIT	CHKIN+43
VSTUPD	CHKIN+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDALVR	VISIT+49!, VSTEND!, VSTUPD+25~, PROVUPD+17!
APCDALVR("APCDATMP"	VISIT+53, VSTUPD+29, PROVUPD+21*
APCDALVR("APCDPAT"	VISIT+51, VSTUPD+27, PROVUPD+19*
APCDALVR("APCDTOA"	VISIT+54, VSTUPD+30, PROVUPD+22*
APCDALVR("APCDTPRO"	VISIT+50, VSTUPD+26, PROVUPD+18*
APCDALVR("APCDTPS"	VISIT+54, VSTUPD+30, PROVUPD+22*
APCDALVR("APCDVSIT"	VISIT+52, VSTUPD+28, PROVUPD+20*
APCDCVDT	VDATE+42!
APCDCVDT("ERR	OR FLAG" , VDATE+41
APCDCVDT("VIS	IT DATE/TIME" , VDATE+39, IT DFN" , VDATE+38
>> APCDVDLT	VDATE+31*
APCDVSIT	VDATE+15~, VDATE+17*, VDATE+18, VDATE+31, VDATE+32, VDATE+33, VDATE+37, VDATE+38
APTN	CHKIN~, CHKIN+10, CHKIN+15, CHKIN+16, CHKIN+23, CHKIN+31, CHKIN+43, VISIT~, VISIT+20, VISIT+23 , VDATE~, VDATE+20, VSTUPD~, VSTUPD+4, VSTUPD+15, SETVAR+1
AUPNVSIT	VSTUPD+2~, VSTUPD+7*, VSTUPD+8, VSTUPD+18, VSTUPD+21, VSTUPD+28
BSDCC	CHKIN+24~, CHKIN+33*, CHKIN+43, VISIT~, VISIT+21, SETVAR+7
BSDCK	VDATE+15~, VDATE+20, VDATE+22, VDATE+37, VDATE+39, VSTUPD+2~, VSTUPD+4, VSTUPD+7, VSTUPD+8
BSDCKO	VDATE~, VDATE+17, VDATE+18, VDATE+20
BSDCLN	CHKIN~, CHKIN+10, CHKIN+11, CHKIN+15, CHKIN+16, CHKIN+23, CHKIN+26, CHKIN+28, CHKIN+31, CHKIN+33 , CHKIN+34, CHKIN+43, VISIT~, VISIT+20, VISIT+22, VISIT+23, VDATE~, VDATE+14, VDATE+20, FAC+5 , VSTUPD~, VSTUPD+4, VSTUPD+10, VSTUPD+12, VSTUPD+15, VSTUPD+24, HOSLUPD+2, SETVAR+1, SETVAR+2, SETVAR+6 , SETVAR+8
BSDDT	CHKIN~, CHKIN+10, CHKIN+15, CHKIN+16, CHKIN+23, CHKIN+31, CHKIN+43, VISIT~, VISIT+20, VISIT+23 , VISIT+29, VDATE~, VDATE+20, VDATE+25, VSTUPD~, VSTUPD+4, VSTUPD+15, SETVAR+1, SETVAR+9
BSDEVT	CHKIN~, CHKIN+9, CHKIN+15, VDATE~, VDATE+13
BSDMSG	CHKIN+14~, CHKIN+15, CHKIN+16, CHKIN+19, CHKIN+24~, CHKIN+43, CHKIN+44, VISIT~, VDATE~, VSTUPD~
BSDMSG(	CHKIN+20, CHKIN+21, CHKIN+22, CHKIN+45, MSGADD+3*
BSDMSG(""	MSGADD+2
BSDOI	CHKIN+27~, CHKIN+28, CHKIN+29, CHKIN+30, VSTUPD+11~, VSTUPD+12, VSTUPD+13, VSTUPD+14
BSDOIA	CHKIN+27~, CHKIN+31, VSTUPD+11~, VSTUPD+15
BSDOPT	VISIT~, VISIT+31
BSDOUT	CHKIN+36~, CHKIN+39
BSDOUT(0	CHKIN+41
BSDPROV	VISIT~, VISIT+48, VISIT+50, PROVUPD+2, PROVUPD+3, PROVUPD+8, PROVUPD+18
>> BSDR("VIEN"	VISIT+35!, VISIT+39, VISIT+45
BSDRET	VISIT+27~, VISIT+36, VISIT+38, VISIT+41
BSDRET(0	VISIT+37, VISIT+43
BSDVAR	CHKIN+36~, CHKIN+39, CHKIN+40!, VISIT+27~, VISIT+36, VISIT+38, VISIT+41
BSDVAR("APCDAPPT"	VISIT+29*, VISIT+30!
BSDVAR("APCDOPT"	VISIT+31, VISIT+32
BSDVAR("APPT	DATE" , SETVAR+9*
BSDVAR("CALLER"	VISIT+34*
BSDVAR("CLINI	C CODE" , SETVAR+7*
BSDVAR("FORCE	ADD" , VISIT+40*
BSDVAR("HOS L	OC" , SETVAR+8*
BSDVAR("NEVER	ADD" , CHKIN+37*
BSDVAR("PAT"	SETVAR+1*
BSDVAR("SHOW	VISITS" , VISIT+33*
BSDVAR("SITE"	SETVAR+2*, SETVAR+3, SETVAR+4
BSDVAR("SRV C	AT" , VISIT+30, SETVAR+6*
BSDVAR("TIME	RANGE" , SETVAR+11*
BSDVAR("USR"	SETVAR+10*
BSDVAR("VISIT	DATE" , SETVAR+1, TYPE" , SETVAR+3, SETVAR+4*, SETVAR+5!
>> BSDVCN	VISIT+58*
BSDVP	CHKIN+24~, CHKIN+34*, CHKIN+43
>> BSDVSTN	CHKIN+41, VISIT+25, VISIT+43, VISIT+44, VISIT+45*, VISIT+48, VISIT+52, VISIT+58, PROVUPD+7, PROVUPD+16 , PROVUPD+20, HOSLUPD+2
CLINIC	CLNCODE~, CLNCODE+4, CLNCODE+7, PROV~, PROV+4, PROV+8, FAC~, FAC+4, SERCAT~, SERCAT+3
CLNCAT	SERCAT+1~, SERCAT+3*, SERCAT+4
CODE	CLNCODE+1~, CLNCODE+4*, CLNCODE+7
DA	VDATE+27, VDATE+33~, VSTUPD+2~, VSTUPD+18, VSTUPD+20~, VSTUPD+21, PROVUPD+14, HOSLUPD+1~, HOSLUPD+2
DATA	MSG~, MSG+3
DEP	VDATE+31~*, VDATE+32
DFN	CHKIN~, CHKIN+10, CHKIN+15, CHKIN+16, CHKIN+31, CHKIN+43, VISIT~, VISIT+20, VISIT+29, VISIT+48 , VISIT+51, VDATE~, VDATE+17, VDATE+18, VDATE+25, VSTUPD~, VSTUPD+7, VSTUPD+8, VSTUPD+15, VSTUPD+27 , PROVUPD+16, PROVUPD+19, SETVAR+1, SETVAR+6
DIC	PROV+1~, PROV+3*, PROV+7!
DIC("A"	PROV+3*
DIC("B"	PROV+4*, PROV+5!
DIC("S"	PROV+6*
DIC(0	PROV+3*
DIE	VDATE+27, VDATE+33~, VSTUPD+2~, VSTUPD+18, VSTUPD+20~, VSTUPD+22, PROVUPD+14, HOSLUPD+1~, HOSLUPD+2
DIR	CLNCODE+1~
DIR("?"	CLNCODE+8*
DIR("A"	CLNCODE+3*
DIR("B"	CLNCODE+7*
DIR(0	CLNCODE+3*
DR	VDATE+27, VDATE+33~, VDATE+34, VSTUPD+2~, VSTUPD+18, VSTUPD+20~, VSTUPD+22, PROVUPD+14, HOSLUPD+1~, HOSLUPD+2
DUZ	SETVAR+10
DUZ(2	FAC+6
ERROR	MSGADD~, MSGADD+3
FAC	FAC+3~, FAC+4, FAC+5, FAC+6, FAC+7, FAC+8
FORMAT	MSG+1~, MSG+2*, MSG+3
FOUND	PP+1~, PP+2, PP+3, PP+5, PP+6, PP+7, PP+8, PROVUPD+5~, PROVUPD+6, PROVUPD+8* , PROVUPD+11
I	CHKIN+20~, CHKIN+21, CHKIN+22, CHKIN+45~, MSGADD+1~, MSGADD+2, MSGADD+3, MSG+1~, MSG+2, MSG+4*
IEN	PP+1~, PP+2, PP+4, PP+5, PP+6, PROVUPD+5~, PROVUPD+6, PROVUPD+7, PROVUPD+8, PROVUPD+9
>> IORVOFF	CHKIN+21
>> IORVON	CHKIN+21
MAW	VISIT+44!, PP+7!
OEN	VDATE+24~, VDATE+25*, VDATE+26, VDATE+27
OENV	VDATE+24~, VDATE+26*, VDATE+27, VDATE+29
PAT	SERCAT~, SERCAT+2
POST	MSG~, MSG+4
PRE	MSG~, MSG+2
PRIM	PP+1~, PP+2, PROVUPD+5~, PROVUPD+6, PROVUPD+9*, PROVUPD+14
PROV	PP~, PP+5
PRV	PP+1~, PROVUPD+5~
>> SDATA("BEFORE"	CHKIN+13, CHKIN+15
STRING	MSGADD~, MSGADD+3
U	CHKIN+13, CHKIN+15, CHKIN+21, CHKIN+22, CHKIN+29, CHKIN+30, CHKIN+45, VISIT+29, VISIT+48, PP+5 , VDATE+25, PROV+10, PRVIEN+1, PRVIEN+2, MSGADD+3, VSTUPD+13, VSTUPD+14, PROVUPD+8, PROVUPD+16
VPROV	VSTUPD+2~, VSTUPD+24~*, VSTUPD+26
VSTN	PP~, PP+3, PP+4
X	VSTEND!, RDT~, RDT+1, PROV+1~
Y	CLNCODE+1~, CLNCODE+2, CLNCODE+10, PROV+1~, PROV+2, PROV+8*, PROV+9, PROV+10, PROV+11, PRVIEN~ , PRVIEN+1, PRVIEN+2

Marked Items

Name	Field # of Occurrence
$T(VCN^AUPNVSIT	VISIT+58

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDV

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items