Routine: BDGPOST2

Information

BDGPOST2 ; IHS/ANMC/LJF - ADT POSTINIT CONT. ; [ 04/17/2003 2:09 PM ]

Source Information

Source file <BDGPOST2.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	3	FILE^DICN ^DIE IXALL^DIK
Kernel	2	$$REPEAT^XLFSTR (BMES,MES)^XPDUTL
IHS Changes To Scheduling	1	EVENT^BSDPOST
Registration	1	^DGPMDDCN

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Changes To ADT	1	BDGPOST

Entry Points

Name	Comments	DBIA/ICR reference
SIDNR	;EP;delete all SI/DNR designations for patients not current inpatients ; PIMS will remove designation upon discharge; old version did not
PROT	;; Protocols to add to event driver
SCHVST	;EP; copy Scheduled Visit entries to new file ; copy ^ADGAUTH -> ^BDGSV( ; old data will be kept until future patch
WARD	;EP; copy IHS ward fields to new file ; ^DIC(42,IHS* -> ^BDGWD( ; will keep old data in file 42 until future patch
EVQ	; call Scheduling event driver update
DGPM	;EP; moves fields around in file 405 ; old admitting .08 now moved to 9999999.02 ; .08 now primary copied from attending .19 ; visit was 9999999.1 now .27 ; build AAP xref on field .19 attending provider ; Using //// to bypass input transforms to speed up process
EVENT	;EP; build event driver menu based on protocols installed ; If you have the following installed, I will add them to event driver

External References

Name	Field # of Occurrence
EVENT^BSDPOST	EVQ+1
^DGPMDDCN	DGPM+38
FILE^DICN	EVENT+18
^DIE	DGPM+29
IXALL^DIK	WARD+23, SCHVST+30
$$REPEAT^XLFSTR	SIDNR+7, DGPM+40, WARD+24, SCHVST+31, EVENT+19
BMES^XPDUTL	SIDNR+2, DGPM+7, WARD+5, SCHVST+5, EVENT+3
MES^XPDUTL	SIDNR+7, DGPM+31, DGPM+34, DGPM+40, WARD+24, SCHVST+31, EVENT+19

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGPM - [#405]	Classic Fileman Calls
^BDGWD - [#9009016.5]	Classic Fileman Calls
^BDGSV - [#9009016.7]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ADGAUTH - [#9009013.1]	SCHVST+8, SCHVST+9, SCHVST+10, SCHVST+11
^AUPNVSIT - [#9000010]	DGPM+20, DGPM+21
^BDGSV - [#9009016.7]	SCHVST+14, SCHVST+19, SCHVST+21, SCHVST+24, SCHVST+27, SCHVST+28
^BDGSV(0	SCHVST+4, SCHVST+15*
^BDGWD - [#9009016.5]	WARD+12, WARD+13, WARD+17, WARD+18, WARD+19, WARD+21
^BDGWD(0	WARD+4, WARD+14*
^BDGX(11	DGPM+6, DGPM+18, DGPM+19, DGPM+20, DGPM+21, DGPM+31
^DGPM - [#405]	DGPM+10, DGPM+11, DGPM+12, DGPM+13, DGPM+14
^DGPM("CN"	DGPM+36, DGPM+37
^DIC(42 - [#42]	WARD+8, WARD+9, WARD+12, WARD+17, WARD+20
^DPT - [#2]	SIDNR+6!
^DPT("AS"	SIDNR+4, SIDNR+5, SIDNR+6!
^ORD(101 - [#101]	EVENT+5, EVENT+10, EVENT+11, EVENT+12
^VA(200 - [#200]	DGPM+18, DGPM+19

Label References

Name	Line Occurrences
EVQ	EVENT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADM	DGPM+9~, DGPM+12, DGPM+15, DGPM+19, DGPM+24, DGPM+27
ATT	DGPM+9~, DGPM+13, DGPM+15, DGPM+18, DGPM+23, DGPM+27
BDGE	EVENT+4~, EVENT+5*, EVENT+12, EVENT+15, EVENT+16
>> BDGI	EVENT+9*
COND	SIDNR+3~, SIDNR+4*, SIDNR+5, SIDNR+6
DA	DGPM+9~, DGPM+29, DGPM+35~, DGPM+38
DA(1	EVENT+16*
DATA	WARD+7~, WARD+20, WARD+21, SCHVST+7~, SCHVST+11, SCHVST+19, SCHVST+21, SCHVST+24
DD	EVENT+18!
DFN	SCHVST+7~, SCHVST+9*, SCHVST+14
DGPMDDF	DGPM+35~, DGPM+38*
DGPMDDT	DGPM+35~, DGPM+38*
>> DIC	EVENT+15*
>> DIC("DR"	EVENT+17*
>> DIC("P"	EVENT+16*
>> DIC(0	EVENT+15*
DIE	DGPM+9~, DGPM+29*
DIK	DGPM+9~, WARD+7~, WARD+23, SCHVST+7~, SCHVST+30
>> DLAYGO	EVENT+15*
DO	EVENT+18!
DR	DGPM+9~, DGPM+23, DGPM+24, DGPM+27, DGPM+28, DGPM+29
I	WARD+7~, WARD+21, SCHVST+7~, SCHVST+18, SCHVST+19, SCHVST+23*, SCHVST+24
IEN	SIDNR+3~, SIDNR+5, SIDNR+6, DGPM+9~, DGPM+10, DGPM+11, DGPM+12, DGPM+13, DGPM+14, DGPM+18 , DGPM+19, DGPM+20, DGPM+21, DGPM+29, DGPM+35~, DGPM+37, DGPM+38, EVENT+4~, EVENT+11, EVENT+12 , EVENT+16
INA	WARD+7~, WARD+9*, WARD+13
ITEM	EVENT+4~, EVENT+9*, EVENT+10, EVENT+11
NEW	SCHVST+7~, SCHVST+14*, SCHVST+15, SCHVST+19, SCHVST+21, SCHVST+24, SCHVST+27, SCHVST+28
OLD	SCHVST+7~, SCHVST+8*, SCHVST+9, SCHVST+10, SCHVST+11
OLD1	SCHVST+7~, SCHVST+10*, SCHVST+11
U	DGPM+12, DGPM+13, DGPM+14, DGPM+21, WARD+9, WARD+12, WARD+13, WARD+14, WARD+18, WARD+19 , WARD+21, SCHVST+15, SCHVST+19, SCHVST+21, SCHVST+24, SCHVST+27, SCHVST+28
VST	DGPM+9~, DGPM+14, DGPM+15, DGPM+20, DGPM+21*, DGPM+28
WARD	DGPM+35~, DGPM+36*, DGPM+37
WRD	WARD+7~, WARD+8*, WARD+9, WARD+12, WARD+13, WARD+14, WARD+17, WARD+18, WARD+19, WARD+20 , WARD+21
X	SIDNR+7!, DGPM+31!, DGPM+34!, DGPM+40!, WARD+19, WARD+24!, SCHVST+31!, EVENT+16, EVENT+19!*

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGPOST2

Call Graph Total: 7

Caller Graph Total: 1