Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: DGPFCNV

Package: Registration

Routine: DGPFCNV


Information

DGPFCNV ;ALB/SCK - PRF CAT II TO CAT I PROCESSING - MAIN;27 JAN 2012

Source Information

Source file <DGPFCNV.m>

Call Graph

Call Graph

Call Graph Total: 16

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGPF LOCAL TO NATIONAL CONVERT  

Entry Points

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 ;

External References

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

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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

Marked Items

Name Field # of Occurrence
$T(@DGPFTAG+DGI BLDWP+3, BLDWP+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All