| 1 | XUMF4H ;CIOFO-SF/RAM - Institution File Clean Up; 06/28/99
|
|---|
| 2 | ;;8.0;KERNEL;**206**;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | ;
|
|---|
| 6 | DSTA ; -- duplicate station #s
|
|---|
| 7 | RDSN ; -- deleted duplicate station number
|
|---|
| 8 | ;
|
|---|
| 9 | W !!,"This list displays duplicate STATION NUMBER (#99)."
|
|---|
| 10 | W !,"The action associated with this list will automatically"
|
|---|
| 11 | W !,"remove the value from field #99 for local and duplicate"
|
|---|
| 12 | W !,"entries.",!!
|
|---|
| 13 | D EOP
|
|---|
| 14 | ;
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | ;
|
|---|
| 18 | LLCL ; -- local data
|
|---|
| 19 | ;
|
|---|
| 20 | W !!,"This list displays entries that are in the INSTITUTION (#4)"
|
|---|
| 21 | W !,"file but not in the national file."
|
|---|
| 22 | W !!,"This list is informational only and has no actions associated"
|
|---|
| 23 | W !,"with it.",!!
|
|---|
| 24 | D EOP
|
|---|
| 25 | ;
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | NATL ; -- national
|
|---|
| 29 | ;
|
|---|
| 30 | W !!,"This list displays the Master Institutution File data.",!!
|
|---|
| 31 | D EOP
|
|---|
| 32 | ;
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
| 35 | MSTA ; -- missing station numbers
|
|---|
| 36 | ;
|
|---|
| 37 | W !!,"This list displays station numbers that are in the national"
|
|---|
| 38 | W !,"file but not in the INSTITUTION (#4) file."
|
|---|
| 39 | W !!,"This list is informational only and has no actions associated"
|
|---|
| 40 | W !,"with it.",!!
|
|---|
| 41 | D EOP
|
|---|
| 42 | ;
|
|---|
| 43 | Q
|
|---|
| 44 | ;
|
|---|
| 45 | AUTO ; -- auto update with national data
|
|---|
| 46 | ;
|
|---|
| 47 | W !!,"This action will automatically update the INSTITUTION (#4) file"
|
|---|
| 48 | W !,"with national data.",!!
|
|---|
| 49 | D EOP
|
|---|
| 50 | ;
|
|---|
| 51 | Q
|
|---|
| 52 | ;
|
|---|
| 53 | CHCK ; -- check if update is complete
|
|---|
| 54 | ;
|
|---|
| 55 | W !!,"Use this action to check if the all the required steps have"
|
|---|
| 56 | W !,"been performed and the clean up has completed.",!!
|
|---|
| 57 | D EOP
|
|---|
| 58 | ;
|
|---|
| 59 | Q
|
|---|
| 60 | ;
|
|---|
| 61 | ;
|
|---|
| 62 | NAME ; -- institution vs. national names
|
|---|
| 63 | ;
|
|---|
| 64 | W !!,"This main screen displays a side-by-side view of the INSTITUTION"
|
|---|
| 65 | W !,"(#4) file and the national file names by station number.",!
|
|---|
| 66 | W !,"LLCL - lists local station numbers to be deleted.",!
|
|---|
| 67 | W !,"DSTA - automatically deletes local/duplicate station numbers.",!
|
|---|
| 68 | W !,"NATL - lists Institution Master File entries to merge.",!
|
|---|
| 69 | W !,"AUTO - merges national data with local INSTITUTION (#4) file.",!
|
|---|
| 70 | W !,"CHCK - run this action to see pending clean up actions to perform.",!!
|
|---|
| 71 | D EOP
|
|---|
| 72 | ;
|
|---|
| 73 | Q
|
|---|
| 74 | ;
|
|---|
| 75 | EOP ; -- End-of-Page
|
|---|
| 76 | ;
|
|---|
| 77 | N DIR
|
|---|
| 78 | S DIR(0)="E"
|
|---|
| 79 | D ^DIR,CLEAR^VALM1
|
|---|
| 80 | S VALMBCK="R"
|
|---|
| 81 | Q
|
|---|
