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 |