source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUMF4H.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1XUMF4H ;CIOFO-SF/RAM - Institution File Clean Up; 06/28/99
2 ;;8.0;KERNEL;**206**;Jul 10, 1995
3 ;
4 ;
5 ;
6DSTA ; -- duplicate station #s
7RDSN ; -- 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 ;
18LLCL ; -- 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 ;
28NATL ; -- national
29 ;
30 W !!,"This list displays the Master Institutution File data.",!!
31 D EOP
32 ;
33 Q
34 ;
35MSTA ; -- 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 ;
45AUTO ; -- 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 ;
53CHCK ; -- 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 ;
62NAME ; -- 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 ;
75EOP ; -- End-of-Page
76 ;
77 N DIR
78 S DIR(0)="E"
79 D ^DIR,CLEAR^VALM1
80 S VALMBCK="R"
81 Q
Note: See TracBrowser for help on using the repository browser.