Last change
on this file since 1046 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
656 bytes
|
Line | |
---|
1 | XU8P373 ;SFISC/SO- Add Whole File Screen to file 200 ;5:50 AM 13 Dec 2004
|
---|
2 | ;;8.0;KERNEL;**373**;Jul 10, 1995
|
---|
3 | ; IA # 4579
|
---|
4 | ; Test for file header node
|
---|
5 | I '$D(^VA(200,0))#2 D MES^XPDUTL("NEW PERSON(#200) file is missing it's File Header node.") Q
|
---|
6 | ; Test header node $P#2 for proper construction
|
---|
7 | I +$P(^VA(200,0),U,2)'=200 D MES^XPDUTL("The second piece of NEW PERSON(#200) file is not correct.") Q
|
---|
8 | ; Add the Whole File Screen
|
---|
9 | S ^DD(200,0,"SCR")="I $$SCR200^XUSER"
|
---|
10 | ; Add Screen flag to file header if not already there
|
---|
11 | I $P(^VA(200,0),U,2)'["s" S $P(^VA(200,0),U,2)=$P(^VA(200,0),U,2)_"s"
|
---|
12 | ;
|
---|
13 | D MES^XPDUTL("Added Screen to NEW PERSON(#200) file.")
|
---|
14 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.