DGPFCNV ;ALB/SCK - PRF CAT II TO CAT I PROCESSING - MAIN;27 JAN 2012
Source file <DGPFCNV.m>
| 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 | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^DGPF(26.13 - [#26.13] | GET1^DIQ |