Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: SR102UTL

SR102UTL.m

Go to the documentation of this file.

SR102UTL ;BIR/ASJ-Utility routine for patch SR*3*102; [04/03/01  09:50 AM ]

 ;;3.0; Surgery ;**102**;24 Jun 93

POST ;

 S SRSITE=0 F  S SRSITE=$O(^SRO(133,"B",SRSITE)) Q:'SRSITE  S SRDA=$O(^SRO(133,"B",SRSITE,0)),$P(^SRO(133,SRDA,0),"^",5)=""

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR102UTL   250     printed  Dec 13, 2024@02:37:57                                                                                                                                                                                                     Page 2

SR102UTL  ;BIR/ASJ-Utility routine for patch SR*3*102; [04/03/01  09:50 AM ]

 +1       ;;3.0; Surgery ;**102**;24 Jun 93

POST      ;

 +1        SET SRSITE=0

FOR

               SET SRSITE=$ORDER(^SRO(133,"B",SRSITE))

               if 'SRSITE

                   QUIT

               SET SRDA=$ORDER(^SRO(133,"B",SRSITE,0))

               SET $PIECE(^SRO(133,SRDA,0),"^",5)=""

 +2        QUIT