Last change
on this file since 861 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
771 bytes
|
Rev | Line | |
---|
[613] | 1 | RORVM001 ;HCIOFO/SG - MAINTENANCE OPTIONS ; 1/23/06 11:39am
|
---|
| 2 | ;;1.5;CLINICAL CASE REGISTRIES;;Feb 17, 2006
|
---|
| 3 | ;
|
---|
| 4 | Q
|
---|
| 5 | ;
|
---|
| 6 | ;***** DECODE SSN
|
---|
| 7 | DECODSSN ;
|
---|
| 8 | Q:'$$ACCESS^RORDD(798)
|
---|
| 9 | N EXIT,DA,DIR,DIRUT,DTOUT,DUOUT,X,Y
|
---|
| 10 | S EXIT=0
|
---|
| 11 | S DIR(0)="FO^9:13"
|
---|
| 12 | S DIR("A")="Coded SSN"
|
---|
| 13 | S DIR("?")="Enter a coded Social Security Number."
|
---|
| 14 | F D Q:EXIT
|
---|
| 15 | . D ^DIR
|
---|
| 16 | . I $G(Y)="" S EXIT=1 Q
|
---|
| 17 | . S X=$$XOR^RORUTL03(Y)
|
---|
| 18 | . W ?30,"SSN: "_X
|
---|
| 19 | . W:X'?9N.1A " ??"
|
---|
| 20 | ;---
|
---|
| 21 | Q
|
---|
| 22 | ;
|
---|
| 23 | ;***** REBUILDS THE "ACL" CROSS-REFERENCE (USER ACCESS)
|
---|
| 24 | ; OPTION: [RORMNT ACL REINDEX]
|
---|
| 25 | RNDXACL ;
|
---|
| 26 | N DA,DIR,DIROUT,DIRUT,DTOUT,X,Y
|
---|
| 27 | S DIR(0)="Y",DIR("B")="NO"
|
---|
| 28 | S DIR("A")="Do you want to reindex the ACL cross-reference"
|
---|
| 29 | D BLD^DIALOG(7980000.007,,,"DIR(""?"")","S")
|
---|
| 30 | D ^DIR
|
---|
| 31 | I $G(Y) D W !!,"Done."
|
---|
| 32 | . S X=$$RNDXACL^RORUTL11()
|
---|
| 33 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.