Routine: DGPMV36

Package	Total	Call Graph
VA FileMan	4	YN^DICN (,FILE,UPDATE)^DIE ^DIK ^DIR
Registration	3	($$CHKMVMT,$$GETMVMT,REVERT,SETPTFFLG,SETPTFMVMT)^DGCOMPACT $$ELIG^DGCOMPACTELIG NEW^DGPMV3
Kernel	1	$$FMADD^XLFDT
PCE Patient Care Encounter	1	($$ASC,$$GETBENTYP,$$GETEOC,$$GETEOCSEQ,$$GETPOINTRSEQ,$$GETSTDT,NEWEOC,REOPNEOC,SETENDDT,SETSTDT,VISIT)^PXCOMPACT

Package

Total

Call Graph

VA FileMan

YN^DICN (,FILE,UPDATE)^DIE ^DIK ^DIR

Registration

($$CHKMVMT,$$GETMVMT,REVERT,SETPTFFLG,SETPTFMVMT)^DGCOMPACT $$ELIG^DGCOMPACTELIG NEW^DGPMV3

Kernel

$$FMADD^XLFDT

PCE Patient Care Encounter

($$ASC,$$GETBENTYP,$$GETEOC,$$GETEOCSEQ,$$GETPOINTRSEQ,$$GETSTDT,NEWEOC,REOPNEOC,SETENDDT,SETSTDT,VISIT)^PXCOMPACT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Package	Total	Caller Graph
Registration	8	DGPM SPECIALTY TRANSFER DGPMV3 DGPMV31 DGPMV32 DGPMV321 DGPMV331 DGPMVPU DGPMX6
Electronic Health Modernization	1	EHMDGPMV3

Package

Total

Caller Graph

Registration

DGPM SPECIALTY TRANSFER DGPMV3 DGPMV31 DGPMV32 DGPMV321 DGPMV331 DGPMVPU DGPMX6

Electronic Health Modernization

EHMDGPMV3

Entry Points

Name	Comments	DBIA/ICR reference
DICS	; -- check that it is a PROVIDER/SPECIALTY change
ONLY	; -- determine if there is only one 'specialty xfr' type mvt
SPEC	; -- entry point to add/edit specialty mvt when adding/editing ; a physical mvt
SPECQ
ASK	; -- ask user if they want to make a special mvt also
COMPACT	; -- ask user if the treatment for the movement was for Acute Suicidal Crisis
NEW	; -- add a specialty mvt
EDIT	; -- edit specialty mvt
PRIOR	; -- set special 'prior' nodes for event driver
AFTER	; -- set special 'after' nodes for event driver

Name	Field # of Occurrence
$$CHKMVMT^DGCOMPACT	COMPACT+9, COMPACT+19, COMPACT+67
$$GETMVMT^DGCOMPACT	COMPACT+24
REVERT^DGCOMPACT	COMPACT+17
SETPTFFLG^DGCOMPACT	COMPACT+12, COMPACT+94
SETPTFMVMT^DGCOMPACT	COMPACT+16, COMPACT+30, COMPACT+59, COMPACT+108
$$ELIG^DGCOMPACTELIG	SPEC+15
NEW^DGPMV3	NEW+2
YN^DICN	COMPACT+2, COMPACT+10, COMPACT+62
^DIE	NEW+4, EDIT+7
FILE^DIE	COMPACT+45
UPDATE^DIE	COMPACT+55, COMPACT+103
^DIK	DGPMV36+4, COMPACT+26
^DIR	ASK+5
$$ASC^PXCOMPACT	COMPACT+2, COMPACT+7, COMPACT+48, COMPACT+67, COMPACT+90, COMPACT+93
$$GETBENTYP^PXCOMPACT	COMPACT+10, COMPACT+41, COMPACT+48
$$GETEOC^PXCOMPACT	COMPACT+3, COMPACT+21, COMPACT+95
$$GETEOCSEQ^PXCOMPACT	COMPACT+5, COMPACT+22, COMPACT+96
$$GETPOINTRSEQ^PXCOMPACT	COMPACT+6, COMPACT+23, COMPACT+51, COMPACT+99
$$GETSTDT^PXCOMPACT	COMPACT+33, COMPACT+65
NEWEOC^PXCOMPACT	COMPACT+82, COMPACT+93
REOPNEOC^PXCOMPACT	COMPACT+88, COMPACT+91
SETENDDT^PXCOMPACT	COMPACT+81, COMPACT+86
SETSTDT^PXCOMPACT	COMPACT+46
VISIT^PXCOMPACT	COMPACT+77, COMPACT+88
$$FMADD^XLFDT	COMPACT+74

Name

Field # of Occurrence

$$CHKMVMT^DGCOMPACT

COMPACT+9, COMPACT+19, COMPACT+67

$$GETMVMT^DGCOMPACT

COMPACT+24

REVERT^DGCOMPACT

COMPACT+17

SETPTFFLG^DGCOMPACT

COMPACT+12, COMPACT+94

SETPTFMVMT^DGCOMPACT

COMPACT+16, COMPACT+30, COMPACT+59, COMPACT+108

$$ELIG^DGCOMPACTELIG

SPEC+15

NEW^DGPMV3

NEW+2

YN^DICN

COMPACT+2, COMPACT+10, COMPACT+62

^DIE

NEW+4, EDIT+7

FILE^DIE

COMPACT+45

UPDATE^DIE

COMPACT+55, COMPACT+103

^DIK

DGPMV36+4, COMPACT+26

^DIR

ASK+5

$$ASC^PXCOMPACT

COMPACT+2, COMPACT+7, COMPACT+48, COMPACT+67, COMPACT+90, COMPACT+93

$$GETBENTYP^PXCOMPACT

COMPACT+10, COMPACT+41, COMPACT+48

$$GETEOC^PXCOMPACT

COMPACT+3, COMPACT+21, COMPACT+95

$$GETEOCSEQ^PXCOMPACT

COMPACT+5, COMPACT+22, COMPACT+96

$$GETPOINTRSEQ^PXCOMPACT

COMPACT+6, COMPACT+23, COMPACT+51, COMPACT+99

$$GETSTDT^PXCOMPACT

COMPACT+33, COMPACT+65

NEWEOC^PXCOMPACT

COMPACT+82, COMPACT+93

REOPNEOC^PXCOMPACT

COMPACT+88, COMPACT+91

SETENDDT^PXCOMPACT

COMPACT+81, COMPACT+86

SETSTDT^PXCOMPACT

COMPACT+46

VISIT^PXCOMPACT

COMPACT+77, COMPACT+88

$$FMADD^XLFDT

COMPACT+74

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Incomplete Treating Specialty Transfer...Deleted" Line Location: DGPMV36+4
Function Call: WRITE	Prompt: ! Line Location: ASK+1
Function Call: WRITE	Prompt: !,"Was Treatment for Acute Suicidal Crisis" Line Location: COMPACT+2
Function Call: WRITE	Prompt: !,"Answer must be 'Yes' or 'No'" Line Location: COMPACT+2
Routine Call	DIE Line Location: NEW+4 EDIT+7
Routine Call	DIE Line Location: COMPACT+45
Routine Call	DIE Line Location: COMPACT+55 COMPACT+103
Routine Call	DIR Line Location: ASK+5

FileNo	Call Tags
^DGPM - [#405]	Classic Fileman Calls

FileNo

Call Tags

^DGPM - [#405]

Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.1 - [#405.1]	ONLY+2
^DGPM - [#405]	SPEC+9, SPEC+10, COMPACT+33, EDIT+3, EDIT+8, PRIOR+2, AFTER+1
^DGPM("APHY"	SPEC+11
^DGPT - [#45]	COMPACT+15, COMPACT+29, COMPACT+58, COMPACT+107
^PXCOMP(818 - [#818]	COMPACT+9, COMPACT+32, COMPACT+37, COMPACT+39, COMPACT+40, COMPACT+67, COMPACT+69, COMPACT+70, COMPACT+73, COMPACT+74* , COMPACT+75, COMPACT+76, COMPACT+85, COMPACT+87, COMPACT+90
^UTILITY("DGPM"	EDIT+2, EDIT+3, EDIT+8, PRIOR+1, PRIOR+2, AFTER+1
^UTILITY($J	COMPACT+60, COMPACT+104

Name

Line Occurrences (* Changed, ! Killed)

^DG(405.1 - [#405.1]

ONLY+2

^DGPM - [#405]

SPEC+9, SPEC+10, COMPACT+33, EDIT+3, EDIT+8, PRIOR+2, AFTER+1

^DGPM("APHY"

SPEC+11

^DGPT - [#45]

COMPACT+15, COMPACT+29, COMPACT+58, COMPACT+107

^PXCOMP(818 - [#818]

COMPACT+9, COMPACT+32, COMPACT+37, COMPACT+39, COMPACT+40*, COMPACT+67, COMPACT+69, COMPACT+70, COMPACT+73*, COMPACT+74*
, COMPACT+75*, COMPACT+76*, COMPACT+85, COMPACT+87, COMPACT+90

^UTILITY("DGPM"

EDIT+2*, EDIT+3*, EDIT+8*, PRIOR+1*, PRIOR+2*, AFTER+1*

^UTILITY($J

COMPACT+60*, COMPACT+104*

Name	Line Occurrences
AFTER	EDIT+9
ASK	SPEC+12
COMPACT	SPEC+15, COMPACT+2, COMPACT+10, COMPACT+62
EDIT	SPEC+13
NEW	SPEC+12
PRIOR	EDIT+4
SPECQ	SPEC+12

Name

Line Occurrences

AFTER

EDIT+9

ASK

SPEC+12

COMPACT

SPEC+15, COMPACT+2, COMPACT+10, COMPACT+62

SPEC+13

SPEC+12

EDIT+4

SPEC+12

Name	Field # of Occurrence
^(	SPEC+11
^("PTF"	PRIOR+2, AFTER+1
^("PTFP"	PRIOR+1*
^(0	ONLY+2, EDIT+8, PRIOR+2, AFTER+1
^(1	PRIOR+2, AFTER+1

Name

Field # of Occurrence

SPEC+11

^("PTF"

PRIOR+2, AFTER+1

^("PTFP"

PRIOR+1*

^(0

ONLY+2, EDIT+8, PRIOR+2, AFTER+1

^(1

PRIOR+2, AFTER+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	COMPACT+1~, COMPACT+2, COMPACT+7, COMPACT+10, COMPACT+61, COMPACT+62*, COMPACT+63
C	ONLY+1~, ONLY+2
CDATA	COMPACT+1~, COMPACT+3*
CDATA(	COMPACT+44, COMPACT+49, COMPACT+54, COMPACT+97, COMPACT+102*
CMPMSG	COMPACT+1~, COMPACT+49, COMPACT+97
DA	DGPMV36+4, COMPACT+24, COMPACT+27!, NEW+4, NEW+5!, EDIT+6
DA(1	COMPACT+24*, COMPACT+25
DA(2	COMPACT+24*, COMPACT+25
DA(3	COMPACT+24*, COMPACT+25
>> DFN	SPEC+15, COMPACT+2, COMPACT+3, COMPACT+5, COMPACT+6, COMPACT+7, COMPACT+9, COMPACT+10, COMPACT+17, COMPACT+19 , COMPACT+21, COMPACT+22, COMPACT+23, COMPACT+24, COMPACT+33, COMPACT+41, COMPACT+46, COMPACT+48, COMPACT+51, COMPACT+65 , COMPACT+67, COMPACT+77, COMPACT+81, COMPACT+82, COMPACT+86, COMPACT+88, COMPACT+90, COMPACT+93, COMPACT+95, COMPACT+96 , COMPACT+99
DG	EDIT+7!
>> DGER	DICS+1*
DGPM0ND	NEW+2*, NEW+5!
>> DGPMA	DGPMV36+4*
>> DGPMDA	DGPMV36+4, COMPACT+9, COMPACT+24, COMPACT+53, COMPACT+54, COMPACT+101, COMPACT+102
DGPMN	SPEC+10~, NEW+3, EDIT+2, EDIT+3, EDIT+5*, PRIOR+1, PRIOR+2
DGPMP	EDIT+1~, EDIT+2, EDIT+3, EDIT+5
DGPMPHY	SPEC+10*, SPEC+11, SPECQ!, NEW+1
DGPMPHY0	SPEC+10*, SPECQ!, NEW+1, NEW+4, EDIT+5, EDIT+6
DGPMSP	SPEC+11, SPEC+12, SPEC+13, SPECQ!, NEW+3, NEW+4, EDIT+2, EDIT+3, EDIT+4, EDIT+6 , EDIT+8, EDIT+9
DGPMSPI	ONLY+2*!
DGPMT	SPEC+10~*, NEW+1
>> DGPMTYP	DICS+1
>> DGPMUC	SPEC+15
DGPMX	EDIT+1~, EDIT+6*
>> DGPMY	COMPACT+14, COMPACT+15, COMPACT+28, COMPACT+29, COMPACT+57, COMPACT+58, COMPACT+69, COMPACT+72, COMPACT+74, COMPACT+80 , COMPACT+81, COMPACT+82, COMPACT+85, COMPACT+86, COMPACT+87, COMPACT+93, COMPACT+106, COMPACT+107
DGVAL	COMPACT+1~, COMPACT+63*, COMPACT+94
DIC	NEW+5!
DIE	NEW+4, NEW+5!, EDIT+6
DIE("NO^"	EDIT+2*
DIK	DGPMV36+4!, COMPACT+25, COMPACT+27!
DIR	ASK+5!
DIR("?"	ASK+2, ASK+3, ASK+4*
DIR("A"	ASK+1*
DIR(0	ASK+1*
DQ	EDIT+7!
DR	NEW+4, NEW+5!, EDIT+6
ERROR	COMPACT+1~, COMPACT+63, COMPACT+70, COMPACT+72, COMPACT+80
FIRSTMOVE	COMPACT+1~, COMPACT+32*, COMPACT+33
FLIP	COMPACT+1~, COMPACT+63, COMPACT+78, COMPACT+83*, COMPACT+85
I	ONLY+1~, ONLY+2*
MOVEDT	COMPACT+1~, COMPACT+33*, COMPACT+34, COMPACT+40, COMPACT+44, COMPACT+46
MOVESEQ	COMPACT+1~, COMPACT+15, COMPACT+16, COMPACT+29, COMPACT+30, COMPACT+58, COMPACT+59, COMPACT+107, COMPACT+108
MVMTVAL	COMPACT+1~, COMPACT+63*
>> PTF	SPEC+15, COMPACT+6, COMPACT+9, COMPACT+12, COMPACT+15, COMPACT+16, COMPACT+17, COMPACT+19, COMPACT+23, COMPACT+24 , COMPACT+29, COMPACT+30, COMPACT+51, COMPACT+58, COMPACT+59, COMPACT+67, COMPACT+77, COMPACT+82, COMPACT+88, COMPACT+90 , COMPACT+93, COMPACT+94, COMPACT+99, COMPACT+107, COMPACT+108
PTFPOINT	COMPACT+1~, COMPACT+6, COMPACT+9, COMPACT+23, COMPACT+24, COMPACT+32, COMPACT+51, COMPACT+52, COMPACT+99, COMPACT+100
PXEOCNUM	COMPACT+1~, COMPACT+3, COMPACT+9, COMPACT+21, COMPACT+24, COMPACT+32, COMPACT+37, COMPACT+39, COMPACT+40, COMPACT+43 , COMPACT+52, COMPACT+67, COMPACT+69, COMPACT+70, COMPACT+73, COMPACT+74, COMPACT+75, COMPACT+76, COMPACT+77, COMPACT+85 , COMPACT+87, COMPACT+88, COMPACT+90, COMPACT+91, COMPACT+95*, COMPACT+100
PXEOCSEQ	COMPACT+1~, COMPACT+5, COMPACT+9, COMPACT+22, COMPACT+24, COMPACT+32, COMPACT+38, COMPACT+43, COMPACT+52, COMPACT+69* , COMPACT+70, COMPACT+74, COMPACT+75, COMPACT+76, COMPACT+87, COMPACT+88, COMPACT+90, COMPACT+91, COMPACT+96, COMPACT+100
PXIENS	COMPACT+1~, COMPACT+43, COMPACT+44, COMPACT+52, COMPACT+54, COMPACT+100*, COMPACT+102
SEQCHK	COMPACT+1~, COMPACT+36, COMPACT+37, COMPACT+38, COMPACT+39, COMPACT+40
STARTDT	COMPACT+1~, COMPACT+33, COMPACT+34, COMPACT+39, COMPACT+63, COMPACT+65*, COMPACT+72, COMPACT+80, COMPACT+91
U	NEW+1
X	COMPACT+1~, NEW+1, NEW+2, PRIOR+2, AFTER+1
Y	SPEC+9, SPEC+10, SPEC+12, SPECQ, COMPACT+1~, NEW+1, NEW+2, NEW+3, EDIT+4, EDIT+9* , PRIOR+1, PRIOR+2, AFTER+1

Customize PDF page

Package: Registration

Routine: DGPMV36

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: