PXRMTXDL.m

PXRMTXDL ;SLC/PKR - Reminder Dialog Taxonomy edit routines ;10/31/2013

 ;;2.0;CLINICAL REMINDERS;**26**;Feb 04, 2005;Build 404

 ;

 ;===================================

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"

 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

 ;

PXRMTXDL  ;SLC/PKR - Reminder Dialog Taxonomy edit routines ;10/31/2013

 +1       ;;2.0;CLINICAL REMINDERS;**26**;Feb 04, 2005;Build 404

 +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        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      ;