ORUTL2.m

ORUTL2 ;ALB/DRI - OE/RR Utilities ;6/30/11  17:54

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**315**;Dec 17, 1997;Build 20

 ;

VEIL(ORIEN,STATUS) ;veil, unveil or delete veiled field

 N FDA

 I '$D(^OR(100,ORIEN,0)) Q  ;not a valid order

 I $S(STATUS="@":0,STATUS=0:0,STATUS=1:0,1:1) Q  ;veiled=1, unveiled=0 or delete it

 S FDA(100,ORIEN_",",8)=STATUS

 D FILE^DIE("E","FDA")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ORUTL2   385     printed  Dec 13, 2024@02:34:39                                                                                                                                                                                                       Page 2

ORUTL2    ;ALB/DRI - OE/RR Utilities ;6/30/11  17:54

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**315**;Dec 17, 1997;Build 20

 +2       ;

VEIL(ORIEN,STATUS) ;veil, unveil or delete veiled field

 +1        NEW FDA

 +2       ;not a valid order

           IF '$DATA(^OR(100,ORIEN,0))

               QUIT 

 +3       ;veiled=1, unveiled=0 or delete it

           IF $SELECT(STATUS="@":0,STATUS=0:0,STATUS=1:0,1:1)

               QUIT 

 +4        SET FDA(100,ORIEN_",",8)=STATUS

 +5        DO FILE^DIE("E","FDA")

 +6        QUIT 

 +7       ;