PXRMTXDL ;SLC/PKR - Reminder Dialog Taxonomy edit routines ;01/13/2015
;;2.0;CLINICAL REMINDERS;**26,47**;Feb 04, 2005;Build 291
;
;===================================
CODEPOST ;Post Action on Change for the Code field of Use in Dialog Codes.
N CODE,CODESYS,ERROR
S CODE=$$GET^DDSVAL(811.24,.DA,.01,.ERROR)
S CODESYS=$$GETCSYS^PXRMLEX(CODE)
D PUT^DDSVAL(811.24,.DA,1,CODESYS,.ERROR)
Q
;
;===================================
POSTSAVE(IEN) ;Form Post Save. Store changes in lists of codes.
N CODE,CODESYS,CSYIND,FDA,KCSYSIND,KFDA,MSG,NSEL,NUID,PDS
N PDS
;Make sure Patient Data Source index is built.
S PDS=$$GET^DDSVAL(811.2,IEN,"PATIENT DATA SOURCE")
I PDS="" D SPDS^PXRMPDS(IEN,PDS)
Q
;
;===================================
SELECT ;Select the taxonomy to create or edit.
N DIC,DLAYGO,IEN,Y
S (DIC,DLAYGO)=811.2,DIC(0)="AEKL"
I $G(PXRMINST)'=1 S DIC("S")="I $P(^(100),U,1)'=""N"""
D FULL^VALM1
D ^DIC
S IEN=$P(Y,U,1)
I IEN=-1 S VALMBCK="R" Q
;Edit the taxonomy
D SMANEDIT^PXRMTXSM(IEN,0,"PXRM DIALOG TAXONOMY EDIT")
S VALMBCK="R"
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMTXDL 1098 printed Dec 13, 2024@01:49:33 Page 2
PXRMTXDL ;SLC/PKR - Reminder Dialog Taxonomy edit routines ;01/13/2015
+1 ;;2.0;CLINICAL REMINDERS;**26,47**;Feb 04, 2005;Build 291
+2 ;
+3 ;===================================
CODEPOST ;Post Action on Change for the Code field of Use in Dialog Codes.
+1 NEW CODE,CODESYS,ERROR
+2 SET CODE=$$GET^DDSVAL(811.24,.DA,.01,.ERROR)
+3 SET CODESYS=$$GETCSYS^PXRMLEX(CODE)
+4 DO PUT^DDSVAL(811.24,.DA,1,CODESYS,.ERROR)
+5 QUIT
+6 ;
+7 ;===================================
POSTSAVE(IEN) ;Form Post Save. Store changes in lists of codes.
+1 NEW CODE,CODESYS,CSYIND,FDA,KCSYSIND,KFDA,MSG,NSEL,NUID,PDS
+2 NEW PDS
+3 ;Make sure Patient Data Source index is built.
+4 SET PDS=$$GET^DDSVAL(811.2,IEN,"PATIENT DATA SOURCE")
+5 IF PDS=""
DO SPDS^PXRMPDS(IEN,PDS)
+6 QUIT
+7 ;
+8 ;===================================
SELECT ;Select the taxonomy to create or edit.
+1 NEW DIC,DLAYGO,IEN,Y
+2 SET (DIC,DLAYGO)=811.2
SET DIC(0)="AEKL"
+3 IF $GET(PXRMINST)'=1
SET DIC("S")="I $P(^(100),U,1)'=""N"""
+4 DO FULL^VALM1
+5 DO ^DIC
+6 SET IEN=$PIECE(Y,U,1)
+7 IF IEN=-1
SET VALMBCK="R"
QUIT
+8 ;Edit the taxonomy
+9 DO SMANEDIT^PXRMTXSM(IEN,0,"PXRM DIALOG TAXONOMY EDIT")
+10 SET VALMBCK="R"
+11 QUIT
+12 ;
