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

ORAPDLG.m

Go to the documentation of this file.
  1. ORAPDLG ;SLC/JNM - LAB ANATOMIC PATHOLOGY ROUTINES ;Feb 18, 2022@14:01:36
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**569**;Dec 17, 1997;Build 23
  1. ;
  1. Q
  1. ;
  1. ; SETNAME and KILLNAME are used by the "AOI" cross reference of the
  1. ; AP DIALOG CONFIG File (#101.45), ORDERABLE ITEM Field (#.04),
  1. ; to set the NAME Field (#.01) to the same as the NAME Field (#.01)
  1. ; of the ORDERABLE ITEM File (#101.43).
  1. ;
  1. SETNAME(DA,X1,X2) ;
  1. N NAME,OLDNAME
  1. S OLDNAME=$P(^ORD(101.45,DA,0),U,1)
  1. S NAME=$P($G(^ORD(101.43,X2,0)),U)
  1. I NAME'="",NAME'=OLDNAME D
  1. . S $P(^ORD(101.45,DA,0),U,1)=NAME
  1. . I OLDNAME'="" K ^ORD(101.45,"B",OLDNAME,DA)
  1. . S ^ORD(101.45,"B",NAME,DA)=""
  1. Q
  1. ;
  1. KILLNAME(DA,X1,X2) ;
  1. ;N NAME
  1. ;S NAME=$P($G(^ORD(101.45,DA,0)),U,1)
  1. ;I NAME'="" D
  1. ;. K ^ORD(101.45,"B",NAME,DA)
  1. Q