SR178PST.m

SR178PST ;ALB/JDG - CORRECT ATTEND CODE IN FILE 133.2 ;2/20/14

 ;;3.0;Surgery;**178**;24 Jun 93;Build 6

 ;

 Q

 ;

SET ; Update the SURGERY INTERFACE PARAMETER (#133.2) file

 D BMES^XPDUTL(">>> Updating the SURGERY INTERFACE PARAMETER (#133.2) file...")

 N DA,DIE,DR,SRFIELD

 S SRFIELD=$O(^SRO(133.2,"AC","ATTENDING CODE",0)) Q:'SRFIELD

 S DIE="^SRO(133.2,",DA=SRFIELD,DR="2///.166"

 D ^DIE

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SR178PST   404     printed  Apr 09, 2024@21:43:27                                                                                                                                                                                                     Page 2

SR178PST  ;ALB/JDG - CORRECT ATTEND CODE IN FILE 133.2 ;2/20/14

 +1       ;;3.0;Surgery;**178**;24 Jun 93;Build 6

 +2       ;

 +3        QUIT 

 +4       ;

SET       ; Update the SURGERY INTERFACE PARAMETER (#133.2) file

 +1        DO BMES^XPDUTL(">>> Updating the SURGERY INTERFACE PARAMETER (#133.2) file...")

 +2        NEW DA,DIE,DR,SRFIELD

 +3        SET SRFIELD=$ORDER(^SRO(133.2,"AC","ATTENDING CODE",0))

           if 'SRFIELD

               QUIT 

 +4        SET DIE="^SRO(133.2,"

           SET DA=SRFIELD

           SET DR="2///.166"

 +5        DO ^DIE

 +6        QUIT