Routine: ASDV

Package	Total	Call Graph
Patient Care Component	5	^APCDALV ^APCDALVR ^APCDCVDT (EN1,EN2)^APCDEKL EN^APCDVDLT
VA Fileman	4	EN^DDIOL ^DIC $$GET1^DIQ ^DIR
IHS Patient	1	($$VCN,VCN)^AUPNVSIT
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Uncategorized	1	AMB^VEFSPOBS

Package	Total	Caller Graph
PCC New Encounter Form	1	VENPCCX

Entry Points

Name	Comments	DBIA/ICR reference
SERCAT(CLINIC,PAT)	; -- returns service category for visit
MSGADD(ERROR,STRING)	; -- put message string into array
MSG(DATA,PRE,POST)	; -- writes line to device
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
VDATE(ASDCLN,ASDDT,APTN,DFN,ASDCKO,ASDMSG)	;EP;if new time entered, update visit ; called by SDI if check-in time was changed ; silent update to database; no user interface ; Input variables: ; ASDCLN = clinic ien ; ASSDT = appt date & time ; APTN = ien for appt under date multiple ; DFN = Patient ien ; ASDCKO = old check-in date/time ; ASDMSG = called by reference, upon exit contains user msgs
PROV(CLINIC)	; - asks user for visit provider
RDT(X)	; -- reverse date
VSTEND
VISIT(ASDCLN,ASDDT,APTN,DFN,ASDCC,ASDPROV,ASDMSG)	;PEP; -- create visit ; called by CHKIN subroutine above and by applications where ; all data is already known ; assumes calling routine has checked that patient is checked in ; silent update to database; no user interface ; Input variables: ; ASDCLN = clinic ien ; ASDDT = appt date/time ; APTN = ien for appt under date mutiple ; DFN = patient ien ; ASDCC = clinic code ien ; ASDPROV = visit provider ien ; ASDMSG = called by reference, upon exit contains user msgs ; first piece is error code; 2nd piece is message ; Error = 0 (no problems) ; 1 (problem setting visit variables) ; 2 (problem creating visit) ; 3 (problem changing visit date/time)
CHKIN(ASDCLN,ASDDT,APTN,DFN)	;EP; -- ask visit related check-in questions ; called by SDI during check-in process ; user interface for 2 questions (clinic code and provider) ; Input variables: ; ASDCLN = clinic ien ; ASDDT = appt date/time ; APTN = ien for appt under date mutiple ; DFN = patient ien
PRVIEN(Y)	; -- determines correct provider file to use

External References

Name	Field # of Occurrence
^APCDALV	VISIT+47
^APCDALVR	VISIT+61
^APCDCVDT	VDATE+27
EN1^APCDEKL	VSTEND
EN2^APCDEKL	VSTEND
EN^APCDVDLT	VDATE+21
$$VCN^AUPNVSIT	VISIT+65
VCN^AUPNVSIT	VISIT+65
EN^DDIOL	MSG+3, MSG+4
^DIC	PROV+7
$$GET1^DIQ	VDATE+21, PROV+8
^DIR	CLNCODE+8
AMB^VEFSPOBS	VISIT+25
$$VAL^XBDIQ1	CLNCODE+4, CLNCODE+6, PROV+4
$$VALI^XBDIQ1	VISIT+34, VDATE+24, CLNCODE+4, PROV+4, FAC+4, FAC+5, SERCAT+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SC - [#44]	GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	VISIT+24
^APCDSITE - [#9001001.2]	FAC+7
^AUPNVSIT("AA"	VDATE+15, VDATE+16
^DD(9000010.06	PRVIEN+1
^DIC(19 - [#19]	VISIT+39
^DPT - [#2]	VISIT+42, SERCAT+3
^SC - [#44]	CHKIN+10, CHKIN+11, VISIT+21, VISIT+25, VISIT+36, VDATE+11, VDATE+20
^VA(200 - [#200]	PRVIEN+2

Label References

Name	Line Occurrences
$$CLNCODE	CHKIN+14
$$FAC	VISIT+29
$$PROV	CHKIN+15
$$PRVIEN	PROV+11
$$RDT	VDATE+15, VDATE+16
$$SERCAT	VISIT+35
MSG	CHKIN+19, PROV+9
MSGADD	VISIT+31, VISIT+49, VISIT+50, VISIT+62, VDATE+16, VDATE+21, VDATE+28, VDATE+30
VISIT	CHKIN+16
VSTEND	VISIT+32, VISIT+48

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	VISIT+46~
APCDALVR	VISIT+28!, VISIT+55!, VSTEND!
APCDALVR("APCDADD"	VISIT+43*
APCDALVR("APCDAPDT"	VISIT+41*
APCDALVR("APCDAPPT"	VISIT+42*
APCDALVR("APCDATMP"	VISIT+59*
APCDALVR("APCDCAT"	VISIT+35*
APCDALVR("APCDCLN"	VISIT+37*
APCDALVR("APCDDATE"	VISIT+36*
APCDALVR("APCDHL"	VISIT+38*
APCDALVR("APCDLOC"	VISIT+29*, VISIT+30, VISIT+34
APCDALVR("APCDOPT"	VISIT+40*
APCDALVR("APCDPAT"	VISIT+33, VISIT+57
APCDALVR("APCDTOA"	VISIT+60*
APCDALVR("APCDTPRO"	VISIT+56*
APCDALVR("APCDTPS"	VISIT+60*
APCDALVR("APCDTYPE"	VISIT+34*
APCDALVR("APCDVSIT"	VISIT+48, VISIT+51, VISIT+58*
APCDCVDT	VDATE+29!
APCDCVDT("ERR	OR FLAG" , VDATE+28
APCDCVDT("VIS	IT DATE/TIME" , VDATE+26, IT DFN" , VDATE+25
>> APCDVDLT	VDATE+21*
APCDVSIT	VDATE+12~, VDATE+15*, VDATE+16, VDATE+21, VDATE+24, VDATE+25
APTN	CHKIN~, CHKIN+9, CHKIN+11, CHKIN+16, VISIT~, VISIT+19, VISIT+36, VDATE~, VDATE+20
ASDCC	CHKIN+13~, CHKIN+14*, CHKIN+16, VISIT~, VISIT+20, VISIT+37
ASDCK	VDATE+12~, VDATE+20*, VDATE+21, VDATE+24, VDATE+26
ASDCKO	VDATE~, VDATE+15, VDATE+16
ASDCLN	CHKIN~, CHKIN+9, CHKIN+10, CHKIN+11, CHKIN+14, CHKIN+15, CHKIN+16, VISIT~, VISIT+19, VISIT+21 , VISIT+25, VISIT+29, VISIT+35, VISIT+36, VISIT+38, VDATE~, VDATE+11, VDATE+20, FAC+5
ASDDT	CHKIN~, CHKIN+9, CHKIN+11, CHKIN+16, VISIT~, VISIT+19, VISIT+36, VISIT+41, VISIT+42, VDATE~ , VDATE+20
ASDMSG	CHKIN+13~, CHKIN+16, CHKIN+18, VISIT~, VDATE~
ASDMSG(	CHKIN+19, MSGADD+3*
ASDMSG(""	MSGADD+2
ASDPROV	VISIT~, VISIT+54, VISIT+56
>> ASDVCN	VISIT+65*
ASDVP	CHKIN+13~, CHKIN+15*, CHKIN+16
ASDVST	VISIT+51*, VISIT+58, VISIT+65, VSTEND!
CAT	SERCAT+1~, SERCAT+3*, SERCAT+4
CLINIC	CLNCODE~, CLNCODE+4, CLNCODE+6, PROV~, PROV+4, PROV+8, FAC~, FAC+4, SERCAT~, SERCAT+2
CLNCAT	SERCAT+1~, SERCAT+2*, SERCAT+3
CODE	CLNCODE+1~, CLNCODE+4*, CLNCODE+6
DATA	MSG~, MSG+3
DFN	CHKIN~, CHKIN+9, CHKIN+16, VISIT~, VISIT+19, VISIT+33, VISIT+35, VISIT+42, VISIT+57, VDATE~ , VDATE+15, VDATE+16
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*
DIR	CLNCODE+1~
DIR("?"	CLNCODE+7*
DIR("A"	CLNCODE+3*
DIR("B"	CLNCODE+6*
DIR(0	CLNCODE+3*
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
I	CHKIN+19~, VDATE+21~, MSGADD+1~, MSGADD+2, MSGADD+3, MSG+1~, MSG+2, MSG+4
PAT	SERCAT~, SERCAT+3
POST	MSG~, MSG+4
PRE	MSG~, MSG+2
STRING	MSGADD~, MSGADD+3
U	CHKIN+10, CHKIN+19, VISIT+21, VISIT+25, VISIT+42, VDATE+11, PROV+10, PRVIEN+1, PRVIEN+2, MSGADD+3
X	VISIT+24~, VISIT+25, VISIT+39*, VISIT+40, VSTEND!, RDT~, RDT+1, PROV+1~
Y	CLNCODE+1~, CLNCODE+2, CLNCODE+9, PROV+1~, PROV+2, PROV+8*, PROV+9, PROV+10, PROV+11, PRVIEN~ , PRVIEN+1, PRVIEN+2

Customize PDF page

Package: IHS Changes To Scheduling

Routine: ASDV

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items