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

PXRMTXDL.m

Go to the documentation of this file.
  1. PXRMTXDL ;SLC/PKR - Reminder Dialog Taxonomy edit routines ;01/13/2015
  1. ;;2.0;CLINICAL REMINDERS;**26,47**;Feb 04, 2005;Build 291
  1. ;
  1. ;===================================
  1. CODEPOST ;Post Action on Change for the Code field of Use in Dialog Codes.
  1. N CODE,CODESYS,ERROR
  1. S CODE=$$GET^DDSVAL(811.24,.DA,.01,.ERROR)
  1. S CODESYS=$$GETCSYS^PXRMLEX(CODE)
  1. D PUT^DDSVAL(811.24,.DA,1,CODESYS,.ERROR)
  1. Q
  1. ;
  1. ;===================================
  1. POSTSAVE(IEN) ;Form Post Save. Store changes in lists of codes.
  1. N CODE,CODESYS,CSYIND,FDA,KCSYSIND,KFDA,MSG,NSEL,NUID,PDS
  1. N PDS
  1. ;Make sure Patient Data Source index is built.
  1. S PDS=$$GET^DDSVAL(811.2,IEN,"PATIENT DATA SOURCE")
  1. I PDS="" D SPDS^PXRMPDS(IEN,PDS)
  1. Q
  1. ;
  1. ;===================================
  1. SELECT ;Select the taxonomy to create or edit.
  1. N DIC,DLAYGO,IEN,Y
  1. S (DIC,DLAYGO)=811.2,DIC(0)="AEKL"
  1. I $G(PXRMINST)'=1 S DIC("S")="I $P(^(100),U,1)'=""N"""
  1. D FULL^VALM1
  1. D ^DIC
  1. S IEN=$P(Y,U,1)
  1. I IEN=-1 S VALMBCK="R" Q
  1. ;Edit the taxonomy
  1. D SMANEDIT^PXRMTXSM(IEN,0,"PXRM DIALOG TAXONOMY EDIT")
  1. S VALMBCK="R"
  1. Q
  1. ;