Routine: DG53819B

Information

DG53819B ;ALB/MJB - TREATING SPECIALTIES UPDATES ; 3/12/07 7:21am

Source Information

Source file <DG53819B.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIE
Kernel	1	(BMES,MES)^XPDUTL
Registration	1	$$ACTIVE^DGACT

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Add Treating Specialties to the SPECIALITY file (#42.4)
EDIT	;Edit treating specialties
TSPEC	;Add treating specialty to SPECIALTY File (#42.4)
FAC	;Add treating specialty to Facility Treating Specialty file (#45.7)
INACT	;inactivate treating specialties
ETRSP	;PTF CODE^SPECIALTY^PRINT NAME^SERVICE^ASK PSYCH^BILLING BEDSECTION^CDR/MPCR
MULT	;Add Effective Date
TRSP	;PTF CODE^SPECIALTY^PRINT NAME^SERVICE^ASK PSYCH^BILLING BEDSECTION^CDR/MPCR^^QUES#^AUSTIN PTF CODE

External References

Name	Field # of Occurrence
$$ACTIVE^DGACT	EDIT+21
^DIC	TSPEC+9, FAC+6, MULT+6, INACT+8, INACT+27
^DIE	TSPEC+25, FAC+19, MULT+12, INACT+14, INACT+33, EDIT+9, EDIT+24
BMES^XPDUTL	TSPEC+1, FAC+8, FAC+10, FAC+14, INACT+10, INACT+11, INACT+17, INACT+29, INACT+30, EDIT+10 , EDIT+11, EDIT+12, EDIT+23, EDIT+28
MES^XPDUTL	TSPEC+12, TSPEC+13, TSPEC+20, TSPEC+21, FAC+11, FAC+12, FAC+15, MULT+8, MULT+9, INACT+18 , INACT+19

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	MULT+4
^DD(42.4	INACT+6
^DIC(45.7 - [#45.7]	INACT+20, INACT+22, EDIT+19, EDIT+23, EDIT+27

Label References

Name	Line Occurrences
FAC	EN+7
INACT	EN+12
MULT	TSPEC+29, FAC+23
TSPEC	EN+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	EDIT+13~, EDIT+19, EDIT+20, EDIT+21
DA	TSPEC+2~, TSPEC+24, FAC+1~, FAC+17, MULT+1~, MULT+7, INACT+1~, INACT+9, INACT+28, EDIT+7 , EDIT+22*
DA(1	MULT+2, INACT+4, INACT+24*
DAA	INACT+20~*, INACT+22, INACT+23, INACT+24
DGDA1	TSPEC+2~, TSPEC+10, FAC+7, FAC+8, FAC+9, FAC+14, FAC+17, FAC+22, MULT+2
DGERR	EN+1~, EDIT+6, EDIT+17
DGFILE	TSPEC+2~, TSPEC+26, FAC+1~, FAC+20, MULT+4
DGI	EN+1~, EN+4, EDIT+2~, EDIT+5, EDIT+13~, EDIT+16*
DGIFN	EN+1~, EN+2, TSPEC+10, TSPEC+11, TSPEC+24, TSPEC+28
DGII	EDIT+13~, EDIT+19*
DGMULT	TSPEC+2~, TSPEC+27, FAC+1~, FAC+21, MULT+4
DGQUES	EN+1~, EN+6*
DGSP	EDIT+13~, EDIT+18*, EDIT+19
DGSPEC	EN+1~, EN+4, EN+6, TSPEC+1, TSPEC+6, TSPEC+7, TSPEC+10, TSPEC+23, FAC+5, FAC+9 , FAC+18, EDIT+5, EDIT+7, EDIT+8, EDIT+12, EDIT+13~, EDIT+16*, EDIT+18, EDIT+22, EDIT+23 , EDIT+28
DGSPEC1	EDIT+13~, EDIT+19*, EDIT+21, EDIT+22, EDIT+23, EDIT+27
DGTSP	INACT+1~, INACT+2*, INACT+3, INACT+4, INACT+10, INACT+11, INACT+19, INACT+20
DIC	TSPEC+2~, TSPEC+4, TSPEC+22, TSPEC+28, FAC+1~, FAC+2, FAC+16, FAC+22, MULT+10, INACT+3* , INACT+12, INACT+23*, INACT+31
DIC("P"	MULT+4, INACT+6
DIC(0	TSPEC+5, FAC+3, MULT+3, INACT+5, INACT+25, EDIT+4, EDIT+15*
DIE	TSPEC+2~, TSPEC+22, FAC+1~, FAC+16, MULT+1~, MULT+10, INACT+1~, INACT+12, INACT+21~, INACT+31* , EDIT+2~, EDIT+3, EDIT+13~, EDIT+14
DINUM	TSPEC+2~, TSPEC+6*
DLAYGO	TSPEC+2~, TSPEC+8, FAC+1~, FAC+4
DR	TSPEC+2~, TSPEC+23, FAC+1~, FAC+18, MULT+1~, MULT+11, INACT+1~, INACT+13, INACT+21~, INACT+32* , EDIT+2~, EDIT+8, EDIT+13~, EDIT+22
DS	EDIT+2~, EDIT+13~
TS	INACT+21~, INACT+22, INACT+29, INACT+30, EDIT+26, EDIT+27, EDIT+28
U	EN+6, TSPEC+1, TSPEC+6, TSPEC+7, TSPEC+23, FAC+5, FAC+9, FAC+14, FAC+18, EDIT+7 , EDIT+8, EDIT+12, EDIT+18, EDIT+22, EDIT+23, EDIT+28
X	TSPEC+2~, TSPEC+7, FAC+1~, FAC+5, MULT+5, INACT+1~, INACT+7, INACT+21~, INACT+26*
Y	TSPEC+2~, FAC+1~, FAC+7, MULT+7, MULT+8, INACT+9, INACT+10, INACT+28, INACT+29
Y(0	FAC+9

Name	Field # of Occurrence
$T(ETRSP+DGI	EDIT+5, EDIT+16
$T(TRSP+DGI	EN+4

Customize PDF page

Package: Registration

Routine: DG53819B

Call Graph Total: 4