NURSAPFU ;HIRMFO/RM/MD,FT-SITE PARAMETER FILE UPDATE ;4/18/96 15:14
;;4.0;NURSING SERVICE;**45**;Apr 25, 1997;Build 12
; THIS ROUTINE CALLED BY OPTION NURSFL-SITE
Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1
I '$D(^DIC(213.9,1)) D ADDNEW
S DA=1,DR="2;8;7.1;7.2;7.3;11;12;10.6;S:'(DUZ(0)[""@"") Y=""@1"";3;4;@1",DIE="^DIC(213.9," D ^DIE K DIE
D ^NURSKILL
Q
ADDNEW ; ADD NEW PARAMETERS FOR THIS SITE
S $P(^DIC(213.9,1,0),"^",1)="ONE",^DIC(213.9,1,"OFF")=0,DIK="^DIC(213.9," D IXALL^DIK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURSAPFU 524 printed Nov 22, 2024@17:31:41 Page 2
NURSAPFU ;HIRMFO/RM/MD,FT-SITE PARAMETER FILE UPDATE ;4/18/96 15:14
+1 ;;4.0;NURSING SERVICE;**45**;Apr 25, 1997;Build 12
+2 ; THIS ROUTINE CALLED BY OPTION NURSFL-SITE
+3 if '$DATA(^DIC(213.9,1,"OFF"))
QUIT
if $PIECE(^DIC(213.9,1,"OFF"),"^",1)=1
QUIT
+4 IF '$DATA(^DIC(213.9,1))
DO ADDNEW
+5 SET DA=1
SET DR="2;8;7.1;7.2;7.3;11;12;10.6;S:'(DUZ(0)[""@"") Y=""@1"";3;4;@1"
SET DIE="^DIC(213.9,"
DO ^DIE
KILL DIE
+6 DO ^NURSKILL
+7 QUIT
ADDNEW ; ADD NEW PARAMETERS FOR THIS SITE
+1 SET $PIECE(^DIC(213.9,1,0),"^",1)="ONE"
SET ^DIC(213.9,1,"OFF")=0
SET DIK="^DIC(213.9,"
DO IXALL^DIK
+2 QUIT
