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

ORY558.m

Go to the documentation of this file.

ORY558 ;ISP/JLC - POST-INSTALL FOR OR*3.0*558 ;Dec 30, 2021@16:10

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**558**;Dec 17, 1997;Build 15

POST ;DELETE Gender field, is present from demographic report

 N DA,DIK

 S DA=$O(^ORD(101.24,1033,3,"B","Gender","")) Q:DA=""

 S DIK="^ORD(101.24,1033,3,",DA(1)=1033 D ^DIK

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY558   320     printed  Dec 13, 2024@02:42:58                                                                                                                                                                                                       Page 2

ORY558    ;ISP/JLC - POST-INSTALL FOR OR*3.0*558 ;Dec 30, 2021@16:10

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**558**;Dec 17, 1997;Build 15

 +2        QUIT

POST      ;DELETE Gender field, is present from demographic report

 +1        NEW DA,DIK

 +2        SET DA=$ORDER(^ORD(101.24,1033,3,"B","Gender",""))

           if DA=""

               QUIT

 +3        SET DIK="^ORD(101.24,1033,3,"

           SET DA(1)=1033

           DO ^DIK

 +4        QUIT