PXRMP83I.m

PXRMP83I ;ISP/AGP - PATCH 83 INSTALLATION ;10/06/2022

 ;;2.0;CLINICAL REMINDERS;**83**;Feb 04, 2005;Build 14

 ;

POST ;Post-init

 ;Install Exchange File entries.

 D RENAME

 ;Enable options and protocols

 D OPTIONS^PXRMUTIL("ENABLE","Install of PXRM*2.0*83")

 D PROTCOLS^PXRMUTIL("ENABLE","Install of PXRM*2.0*83")

 Q

 ;

PRE ;Pre-init

 ;Disable options and protocols

 D OPTIONS^PXRMUTIL("DISABLE","Install of PXRM*2.0*83")

 D PROTCOLS^PXRMUTIL("DISABLE","Install of PXRM*2.0*83")

 Q

 ;

RENAME ;

 D MES^XPDUTL("Renaming LGBTQ general findings")

 D RENAME^PXRMUTIL(801.46,"LGBTQ NO ANSWER","SO NO ANSWER")

 D RENAME^PXRMUTIL(801.46,"LGBTQ DESCRIPTION","SO DESCRIPTION")

 D RENAME^PXRMUTIL(801.46,"LGBTQ OTHER","SO OTHER")

 D RENAME^PXRMUTIL(801.46,"LGBTQ UNKNOWN","SO UNKNOWN")

 D RENAME^PXRMUTIL(801.46,"LGBTQ QUEER","SO QUEER")

 D RENAME^PXRMUTIL(801.46,"LGBTQ BISEXUAL","SO BISEXUAL")

 D RENAME^PXRMUTIL(801.46,"LGBTQ STRAIGHT","SO STRAIGHT")

 D RENAME^PXRMUTIL(801.46,"LGBTQ HOMOSEXUAL","SO HOMOSEXUAL")

 D RENAME^PXRMUTIL(801.46,"LGBTQ SEXUAL ORIENTATION RECORD ID","SO SEXUAL ORIENTATION RECORD ID")

 D MES^XPDUTL("   Done")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXRMP83I   1164     printed  Apr 09, 2024@20:48:05                                                                                                                                                                                                    Page 2

PXRMP83I  ;ISP/AGP - PATCH 83 INSTALLATION ;10/06/2022

 +1       ;;2.0;CLINICAL REMINDERS;**83**;Feb 04, 2005;Build 14

 +2       ;

POST      ;Post-init

 +1       ;Install Exchange File entries.

 +2        DO RENAME

 +3       ;Enable options and protocols

 +4        DO OPTIONS^PXRMUTIL("ENABLE","Install of PXRM*2.0*83")

 +5        DO PROTCOLS^PXRMUTIL("ENABLE","Install of PXRM*2.0*83")

 +6        QUIT 

 +7       ;

PRE       ;Pre-init

 +1       ;Disable options and protocols

 +2        DO OPTIONS^PXRMUTIL("DISABLE","Install of PXRM*2.0*83")

 +3        DO PROTCOLS^PXRMUTIL("DISABLE","Install of PXRM*2.0*83")

 +4        QUIT 

 +5       ;

RENAME    ;

 +1        DO MES^XPDUTL("Renaming LGBTQ general findings")

 +2        DO RENAME^PXRMUTIL(801.46,"LGBTQ NO ANSWER","SO NO ANSWER")

 +3        DO RENAME^PXRMUTIL(801.46,"LGBTQ DESCRIPTION","SO DESCRIPTION")

 +4        DO RENAME^PXRMUTIL(801.46,"LGBTQ OTHER","SO OTHER")

 +5        DO RENAME^PXRMUTIL(801.46,"LGBTQ UNKNOWN","SO UNKNOWN")

 +6        DO RENAME^PXRMUTIL(801.46,"LGBTQ QUEER","SO QUEER")

 +7        DO RENAME^PXRMUTIL(801.46,"LGBTQ BISEXUAL","SO BISEXUAL")

 +8        DO RENAME^PXRMUTIL(801.46,"LGBTQ STRAIGHT","SO STRAIGHT")

 +9        DO RENAME^PXRMUTIL(801.46,"LGBTQ HOMOSEXUAL","SO HOMOSEXUAL")

 +10       DO RENAME^PXRMUTIL(801.46,"LGBTQ SEXUAL ORIENTATION RECORD ID","SO SEXUAL ORIENTATION RECORD ID")

 +11       DO MES^XPDUTL("   Done")

 +12       QUIT 

 +13      ;