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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AMERVSIT

Package: Emergency Room

Routine: AMERVSIT


Information

AMERVSIT ; IHS/OIT/SCR - INTERFACING ROUTINES OUTSIDE OF AMER NAMESPACE REQUIRED FOR PCC VISIT CREATION

Source Information

Source file <AMERVSIT.m>

Call Graph

Call Graph Total: 19

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  

Caller Graph

Caller Graph Total: 10

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All