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 ---[H[J[2J[HPXRMP83I 1164 printed Dec 13, 2024@01:48:17 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 ;
