VAQUTL1 ;ALB/JRP - UTILITY ROUTINES;30-APR-93
Source file <VAQUTL1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| REPEAT(CHAR,TIMES) | ;REPEAT A STRING
|
|
| INSERT(INSTR,OUTSTR,COLUMN,LENGTH) | ;INSERT A STRING INTO ANOTHER
|
|
| KILLARR(ARRAY,NODE,START,END) | ;KILL NODES OF AN ARRAY
|
|
| PATINFO(DFN) | ;RETURNS PATIENT NAME, SSN, DOB, PATIENT ID
|
|
| PDXVER() | ;RETURN VERSION OF PDX IN USE
|
|
| APDX | ;CONTINUATION OF APDX X-REF ON *PDX TRANSACTION FILE (# 394)
; THIS IS LEFT OVER FROM VERSION 1.0 - INCLUDED TO PASS %INDEX |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(394 | PDXVER+8 |
| ^DD(394.61 | PDXVER+7 |
| ^UTILITY("VADM" | PATINFO+13!, PATINFO+16, PATINFO+17, PATINFO+18, PATINFO+20! |
| ^VAT(394 - [#394] | APDX+2* |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | APDX+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | PATINFO+11~ |
| ARRAY | KILLARR~, KILLARR+24, KILLARR+31, KILLARR+32, KILLARR+35, KILLARR+36, KILLARR+38, KILLARR+39 |
| CHAR | REPEAT~, REPEAT+7, REPEAT+10 |
| COLUMN | INSERT~, INSERT+15*, INSERT+19, INSERT+20 |
| >> DA | APDX+2 |
| DFN | PATINFO~, PATINFO+8*, PATINFO+9 |
| END | INSERT+18~, INSERT+20*, INSERT+22, KILLARR~, KILLARR+27*, KILLARR+40 |
| FRONT | INSERT+18~, INSERT+19*, INSERT+22 |
| INSTR | INSERT~, INSERT+13, INSERT+16, INSERT+22 |
| LENGTH | INSERT~, INSERT+16*, INSERT+20, INSERT+22 |
| LOOP | KILLARR+29~, KILLARR+34* |
| NODE | KILLARR~, KILLARR+25*, KILLARR+31, KILLARR+32, KILLARR+35, KILLARR+36, KILLARR+38, KILLARR+39 |
| OUTSTR | INSERT~, INSERT+14, INSERT+15, INSERT+19, INSERT+20 |
| START | KILLARR~, KILLARR+26*, KILLARR+31, KILLARR+32, KILLARR+35, KILLARR+36 |
| SUBSCRPT | KILLARR+29~, KILLARR+34, KILLARR+35*, KILLARR+36*, KILLARR+37, KILLARR+38, KILLARR+39, KILLARR+40* |
| TIMES | REPEAT~, REPEAT+8, REPEAT+10 |
| TMP | PATINFO+11~, PATINFO+16*, PATINFO+17*, PATINFO+18*, PATINFO+19*, PATINFO+21 |
| U | APDX+2 |
| VA | PATINFO+11~ |
| VA("PID" | PATINFO+19 |
| VAERR | PATINFO+11~, PATINFO+15 |
| VAHOW | PATINFO+11~, PATINFO+12* |
| VAPTYP | PATINFO+11~ |
| VAQ15 | APDX+2, APDX+3! |
| VAQ16 | APDX+2, APDX+3! |
| VAQTMP | APDX+3! |
| VAROOT | PATINFO+11~ |
| X | PDXVER+6~, PDXVER+7*, PDXVER+10, PDXVER+12, PDXVER+14, APDX+2 |
| Y | PATINFO+11~, PATINFO+18*, PDXVER+6~, PDXVER+8*, PDXVER+10, PDXVER+12 |