AMERVSIT ; IHS/OIT/SCR - INTERFACING ROUTINES OUTSIDE OF AMER NAMESPACE REQUIRED FOR PCC VISIT CREATION
Source file <AMERVSIT.m>
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 |
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 |
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 |
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 |
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 |
Name | Line Occurrences |
---|---|
$$DATECRTD | NEWREG+10 |
DELETPOV | CHANGPAT+52 |
DELETPRV | CHANGPAT+51 |
SENDMSG | CHANGPAT+53 |
VPOVDIE | UPDTNAR+7, UPDTVCLN+7, UPDTEPRV+8 |
>> | 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 |