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/XU8P373.m@ 724

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

initial load of WorldVistAEHR

File size: 656 bytes
Line 
1XU8P373 ;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.