PXRMUID.m

PXRMUID ;SLC/PKR - Coding systems that can be used in a dialog. ;05/22/2017

 ;;2.0;CLINICAL REMINDERS;**42,65**;Feb 04, 2005;Build 438

 ;

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

UIDOK(CODESYS) ;List of coding systems that can be in a dialog.

 I CODESYS="10D" Q 1

 I CODESYS="CPC" Q 1

 I CODESYS="CPT" Q 1

 I CODESYS="ICD" Q 1

 I CODESYS="SCT" Q 0

 ;I CODESYS="VSE" Q 0

 Q 0

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXRMUID   394     printed  Sep 11, 2024@02:09:46                                                                                                                                                                                                      Page 2

PXRMUID   ;SLC/PKR - Coding systems that can be used in a dialog. ;05/22/2017

 +1       ;;2.0;CLINICAL REMINDERS;**42,65**;Feb 04, 2005;Build 438

 +2       ;

 +3       ;=========================================

UIDOK(CODESYS) ;List of coding systems that can be in a dialog.

 +1        IF CODESYS="10D"

               QUIT 1

 +2        IF CODESYS="CPC"

               QUIT 1

 +3        IF CODESYS="CPT"

               QUIT 1

 +4        IF CODESYS="ICD"

               QUIT 1

 +5        IF CODESYS="SCT"

               QUIT 0

 +6       ;I CODESYS="VSE" Q 0

 +7        QUIT 0

 +8       ;