|
Last change
on this file since 972 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
493 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | NURSAPFU ;HIRMFO/RM/MD,FT-SITE PARAMETER FILE UPDATE ;4/18/96 15:14
|
|---|
| 2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
|---|
| 3 | ; THIS ROUTINE CALLED BY OPTION NURSFL-SITE
|
|---|
| 4 | Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1
|
|---|
| 5 | I '$D(^DIC(213.9,1)) D ADDNEW
|
|---|
| 6 | S DA=1,DR="2;8;7.1;7.2;7.3;11;12;S:'(DUZ(0)[""@"") Y=""@1"";3;4;@1",DIE="^DIC(213.9," D ^DIE K DIE
|
|---|
| 7 | D ^NURSKILL
|
|---|
| 8 | Q
|
|---|
| 9 | ADDNEW ; ADD NEW PARAMETERS FOR THIS SITE
|
|---|
| 10 | S $P(^DIC(213.9,1,0),"^",1)="ONE",^DIC(213.9,1,"OFF")=0,DIK="^DIC(213.9," D IXALL^DIK
|
|---|
| 11 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
