VADPT0 ;ALB/MRL,MJK,ERC,TDM,ARF,JAM,JMM - PATIENT VARIABLE ROUTINE DRIVER, CONT. ;02/22/2016
Source file <VADPT0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| Q | ||
| INIT | ; -- determine #'s or names then init array
|
|
| 1 | ; -- [DEM] demos
|
|
| 01 | ; -- [DEMUPD] demos with PREFERRED NAME added - DG*5.3*996
|
|
| 2 | ; -- [OPD] other pt vars
|
|
| 3 | ; -- [ADD] current address
|
|
| 4 | ; -- [OAD] other pt vars
|
|
| 5 | ; -- [INP] inpt data -v5
|
|
| 6 | ; -- [IN5] inpt data v5
|
|
| 7 | ; -- [ELIG] elig data
|
|
| 8 | ; -- [MB] $ benefits
|
|
| 9 | ; -- [SVC] service data
|
|
| 10 | ; -- [REG] registration data
|
|
| 11 | ; -- [SDE] clinic enrollment data
|
|
| 12 | ; -- [SDA] appt data
|
|
| 13 | ; -- [PID] pt id's
|
|
| KVAR | ; kill all vadpt data
|
|
| C1 | ||
| C01 | ||
| C2 | ||
| C3 | ||
| C4 | ||
| C5 | ||
| C6 | ||
| C7 | ||
| C8 | ||
| C9 | ||
| C10 | ||
| C11 | ||
| C12 | ||
| C13 | ||
| SS | ; 1^ 2^ 3^ 4^ 5^ 6^ 7^ 8^ 9^10^11^12^13^14^15^16^17^18^19^20^21^22^23^24^25^26^27^28
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
