Call Graph
Call Graph Total: 4
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 3 | ^%DTC (,$$FIND1)^DIC FILE^DIE |
| Patient Data Exchange | 1 | $$NOW^VAQUTL99 |
VAQUTL97 ;ALB/JFP,JRP - PDX Patient Lookup ;24-JAN-93
Source file <VAQUTL97.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 3 | ^%DTC (,$$FIND1)^DIC FILE^DIE |
| Patient Data Exchange | 1 | $$NOW^VAQUTL99 |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGSL(38.1 - [#38.1] | GETSEN+9, GETSEN+10 |
| ^DIC(4 - [#4] | GETINST+14, GETINST+15 |
| ^DIC(4.2 - [#4.2] | CLOSED+4, GETINST+13 |
| ^VAT(394.61 - [#394.61] | EXPTRN+11, EXPTRN+15, EXPTRN+16, CLOSTRAN+6 |
| ^VAT(394.81 - [#394.81] | EXPTRN+20 |
| Name | Line Occurrences |
|---|---|
| $$CLOSED | CLOSDOM+3, CLOSTRAN+6 |
| SETPURGE | CLOSDOM+4, CLOSTRAN+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | GETSEN~, GETSEN+6, GETSEN+7, GETSEN+8, GETSEN+9, GETSEN+10 |
| DGSENFLG | GETDFN+15*, GETDFN+17! |
| DIC | GETDFN+2~, GETDFN+13* |
| DIC(0 | GETDFN+7*, GETDFN+8*, GETDFN+10*, GETDFN+11* |
| DOMAIN | CLOSDOM~, CLOSDOM+3, CLOSED~, CLOSED+3, GETINST~, GETINST+9, GETINST+11 |
| DOMNO | GETINST+6~, GETINST+11*, GETINST+12, GETINST+13 |
| >> DTOUT | GETDFN+19 |
| >> DUOUT | GETDFN+20 |
| INST | GETINST+6~, GETINST+15*, GETINST+16, GETINST+17 |
| INSTDA | GETINST+6~, GETINST+13*, GETINST+14 |
| LDAY | EXPTRN+10~, EXPTRN+20*, EXPTRN+21, EXPTRN+24 |
| NODE | CLOSTRAN~, CLOSTRAN+6 |
| PATIENT | GETDFN~, GETDFN+4*, GETDFN+8, GETDFN+9, GETDFN+12 |
| PURGE | EXPTRN+10~, EXPTRN+11*, EXPTRN+12 |
| RESULT | GETDFN+2~, GETDFN+9* |
| STNO | GETINST+6~, GETINST+14*, GETINST+15 |
| TASK | GETDFN~, GETDFN+5*, GETDFN+8, GETDFN+9, GETDFN+10, GETDFN+11, GETDFN+15 |
| TRANDA | EXPTRN~, EXPTRN+11, EXPTRN+15, EXPTRN+16, CLOSDOM~, CLOSDOM+4, CLOSTRAN~, CLOSTRAN+6, CLOSTRAN+7, SETPURGE~ , SETPURGE+2 |
| U | GETSEN+10, EXPTRN+11, EXPTRN+15, EXPTRN+16, EXPTRN+20, CLOSTRAN+6, CLOSED+4, GETINST+13, GETINST+15 |
| USRABORT | GETDFN+2~, GETDFN+3*, GETDFN+9, GETDFN+19, GETDFN+20 |
| VFDA | SETPURGE+1~ |
| VFDA( | SETPURGE+2* |
| VIEN | CLOSED+2~, CLOSED+3*, CLOSED+4 |
| X | GETDFN+2~, GETDFN+12*, EXPTRN+10~, EXPTRN+24 |
| >> X1 | EXPTRN+14* |
| >> X2 | EXPTRN+15*, EXPTRN+16*, EXPTRN+17*, EXPTRN+18 |
| Y | GETDFN+2~, GETDFN+21 |
