Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BEDDADM

Package: IHS Emergency Dept Dashboard

Routine: BEDDADM


Information

BEDDADM ;GDIT/HS/BEE-BEDD Admit Utility Routine ; 08 Nov 2011 12:00 PM

Source Information

Source file <BEDDADM.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA Fileman 5 ^%DT  NOW^%DTC  FILE^DICN  FILE^DIE  $$GET1^DIQ  
IHS Emergency Dept Dashboard 4 $$VISIT^BEDDPCC  $$FMTE^BEDDUTIL  ($$DATE,LOG)^BEDDUTIU  $$VCLIN^BEDDUTL2  
Emergency Room 2 $$CKHLOC^AMERBSD  VER^AMERVER  
Kernel 1 ^%ZTER  

Entry Points

Name Comments DBIA/ICR reference
NADM(BEDD) ;Create new ER ADMISSION and VISIT records
XNEW
CLIN(CIEN) ;Return the clinic mnemonic
BLDTMOD(MYTMOD) ;EP - Build MYTMOD array
ERR ;
BLDMTRN(MYMTRN) ;EP - Build MYMTRN array
GCLINIC(DFN) ;Return the visit clinic
DEFVTYP() ;EP - Locate Default "UNSCHEDULED" visit type
DEFMTRN() ;EP - Locate Default "PRIVATE VEHICLE TRANSFER" transport type
ADATE(X)
DEFTMOD() ;EP - Locate Default "PRIVATE VEHICLE TRANSFER" trasnsport type
BLDVTYP(MYVTP) ;EP - Build Acuity MYVTP array
BLDACMP(MYACMP) ;EP - Build MYACMP array
DEFCLIN() ;EP - Return the default clinic
BLDTFRM(MYTFRM) ;EP - Build Acuity MYTFRM array
NEW(AMERDFN,VIEN) ; EP - Add New
SAVEADM(BEDD) ;Admit/update patient visit
DVLIST(DVLIST) ;
DVIEN(PRINTER) ;Return the IEN associated with the printer

External References

Name Field # of Occurrence
^%DT ADATE+13
NOW^%DTC ADATE+7
^%ZTER ERR+1
$$CKHLOC^AMERBSD SAVEADM+27
VER^AMERVER SAVEADM+95
$$VISIT^BEDDPCC NADM+20
$$FMTE^BEDDUTIL ADATE+20
$$DATE^BEDDUTIU SAVEADM+15, NADM+14
LOG^BEDDUTIU SAVEADM+100, SAVEADM+101
$$VCLIN^BEDDUTL2 GCLINIC+19
FILE^DICN NADM+11
FILE^DIE SAVEADM+83
$$GET1^DIQ GCLINIC+18, BLDVTYP+15, BLDMTRN+15, BLDTMOD+15, BLDACMP+15, DEFCLIN+7, SAVEADM+12, SAVEADM+30, SAVEADM+38, NADM+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^AMERADM - [#9009081] Classic Fileman Calls,  GET1^DIQ
^AMER(2.5 - [#9009082.5] GET1^DIQ
^AMER(3 - [#9009083] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] DVIEN+3, DVLIST+10, DVLIST+13, DVLIST+18, DVLIST+22, DVLIST+26, DVLIST+30
^%ZIS(2 - [#3.2] DVLIST+19
^AMER(2 - [#9009082] BLDVTYP+13, BLDMTRN+13, BLDTMOD+13, BLDACMP+13
^AMER(2.1 - [#9009082.1] BLDTFRM+13, BLDTFRM+14
^AMER(3 - [#9009083] BLDVTYP+14, DEFVTYP+1, BLDMTRN+14, BLDTMOD+14, BLDACMP+14, DEFCLIN+12, DEFMTRN+1, DEFTMOD+1
^AMERADM - [#9009081] NADM+8
^AUPNPAT - [#9000001] SAVEADM+33

Label References

Name Line Occurrences
$$NADM SAVEADM+9
$$NEW SAVEADM+87
XNEW NEW+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ADATE+2~, ADATE+8
%DT ADATE+2~, ADATE+13*
ABILL SAVEADM+3~, SAVEADM+75*, SAVEADM+76
ACOMP SAVEADM+3~, SAVEADM+71*, SAVEADM+72
ACTION SAVEADM+3~
AGCHART SAVEADM+2~, SAVEADM+33*, SAVEADM+34*, SAVEADM+35
AMEANS SAVEADM+3~, SAVEADM+67*, SAVEADM+68
AMERDFN NADM+2~, NADM+5*, NADM+8, NADM+9, NADM+17, NADM+20, NEW~
AMERPCC SAVEADM+2~, SAVEADM+9*, SAVEADM+12*, SAVEADM+22, SAVEADM+27, SAVEADM+45, SAVEADM+87, SAVEADM+95, NADM+2~, NADM+17*
, NADM+20*, NADM+22
AMERTIME SAVEADM+2~, SAVEADM+15*, SAVEADM+16, NADM+2~, NADM+14*, NADM+20
AMERUP SAVEADM+2~
AMERUP(9000010 SAVEADM+22*
AMERUP(9009081 SAVEADM+16*, SAVEADM+21*, SAVEADM+30*, SAVEADM+35*, SAVEADM+38*, SAVEADM+42*, SAVEADM+45*, SAVEADM+49*, SAVEADM+53*, SAVEADM+57*
, SAVEADM+61*, SAVEADM+64*, SAVEADM+68*, SAVEADM+72*, SAVEADM+76*, SAVEADM+80*
ANUMB SAVEADM+3~, SAVEADM+79*, SAVEADM+80
BEDD SAVEADM~, SAVEADM+9, NADM~, NADM+20
BEDD("tAdmitDtTm" SAVEADM+15, NADM+14
BEDD("tAmbulanceCompany" SAVEADM+71
BEDD("tAmbulanceNumber" SAVEADM+79
BEDD("tArrivalMeans" SAVEADM+67
BEDD("tAttendantYN" SAVEADM+60
BEDD("tBillingNumber" SAVEADM+75
BEDD("tClinic" SAVEADM+25
BEDD("tModeTransport" SAVEADM+56
BEDD("tNewVisit" SAVEADM+9, SAVEADM+12, SAVEADM+87, SAVEADM+90, SAVEADM+100
BEDD("tPCmp" SAVEADM+19
BEDD("tPatientDFN" SAVEADM+6, NADM+5
BEDD("tTransferFrom" SAVEADM+52
BEDD("tTransferYN" SAVEADM+48
BEDD("tVisitType" SAVEADM+41
BIEN SAVEADM+3~, SAVEADM+86*, SAVEADM+87*, SAVEADM+103
CIEN CLIN~
CLIN DEFCLIN+2~, DEFCLIN+7*, DEFCLIN+12*, DEFCLIN+14
CLINIC SAVEADM+3~, SAVEADM+25*, SAVEADM+27
CNT BLDVTYP+11~, BLDVTYP+14*, BLDVTYP+16*, BLDVTYP+17, BLDTFRM+11~, BLDTFRM+13*, BLDTFRM+15*, BLDTFRM+16, BLDMTRN+11~, BLDMTRN+14*
, BLDMTRN+16*, BLDMTRN+17, BLDTMOD+11~, BLDTMOD+14*, BLDTMOD+16*, BLDTMOD+17, BLDACMP+11~, BLDACMP+14*, BLDACMP+16*, BLDACMP+17
, DVLIST+2~, DVLIST+8*, DVLIST+37*
DD NADM+10!
DFN GCLINIC~, GCLINIC+18, SAVEADM+2~, SAVEADM+6*, SAVEADM+12, SAVEADM+16, SAVEADM+21, SAVEADM+30, SAVEADM+33, SAVEADM+35
, SAVEADM+38, SAVEADM+42, SAVEADM+45, SAVEADM+49, SAVEADM+53, SAVEADM+57, SAVEADM+61, SAVEADM+64, SAVEADM+68, SAVEADM+72
, SAVEADM+76, SAVEADM+80, SAVEADM+87, SAVEADM+95, SAVEADM+100, SAVEADM+101
DIC NADM+2~, NADM+9*, NADM+11!
DIC(0 NADM+9*
DINUM NADM+2~, NADM+9*
DO NADM+10!
DT DVLIST+31
DUZ SAVEADM+64, SAVEADM+100, SAVEADM+101
DUZ(2 DEFCLIN+7, SAVEADM+33
DVLIST DVLIST~
DVLIST( DVLIST+37*
EDOBJ NEW+7~, NEW+18*
ERR SAVEADM+3~, SAVEADM+27*, NADM+2~, NADM+8*, NADM+11*
EXEC SAVEADM+3~, SAVEADM+91~, SAVEADM+92*, NEW+2~, NEW+5*, NEW+10*, NEW+11*, NEW+12*, NEW+13*, NEW+14*
, NEW+15*, NEW+16*, NEW+17*, XNEW*
ID NEW+7~, NEW+9*, NEW+16*, XNEW+1
IEN DVLIST+2~, DVLIST+13*, DVLIST+18, DVLIST+22, DVLIST+26, DVLIST+30, DVLIST+37
MCMP BLDACMP+11~, BLDACMP+15*, BLDACMP+17
MIEN BLDMTRN+11~, BLDMTRN+14*, BLDMTRN+15, BLDMTRN+17, BLDTMOD+11~, BLDTMOD+14*, BLDTMOD+15, BLDTMOD+17, BLDACMP+11~, BLDACMP+14*
, BLDACMP+15, BLDACMP+17
MTIEN BLDMTRN+11~, BLDMTRN+13*, BLDMTRN+14, BLDTMOD+11~, BLDTMOD+13*, BLDTMOD+14, BLDACMP+11~, BLDACMP+13*, BLDACMP+14
MTRN BLDMTRN+11~, BLDMTRN+15*, BLDMTRN+17, BLDTMOD+11~, BLDTMOD+15*, BLDTMOD+17
MYACMP BLDACMP~, BLDACMP+12!
MYACMP( BLDACMP+17*
MYMTRN BLDMTRN~, BLDMTRN+12!
MYMTRN( BLDMTRN+17*
MYTFRM BLDTFRM~, BLDTFRM+12!
MYTFRM( BLDTFRM+16*
MYTMOD BLDTMOD~, BLDTMOD+12!
MYTMOD( BLDTMOD+17*
MYTRG BLDVTYP+12!
MYVTP BLDVTYP~
MYVTP( BLDVTYP+17*
NOW ADATE+2~, ADATE+8*, ADATE+17
PCMP SAVEADM+2~, SAVEADM+19*, SAVEADM+20*, SAVEADM+21, SAVEADM+22
PRINTER DVIEN~, DVIEN+2, DVIEN+3
PRT DVLIST+2~, DVLIST+10*, DVLIST+11, DVLIST+13
STATUS NEW+7~, NEW+16
TFRM BLDTFRM+11~, BLDTFRM+13*, BLDTFRM+14, BLDTFRM+16
TIEN BLDTFRM+11~, BLDTFRM+14*, BLDTFRM+16
TRANSYN SAVEADM+2~, SAVEADM+48*, SAVEADM+49
TRNATT SAVEADM+2~, SAVEADM+60*, SAVEADM+61
TRNFRM SAVEADM+2~, SAVEADM+52*, SAVEADM+53
TRNMOD SAVEADM+2~, SAVEADM+56*, SAVEADM+57
U SAVEADM+33, DVLIST+22, DVLIST+23, DVLIST+27, DVLIST+34, DVLIST+37
VIEN GCLINIC+16~, GCLINIC+18*, GCLINIC+19, BLDVTYP+11~, BLDVTYP+14*, BLDVTYP+15, BLDVTYP+17, NEW~
VTIEN BLDVTYP+11~, BLDVTYP+13*, BLDVTYP+14
VTYP BLDVTYP+11~, BLDVTYP+15*, BLDVTYP+17
VTYPE SAVEADM+3~, SAVEADM+41*, SAVEADM+42
X ADATE~, ADATE+6~, ADATE+10*, ADATE+12*, SAVEADM+2~, NADM+2~, NADM+9*, DVLIST+2~, DVLIST+5*, DVLIST+6*
, DVLIST+15~, DVLIST+34*, DVLIST+35, DVLIST+37
X0 DVLIST+15~, DVLIST+26*, DVLIST+27, DVLIST+34
XOSD DVLIST+15~, DVLIST+30*, DVLIST+31
XSTYPE DVLIST+15~, DVLIST+18*, DVLIST+19
XTYPE DVLIST+15~, DVLIST+22*, DVLIST+23
Y ADATE+2~, ADATE+14*, ADATE+17, ADATE+20, NADM+2~, NADM+11
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All