NURSAPFU.m

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 ---NURSAPFU   524     printed  Apr 09, 2024@21:24: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