Routine: DGPFCNV

Package	Total	Call Graph
Registration	9	($$GETASGN,$$STOALL)^DGPFAA $$LOCK^DGPFAA3 ($$GETHIST,$$GETLAST)^DGPFAAH $$GETFLAG^DGPFAPIU (EN,SNDERR)^DGPFCNR $$SNDORU^DGPFHLS $$MPIOK^DGPFUT ($$GETPAT,BLDTFL)^DGPFUT2 $$SITE^VASITE
VA FileMan	3	WAIT^DICD $$GET1^DIQ ^DIR
Kernel	2	($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT $$PROD^XUPROD
Master Patient Index VistA	1	$$HL7CMOR^MPIF001
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Kernel	1	^DIC(19
Registration	1	DGPF LOCAL TO NATIONAL CONVERT

Name	Comments	DBIA/ICR reference
EN	;
PROCESS(DGRUN,DGPARM,DGERR)	;
SEARCH(DGPRF,DGRUN,DGXTMP,DGRSLT)	; Begin search for Cat II flags to convert
CONVERT(DGPFIEN,DGOWNER,DGPRFN)	;
CNVTQ	;
INACT(DGPFIEN)	; Inactivate cat II flag
INACTQ	;
OWNER(DFN,DGPFIEN,DGOWNER,DGERR)	; Determine owning site using previous owning site, current site and CMOR
NATFLG(DGNFLAG)	; Check for New national flag
LOCFLG(DGPARM)	; Retrieve current cat II flag from parameters
RUNTYP()	;
ERRMSG(DGERR)	;
GETVAR(DGPARMDF,DGCAT)	;
BLDWP(DGASGN,DGNEW,DGPFTAG,DGSUB)	; Build word processing fields for assignment and assignment history entries
ASGNTXT	; Narrative text for PRF assignment created by auto-conversion
HSTOLD	; Inactivated cat2 assignment history status text
ALTHTXT	; Inactivated cat2 assignment history text for cat1 conversion at another
HSTNEW	;

Name	Field # of Occurrence
$$GETASGN^DGPFAA	SEARCH+22, CONVERT+3, INACT+5
$$STOALL^DGPFAA	CONVERT+32, INACT+16
$$LOCK^DGPFAA3	INACT+3
$$GETHIST^DGPFAAH	CONVERT+14
$$GETLAST^DGPFAAH	CONVERT+13
$$GETFLAG^DGPFAPIU	SEARCH+19, GETVAR+1
EN^DGPFCNR	PROCESS+10
SNDERR^DGPFCNR	CONVERT+38
$$SNDORU^DGPFHLS	CONVERT+35
$$MPIOK^DGPFUT	SEARCH+14
$$GETPAT^DGPFUT2	SEARCH+10
BLDTFL^DGPFUT2	OWNER+4
WAIT^DICD	PROCESS+8
$$GET1^DIQ	SEARCH+8, CONVERT+19, OWNER+3, BLDWP+13
^DIR	RUNTYP+16
$$HL7CMOR^MPIF001	OWNER+5
$$SITE^VASITE	CONVERT+9, OWNER+14
$$FMADD^XLFDT	CONVERT+25
$$FMDIFF^XLFDT	CONVERT+24
$$FMTE^XLFDT	CONVERT+18, CONVERT+26, BLDWP+10
$$NOW^XLFDT	CONVERT+18, INACT+11, BLDWP+10
$$GET^XPAR	LOCFLG+3
$$PROD^XUPROD	CONVERT+35

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: RUNTYP+7
Function Call: WRITE	Prompt: !,DGDISPLAY(DGX) Line Location: RUNTYP+8
Function Call: WRITE	Prompt: !!,?3,DGERR,!! Line Location: ERRMSG+1
Routine Call	DIR Line Location: RUNTYP+16

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DGPF(26.13 - [#26.13]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGPF(26.13 - [#26.13]	SEARCH+6, SEARCH+7, SEARCH+18, SEARCH+20
^DGPF(26.15 - [#26.15]	NATFLG+4

Name	Line Occurrences
$$CONVERT	SEARCH+37
$$GETVAR	PROCESS+5
$$INACT	SEARCH+26, CONVERT+36
$$LOCFLG	EN+7
$$NATFLG	EN+5
$$RUNTYP	EN+9
BLDWP	CONVERT+11, CONVERT+21, INACT+14
CNVTQ	CONVERT+3
ERRMSG	EN+6, EN+8
INACTQ	INACT+3, INACT+5
PROCESS	EN+11
SEARCH	PROCESS+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	SEARCH+1~, SEARCH+5, SEARCH+6, SEARCH+7, SEARCH+10, SEARCH+12, SEARCH+14, SEARCH+16, SEARCH+18, SEARCH+20 , SEARCH+25, SEARCH+40, SEARCH+43, SEARCH+46, OWNER~, OWNER+4, OWNER+5
DGASGN	CONVERT+1~, CONVERT+3, CONVERT+11, CONVERT+38, BLDWP~, BLDWP+21
DGASGN(	BLDWP+23, BLDWP+24
DGASGN("DFN"	CONVERT+5
DGASGN("OWNER"	CONVERT+8
DGASGN("REVIEWDT"	CONVERT+24, CONVERT+28, CONVERT+30
DGASGNH	CONVERT+1~, CONVERT+14
DGASGNH("APPRVBY"	CONVERT+16
DGASGNH("ASSIGN"	CONVERT+17
DGASGNH("ASSIGNDT"	CONVERT+24, CONVERT+25
DGCAT	GETVAR~, GETVAR+1
DGCMOR	OWNER+1~, OWNER+5*, OWNER+7, OWNER+8, OWNER+9
DGCNVT	SEARCH+1~, SEARCH+37*, SEARCH+38, SEARCH+40, SEARCH+43
DGDISPLAY	RUNTYP+1~, RUNTYP+13
DGDISPLAY(	RUNTYP+8
DGDISPLAY(1	RUNTYP+3*
DGDISPLAY(2	RUNTYP+4*
DGDISPLAY(3	RUNTYP+5*
DGDISPLAY(4	RUNTYP+6*
DGERR	EN+1~, EN+11, PROCESS~, PROCESS+7, SEARCH+30!, CONVERT+32, INACT+16, INACT+17, OWNER~, OWNER+10 , OWNER+16*, ERRMSG~, ERRMSG+1
DGHLRSLT	CONVERT+1~, CONVERT+35*
DGI	SEARCH+7, SEARCH+8, BLDWP+1~, BLDWP+3, BLDWP+4, BLDWP+6, BLDWP+7, BLDWP+8, BLDWP+9, BLDWP+10 , BLDWP+11, BLDWP+12, BLDWP+14, BLDWP+15, BLDWP+16, BLDWP+17, BLDWP+18
DGI1	BLDWP+1~, BLDWP+22, BLDWP+23, BLDWP+24
DGIEN	SEARCH+1~, OWNER+1~
DGINACT	SEARCH+1~, SEARCH+26*, SEARCH+28
DGLAST	BLDWP+1~, BLDWP+8, BLDWP+22, BLDWP+24, BLDWP+25*
DGNEW	CONVERT+1~, CONVERT+11, CONVERT+32, BLDWP~
DGNEW(	BLDWP+4, BLDWP+7, BLDWP+9, BLDWP+10, BLDWP+11, BLDWP+12, BLDWP+14, BLDWP+15, BLDWP+16, BLDWP+17 , BLDWP+18, BLDWP+24*
DGNEW("DFN"	CONVERT+5*
DGNEW("FLAG"	CONVERT+6*
DGNEW("NARR"	CONVERT+27, CONVERT+28*
DGNEW("ORIGSITE"	CONVERT+9*
DGNEW("OWNER"	CONVERT+8*
DGNEW("REVIEWDT"	CONVERT+25, CONVERT+26, CONVERT+30*
DGNEW("STATUS"	CONVERT+7*
DGNEWH	CONVERT+1~, CONVERT+21, CONVERT+32
DGNEWH("ACTION"	CONVERT+15*
DGNEWH("APPRVBY"	CONVERT+16*
DGNEWH("ASSIGN"	CONVERT+17*
DGNEWH("ASSIGNDT"	CONVERT+18*
DGNEWH("ENTERBY"	CONVERT+19*
DGNEWH("TIULINK"	CONVERT+20*
DGNFLAG	EN+1~, EN+4*, EN+5, SEARCH+19, CONVERT+6, NATFLG~, NATFLG+4
DGOWNER	SEARCH+31, SEARCH+37, CONVERT~, OWNER~, OWNER+3, OWNER+8, OWNER+9, OWNER+15*
DGPARM	EN+1~, EN+7, EN+11, PROCESS~, PROCESS+5, PROCESS+7, LOCFLG~, LOCFLG+3*, LOCFLG+5, BLDWP+17
DGPARMDF	GETVAR~, GETVAR+1
DGPAT	SEARCH+1~, SEARCH+10
DGPAT("NAME"	SEARCH+16, SEARCH+25, SEARCH+28, SEARCH+40, SEARCH+43, SEARCH+46
DGPFA	SEARCH+22, INACT+1~, INACT+5, INACT+16
DGPFA("REVIEWDT"	INACT+9*
DGPFA("STATUS"	SEARCH+23, INACT+8*
DGPFAH	INACT+1~, INACT+14, INACT+16
DGPFAH("ACTION"	INACT+10*
DGPFAH("APPRVBY"	INACT+13*
DGPFAH("ASSIGNDT"	INACT+11*
DGPFAH("ENTERBY"	INACT+12*
DGPFHIEN	CONVERT+1~, CONVERT+13*, CONVERT+14
DGPFIEN	SEARCH+18*, SEARCH+22, SEARCH+25, SEARCH+26, SEARCH+37, SEARCH+43, SEARCH+46, CONVERT~, CONVERT+3, CONVERT+13 , CONVERT+36, CONVERT+38, INACT~, INACT+3, INACT+5, OWNER~, OWNER+3
DGPFTAG	BLDWP~
DGPIEN1	SEARCH+1~, SEARCH+20*, SEARCH+21
DGPRF	PROCESS+1~, PROCESS+5*, PROCESS+6, PROCESS+7, PROCESS+9, SEARCH~, SEARCH+6, SEARCH+7, SEARCH+18
DGPRFN	SEARCH+1~, SEARCH+19*, SEARCH+20, SEARCH+37, CONVERT~, CONVERT+6
DGPRV	EN+1~
DGRDDT	CONVERT+1~
DGRESULT	CONVERT+1~, CONVERT+32, CONVERT+33, CONVERT+34, CONVERT+35, INACT+1~, INACT+16, INACT+17
DGRSLT	PROCESS+1~, PROCESS+9, PROCESS+10, SEARCH~, CONVERT+1~, CONVERT+4, CONVERT+34, CONVERT+40, CNVTQ+1, INACT+1~ , INACT+4, INACT+6, INACT+17, INACT+18, INACTQ+1, OWNER+1~, OWNER+8, OWNER+9, OWNER+10, OWNER+13* , OWNER+15, OWNER+16, OWNER+17, NATFLG+1~, NATFLG+3, NATFLG+4, NATFLG+5, LOCFLG+1~, LOCFLG+4, LOCFLG+5 , LOCFLG+6, RUNTYP+1~, RUNTYP+17*, RUNTYP+18
DGRSLT(	SEARCH+3*
DGRSLT("DONE"	SEARCH+24*
DGRSLT("ERR"	SEARCH+11, SEARCH+15, SEARCH+27, SEARCH+42
DGRSLT("NEW"	SEARCH+39, SEARCH+45
DGRSLT("TOTAL"	SEARCH+9*
DGRUN	EN+1~, EN+9*, EN+10, EN+11, PROCESS~, PROCESS+9, SEARCH~, SEARCH+26, SEARCH+36
DGSITE	OWNER+1~, OWNER+14*, OWNER+15
DGSUB	BLDWP~, BLDWP+4, BLDWP+7, BLDWP+9, BLDWP+10, BLDWP+11, BLDWP+12, BLDWP+14, BLDWP+15, BLDWP+16 , BLDWP+17, BLDWP+18, BLDWP+23, BLDWP+24
DGTEXT2	BLDWP+1~, BLDWP+9!, BLDWP+10, BLDWP+11, BLDWP+12!, BLDWP+14, BLDWP+15, BLDWP+16!, BLDWP+17*, BLDWP+18
DGTFL	OWNER+1~, OWNER+4, OWNER+8, OWNER+13
DGTFL(	OWNER+9, OWNER+15
DGUPDT	CONVERT+1~, CONVERT+36*, CONVERT+37, CONVERT+38
DGUSER	BLDWP+1~, BLDWP+13*, BLDWP+14
DGX	SEARCH+1~, SEARCH+3, CONVERT+27, CONVERT+28, OWNER+1~, RUNTYP+1~, RUNTYP+8*
DGXTMP	PROCESS+1~, PROCESS+3*, PROCESS+4, PROCESS+9, PROCESS+10, SEARCH~, SEARCH+12, SEARCH+16, SEARCH+25, SEARCH+28 , SEARCH+40, SEARCH+43, SEARCH+46
DIR	RUNTYP+1~, RUNTYP+16!
DIR("?"	RUNTYP+13, RUNTYP+14, RUNTYP+15*
DIR("A"	RUNTYP+11*
DIR("B"	RUNTYP+12*
DIR(0	RUNTYP+10*
DIRUT	RUNTYP+1~, RUNTYP+16
DUZ	CONVERT+19, INACT+12, INACT+13, BLDWP+13
U	SEARCH+28, SEARCH+40, SEARCH+43, CONVERT+9, CONVERT+28
X	RUNTYP+1~
Y	RUNTYP+1~, RUNTYP+16*, RUNTYP+17

Customize PDF page

Package: Registration

Routine: DGPFCNV

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items