BEDDUTID ;VNGT/HS/BEE-BEDD Utility Routine 2 ; 08 Nov 2011 12:00 PM
Source file <BEDDUTID.m>
| Package | Total | Call Graph | 
|---|---|---|
| VA Fileman | 6 | ^%DT ^DIC FILE^DICN FILE^DIE $$IENS^DILF $$GET1^DIQ | 
| IHS Emergency Dept Dashboard | 5 | DXLKP^BEDDPOV ($$DATE,$$FMTE,$$FNOW,$$GETF)^BEDDUTIL DC^BEDDUTIS CLIN^BEDDUTL2 SAVEDX^BEDDUTW | 
| Kernel | 4 | ^%ZTER $$HTE^XLFDT $$VERSION^XPDUTL DUZ^XUP | 
| Emergency Room | 3 | $$CKHLOC^AMERBSD $$POV^AMERUTIL VER^AMERVER | 
| IHS Patient | 3 | $$AGE^AUPNPAT MOD^AUPNVSIT $$ICDDX^AUPNVUTL | 
| DRG Grouper | 1 | $$IMP^ICDEXA | 
| Package | Total | Caller Graph | 
|---|---|---|
| IHS Emergency Dept Dashboard | 2 | BEDDPOV BEDDUTIL | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| ERR | ;EP - Capture the error | |
| XDATE(X) | ||
| DXLKP(VALUE,OBJID,DUZ,FILTER) | ;EP - Lookup to File 80 (DX) | |
| PLCHLD(OBJID,VIEN) | ;EP - Look for Diagnosis Default | |
| KEYCK(DUZ) | ;EP - Determine if user has BEDDZMGR Key | |
| EDCON(AMERVSIT,EDCONS) | ;EP - Get list of ER Consults | |
| UPPER(X) | ;EP - Convert to uppercase | |
| HTIME(TM) | ;EP - Given seconds portion of $H value, return time | |
| PROC(AMERVSIT,ERPROC) | ;EP - Get list of ER Procedures Performed | |
| CCLN(CLIN) | ;EP - Return Clinic Mnemonic | |
| MDTRN(DFN) | ;EP - Update Patient's MODE OF TRANSPORT | |
| DX(AMERVSIT,ERDX) | ;EP - Get list of ER DX'S | |
| ESAVE(DFN,AMERVSIT,VIEN,BEDDARY) | ;EP - Dashboard Edit Screen Save | |
| PRIMDX(VIEN,OBJID) | ;EP - Retrieve/Save the Primary EHR DX | |
| TRNF(TRNF) | ;EP - Return List of Transfer Facilities | |
| EMV(VIEN) | ;EP - Return V EMERGENCY VISIT RECORD entry | |
| DISP(DISP) | ;EP - Return List of Dispositions | |
| AGE(DFN) | ;EP - Return Patients Age | |
| ADDDX(VIEN,DXI,DUZ) | ;EP - Add DX TO V POV FILE | |
| PROV(PROV) | ;EP - Return List of Providers | |
| DSUM() | ;EP - Return if Discharge Summary Global is defined | |
| CLIN(CLIN) | ;EP - Return List of Applicable Clinics | |
| SCLN(CLN) | ;EP - Convert Clinic | |
| INST(INST) | ;EP - Return list of Followup Instructions | |
| DSAVE(DFN,AMERVSIT,VIEN,OBJID,DUZ,SITE,BEDDARY) | ;EP - Dashboard Discharge Screen Save | 
| Name | Field # of Occurrence | 
|---|---|
| ^%DT | XDATE+10 | 
| ^%ZTER | ERR+1 | 
| $$CKHLOC^AMERBSD | ESAVE+27 | 
| $$POV^AMERUTIL | PLCHLD+17 | 
| VER^AMERVER | ESAVE+47 | 
| $$AGE^AUPNPAT | AGE+7 | 
| MOD^AUPNVSIT | DSAVE+37, ESAVE+44 | 
| $$ICDDX^AUPNVUTL | PLCHLD+26 | 
| DXLKP^BEDDPOV | DXLKP+37 | 
| $$DATE^BEDDUTIL | DSAVE+22, DSAVE+24, ESAVE+17 | 
| $$FMTE^BEDDUTIL | EDCON+25, XDATE+13 | 
| $$FNOW^BEDDUTIL | ADDDX+24 | 
| $$GETF^BEDDUTIL | ADDDX+25 | 
| DC^BEDDUTIS | DSAVE+34 | 
| CLIN^BEDDUTL2 | CLIN+3 | 
| SAVEDX^BEDDUTW | PRIMDX+23 | 
| ^DIC | PLCHLD+23 | 
| FILE^DICN | ADDDX+31, ADDDX+44 | 
| FILE^DIE | MDTRN+15, DSAVE+31, ESAVE+41 | 
| $$IENS^DILF | EDCON+23, PROC+24, DX+24 | 
| $$GET1^DIQ | EDCON+24, EDCON+25, EDCON+26, PROC+25, DX+25, DX+26, MDTRN+12, MDTRN+13, PRIMDX+16, PRIMDX+17 , PRIMDX+18, PRIMDX+19, PRIMDX+20, DISP+13, TRNF+13, INST+12, PROV+20, CCLN+1, SCLN+6, DXLKP+28 , DXLKP+29, DXLKP+30, PLCHLD+12 | 
| $$IMP^ICDEXA | PLCHLD+21 | 
| $$HTE^XLFDT | HTIME+6 | 
| $$VERSION^XPDUTL | PLCHLD+21 | 
| DUZ^XUP | ADDDX+19, DSAVE+17, DXLKP+16 | 
| FileNo | Call Tags | 
|---|---|
| ^DPT - [#2] | GET1^DIQ | 
| ^VA(200 - [#200] | GET1^DIQ | 
| ^DIC(40.7 - [#40.7] | GET1^DIQ | 
| ^ICD9 - [#80] | Classic Fileman Calls, GET1^DIQ | 
| ^AUPNVSIT - [#9000010] | GET1^DIQ | 
| ^AUPNVPOV - [#9000010.07] | Classic Fileman Calls, GET1^DIQ | 
| 9009080.019 | GET1^DIQ | 
| 9009080.04 | GET1^DIQ | 
| 9009080.05 | GET1^DIQ | 
| ^AMERADM - [#9009081] | GET1^DIQ | 
| ^AMER(2.1 - [#9009082.1] | GET1^DIQ | 
| ^AMER(3 - [#9009083] | GET1^DIQ | 
| ^AUTNPOV - [#9999999.27] | Classic Fileman Calls, GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AMER(2 - [#9009082] | DISP+10, INST+10 | 
| ^AMER(2.1 - [#9009082.1] | TRNF+10, TRNF+11 | 
| ^AMER(3 - [#9009083] | DISP+11, INST+11, SCLN+7 | 
| ^AMERVSIT - [#9009080] | EDCON+21, PROC+22, DX+22 | 
| ^AUPNVER("AD" | EMV+2 | 
| ^AUPNVPOV("AD" | ADDDX+37, PRIMDX+10, PRIMDX+13 | 
| ^AUTNPOV("B" | ADDDX+28 | 
| ^DIC(19.1 - [#19.1] | KEYCK+8 | 
| ^DIC(40.7 - [#40.7] | SCLN+5 | 
| ^ICD9("AB" | ADDDX+40 | 
| ^TMP("BEDDDSC" | DSUM+2 | 
| ^VA(200 - [#200] | KEYCK+9, PROV+15, PROV+16 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| %DT | XDATE+2~, XDATE+10* | 
| AMERVSIT | EDCON~, EDCON+8, EDCON+21, EDCON+23, PROC~, PROC+8, PROC+22, PROC+24, DX~, DX+8 , DX+22, DX+24, DSAVE~, ESAVE~, ESAVE+36 | 
| AMUPD | MDTRN+10~, MDTRN+15, DSAVE+31, ESAVE+39 | 
| AMUPD(9000010 | ESAVE+30*, ESAVE+33* | 
| AMUPD(9009080 | ESAVE+36* | 
| AMUPD(9009081 | MDTRN+14*, DSAVE+21*, DSAVE+22*, DSAVE+23*, DSAVE+24*, DSAVE+25*, ESAVE+15*, ESAVE+16*, ESAVE+17*, ESAVE+18* , ESAVE+19*, ESAVE+20* | 
| AUPNVSIT | DSAVE+13~, DSAVE+37*, ESAVE+40~ | 
| BEDDARY | DSAVE~, DSAVE+34, ESAVE~ | 
| BEDDARY("AdPvTm" | DSAVE+24, ESAVE+20 | 
| BEDDARY("AdmPrv" | DSAVE+25, ESAVE+18 | 
| BEDDARY("COMP" | ESAVE+15, ESAVE+30 | 
| BEDDARY("DecAdmit" | ESAVE+33 | 
| BEDDARY("Trg" | DSAVE+21, ESAVE+16 | 
| BEDDARY("TrgN" | DSAVE+23, ESAVE+19 | 
| BEDDARY("TrgNow" | DSAVE+22, ESAVE+17 | 
| BEDDARY("txcln" | ESAVE+23 | 
| BEDDPOV | PLCHLD+9~, PLCHLD+17 | 
| CDIEN | PLCHLD+9~, PLCHLD+24*, PLCHLD+26, PLCHLD+27 | 
| CLIN | CLIN~, CLIN+3, CCLN~, CCLN+1, SCLN+4~, SCLN+5*, SCLN+6, SCLN+7*, SCLN+8 | 
| CLINIC | ESAVE+6~, ESAVE+23*, ESAVE+27, ESAVE+36 | 
| CLN | SCLN~, SCLN+2, SCLN+5 | 
| CNT | DISP+8~, DISP+17*, DISP+18*, DISP+19, TRNF+8~, TRNF+10*, TRNF+12*, TRNF+13, INST+8~, INST+15* , INST+16*, INST+17, PROV+8~, PROV+15*, PROV+23*, PROV+24 | 
| CONS | EDCON+22~, EDCON+26*, EDCON+27 | 
| COTY | EDCON+22~, EDCON+24*, EDCON+27 | 
| D | DISP+12~, DISP+13*, DISP+14 | 
| DA | EDCON+22~, EDCON+23*, PROC+23~, PROC+24*, DX+23~, DX+24* | 
| DA(1 | EDCON+23*, PROC+24*, DX+24* | 
| DATE | EDCON+22~, EDCON+25*, EDCON+27 | 
| DD | ADDDX+31!, ADDDX+44! | 
| DFLTDX | PLCHLD+9~, PLCHLD+20*, PLCHLD+21*, PLCHLD+27 | 
| DFN | ADDDX+11~, ADDDX+25*, ADDDX+43, MDTRN~, MDTRN+12, MDTRN+13, MDTRN+14, AGE~, AGE+7, DSAVE~ , DSAVE+20, DSAVE+21, DSAVE+22, DSAVE+23, DSAVE+24, DSAVE+25, DSAVE+34, DXLKP+27~, DXLKP+28*, DXLKP+29 , ESAVE~, ESAVE+12, ESAVE+15, ESAVE+16, ESAVE+17, ESAVE+18, ESAVE+19, ESAVE+20, ESAVE+47 | 
| DIC | ADDDX+29~, ADDDX+30*, ADDDX+41~, ADDDX+42*, PLCHLD+9~, PLCHLD+23* | 
| DIC("DR" | ADDDX+43* | 
| DIC(0 | ADDDX+30*, ADDDX+42*, PLCHLD+23* | 
| DIEN | DISP+8~, DISP+11*, DISP+13, DISP+14 | 
| DINUM | ADDDX+29~, ADDDX+41~ | 
| DISP | DISP~, DISP+9! | 
| DISP( | DISP+19* | 
| DLAYGO | ADDDX+29~, ADDDX+30*, ADDDX+41~, ADDDX+42* | 
| DO | ADDDX+31!, ADDDX+44! | 
| DSIEN | DISP+8~, DISP+10*, DISP+11 | 
| DSP | DISP+8~, DISP+17*, DISP+19 | 
| DSP( | DISP+14*, DISP+17, DISP+19 | 
| DT | PROV+21, DXLKP+31, PLCHLD+13 | 
| DUZ | KEYCK~, KEYCK+5, KEYCK+9, ADDDX~, ADDDX+18, ADDDX+19, DSAVE~, DSAVE+16, DSAVE+17, DSAVE+34 , DXLKP~, DXLKP+15, DXLKP+16 | 
| DX | DX+23~, DX+25*, DX+27, PRIMDX+6~, PRIMDX+8*, PRIMDX+22*, PRIMDX+23, PRIMDX+24 | 
| DXI | ADDDX~, ADDDX+9*, ADDDX+28, ADDDX+30 | 
| DXN | DX+23~, DX+26*, DX+27 | 
| DXNM | PLCHLD+9~, PLCHLD+26*, PLCHLD+27 | 
| EDCONS | EDCON~, EDCON+8*, EDCON+18!, EDCON+19*, EDCON+27* | 
| EDCONS( | EDCON+27* | 
| EIEN | EDCON+17~, EDCON+21*, EDCON+23, PROC+18~, PROC+22*, PROC+24, DX+18~, DX+22*, DX+24 | 
| ERDX | DX~, DX+8*, DX+19!, DX+20*, DX+27* | 
| ERDX( | DX+27* | 
| ERPROC | PROC~, PROC+8*, PROC+19!, PROC+20*, PROC+26* | 
| ERPROC( | PROC+26* | 
| ERR | ESAVE+25~, ESAVE+27* | 
| ERROR | MDTRN+10~, DSAVE+39, ESAVE+49 | 
| EXEC | DXLKP+2~, DXLKP+20*, DXLKP+21*, DXLKP+22*, DXLKP+23* | 
| FCIEN | TRNF+8~, TRNF+10*, TRNF+11 | 
| FIEN | TRNF+8~, TRNF+11*, TRNF+13 | 
| FILTER | DXLKP~, DXLKP+8*, DXLKP+37 | 
| I9 | ADDDX+11~, ADDDX+40*, ADDDX+42 | 
| ICD | PRIMDX+12*, PRIMDX+14~, PRIMDX+15*, PRIMDX+17*, PRIMDX+20, PRIMDX+21, PRIMDX+22 | 
| ICDN | PRIMDX+12*, PRIMDX+14~, PRIMDX+15*, PRIMDX+20*, PRIMDX+22 | 
| IENS | EDCON+22~, EDCON+23*, EDCON+24, EDCON+25, EDCON+26, PROC+23~, PROC+24*, PROC+25, DX+23~, DX+24* , DX+25, DX+26 | 
| IIEN | INST+8~, INST+11*, INST+12, INST+13 | 
| INIEN | INST+8~, INST+10*, INST+11 | 
| INS | INST+8~, INST+12*, INST+13, INST+15*, INST+17 | 
| INS( | INST+13*, INST+15, INST+17 | 
| INST | INST~, INST+9! | 
| INST( | INST+17* | 
| KIEN | KEYCK+7~, KEYCK+8*, KEYCK+9 | 
| MD | MDTRN+10~, MDTRN+12* | 
| MDO | MDTRN+10~, MDTRN+13*, MDTRN+14 | 
| NOW | ADDDX+11~, ADDDX+24*, ADDDX+43 | 
| OBJID | PRIMDX~, PRIMDX+22, DSAVE~, DSAVE+34, DXLKP~, DXLKP+5, PLCHLD~, PLCHLD+2 | 
| PDX | ADDDX+11~, ADDDX+37*, ADDDX+43 | 
| PIEN | PROV+8~, PROV+16*, PROV+20, PROV+24 | 
| PNAME | PROV+8~, PROV+15*, PROV+16, PROV+24 | 
| PROC | PROC+23~, PROC+25*, PROC+26 | 
| PROV | PROV~, PROV+14! | 
| PROV( | PROV+24* | 
| RIEN | PRIMDX+11~, PRIMDX+13*, PRIMDX+16, PRIMDX+17, PRIMDX+18 | 
| RPFI | PRIMDX+12*, PRIMDX+14~, PRIMDX+15*, PRIMDX+18*, PRIMDX+19, PRIMDX+22 | 
| RPFIN | PRIMDX+12*, PRIMDX+14~, PRIMDX+15*, PRIMDX+19*, PRIMDX+22 | 
| SEX | DXLKP+2~, DXLKP+29*, DXLKP+32*, DXLKP+37 | 
| SITE | DSAVE~, DSAVE+34 | 
| STS | ADDDX+11~, ADDDX+18*, DSAVE+13~, DSAVE+16*, DXLKP+2~, DXLKP+15* | 
| T | HTIME+2~, HTIME+5*, HTIME+6*, HTIME+7 | 
| TERM | PROV+19~, PROV+20*, PROV+21 | 
| TM | HTIME~, HTIME+5 | 
| TRNF | TRNF~, TRNF+9! | 
| TRNF( | TRNF+13* | 
| U | ADDDX+9*, INST+13, PLCHLD+26 | 
| VALUE | DXLKP~, DXLKP+37 | 
| VDT | DXLKP+2~, DXLKP+26*, DXLKP+30*, DXLKP+31*, DXLKP+37, PLCHLD+9~, PLCHLD+12*, PLCHLD+13*, PLCHLD+21, PLCHLD+26 | 
| VIEN | ADDDX~, ADDDX+9*, ADDDX+25, ADDDX+37, ADDDX+43, EMV~, EMV+2, PRIMDX~, PRIMDX+10, PRIMDX+13 , DSAVE~, DSAVE+34, DSAVE+37, DXLKP+2~, DXLKP+19*, DXLKP+26, DXLKP+28, DXLKP+30, ESAVE~, ESAVE+24 , ESAVE+27, ESAVE+30, ESAVE+33, ESAVE+47, PLCHLD~, PLCHLD+12, PLCHLD+17 | 
| X | ADDDX+14*, ADDDX+15*, ADDDX+29~, ADDDX+30*, ADDDX+41~, ADDDX+42*, EDCON+11*, EDCON+12*, PROC+12*, PROC+13* , DX+12*, DX+13*, MDTRN+7*, MDTRN+8*, PRIMDX+3*, PRIMDX+4*, AGE+4*, AGE+5*, DSAVE+10*, DSAVE+11* , PROV+8~, PROV+11*, PROV+12*, XDATE~, XDATE+4*, XDATE+7*, XDATE+9*, DXLKP+11*, DXLKP+12*, PLCHLD+6* , PLCHLD+7*, PLCHLD+9~, PLCHLD+20*, PLCHLD+21*, UPPER~, UPPER+1 | 
| XCLIN | SCLN+4~, SCLN+6*, SCLN+7 | 
| XIEN | ADDDX+11~, ADDDX+28*, ADDDX+33*, ADDDX+34, ADDDX+43 | 
| Y | ADDDX+29~, ADDDX+32, ADDDX+33, ADDDX+41~, XDATE+11*, XDATE+13, PLCHLD+9~, PLCHLD+23, PLCHLD+24 |