Routine: AMERVSIT

Package	Total	Call Graph
VA Fileman	7	DD^%DT ^%DTC EN^DDIOL ^DIC ^DIE (,IX)^DIK ^DIR
Emergency Room	5	$$NAME^AMERAGED ($$ERCHCKIN,CANCEL)^AMERBSDU LOG^AMERBUSA ($$FINDVSIT,$$VISIT,SAVPCCO)^AMERPCC $$PATMRG1^AMERXMB
IHS Patient Registration	3	DOG^AG0 (DOB,SEX)^AG2A SSN^AG3A
Patient Care Component	2	START^APCDCVDT EN^APCDVDLT
IHS Changes To Scheduling	1	WISD^BSDROUT
IHS Patient	1	MOD^AUPNVSIT

Package	Total	Caller Graph
Emergency Room	9	AMERBSDU AMEREDIT AMEREDTA AMEREDTD AMERPCC AMERPCC1 AMERPCC2 AMERPCC3 AMERSAV
IHS Emergency Dept Dashboard	1	BEDDPCC

Entry Points

Name	Comments	DBIA/ICR reference
GETVOPTN(AMERPCC)	; EP from AMERPCC ; RETURNS THE option used to create a visit ; INPUT : ; AMERPCC : the IEN of the VISIT record in question
GETOPIEN(AMERNAME)	; EP from AMERPCC ; INPUT: ; AMERNAME : the name of the option who's ien belongs in the "created by option" field of the VISIT file
VSITDIE(AMERPCC,AMERVDR)	; EP from AMERPCC ; Updates VISIT file with AMERPCC IEN with DR string AMERVDR ; INPUT : ; AMERPCC - the VISIT ien for the entry that is being edited ; AMERVDR - THE DR string that will be used to update this entry
VPRVIEN(AMERPCC,AMERPIEN)	; EP from AMERPCC1 ; ROUTINE to locate ien of V PROVIDER file in question ; INPUT : ; AMERPCC - IEN OF PCC VISIT ; AMERPIEN - PROVIDER IEN OF PROVIDER IN V PROVIDER FILE
CLNICPTR(AMERPCC,AMERFORM)	;
SENDMSG(AMEROPCC,AMERNPCC,AMERODFN,AMERNDFN,AMERDATE)	;
UPDATPAT(AMERDFN)	; EP FROM AMEREDTA ; CALLED when a patient record that was created on the day of the ER VISIT is being updated ; INPUT: ; AMERDFN : THE IEN OF THE PATIENT RECORD BEING EDITED
DATECRTD(DFN,F)	; ; Returns DATE CREATED in F format ; F="E":DATE CREATED IN EXTERNAL FORMAT, F="I":DATE CREATED IN INTERNAL FORMAT
RTNGSLP(AMERDFN,AMERDATE)	; EP FROM AMERBSDU ; PRINTS ROUTING SLIP FOR A PATIENT WITH SCHEDULE ; INPUT: ; AMERDFN - EIN OF PATIENT IN PATIENT FILE ; AMERDATE - DATE/TIME OF ER VISIT
DELETVST(AMERDA)	; IHS/OIT/SCR 10/08/08 - DELETE PCC VISIT WHEN 'REGISTERED IN ERROR' ; CALLED WHEN A VISIT IS SAVED WITH DISPOSITION 'REGISTERED IN ERROR' ; Updates VISIT file with AMERPCC IEN with DR string AMERVDR ; INPUT : ; AMERPCC - the VISIT ien for the entry that is being DELETED
VPOVIEN(AMERPCC,AMERPIEN)	; ; AMERPCC - IEN OF PCC VISIT ; AMERPIEN - ICD9 IEN OF ICD9 CODE IN V POV FILE
DELVPRV(AMERVPRV)	; EP from AMERPCC1 ; REMOVE PROVIDER EIN AMERVPRV FROM V PROVIDER FILE ; INPUT: ; AMERVPRV : PROVIDER IEN TO BE REMOVED
CHANGPAT(AMERODFN,AMERDA,AMERISNW)	; EP FROM EDADMIT^AMEREDTA ; Updates appropriate files when a patient is changed in the editing interface ; ALGORITHM: ; 1. identifY if a new patient ID should be associated to the ER VISIT ; 2a. If NO updates use paitent reg APIs to change patient name ; 2b. If YES updates ER VISIT file and creates a new VISIT with new patient ID and old information ; leaves old PCC VISIT with no V POV or V PROVIDER files and sends a mail ; message idenifying original and changed information ; INPUT: ; AMERODFN - THE ORIGINAL PATIENT DFN ; AMERDA - POINTER TO THE ER VISIT FILE THAT IS BEING EDITED ; RETURNS; ; AMERNDFN = THE NEW PATIENT DFN
DELETPOV(AMERPCC)	; EP FROM AMERPCC2 ; DELETES ALL V POV ENTRIES FOR A GIVEN PCC VISIT ; SO THEY CAN BE RE-ADDED WITH THE PRIMARY POV FIRST
UPDTVCLN(AMERVPOV,AMERVCLN)	; EP FROM AMERPCC2 ; UPDATES THE "clinic" field of V POV to the one identified on the VISIT ; INPUT : ; AMERVPOV - IEN OF VPOV BEING EDITED ; AMERVCLN - THE NAME OF THE CLINIC STOP FILE THAT SHOULD BE ASSOCIATED TO THIS VPOV ENTRY
GETPOVEP(AMERVPOV)	; EP from AMERPCC2 ; INPUT AMERVPOV - IEN OF THE V POV FILE ; RETURNS - IEN OF ENCOUNTER PROVIDER FOR V POV ENTRY
UPDTEPRV(AMERVIEN,AMERDOC)	; EP FROM AMERPCC2 ; Updates ENCOUNTER PROVIDER in V POV file ; INPUT ; AMERVIEN : THE IEN of the V POV entr being updated ; AMERDOC : The IEN of the NEW PERSON with provider keys being added to file ; note: the four slash stuff is needed to avoid cross-referencing that can identify a provider by last four of social security
GETPOVCL(AMERVPOV)	; EP from AMERPCC2 ; INPUT: AMERVPOV - IEN OF THE V POV FILE ; RETURNS: THE DESCRIPTION OF "CLINIC STOP"
VPOVDIE(AMERVIEN,AMERVDR)	; EP from AMERVSIT files to update V POV data ; Updates a particular V POV entry AMERVEIEN with DR string AMERVDR ; INPUT : ; AMERVIEN : THE IEN OF THE V POV record to be updated ; AMERVDR : The DR string containing the field and value to be updated
UPDTNAR(AMERVIEN,AMERNAR)	; EP from AMERPCC2 ; UPDATES THE PROVIDER NARRATIVE FOR A GIVEN V POV ENTRY ; INPUT : ; AMERVIEN - V POV IEN ; AMERNAR - PROVIDER NARRATIVE
VPRVDIE(AMERVIEN,AMERVDR)	; EP from AMERPCC1 ; Updates a particular V PROVIDER entry ; INPUT : ; AMERVIEN - THE IEN OF THE V PROVIDER FILE THAT IS BEING MODIFIED ; AMERVDR - THE DR STRING THAT PROVIDES INFORMATION TO BE USED
NEWREG(AMERDFN,AMERDA)	; EP from AMEREDTA ; Called when a misidentified patient must be registered as a new patient
DELETPRV(AMERPCC)	; EP ; DELETES ALL V PROVIDER ENTRIES FOR A GIVEN PCC VISIT ; AMERPCC - VISIT IEN
UPDTVTIM(AMERDA,AMEROTIM,AMERNTIM)	; EP from AMEREDTA ; Array APCDCVDT must be passed as follows:
REMOVPOV(AMERVPOV)	; EP from AMERPCC2 ; DELETES ONE V POV ENTRY ; INPUT: ; AMERVPOV - V POV IEN TO BE DELETED

External References

Name	Field # of Occurrence
DD^%DT	DATECRTD+12, SENDMSG+5
^%DTC	NEWREG+12
DOG^AG0	CHANGPAT+34
DOB^AG2A	UPDATPAT+19
SEX^AG2A	UPDATPAT+21
SSN^AG3A	UPDATPAT+23
$$NAME^AMERAGED	UPDATPAT+10
$$ERCHCKIN^AMERBSDU	CHANGPAT+48
CANCEL^AMERBSDU	DELETVST+16
LOG^AMERBUSA	RTNGSLP+13
$$FINDVSIT^AMERPCC	CHANGPAT+18, UPDTVTIM+10, DELETVST+6
$$VISIT^AMERPCC	CHANGPAT+46
SAVPCCO^AMERPCC	CHANGPAT+50
$$PATMRG1^AMERXMB	SENDMSG+7
START^APCDCVDT	UPDTVTIM+15
EN^APCDVDLT	DELETVST+9
MOD^AUPNVSIT	VSITDIE+12, VPRVDIE+12, VPOVDIE+12, DELVPRV+12
WISD^BSDROUT	RTNGSLP+15
EN^DDIOL	VSITDIE+14, VPRVDIE+14, VPOVDIE+14, DELVPRV+13, CHANGPAT+56, SENDMSG+8, UPDTVTIM+14, UPDTVTIM+16
^DIC	GETOPIEN+7, CHANGPAT+23
^DIE	VSITDIE+10, VPRVDIE+10, VPOVDIE+10
^DIK	DELVPRV+9, DELETPRV+8, DELETPOV+11, REMOVPOV+9, DELETVST+12
IX^DIK	DELVPRV+10, DELETPRV+9, REMOVPOV+10
^DIR	RTNGSLP+8, CHANGPAT+31, CHANGPAT+42, UPDATPAT+13

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(19 - [#19]	Classic Fileman Calls
^AUPNVSIT - [#9000010]	Classic Fileman Calls
^AUPNVPRV - [#9000010.06]	Classic Fileman Calls
^AUPNVPOV - [#9000010.07]	Classic Fileman Calls
^AMERVSIT - [#9009080]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMER(2.5 - [#9009082.5]	CHANGPAT+46, CHANGPAT+48
^AMERVSIT - [#9009080]	NEWREG+11, CHANGPAT+17, UPDTVTIM+9, DELETVST+13, DELETVST+14
^AUPNPAT - [#9000001]	DATECRTD+6, DATECRTD+7
^AUPNVPOV - [#9000010.07]	DELETPOV+9, DELETPOV+13, REMOVPOV+6, REMOVPOV+11, VPOVIEN+12, VPOVDIE+8, VPOVDIE+11, GETPOVCL+4, GETPOVEP+4
^AUPNVPOV("AD"	VPOVIEN+9, DELETPOV+10
^AUPNVPRV - [#9000010.06]	DELETPRV+6, DELETPRV+11, VPRVIEN+14, VPRVDIE+8, VPRVDIE+11, DELVPRV+7, DELVPRV+11
^AUPNVPRV("AD"	VPRVIEN+11, DELETPRV+7
^AUPNVSIT - [#9000010]	VSITDIE+8, VSITDIE+11, GETVOPTN+5, CLNICPTR+4, CLNICPTR+5
^DIC(40.7 - [#40.7]	CLNICPTR+7, CLNICPTR+8, GETPOVCL+5
^DPT - [#2]	CHANGPAT+21, CHANGPAT+28, CHANGPAT+40, SENDMSG+2, SENDMSG+3

Label References

Name	Line Occurrences
$$DATECRTD	NEWREG+10
DELETPOV	CHANGPAT+52
DELETPRV	CHANGPAT+51
SENDMSG	CHANGPAT+53
VPOVDIE	UPDTNAR+7, UPDTVCLN+7, UPDTEPRV+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMERAGN	UPDATPAT+5~, UPDATPAT+6, UPDATPAT+9, UPDATPAT+15*, UPDATPAT+17
AMERBAD	UPDATPAT+5~, UPDATPAT+6, UPDATPAT+14, UPDATPAT+17, UPDATPAT+27
AMERCLNC	CLNICPTR+1~, CLNICPTR+5*, CLNICPTR+6, CLNICPTR+7, CLNICPTR+8, CLNICPTR+9
AMERCRTD	NEWREG+8~, NEWREG+10*
AMERDA	NEWREG~, NEWREG+11, CHANGPAT~, CHANGPAT+17, CHANGPAT+18, CHANGPAT+50, UPDTVTIM~, UPDTVTIM+9, UPDTVTIM+10, DELETVST~ , DELETVST+6, DELETVST+11, DELETVST+13, DELETVST+14
AMERDATE	RTNGSLP~, RTNGSLP+15, CHANGPAT+17, CHANGPAT+46, CHANGPAT+48, CHANGPAT+53, SENDMSG~, SENDMSG+4, SENDMSG+6, SENDMSG+7
AMERDFN	RTNGSLP~, RTNGSLP+13, RTNGSLP+15, NEWREG~, NEWREG+10, CHANGPAT+21, UPDATPAT~, UPDATPAT+7, UPDATPAT+10, UPDTVTIM+7~ , UPDTVTIM+9, DELETVST+5~, DELETVST+14, DELETVST+16
AMERDOC	UPDTEPRV~, UPDTEPRV+7
AMERDONE	CHANGPAT+13~, CHANGPAT+15, CHANGPAT+19, CHANGPAT+24, CHANGPAT+27, CHANGPAT+44
AMERDR	UPDTNAR+5~
AMEREDAT	DATECRTD+3~, DATECRTD+4, DATECRTD+13, DATECRTD+15
AMEREPRV	GETPOVEP+3~, GETPOVEP+4*, GETPOVEP+5
AMERFND	VPRVIEN+8~, VPRVIEN+10, VPRVIEN+11, VPRVIEN+15, VPOVIEN+6~, VPOVIEN+8, VPOVIEN+9, VPOVIEN+13
AMERFORM	CLNICPTR~, CLNICPTR+8
AMERIDAT	DATECRTD+3~, DATECRTD+4, DATECRTD+7, DATECRTD+8, DATECRTD+11, DATECRTD+15
AMERISNW	CHANGPAT~, CHANGPAT+27
AMERMSG	SENDMSG+1~, SENDMSG+7*, SENDMSG+8
AMERNAME	GETOPIEN~, GETOPIEN+6
AMERNAR	UPDTNAR~, UPDTNAR+6
AMERNDFN	CHANGPAT+13~, CHANGPAT+15, CHANGPAT+24, CHANGPAT+25, CHANGPAT+27, CHANGPAT+35, CHANGPAT+38, CHANGPAT+39, CHANGPAT+40, CHANGPAT+43* , CHANGPAT+46, CHANGPAT+48, CHANGPAT+53, CHANGPAT+56, CHANGPAT+57*, CHANGPAT+61, SENDMSG~, SENDMSG+3, SENDMSG+7
AMERNEW	NEWREG+8~, NEWREG+9, NEWREG+13, NEWREG+14
AMERNNAM	SENDMSG+1~, SENDMSG+3*, SENDMSG+7
AMERNPCC	CHANGPAT+13~, CHANGPAT+46, CHANGPAT+48, CHANGPAT+49, CHANGPAT+50, CHANGPAT+53, CHANGPAT+55, SENDMSG~, SENDMSG+7
AMERNTIM	UPDTVTIM~, UPDTVTIM+12
AMERODFN	CHANGPAT~, CHANGPAT+28, CHANGPAT+38, CHANGPAT+39, CHANGPAT+40, CHANGPAT+43, CHANGPAT+53, CHANGPAT+57, SENDMSG~, SENDMSG+2 , SENDMSG+7
AMEROIEN	GETOPIEN+3~, GETOPIEN+8, GETOPIEN+9, GETOPIEN+10
AMERONAM	SENDMSG+1~, SENDMSG+2*, SENDMSG+7
AMEROPCC	CHANGPAT+13~, CHANGPAT+18*, CHANGPAT+51, CHANGPAT+52, CHANGPAT+53, SENDMSG~, SENDMSG+7
AMEROPT	GETVOPTN+4~, GETVOPTN+5*, GETVOPTN+6
AMEROTIM	UPDTVTIM~
AMERPCC	VPRVIEN~, VPRVIEN+11, VPOVIEN~, VPOVIEN+9, VSITDIE~, VSITDIE+7, DELETPRV~, DELETPRV+5, DELETPRV+7, GETVOPTN~ , GETVOPTN+5, DELETPOV~, DELETPOV+8, DELETPOV+10, UPDTVTIM+7~, UPDTVTIM+10, UPDTVTIM+11, UPDTVTIM+14, UPDTVTIM+15, CLNICPTR~ , CLNICPTR+3, CLNICPTR+4, CLNICPTR+5, DELETVST+5~, DELETVST+6, DELETVST+7, DELETVST+8
AMERPIEN	VPRVIEN~, VPRVIEN+14, VPOVIEN~, VPOVIEN+12
AMERQUIT	CHANGPAT+24, UPDATPAT+5~, UPDATPAT+6, UPDATPAT+8, UPDATPAT+14, UPDATPAT+18, UPDATPAT+20, UPDATPAT+22, UPDATPAT+24, UPDATPAT+25
AMERRTRN	CLNICPTR+1~, CLNICPTR+2, CLNICPTR+8, CLNICPTR+9*, CLNICPTR+10
AMERTIME	DELETVST+5~, DELETVST+13*, DELETVST+16
AMERVCLN	UPDTVCLN~, UPDTVCLN+6, GETPOVCL+3~, GETPOVCL+4, GETPOVCL+5, GETPOVCL+6
AMERVDAT	NEWREG+8~, NEWREG+11*
AMERVDR	VSITDIE~, VSITDIE+6, VPRVDIE~, VPRVDIE+6, VPOVDIE~, VPOVDIE+6, UPDTNAR+6, UPDTNAR+7, UPDTVCLN+5~, UPDTVCLN+6 , UPDTVCLN+7, UPDTEPRV+6~, UPDTEPRV+7*, UPDTEPRV+8
AMERVIEN	VPRVIEN+8~, VPRVIEN+9, VPRVIEN+16, VPRVIEN+18, VPOVIEN+6~, VPOVIEN+7, VPOVIEN+14, VPOVIEN+16, VPRVDIE~, VPRVDIE+7 , VPOVDIE~, VPOVDIE+7, UPDTNAR~, UPDTNAR+7, UPDTEPRV~, UPDTEPRV+8
AMERVPOV	VPOVIEN+6~, VPOVIEN+8, VPOVIEN+9, VPOVIEN+12, VPOVIEN+14, DELETPRV+3~, DELETPOV+6~, DELETPOV+7, DELETPOV+10, DELETPOV+11 , REMOVPOV~, REMOVPOV+5, REMOVPOV+7, UPDTVCLN~, UPDTVCLN+7, GETPOVCL~, GETPOVCL+4, GETPOVEP~, GETPOVEP+4
AMERVPRV	VPRVIEN+8~, VPRVIEN+10, VPRVIEN+11, VPRVIEN+14, VPRVIEN+16, DELVPRV~, DELVPRV+6, DELETPRV+4, DELETPRV+7, DELETPRV+8
AMERY	VPRVIEN+8~, VPOVIEN+6~
APCDCVDT	UPDTVTIM+8!, UPDTVTIM+17!
APCDCVDT("ERR	OR FLAG" , UPDTVTIM+16
APCDCVDT("TALK"	UPDTVTIM+13*
APCDCVDT("VIS	IT DATE/TIME" , UPDTVTIM+12, IT DFN" , UPDTVTIM+11
APCDVDLT	DELETVST+5~, DELETVST+8*, DELETVST+10!
AUPNDAYS	CHANGPAT+23!
AUPNDOB	CHANGPAT+23!
AUPNDOD	CHANGPAT+23!
AUPNPAT	CHANGPAT+23!
AUPNSEX	CHANGPAT+23!
DA	VSITDIE+7, VSITDIE+8, VSITDIE+11, VPRVDIE+7, VPRVDIE+8, VPRVDIE+11, VPOVDIE+7, VPOVDIE+8, VPOVDIE+11, DELVPRV+6 , DELVPRV+7, DELVPRV+11, DELETPRV+3~, DELETPRV+8, DELETPRV+12!, DELETPOV+6~, DELETPOV+11, DELETPOV+14!, REMOVPOV+4~, REMOVPOV+7* , REMOVPOV+12!, DELETVST+5~, DELETVST+11*
DFN	DATECRTD~, DATECRTD+5, DATECRTD+6, DATECRTD+7, CHANGPAT+34!, CHANGPAT+35, UPDATPAT+5~, UPDATPAT+7*
DIC	GETOPIEN+3~, GETOPIEN+4, CHANGPAT+14~, CHANGPAT+20, CHANGPAT+23!
DIC("A"	CHANGPAT+22*
DIC("B"	CHANGPAT+21*
DIC(0	GETOPIEN+5, CHANGPAT+20
DIE	VSITDIE+5~, VSITDIE+7, VPRVDIE+5~, VPRVDIE+7, VPOVDIE+5~, VPOVDIE+7*
DIK	DELVPRV+5, DELETPRV+3~, DELETPRV+8, DELETPRV+12!, DELETPOV+6~, DELETPOV+11, DELETPOV+14!, REMOVPOV+4~, REMOVPOV+8, REMOVPOV+12! , DELETVST+5~, DELETVST+11*
DIR	CHANGPAT+14~
DIR("A"	RTNGSLP+7, CHANGPAT+29, CHANGPAT+40, UPDATPAT+11
DIR("B"	RTNGSLP+7, CHANGPAT+30, CHANGPAT+41, UPDATPAT+12
DIR(0	RTNGSLP+7, CHANGPAT+29, CHANGPAT+40, UPDATPAT+12
>> DOG	CHANGPAT+34*
DR	VSITDIE+5~, VSITDIE+6, VPRVDIE+5~, VPRVDIE+6, VPOVDIE+5~, VPOVDIE+6*
DTOUT	CHANGPAT+24!, UPDATPAT+18!, UPDATPAT+20!, UPDATPAT+22!, UPDATPAT+24!
DUOUT	CHANGPAT+24!, UPDATPAT+18!, UPDATPAT+20!, UPDATPAT+22!, UPDATPAT+24!
DUZ(2	CHANGPAT+46, CHANGPAT+48
F	DATECRTD~, DATECRTD+9*, DATECRTD+10, DATECRTD+15
IOP	RTNGSLP+10!
ORDER	RTNGSLP+6~, RTNGSLP+10*
SDREP	RTNGSLP+6~, RTNGSLP+10*
SDSTART	RTNGSLP+6~, RTNGSLP+10*
SDX	RTNGSLP+6~, RTNGSLP+10*
U	VPRVIEN+14, VPOVIEN+12, GETOPIEN+8, GETVOPTN+5, NEWREG+11, CHANGPAT+17, CHANGPAT+21, CHANGPAT+28, CHANGPAT+40, SENDMSG+2 , SENDMSG+3, UPDTVTIM+9, CLNICPTR+5, CLNICPTR+8, GETPOVCL+4, GETPOVCL+5, GETPOVEP+4, DELETVST+13, DELETVST+14
X	GETOPIEN+3~, GETOPIEN+6*, NEWREG+8~, NEWREG+13, SENDMSG+1~
X1	NEWREG+8~, NEWREG+10*
X2	NEWREG+8~, NEWREG+11*
Y	GETOPIEN+3~, GETOPIEN+8, RTNGSLP+9, DATECRTD+11, DATECRTD+13, CHANGPAT+14~, CHANGPAT+25, CHANGPAT+27, CHANGPAT+28, CHANGPAT+33 , CHANGPAT+43, UPDATPAT+5~, UPDATPAT+14, UPDATPAT+15, SENDMSG+4, SENDMSG+6

Customize PDF page

Package: Emergency Room

Routine: AMERVSIT

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Caller Graph Total: 10

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: