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)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
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
r628 r636 1 XUPROD ;ISF/RWF - Is this a PROD account. ; 8/23/07 16:472 ;;8.0;KERNEL;**284 ,440**;Jul 10, 1995;Build 131 XUPROD ;ISF/RWF - Is this a PROD account. ;06/17/2004 08:13 2 ;;8.0;KERNEL;**284**;Jul 10, 1995 3 3 ; 4 4 ;IA# 4440 … … 32 32 N DIR,P S P=$$PROD 33 33 S DIR(0)="YO",DIR("A")="Is this a Production Account",DIR("B")="No" 34 S DIR("A",1)="" 35 S DIR("A",2)="This is now a "_$S(P:"PRODUCTION",1:"TEST")_" account." 36 S DIR("A",3)=" " 37 S DIR("A",4)="Only answer YES if this is the full time Production Account." 38 S DIR("A",5)="Answer No for all other accounts." 34 S DIR("A",1)="This is now a "_$S(P:"PRODUCTION",1:"TEST")_" account." 35 S DIR("A",2)=" " 36 S DIR("A",3)="Only answer YES if this is the full time Production Account." 37 S DIR("A",4)="Answer No for all other accounts." 39 38 D ^DIR Q:$D(DIRUT) 40 39 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.",! 44 43 Q 45 ;46 EDIT ;Edit Logical - Physical fields47 N DIE,DA,DR48 W !!,"This is only valid in a Cache v5.2 client/server configuration."49 W !,"This lets you edit the fields that support the"50 W !,"LOGICAL to PHYSICAL translation for the System ID.",!!51 S DA=1,DIE="^XTV(8989.3,",DR="504;505" D ^DIE52 Q
Note:
See TracChangeset
for help on using the changeset viewer.