| [613] | 1 | AUPNLKDP ; IHS/CMI/LAB - PGMR DOCUMENTATION FOR AUPNLK (PATIENT LOOKUP) 24-MAY-1993 ;1/29/07 09:05
|
|---|
| 2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;**167**;Aug 12, 1996;Build 22
|
|---|
| 3 | ;
|
|---|
| 4 | PGMR ; Programmer documentation
|
|---|
| 5 | ;
|
|---|
| 6 | ; There are seven functional routines in the IHS PATIENT LOOKUP:
|
|---|
| 7 | ;
|
|---|
| 8 | ; AUPNLK - Main driver
|
|---|
| 9 | ; AUPNLK1 - Looks up on xrefs
|
|---|
| 10 | ; AUPNLK2 - Adds new patients
|
|---|
| 11 | ; AUPNLK3 - Checks for duplicates
|
|---|
| 12 | ; AUPNLKD - Actual duplicate checking logic. Called by AUPNLK3
|
|---|
| 13 | ; AUPNLKID - Prints identifiers and duplicate patient messages
|
|---|
| 14 | ; AUPNLKUT - Contains functions common to multiple routines
|
|---|
| 15 | ;
|
|---|
| 16 | ; AUPNLKI is the initialization logic for AUPNLK.
|
|---|
| 17 | ;
|
|---|
| 18 | ; Routines broken up because of size will create a new
|
|---|
| 19 | ; routine with B appended (e.g. AUPNLKB & AUPNLK2B).
|
|---|
| 20 | ;
|
|---|
| 21 | ; Use caution with the following variables:
|
|---|
| 22 | ;
|
|---|
| 23 | ; AUPDIC, AUPDICS, AUPDICW - All used to save a variable that needs
|
|---|
| 24 | ; to be restored.
|
|---|
| 25 | ; AUPX - Input value for patient lookup. Common to most routines.
|
|---|
| 26 | ; AUPDFN - Flag indicating lookup status - patient DFN if found.
|
|---|
| 27 | ; Common to most routines.
|
|---|
| 28 | ; AUP("DR") - Used to build DIC("DR") string - AUPNLK2 only.
|
|---|
| 29 | ; AUP("NOPRT^") - Used to suppress printing in PRTAUP^AUPNLKUT.
|
|---|
| 30 | ; Used by AUPNLK and AUPNLK1.
|
|---|
| 31 | ; AUPS(s) - Used to store all xref lookup hits. Used by AUPNLK,
|
|---|
| 32 | ; AUPNLK1, and AUPNLKUT. Contains the patient's NAME_"^"_
|
|---|
| 33 | ; LOOKUP VALUE which caused the hit.
|
|---|
| 34 | ; AUPNICK(s) - Indicates hit on ALIAS. Used by AUPNLK, AUPNLK1,
|
|---|
| 35 | ; AUPNLKUT.
|
|---|
| 36 | ; AUPIFNS(s) - Used to table all xref lookup hits stored by hit
|
|---|
| 37 | ; sequence. Used by AUPNLK, AUPNLK1, and AUPNLKUT.
|
|---|
| 38 | ; AUPCNT - Indicates # of hits stored in AUPIFNS(s). Used by
|
|---|
| 39 | ; AUPNLK, AUPNLK1, and AUPNLKUT.
|
|---|
| 40 | ; AUPNUM - Used to display AUPIFNS(s) list. Used by AUPNLK, AUPNLK1
|
|---|
| 41 | ; and AUPNLKUT.
|
|---|
| 42 | ; AUPSEL - Indicates patient from AUPIFNS(s) selected by user.
|
|---|
| 43 | ; Used by AUPNLK, AUPNLK1, and AUPNLKUT.
|
|---|
| 44 | ; AUPIFN - Patient DFN taken from xrefs by $O. Used by AUPNLK,
|
|---|
| 45 | ; AUPNLK1, and AUPNLKUT.
|
|---|
| 46 | ; AUPIDS(s) - Used to build list of identifiers. Created by
|
|---|
| 47 | ; AUPNLK2 but referenced by AUPNLK3.
|
|---|
| 48 | ; AUPD(s) - List of potential duplicates. Created by AUPNLKD
|
|---|
| 49 | ; but referenced by AUPNLK3.
|
|---|
| 50 | ;
|
|---|
| 51 | M ; MARKER FOR INSERTIONS
|
|---|
