VAQUTL97 ;ALB/JFP,JRP - PDX Patient Lookup ;24-JAN-93
Source file <VAQUTL97.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETDFN(PATIENT,TASK) | ;-- Return DFN of patient
; -- This will return the same information that DIC returns in Y |
|
| GETSEN(DFN) | ; -- Returns code for sensitive patient or not
; INPUT: DFN = Dictionary file number ; OUTPUT: 1 = Sensitive patient ; 0 = Non sensitive ; -1 = Bad input |
|
| EXPTRN(TRANDA) | ; -- Determines if any entry in the transactions file is
; marked for purge or exceed the life days. ; Also checks to make sure that requesting domain is ; not closed. If it is, it marks the transaction file ; entry for purging. ; INPUT : TRANDA DA TO TRANSACTION RECORD ; OUTOUT: -1 error in data ; 0 not expired ; 1 expired |
|
| CLOSDOM(TRANDA,DOMAIN) | ; Function, given domain, returns whether
; the domain is closed or not. (1=closed; 0=not closed) ; If the domain is closed, then the transaction is marked for purging. |
|
| CLOSTRAN(TRANDA,NODE) | ; Function, given transaction number, returns whether
; the domain is closed or not. (1=closed; 0=not closed) ; If NODE="RQST2", we are checking the domain that sent the request. ; If NODE="ATHR2", we are checking the domain to which we are sending ; the request. If the domain is closed, then the transaction is marked ; for purging. |
|
| CLOSED(DOMAIN) | ; Function, given domain name, returns whether the domain
; is closed or not. 1=closed; 0=not closed |
|
| SETPURGE(TRANDA) | ;
|
|
| GETINST(DOMAIN) | ;-- Return name of institution for domain
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| ^DIC(4.2 - [#4.2] | FIND1^DIC |
