34 lines
771 B
Mathematica
34 lines
771 B
Mathematica
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
|