source: FOIAVistA/trunk/r/NURSING_SERVICE-NUR/NURSAPFU.m@ 1742

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

initial load of FOIAVistA 6/30/08 version

File size: 493 bytes
Line 
1NURSAPFU ;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
9ADDNEW ; 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.