ORY71.m

ORY71 ; SLC/MKB - Postinit for patch OR*3*71 ;11/4/99  08:36

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**71**;Dec 17, 1997

 ;

EN ; -- remove screen from Specimen field in Lab dialog

 ;

 N DLG,PTR,DA

 S DLG=+$O(^ORD(101.41,"AB","LR OTHER LAB TESTS",0)) Q:'DLG

 S ^ORD(101.41,DLG,4)="K ORTIME,ORCOLLCT,ORMAX,ORTEST,ORDIV,ORIMTIME,ORSMAX,ORSTMS,ORSCH,ORCAT" ;add ORCAT to K stmt

 S PTR=+$O(^ORD(101.41,"AB","OR GTX SPECIMEN",0)) I PTR D

 . S DA=+$O(^ORD(101.41,DLG,10,"D",PTR,0))

 . K:DA ^ORD(101.41,DLG,10,DA,4)

 S PTR=+$O(^ORD(101.41,"AB","OR GTX ADMIN SCHEDULE",0)) I PTR D

 . S DA=+$O(^ORD(101.41,DLG,10,"D",PTR,0))

 . S:DA ^ORD(101.41,DLG,10,DA,6)="D XSCH^ORCDLR"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ORY71   679     printed  Apr 09, 2024@21:24:24                                                                                                                                                                                                        Page 2

ORY71     ; SLC/MKB - Postinit for patch OR*3*71 ;11/4/99  08:36

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**71**;Dec 17, 1997

 +2       ;

EN        ; -- remove screen from Specimen field in Lab dialog

 +1       ;

 +2        NEW DLG,PTR,DA

 +3        SET DLG=+$ORDER(^ORD(101.41,"AB","LR OTHER LAB TESTS",0))

           if 'DLG

               QUIT 

 +4       ;add ORCAT to K stmt

           SET ^ORD(101.41,DLG,4)="K ORTIME,ORCOLLCT,ORMAX,ORTEST,ORDIV,ORIMTIME,ORSMAX,ORSTMS,ORSCH,ORCAT"

 +5        SET PTR=+$ORDER(^ORD(101.41,"AB","OR GTX SPECIMEN",0))

           IF PTR

               Begin DoDot:1

 +6                SET DA=+$ORDER(^ORD(101.41,DLG,10,"D",PTR,0))

 +7                if DA

                       KILL ^ORD(101.41,DLG,10,DA,4)

               End DoDot:1

 +8        SET PTR=+$ORDER(^ORD(101.41,"AB","OR GTX ADMIN SCHEDULE",0))

           IF PTR

               Begin DoDot:1

 +9                SET DA=+$ORDER(^ORD(101.41,DLG,10,"D",PTR,0))

 +10               if DA

                       SET ^ORD(101.41,DLG,10,DA,6)="D XSCH^ORCDLR"

               End DoDot:1

 +11       QUIT