source: WorldVistAEHR/trunk/r/CLINICAL_CASE_REGISTRIES-ROR/RORVM001.m@ 789

Last change on this file since 789 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 771 bytes
Line 
1RORVM001 ;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
7DECODSSN ;
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]
25RNDXACL ;
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.