source: WorldVistAEHR/trunk/r/SURGERY-SR/SROFLD.m@ 1259

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

initial load of WorldVistAEHR

File size: 977 bytes
Line 
1SROFLD ;B'HAM ISC/MAM - GET FILE & FIELD FOR KEY RESTRICTION ; 10 DEC 1992 11:45 AM
2 ;;3.0; Surgery ;;24 Jun 93
3 S SRSOUT=0 K DIC,DA,DO S DIC=1,DIC(0)="QEAMZ",DIC("A")="Select File: " D ^DIC K DIC I Y<0 S SRSOUT=1 G END
4 S SRFILE=Y,DI=+Y,N=0 D DI^DIU I Y<0 S SRSOUT=1 G END
5 S SRFILE=DI,SRFIELD=+Y,SRENTRY=DI_","_SRFIELD
6 I '$O(^SRP("B",SRENTRY,0)) D ADD G END
7 S SRP=$O(^SRP("B",SRENTRY,0))
8 Q
9END D ^SRSKILL W @IOF
10 Q
11ADD ; add entry in PERSON FIELD RESTRICTION file
12 W !!,"This field does not exist in the PERSON FIELD RESTRICTION file. Do you",!,"want to add it ? YES// " R SRYN:DTIME I '$T!(SRYN["^") S SRYN="N",SRSOUT=1 Q
13 S SRYN=$E(SRYN) I "YyNn"'[SRYN W !!,"Enter RETURN or 'YES' to add this entry to the file so that restrictions may",!,"be applied, or 'NO' to quit this option." G ADD
14 I "Yy"'[SRYN S SRSOUT=1 Q
15 K DIC,DD,DINUM,DO,DA S DIC="^SRP(",DIC(0)="L",DLAYGO=131,X=SRENTRY D FILE^DICN S SRP=+Y
16 W ! K DIE,DA,DR S DA=SRP,DIE=131,DR="5T;3T" D ^DIE K DR,DA
17 Q
Note: See TracBrowser for help on using the repository browser.