ORY599.m

ORY599 ;SLC/JLC - MAKE INDICATIONS NOT REQUIRED;Dec 13, 2022

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**599**;Dec 17, 1997;Build 2

 Q

POST ;

 N ORDGIEN,ORPIEN,ORDGITEM

 S ORDGIEN=$O(^ORD(101.41,"B","PSO OERR",""))

 S ORPIEN=$O(^ORD(101.41,"B","OR GTX INDICATION",""))

 I ORDGIEN=""!(ORPIEN="") D MES^XPDUTL("Problem with Outpatient order dialog. Please enter a YourIT ticket for assistance.")

 S ORDGITEM=$O(^ORD(101.41,ORDGIEN,10,"D",ORPIEN,""))

 I ORDGITEM="" D MES^XPDUTL("Indication not on the Outpatient order dialog. Please enter a YourIT ticket for assistance.")

 S $P(^ORD(101.41,ORDGIEN,10,ORDGITEM,0),"^",6)=0

 D MES^XPDUTL("Indication set to not required.")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ORY599   681     printed  Apr 09, 2024@21:32:33                                                                                                                                                                                                       Page 2

ORY599    ;SLC/JLC - MAKE INDICATIONS NOT REQUIRED;Dec 13, 2022

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**599**;Dec 17, 1997;Build 2

 +2        QUIT 

POST      ;

 +1        NEW ORDGIEN,ORPIEN,ORDGITEM

 +2        SET ORDGIEN=$ORDER(^ORD(101.41,"B","PSO OERR",""))

 +3        SET ORPIEN=$ORDER(^ORD(101.41,"B","OR GTX INDICATION",""))

 +4        IF ORDGIEN=""!(ORPIEN="")

               DO MES^XPDUTL("Problem with Outpatient order dialog. Please enter a YourIT ticket for assistance.")

 +5        SET ORDGITEM=$ORDER(^ORD(101.41,ORDGIEN,10,"D",ORPIEN,""))

 +6        IF ORDGITEM=""

               DO MES^XPDUTL("Indication not on the Outpatient order dialog. Please enter a YourIT ticket for assistance.")

 +7        SET $PIECE(^ORD(101.41,ORDGIEN,10,ORDGITEM,0),"^",6)=0

 +8        DO MES^XPDUTL("Indication set to not required.")

 +9        QUIT