Routine: DG53418P

Information

DG53418P ;ALB/GRR(EDS) - Add new Intermediae Medicine - LTC Treating Specialty;1/21/02

Package	Total	Call Graph
VA FileMan	2	(,$$FIND1)^DIC (,FILE)^DIE
Kernel	1	(BMES,MES)^XPDUTL

Name	Comments	DBIA/ICR reference
EN	;Add Intermediate Medicine - LTC Treating Specialties to the SPECIALITY file (#42.4)
EN2
TSPEC	;Add treating specialty to SPECIALTY File (#42.4)
FAC	;Add treating specialty to Facility Treating Specialty file (#45.7)
MULT	;Add Effective Date
MOVEMT	;Edit Mas Movement Type Names
TRSP	;PTF code^Speciality^Print Name^Service^Ask Psych^Billing Bedsection^CDR^^Ques#
MVED	;Original Movement Name^New Movement Name

Name	Field # of Occurrence
^DIC	TSPEC+9, FAC+19, MULT+6
$$FIND1^DIC	MOVEMT+5, MOVEMT+7
^DIE	TSPEC+25, FAC+32, MULT+12
FILE^DIE	MOVEMT+13
BMES^XPDUTL	EN2+1, TSPEC+1, FAC+2, FAC+6, FAC+10, FAC+21, FAC+23, FAC+27, MOVEMT+9, MOVEMT+14
MES^XPDUTL	TSPEC+12, TSPEC+13, TSPEC+16, TSPEC+17, TSPEC+20, TSPEC+21, FAC+3, FAC+7, FAC+11, FAC+12 , FAC+24, FAC+25, FAC+28, MULT+8, MULT+9, MOVEMT+10

FileNo	Call Tags
^DIC(42.4 - [#42.4]	Classic Fileman Calls
^DIC(45.7 - [#45.7]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(	MULT+4

Name	Field # of Occurrence
DA	TSPEC+2~, TSPEC+24, FAC+14~, FAC+30, MULT+1~, MULT+7*
DA(1	MULT+2*
DGDA1	TSPEC+2~, TSPEC+10, FAC+20, FAC+21, FAC+22, FAC+27, FAC+30, FAC+35, MULT+2
DGERR	EN+1~, TSPEC+3, TSPEC+18, FAC+9
DGFILE	TSPEC+2~, TSPEC+26, FAC+14~, FAC+33, MULT+4, MOVEMT+1~, MOVEMT+2*, MOVEMT+5, MOVEMT+7, MOVEMT+12
DGI	EN+1~, EN+3, EN2~, EN2+2
DGIEN	MOVEMT+1~, MOVEMT+5, MOVEMT+6, MOVEMT+7, MOVEMT+8, MOVEMT+11, MOVEMT+12
DGIFN	EN+1~, EN+2, TSPEC+10, TSPEC+11, TSPEC+15, TSPEC+20, TSPEC+24, TSPEC+28, FAC+5
DGMO	EN2~, EN2+2*, MOVEMT+3, MOVEMT+4
DGMULT	TSPEC+2~, TSPEC+27, FAC+14~, FAC+34, MULT+4
DGNN	MOVEMT+1~, MOVEMT+4*, MOVEMT+5, MOVEMT+12, MOVEMT+14
DGON	MOVEMT+1~, MOVEMT+3*, MOVEMT+7, MOVEMT+9, MOVEMT+14
DGQUES	EN+1~, EN+5*, FAC+1
DGSPEC	EN+1~, EN+3*, EN+5, TSPEC+1, TSPEC+6, TSPEC+7, TSPEC+15, TSPEC+23, FAC+18, FAC+22 , FAC+31
DIC	TSPEC+2~, TSPEC+4, TSPEC+22, TSPEC+28, FAC+14~, FAC+15, FAC+29, FAC+35, MULT+10
DIC("P"	MULT+4*
DIC(0	TSPEC+5, FAC+16, MULT+3*
DIE	TSPEC+2~, TSPEC+22, FAC+14~, FAC+29, MULT+1~, MULT+10*
DINUM	TSPEC+2~, TSPEC+6*
DLAYGO	TSPEC+2~, TSPEC+8, FAC+14~, FAC+17
DR	TSPEC+2~, TSPEC+23, FAC+14~, FAC+31, MULT+1~, MULT+11*
FDAROOT	MOVEMT+1~
FDAROOT(	MOVEMT+12*
U	EN+5, TSPEC+1, TSPEC+6, TSPEC+7, TSPEC+15, TSPEC+20, TSPEC+23, FAC+18, FAC+22, FAC+27 , FAC+31
X	TSPEC+2~, TSPEC+7, FAC+14~, FAC+18, MULT+5*
>> XPDQUES(	FAC+1
Y	TSPEC+2~, TSPEC+10, FAC+14~, FAC+20, MULT+7, MULT+8
Y(0	FAC+22

Name	Field # of Occurrence
$T(MVED+DGI	EN2+2
$T(TRSP+DGI	EN+3