VAQUTL1 ;ALB/JRP - UTILITY ROUTINES;30-APR-93
Source file <VAQUTL1.m>
Package | Total | Call Graph |
---|---|---|
Registration | 1 | DEM^VADPT |
VA FileMan | 1 | DD^%DT |
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 |