RORVM001.m

RORVM001 ;HCIOFO/SG - MAINTENANCE OPTIONS ; 1/23/06 11:39am

 ;;1.5;CLINICAL CASE REGISTRIES;;Feb 17, 2006

 ;

 Q

 ;

 ;***** DECODE SSN

DECODSSN ;

 Q:'$$ACCESS^RORDD(798)

 N EXIT,DA,DIR,DIRUT,DTOUT,DUOUT,X,Y

 S EXIT=0

 S DIR(0)="FO^9:13"

 S DIR("A")="Coded SSN"

 S DIR("?")="Enter a coded Social Security Number."

 F  D  Q:EXIT

 . D ^DIR

 . I $G(Y)=""  S EXIT=1  Q

 . S X=$$XOR^RORUTL03(Y)

 . W ?30,"SSN: "_X

 . W:X'?9N.1A " ??"

 ;---

 Q

 ;

 ;***** REBUILDS THE "ACL" CROSS-REFERENCE (USER ACCESS)

 ; OPTION: [RORMNT ACL REINDEX]

RNDXACL ;

 N DA,DIR,DIROUT,DIRUT,DTOUT,X,Y

 S DIR(0)="Y",DIR("B")="NO"

 S DIR("A")="Do you want to reindex the ACL cross-reference"

 D BLD^DIALOG(7980000.007,,,"DIR(""?"")","S")

 D ^DIR

 I $G(Y)  D  W !!,"Done."

 . S X=$$RNDXACL^RORUTL11()

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RORVM001   804     printed  Apr 09, 2024@20:48:49                                                                                                                                                                                                     Page 2

RORVM001  ;HCIOFO/SG - MAINTENANCE OPTIONS ; 1/23/06 11:39am

 +1       ;;1.5;CLINICAL CASE REGISTRIES;;Feb 17, 2006

 +2       ;

 +3        QUIT 

 +4       ;

 +5       ;***** DECODE SSN

DECODSSN  ;

 +1        if '$$ACCESS^RORDD(798)

               QUIT 

 +2        NEW EXIT,DA,DIR,DIRUT,DTOUT,DUOUT,X,Y

 +3        SET EXIT=0

 +4        SET DIR(0)="FO^9:13"

 +5        SET DIR("A")="Coded SSN"

 +6        SET DIR("?")="Enter a coded Social Security Number."

 +7        FOR 

               Begin DoDot:1

 +8                DO ^DIR

 +9                IF $GET(Y)=""

                       SET EXIT=1

                       QUIT 

 +10               SET X=$$XOR^RORUTL03(Y)

 +11               WRITE ?30,"SSN: "_X

 +12               if X'?9N.1A

                       WRITE " ??"

               End DoDot:1

               if EXIT

                   QUIT 

 +13      ;---

 +14       QUIT 

 +15      ;

 +16      ;***** REBUILDS THE "ACL" CROSS-REFERENCE (USER ACCESS)

 +17      ; OPTION: [RORMNT ACL REINDEX]

RNDXACL   ;

 +1        NEW DA,DIR,DIROUT,DIRUT,DTOUT,X,Y

 +2        SET DIR(0)="Y"

           SET DIR("B")="NO"

 +3        SET DIR("A")="Do you want to reindex the ACL cross-reference"

 +4        DO BLD^DIALOG(7980000.007,,,"DIR(""?"")","S")

 +5        DO ^DIR

 +6        IF $GET(Y)

               Begin DoDot:1

 +7                SET X=$$RNDXACL^RORUTL11()

               End DoDot:1

               WRITE !!,"Done."

 +8        QUIT