- 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 ---[H[J[2J[HPXRMUID 394 printed Feb 18, 2025@23:16:03 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 ;