Changeset 636 for FOIAVistA/tag/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUPROD.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUPROD.m (modified) (3 diffs)

FOIAVistA/tag/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUPROD.m

@@ -1 @@
-XUPROD ;ISF/RWF - Is this a PROD account. ;8/23/07  16:47
- ;;8.0;KERNEL;**284,440**;Jul 10, 1995;Build 13
+XUPROD ;ISF/RWF - Is this a PROD account. ;06/17/2004  08:13
+ ;;8.0;KERNEL;**284**;Jul 10, 1995
  ;
  ;IA# 4440
@@ -32 +32 @@
  N DIR,P S P=$$PROD
  S DIR(0)="YO",DIR("A")="Is this a Production Account",DIR("B")="No"
- S DIR("A",1)=""
- S DIR("A",2)="This is now a "_$S(P:"PRODUCTION",1:"TEST")_" account."
- S DIR("A",3)=" "
- S DIR("A",4)="Only answer YES if this is the full time Production Account."
- S DIR("A",5)="Answer No for all other accounts."
+ S DIR("A",1)="This is now a "_$S(P:"PRODUCTION",1:"TEST")_" account."
+ S DIR("A",2)=" "
+ S DIR("A",3)="Only answer YES if this is the full time Production Account."
+ S DIR("A",4)="Answer No for all other accounts."
  D ^DIR Q:$D(DIRUT)
  I Y=1 D SSID($$SID^%ZOSV)
@@ -43 +42 @@
  W:P !!,"This is now a PRODUCTION account.",! W:'P !!,"This is now a TEST account.",!
  Q
- ;
-EDIT ;Edit Logical - Physical fields
- N DIE,DA,DR
- W !!,"This is only valid in a Cache v5.2 client/server configuration."
- W !,"This lets you edit the fields that support the"
- W !,"LOGICAL to PHYSICAL translation for the System ID.",!!
- S DA=1,DIE="^XTV(8989.3,",DR="504;505" D ^DIE
- Q