Routine: DG53729P

Package	Total	Call Graph
Registration	3	EN^DG53729C (EDIT,PTFCAT)^DG53729R $$ACTIVE^DGACT
Kernel	2	($$DELETE,$$LKOPT,OUT,RENAME)^XPDMENU (BMES,MES)^XPDUTL
VA Fileman	2	^DIC ^DIE

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Add Treating Specialties to the SPECIALITY file (#42.4)
APTFC	;move ptf code (those < 100) into new austin ptf code field
EDIT	;Edit treating specialties
MENU	;Remove option from menu and place out of order
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
MULT	;Add Effective Date
TRSP	;PTF code^Specialty^Print Name^Service^Ask Psych^Billing Bedsection^CDR^^Ques#^Austin PTF Code

External References

Name	Field # of Occurrence
EN^DG53729C	EN+22
EDIT^DG53729R	EN+14
PTFCAT^DG53729R	EN+20
$$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, MENU+14, APTFC+6
$$DELETE^XPDMENU	MENU+3
$$LKOPT^XPDMENU	MENU+9
OUT^XPDMENU	MENU+5
RENAME^XPDMENU	MENU+17
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, MENU+4, MENU+6, MENU+8, MENU+11, MENU+12, MENU+18 , APTFC+2
MES^XPDUTL	TSPEC+12, TSPEC+13, TSPEC+16, TSPEC+17, 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(19 - [#19]	Classic Fileman Calls
^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(19 - [#19]	MENU+15, MENU+16
^DIC(42.4 - [#42.4]	APTFC+3, APTFC+4
^DIC(45.7 - [#45.7]	INACT+20, INACT+22, EDIT+19, EDIT+23, EDIT+27

Label References

Name	Line Occurrences
APTFC	EN+16
EDIT	EN+10
FAC	EN+7
INACT	EN+12
MENU	EN+18
MULT	TSPEC+29, FAC+23
TSPEC	EN+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHECK	MENU+1~, MENU+3*, MENU+4
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, MENU+14, APTFC+1~, APTFC+6*
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
DGENTRY	APTFC+1~, APTFC+4*, APTFC+5, APTFC+6
DGERR	EN+1~, TSPEC+3, TSPEC+18, 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+15, TSPEC+20, 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+15, 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
DGX	APTFC+1~, APTFC+3*, APTFC+4
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, MENU+13
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, MENU+13, APTFC+1~, APTFC+6
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, MENU+14, APTFC+1~, APTFC+6
DS	EDIT+2~, EDIT+13~
IEN	MENU+1~, MENU+9*, MENU+10, MENU+14, MENU+15, MENU+16
MENU	MENU+1~, MENU+2*, MENU+3, MENU+4
OPTION	MENU+1~, MENU+2*, MENU+3, MENU+4, MENU+5, MENU+6
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+15, TSPEC+20, 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~, TSPEC+10, FAC+1~, FAC+7, MULT+7, MULT+8, INACT+9, INACT+10, INACT+28, INACT+29
Y(0	FAC+9

Marked Items

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

Customize PDF page

Package: Registration

Routine: DG53729P

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items