- 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 Feb 18, 2025@23:15:55 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 ;