|
Last change
on this file since 703 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
656 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
