DGPFCNV ;ALB/SCK - PRF CAT II TO CAT I PROCESSING - MAIN;27 JAN 2012
Source file <DGPFCNV.m>
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 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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+33, 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+39 |
$$SNDORU^DGPFHLS | CONVERT+36 |
$$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, CONVERT+20, OWNER+14 |
$$FMADD^XLFDT | CONVERT+26 |
$$FMDIFF^XLFDT | CONVERT+25 |
$$FMTE^XLFDT | CONVERT+18, CONVERT+27, BLDWP+10 |
$$NOW^XLFDT | CONVERT+18, INACT+11, BLDWP+10 |
$$GET^XPAR | LOCFLG+3 |
$$PROD^XUPROD | CONVERT+36 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
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 |
>> | 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+39, BLDWP~, BLDWP+21 |
DGASGN( | BLDWP+23, BLDWP+24 |
DGASGN("DFN" | CONVERT+5 |
DGASGN("OWNER" | CONVERT+8 |
DGASGN("REVIEWDT" | CONVERT+25, CONVERT+29, CONVERT+31 |
DGASGNH | CONVERT+1~, CONVERT+14 |
DGASGNH("APPRVBY" | CONVERT+16 |
DGASGNH("ASSIGN" | CONVERT+17 |
DGASGNH("ASSIGNDT" | CONVERT+25, CONVERT+26 |
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+33, INACT+16, INACT+17, OWNER~, OWNER+10* , OWNER+16*, ERRMSG~, ERRMSG+1 |
DGHLRSLT | CONVERT+1~, CONVERT+36* |
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+33, 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+28, CONVERT+29* |
DGNEW("ORIGSITE" | CONVERT+9* |
DGNEW("OWNER" | CONVERT+8* |
DGNEW("REVIEWDT" | CONVERT+26*, CONVERT+27*, CONVERT+31* |
DGNEW("STATUS" | CONVERT+7* |
DGNEWH | CONVERT+1~, CONVERT+22, CONVERT+33 |
DGNEWH("ACTION" | CONVERT+15* |
DGNEWH("APPRVBY" | CONVERT+16* |
DGNEWH("ASSIGN" | CONVERT+17* |
DGNEWH("ASSIGNDT" | CONVERT+18* |
DGNEWH("ENTERBY" | CONVERT+19* |
DGNEWH("ORIGFAC" | CONVERT+20* |
DGNEWH("TIULINK" | CONVERT+21* |
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+37, CONVERT+39, 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+33*, CONVERT+34, CONVERT+35, CONVERT+36, INACT+1~, INACT+16*, INACT+17 |
DGRSLT | PROCESS+1~, PROCESS+9, PROCESS+10, SEARCH~, CONVERT+1~, CONVERT+4*, CONVERT+35*, CONVERT+41*, 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+37*, CONVERT+38, CONVERT+39 |
DGUSER | BLDWP+1~, BLDWP+13*, BLDWP+14 |
DGX | SEARCH+1~, SEARCH+3*, CONVERT+28*, CONVERT+29, 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+29 |
X | RUNTYP+1~ |
Y | RUNTYP+1~, RUNTYP+16*, RUNTYP+17 |
Name | Field # of Occurrence |
---|---|
$T(@DGPFTAG+DGI | BLDWP+3, BLDWP+4 |