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 ---[H[J[2J[HRORVM001 804 printed Nov 22, 2024@16:54:26 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
