BEDDUTIU ;VNGT/HS/BEE-BEDD Utility Routine 3 ; 08 Nov 2011 12:00 PM
Source file <BEDDUTIU.m>
| Package | Total | Call Graph | 
|---|---|---|
| VA Fileman | 6 | ^%DT C^%DTC ^DIC FILE^DICN $$IENS^DILF $$GET1^DIQ | 
| Kernel | 3 | ^%ZTER ($$DT,$$HTFM)^XLFDT DUZ^XUP | 
| IHS Emergency Dept Dashboard | 2 | ($$FMTE,$$FNOW)^BEDDUTIL $$DATE^BEDDUTIU | 
| Emergency Room | 1 | LOG^AMERBUSA | 
| VueCentric Framework | 1 | DEVICE^CIAVUTIO | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| PRV(VIEN,AMERDA,PRMNRS) | ;EP - Log ER VISIT Provider entries in V PROVIDER | |
| CONS(CONS) | ;EP - Return List of Consult Types | |
| CLIN(CLIN) | ;EP - Return Clinic ^AMER(3) ien | |
| ERR | ;EP - Capture the error | |
| PROC(PROC) | ;EP - Return List of ER Procedures | |
| SPOV(DFN,VIEN,POV,PNAR,VDT,PS) | ;EP - Log the Provider in V PROVIDER | |
| ADMCMP(DFN) | ;EP - Return Presenting Complaint | |
| ADMAMN(DFN) | ;EP - Return Admission Ambulance Number | |
| ADMVTP(DFN) | ;EP - Return Admission Visit Type | |
| ADMFTRN(DFN) | ;EP - Return Admission Transferred From | |
| SAFE(SAFE) | ;EP - Return List of Safety Measures | |
| ADMAMB(DFN) | ;EP - Return Admission Ambulance Billing | |
| DTCMP(DATE,ADJ) | ;EP - Add or subtract days from supplied date | |
| NARR(NAR) | ;EP - Get Provider Narrative IEN | |
| ADMDTM(DFN) | ;EP - Return Current Admission Date/Time | |
| ADMTRN(DFN) | ;EP - Return Admission Transferred | |
| SCEN(SCEN) | ;EP - Return List of Injury Setting | |
| SPRV(DFN,VIEN,PRV,VDT,PS) | ;EP - Log the Provider in V PROVIDER | |
| DATE(X) | ||
| POV(VIEN,AMERDA) | ;EP - Log ER VISIT Provider entries in V POV | |
| ADMMAT(DFN) | ;EP - Return Admission Medical Attendant Present | |
| PRPOV(VIEN,AMERDA,PRPOV) | ;EP - Log ER Procedure providers entries in V PROVIDER | |
| ADMAMC(DFN) | ;EP - Return Admission Ambulance Company | |
| MTRN(MTRN) | ;EP - Return Mode of Transport List | |
| ASAVE(DUZ,ADM) | ;EP - Admit a Patient to the ER | |
| TFRM(TFRM) | ;EP - Return List of Transfer From Values | |
| DEVLST(DEVICE) | ;EP - Return List of Devices | |
| ADMMOT(DFN) | ;EP - Return Admission Mode of Transport | |
| VTYP(VTYP) | ;EP - Return List of ER Visit Types | |
| DTCHK(DATE,ADMDT,CHK,BGDT) | ;EP - Date checking function | |
| ADMCHK(DFN) | ;EP - Determine if patient is already admitted | |
| ICAU(ICAU) | ;EP - Return List of Injury Causes | |
| ACMP(ACMP) | ;EP - Return Ambulance Company Name List | |
| LOG(DUZ,AMCAT,AMACT,AMCALL,AMDESC,AMERVDFN) | ;EP - File entry into BUSA | 
| Name | Field # of Occurrence | 
|---|---|
| ^%DT | DATE+5 | 
| C^%DTC | DTCMP+10 | 
| ^%ZTER | ERR+1 | 
| LOG^AMERBUSA | LOG+12 | 
| $$FMTE^BEDDUTIL | ADMDTM+1 | 
| $$FNOW^BEDDUTIL | DTCHK+24 | 
| $$DATE^BEDDUTIU | DTCHK+19, DTCHK+20, DTCHK+21 | 
| DEVICE^CIAVUTIO | DEVLST+4 | 
| ^DIC | NARR+9 | 
| FILE^DICN | SPRV+6, SPOV+11 | 
| $$IENS^DILF | POV+27 | 
| $$GET1^DIQ | ICAU+13, SCEN+13, SAFE+13, PROC+12, VTYP+12, MTRN+12, ACMP+12, ADMDTM+1, ADMCMP+1, ADMVTP+1 , ADMTRN+1, ADMFTRN+1, ADMMOT+1, ADMMAT+1, ADMAMN+1, ADMAMB+1, ADMAMC+1, CLIN+5, PRV+16, PRV+19 , PRV+20, PRV+25, PRV+26, PRV+31, PRV+32, PRV+37, PRV+38, PRV+44, PRPOV+14, PRPOV+26 , POV+14, POV+17, POV+18, POV+19, POV+20, POV+28, POV+30 | 
| $$DT^XLFDT | DTCMP+8 | 
| $$HTFM^XLFDT | PRPOV+23 | 
| DUZ^XUP | LOG+9 | 
| FileNo | Call Tags | 
|---|---|
| ^DIC(40.7 - [#40.7] | GET1^DIQ | 
| ^ICD9 - [#80] | GET1^DIQ | 
| ^AUPNVPRV - [#9000010.06] | Classic Fileman Calls | 
| ^AUPNVPOV - [#9000010.07] | Classic Fileman Calls | 
| ^AMERVSIT - [#9009080] | GET1^DIQ | 
| 9009080.05 | GET1^DIQ | 
| ^AMERADM - [#9009081] | GET1^DIQ | 
| ^AMER(3 - [#9009083] | GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AMER(2 - [#9009082] | ICAU+10, SCEN+10, SAFE+10, PROC+10, VTYP+10, MTRN+10, ACMP+10 | 
| ^AMER(2.1 - [#9009082.1] | TFRM+10, TFRM+11 | 
| ^AMER(2.9 - [#9009082.9] | CONS+10, CONS+11 | 
| ^AMER(3 - [#9009083] | ICAU+11, SCEN+11, SAFE+11, PROC+11, VTYP+11, MTRN+11, ACMP+11, CLIN+7 | 
| ^AMERADM("B" | ADMCHK+3 | 
| ^AMERVSIT - [#9009080] | POV+24 | 
| ^AUPNVPOV - [#9000010.07] | POV+11 | 
| ^AUPNVPOV("AD" | POV+8, POV+11 | 
| ^AUPNVPRV - [#9000010.06] | PRV+13, PRPOV+11 | 
| ^AUPNVPRV("AD" | PRV+10, PRV+13, PRPOV+8, PRPOV+11 | 
| Name | Line Occurrences | 
|---|---|
| $$NARR | SPOV+5 | 
| SPOV | POV+21, POV+31 | 
| SPRV | PRV+22, PRV+28, PRV+34, PRV+40, PRV+46, PRPOV+31 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| %DT | DATE+2~, DATE+5* | 
| %H | DTCMP+6~ | 
| ACIEN | ACMP+8~, ACMP+10*, ACMP+11 | 
| ACMP | ACMP~, ACMP+9! | 
| ACMP( | ACMP+17* | 
| ACN | ACMP+8~, ACMP+12*, ACMP+13, ACMP+15*, ACMP+17 | 
| ACN( | ACMP+13*, ACMP+15, ACMP+17 | 
| ADJ | DTCMP~, DTCMP+9*, DTCMP+10 | 
| ADM | ASAVE~ | 
| ADMDT | DTCHK~, DTCHK+15*, DTCHK+20*, DTCHK+30, DTCHK+32 | 
| AIEN | ACMP+8~, ACMP+11*, ACMP+12, ACMP+13 | 
| AMACT | LOG~, LOG+12 | 
| AMCALL | LOG~, LOG+12 | 
| AMCAT | LOG~, LOG+12 | 
| AMDESC | LOG~, LOG+12 | 
| AMERDA | PRV~, PRV+3, PRV+16, PRV+19, PRV+20, PRV+25, PRV+26, PRV+31, PRV+32, PRV+37 , PRV+38, PRV+44, PRPOV~, PRPOV+3, PRPOV+14, PRPOV+26, POV~, POV+3, POV+14, POV+17 , POV+18, POV+20, POV+24, POV+27 | 
| AMERVDFN | LOG~, LOG+12 | 
| BGDT | DTCHK~, DTCHK+16*, DTCHK+21*, DTCHK+34 | 
| CDT | DTCHK+12~, DTCHK+24*, DTCHK+27 | 
| CHK | DTCHK~, DTCHK+17*, DTCHK+27, DTCHK+30, DTCHK+32, DTCHK+34 | 
| CIEN | ICAU+8~, ICAU+11*, ICAU+13, CONS+8~, CONS+11*, CONS+13 | 
| CLIN | CLIN~, CLIN+3, CLIN+5*, CLIN+7*, CLIN+8 | 
| CNT | ICAU+8~, ICAU+11*, ICAU+12*, ICAU+13, SCEN+8~, SCEN+11*, SCEN+12*, SCEN+13, SAFE+8~, SAFE+11* , SAFE+12*, SAFE+13, CONS+8~, CONS+10*, CONS+12*, CONS+13, PROC+8~, PROC+15*, PROC+16*, PROC+17 , VTYP+8~, VTYP+15*, VTYP+16*, VTYP+17, TFRM+8~, TFRM+10*, TFRM+12*, MTRN+8~, MTRN+15*, MTRN+16* , MTRN+17, ACMP+8~, ACMP+15*, ACMP+16*, ACMP+17 | 
| CONS | CONS~, CONS+9! | 
| CONS( | CONS+13* | 
| CTIEN | ICAU+8~, ICAU+10*, ICAU+11 | 
| CTTYP | CONS+8~, CONS+10*, CONS+11, CONS+13 | 
| DA | POV+26~, POV+27* | 
| DA(1 | POV+27* | 
| DATE | DTCMP~, DTCMP+8*, DTCMP+10, DTCHK~, DTCHK+14*, DTCHK+19*, DTCHK+27, DTCHK+30, DTCHK+32, DTCHK+34 | 
| DD | SPRV+2~, SPRV+3!, SPRV+7!, SPOV+2~, SPOV+7!, SPOV+12! | 
| DEVICE | DEVLST~, DEVLST+2!, DEVLST+4 | 
| DFN | ADMDTM~, ADMDTM+1, ADMCMP~, ADMCMP+1, ADMVTP~, ADMVTP+1, ADMTRN~, ADMTRN+1, ADMFTRN~, ADMFTRN+1 , ADMMOT~, ADMMOT+1, ADMMAT~, ADMMAT+1, ADMAMN~, ADMAMN+1, ADMAMB~, ADMAMB+1, ADMAMC~, ADMAMC+1 , ADMCHK~, ADMCHK+2, ADMCHK+3, PRV+16*, PRV+22, PRV+28, PRV+34, PRV+40, PRV+46, PRPOV+14* , PRPOV+31, SPRV~, SPRV+5, POV+14*, POV+21, POV+31, SPOV~, SPOV+9 | 
| DIC | SPRV+2~, SPRV+4*, SPOV+2~, SPOV+8*, NARR+6~, NARR+8* | 
| DIC("DR" | SPRV+5*, SPOV+9* | 
| DIC(0 | SPRV+4*, SPOV+8*, NARR+8* | 
| DIEN | POV+5~, POV+24*, POV+27 | 
| DINUM | SPRV+2~, SPRV+3!, SPRV+7!, SPOV+2~, SPOV+7!, SPOV+12! | 
| DLAYGO | NARR+6~, NARR+8* | 
| DO | SPRV+2~, SPRV+3!, SPRV+7!, SPOV+2~, SPOV+7!, SPOV+12! | 
| DUZ | LOG~, LOG+8, LOG+9, ASAVE~ | 
| ICAU | ICAU~, ICAU+9! | 
| ICAU( | ICAU+13* | 
| IENS | POV+26~, POV+27*, POV+28, POV+30 | 
| MIEN | MTRN+8~, MTRN+11*, MTRN+12, MTRN+13 | 
| MTIEN | MTRN+8~, MTRN+10*, MTRN+11 | 
| MTR | MTRN+8~, MTRN+12*, MTRN+13, MTRN+15*, MTRN+17 | 
| MTR( | MTRN+13*, MTRN+15, MTRN+17 | 
| MTRN | MTRN~, MTRN+9! | 
| MTRN( | MTRN+17* | 
| NAR | NARR~, NARR+4, NARR+7 | 
| NIEN | SPOV+2~, SPOV+5*, SPOV+9 | 
| PCIEN | PROC+8~, PROC+10*, PROC+11 | 
| PDT | PRV+7~, PRV+20*, PRV+22, PRV+26*, PRV+28, PRV+32*, PRV+34, PRV+38*, PRV+40, PRV+44* , PRV+46, PRPOV+5~, PRPOV+19*, PRPOV+22*, PRPOV+23*, PRPOV+26*, PRPOV+31 | 
| PIEN | PROC+8~, PROC+11*, PROC+12, PROC+13, PRV+7~, PRV+13*, PRPOV+5~, PRPOV+11*, POV+5~, POV+11* | 
| PNAR | POV+18*, POV+19*, POV+21, POV+26~, POV+30*, POV+31, SPOV~, SPOV+5 | 
| POV | POV+5~, POV+17*, POV+19, POV+21, POV+26~, POV+28*, POV+29, POV+31, SPOV~, SPOV+8 | 
| PRC | PROC+8~, PROC+12*, PROC+13, PROC+15*, PROC+17 | 
| PRC( | PROC+13*, PROC+15, PROC+17 | 
| PRMNRS | PRV~, PRV+5*, PRV+43 | 
| PROC | PROC~, PROC+9! | 
| PROC( | PROC+17* | 
| PRPOV | PRPOV~ | 
| PRPOV( | PRPOV+16, PRPOV+19, PRPOV+22 | 
| PRV | PRV+7~, PRV+19*, PRV+22, PRV+25*, PRV+28, PRV+31*, PRV+34, PRV+37*, PRV+40, PRV+43* , PRV+46, PRPOV+5~, PRPOV+16*, PRPOV+19, PRPOV+22, PRPOV+31, SPRV~, SPRV+4 | 
| PS | PRV+7~, PRV+21*, PRV+22, PRV+27*, PRV+28, PRV+33*, PRV+34, PRV+39*, PRV+40, PRV+45* , PRV+46, PRPOV+5~, PRPOV+28*, PRPOV+31, SPRV~, SPRV+5, POV+5~, SPOV~, SPOV+9 | 
| SAFE | SAFE~, SAFE+9! | 
| SAFE( | SAFE+13* | 
| SCEN | SCEN~, SCEN+9! | 
| SCEN( | SCEN+13* | 
| SIEN | SCEN+8~, SCEN+11*, SCEN+13, SAFE+8~, SAFE+11*, SAFE+13 | 
| STIEN | SCEN+8~, SCEN+10*, SCEN+11, SAFE+8~, SAFE+10*, SAFE+11 | 
| TFIEN | TFRM+8~, TFRM+10*, TFRM+11, TFRM+12 | 
| TFR | TFRM+8~ | 
| TFRM | TFRM~, TFRM+9! | 
| TFRM( | TFRM+12* | 
| TIEN | TFRM+8~, TFRM+11*, TFRM+12 | 
| U | PRPOV+19, PRPOV+22 | 
| VDT | SPRV~, SPRV+5, POV+20*, POV+21, POV+31, SPOV~, SPOV+9 | 
| VIEN | VTYP+8~, VTYP+11*, VTYP+12, VTYP+13, PRV~, PRV+2, PRV+10, PRV+13, PRV+22, PRV+28 , PRV+34, PRV+40, PRV+46, PRPOV~, PRPOV+2, PRPOV+8, PRPOV+11, PRPOV+31, SPRV~, SPRV+5 , POV~, POV+2, POV+8, POV+11, POV+21, POV+31, SPOV~, SPOV+9 | 
| VPOV | POV+5~ | 
| VPOV( | POV+11*, POV+21*, POV+29, POV+31* | 
| VPROV | PRV+7~, PRPOV+5~ | 
| VPROV( | PRV+13*, PRV+22*, PRV+28*, PRV+34*, PRV+40*, PRV+46*, PRPOV+11*, PRPOV+31* | 
| VTIEN | VTYP+8~, VTYP+10*, VTYP+11 | 
| VTY | VTYP+8~, VTYP+12*, VTYP+13, VTYP+15*, VTYP+17 | 
| VTY( | VTYP+13*, VTYP+15, VTYP+17 | 
| VTYP | VTYP~, VTYP+9! | 
| VTYP( | VTYP+17* | 
| X | LOG+2~, LOG+4*, LOG+5*, SPRV+2~, SPRV+4*, SPOV+2~, SPOV+8*, NARR+6~, NARR+7*, DTCMP+6~ , DTCMP+11, DATE~, DATE+4* | 
| X1 | DTCMP+6~, DTCMP+10* | 
| X2 | DTCMP+6~, DTCMP+10* | 
| Y | SPRV+2~, SPOV+2~, NARR+6~, NARR+9, NARR+10, DATE+2~, DATE+6*, DATE+8 |