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 |