Routine: BDGPOST1

Information

BDGPOST1 ; IHS/ANMC/LJF - PIMS POSTINIT ; [ 01/22/2004 3:56 PM ]

Source Information

Source file <BDGPOST1.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	4	^DIC FILE^DICN ^DIE IXALL^DIK
Kernel	2	$$REPEAT^XLFSTR ($$VER,$$VERSION,BMES,MES)^XPDUTL
IHS Changes To ADT	1	PATCHES^BDGPOST5

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Changes To ADT	1	BDGPOST

Entry Points

Name	Comments	DBIA/ICR reference
FACMOV	;EP; add new facility movement type (WARD TRANSFER ONLY) ; used when adding ward transfers non-interactively
CHRTDEF	;EP; copy chart deficiency items to new file ; ^ADGCD( -> ^BDGCD( will keep old data until future patch
PCCLINK	;EP; add primary facility to PCC Master Control file
OLDFILES	;EP; change name of old files where new file uses same name
PKGFILE	;EP
MOV	;;
PARAM	;EP; copy ADT parameters from file 43 to 9009020.1 ; old data to stay until future patch ; Copies only if site has parameters set already
TS	;; Inpatient Treating Specialties
ADTTMPL	;EP; edit ADT Template entries that could not pass via KIDS
TRSPEC	;EP; add treating specialty entries ; 1. add inpatient ones if not in file ; 2. add observation ones

External References

Name	Field # of Occurrence
PATCHES^BDGPOST5	PKGFILE+21
^DIC	PKGFILE+19, FACMOV+12
FILE^DICN	PCCLINK+12, FACMOV+7, TRSPEC+9
^DIE	PCCLINK+16, PKGFILE+13, OLDFILES+7, ADTTMPL+4, ADTTMPL+5
IXALL^DIK	PARAM+34, CHRTDEF+14
$$REPEAT^XLFSTR	PCCLINK+17, PARAM+35, CHRTDEF+15, OLDFILES+8, ADTTMPL+6, FACMOV+8, FACMOV+13, TRSPEC+10
$$VER^XPDUTL	PKGFILE+2
$$VERSION^XPDUTL	PARAM+31
BMES^XPDUTL	PCCLINK+1, PARAM+4, CHRTDEF+5, OLDFILES+1, ADTTMPL+1, FACMOV+3, TRSPEC+3
MES^XPDUTL	PCCLINK+17, PARAM+35, CHRTDEF+15, OLDFILES+8, ADTTMPL+6, FACMOV+8, FACMOV+13, TRSPEC+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC - [#1]	Classic Fileman Calls
^DG(405.1 - [#405.1]	Classic Fileman Calls
^BDGCD - [#9009016.4]	Classic Fileman Calls
^BDGPAR - [#9009020.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ADGCD - [#9009013.5]	CHRTDEF+7, CHRTDEF+8, CHRTDEF+9
^ADGCD(0	CHRTDEF+12
^APCCCTRL - [#9001000]	PCCLINK+5, PCCLINK+7
^BDGCD - [#9009016.4]	CHRTDEF+9*
^BDGCD(0	CHRTDEF+3, CHRTDEF+12*
^BDGPAR - [#9009020.1]	PARAM+8, PARAM+10, PARAM+14, PARAM+18, PARAM+22, PARAM+25*
^BDGPAR(0	PARAM+10, PARAM+11
^DD(9.4	PKGFILE+17
^DG(40.8 - [#40.8]	PCCLINK+4
^DG(405.1 - [#405.1]	FACMOV+2
^DG(43 - [#43]	PCCLINK+3, PCCLINK+15, PARAM+7, PARAM+13, PARAM+16, PARAM+20, PARAM+32*
^DIC - [#1]	OLDFILES+5
^DIC(45.7 - [#45.7]	TRSPEC+7
^DIC(9.4 - [#9.4]	PCCLINK+6, PKGFILE+5, PKGFILE+6*, PKGFILE+9, PKGFILE+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ABBRV	TRSPEC+8*, TRSPEC+9
>> BDG	FACMOV+12*
>> BDGI	TRSPEC+6*
BDGN	PKGFILE+1~, PKGFILE+5*, PKGFILE+6, PKGFILE+9, PKGFILE+11, PKGFILE+12, PKGFILE+16, PKGFILE+18
BDGV	PKGFILE+1~, PKGFILE+9*, PKGFILE+10, PKGFILE+12
CODE	TRSPEC+4~, TRSPEC+6*, TRSPEC+7, TRSPEC+9
DA	PCCLINK+9~, PCCLINK+14, PKGFILE+1~, PKGFILE+12, OLDFILES+2~, OLDFILES+4, OLDFILES+5, ADTTMPL+2~, ADTTMPL+4, ADTTMPL+5* , FACMOV+4~
DA(1	PCCLINK+14, PKGFILE+11, PKGFILE+18, FACMOV+10
DATA	PARAM+6~, PARAM+13, PARAM+14, PARAM+16, PARAM+18, PARAM+20, PARAM+22, PARAM+25, PARAM+26, PARAM+27 , PARAM+31*, PARAM+32
DD	PCCLINK+9~, FACMOV+4~, TRSPEC+8!
DGEDIT	ADTTMPL+2~, ADTTMPL+3*
DIC	PCCLINK+9~, PCCLINK+10, PKGFILE+1~, PKGFILE+16, FACMOV+4~, FACMOV+5, FACMOV+7!, FACMOV+10, TRSPEC+5*
DIC("DR"	PKGFILE+18, FACMOV+6, TRSPEC+9*
DIC("P"	PCCLINK+11, PKGFILE+17, FACMOV+11*
DIC(0	PCCLINK+10, PKGFILE+16, FACMOV+5, FACMOV+10, TRSPEC+5*
DIE	PCCLINK+9~, PCCLINK+14, PKGFILE+1~, PKGFILE+11, OLDFILES+2~, OLDFILES+3, ADTTMPL+2~, ADTTMPL+3
DIK	PARAM+6~, PARAM+34, CHRTDEF+6~, CHRTDEF+14
DINUM	PCCLINK+9~, PCCLINK+10*
DIV	PCCLINK+2~, PCCLINK+3, PCCLINK+4, PARAM+6~, PARAM+7, PARAM+8, PARAM+10, PARAM+14, PARAM+18, PARAM+22 , PARAM+25
DLAYGO	PCCLINK+9~, PCCLINK+11, FACMOV+4~, FACMOV+5, FACMOV+10, TRSPEC+5
DO	PCCLINK+9~, FACMOV+4~, TRSPEC+8!
DR	PCCLINK+9~, PCCLINK+15, PKGFILE+1~, PKGFILE+11, OLDFILES+2~, OLDFILES+6, ADTTMPL+2~, ADTTMPL+4, ADTTMPL+5*
DT	PKGFILE+18
DUZ	PKGFILE+18
FAC	PCCLINK+2~, PCCLINK+4*, PCCLINK+5, PCCLINK+7, PCCLINK+10, PCCLINK+14
I	PARAM+6~, PARAM+14, PARAM+17, PARAM+18, PARAM+21, PARAM+22, PARAM+25, PARAM+26, PARAM+27
IEN	CHRTDEF+6~, CHRTDEF+7*, CHRTDEF+8, CHRTDEF+9, TRSPEC+4~
PKG	PCCLINK+2~, PCCLINK+6*, PCCLINK+7, PCCLINK+10, PCCLINK+14
U	PCCLINK+3, PCCLINK+4, PCCLINK+15, PARAM+7, PARAM+10, PARAM+11, PARAM+14, PARAM+18, PARAM+22, PARAM+26 , PARAM+27, PKGFILE+17, CHRTDEF+12, OLDFILES+5
VER	PKGFILE+1~, PKGFILE+2*, PKGFILE+3, PKGFILE+6
X	PCCLINK+9~, PCCLINK+10, PCCLINK+17!, PARAM+35!, PKGFILE+1~, PKGFILE+16, CHRTDEF+15!, OLDFILES+2~, OLDFILES+5, OLDFILES+6 , OLDFILES+8!, ADTTMPL+6!, FACMOV+4~, FACMOV+5, FACMOV+8!, FACMOV+12, FACMOV+13!, TRSPEC+8, TRSPEC+10!
>> XPDNM	PKGFILE+2
Y	PCCLINK+9~, PCCLINK+12, PKGFILE+1~, FACMOV+4~, FACMOV+8, FACMOV+10

Marked Items

Name	Field # of Occurrence
$T(MOV+BDG	FACMOV+12
$T(TS+BDGI	TRSPEC+6, TRSPEC+8

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGPOST1

Call Graph Total: 7

Caller Graph Total: 1