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 |