AUPNLKDP.m

AUPNLKDP ; IHS/CMI/LAB - PGMR DOCUMENTATION FOR AUPNLK (PATIENT LOOKUP) 24-MAY-1993 ;

 ;;99.1;IHS DICTIONARIES (PATIENT);;MAR 09, 1999

 ;

PGMR ; Programmer documentation

 ;

 ;  There are seven functional routines in the IHS PATIENT LOOKUP:

 ;

 ;  AUPNLK   - Main driver

 ;  AUPNLK1  - Looks up on xrefs

 ;  AUPNLK2  - Adds new patients

 ;  AUPNLK3  - Checks for duplicates

 ;  AUPNLKD  - Actual duplicate checking logic.  Called by AUPNLK3

 ;  AUPNLKID - Prints identifiers and duplicate patient messages

 ;  AUPNLKUT - Contains functions common to multiple routines

 ;

 ;  AUPNLKI is the initialization logic for AUPNLK.

 ;

 ;  Routines broken up because of size will create a new

 ;  routine with B appended (e.g. AUPNLKB & AUPNLK2B).

 ;

 ;  Use caution with the following variables:

 ;

 ;  AUPDIC, AUPDICS, AUPDICW - All used to save a variable that needs

 ;                             to be restored.

 ;  AUPX - Input value for patient lookup.  Common to most routines.

 ;  AUPDFN - Flag indicating lookup status - patient DFN if found.

 ;           Common to most routines.

 ;  AUP("DR") - Used to build DIC("DR") string - AUPNLK2 only.

 ;  AUP("NOPRT^") - Used to suppress printing in PRTAUP^AUPNLKUT.

 ;                  Used by AUPNLK and AUPNLK1.

 ;  AUPS(s) - Used to store all xref lookup hits.  Used by AUPNLK,

 ;            AUPNLK1, and AUPNLKUT.  Contains the patient's NAME_"^"_

 ;            LOOKUP VALUE which caused the hit.

 ;  AUPNICK(s) - Indicates hit on ALIAS.  Used by AUPNLK, AUPNLK1,

 ;               AUPNLKUT.

 ;  AUPIFNS(s) - Used to table all xref lookup hits stored by hit

 ;               sequence.  Used by AUPNLK, AUPNLK1, and AUPNLKUT.

 ;  AUPCNT - Indicates # of hits stored in AUPIFNS(s).  Used by

 ;           AUPNLK, AUPNLK1, and AUPNLKUT.

 ;  AUPNUM - Used to display AUPIFNS(s) list.  Used by AUPNLK, AUPNLK1

 ;           and AUPNLKUT.

 ;  AUPSEL - Indicates patient from AUPIFNS(s) selected by user.

 ;           Used by AUPNLK, AUPNLK1, and AUPNLKUT.

 ;  AUPIFN - Patient DFN taken from xrefs by $O.  Used by AUPNLK,

 ;           AUPNLK1, and AUPNLKUT.

 ;  AUPIDS(s) - Used to build list of identifiers.  Created by

 ;              AUPNLK2 but referenced by AUPNLK3.

 ;  AUPD(s) - List of potential duplicates.  Created by AUPNLKD

 ;            but referenced by AUPNLK3.

 ;

M ; MARKER FOR INSERTIONS

AUPNLKDP  ; IHS/CMI/LAB - PGMR DOCUMENTATION FOR AUPNLK (PATIENT LOOKUP) 24-MAY-1993 ;

 +1       ;;99.1;IHS DICTIONARIES (PATIENT);;MAR 09, 1999

 +2       ;

PGMR      ; Programmer documentation

 +1       ;

 +2       ;  There are seven functional routines in the IHS PATIENT LOOKUP:

 +3       ;

 +4       ;  AUPNLK   - Main driver

 +5       ;  AUPNLK1  - Looks up on xrefs

 +6       ;  AUPNLK2  - Adds new patients

 +7       ;  AUPNLK3  - Checks for duplicates

 +8       ;  AUPNLKD  - Actual duplicate checking logic.  Called by AUPNLK3

 +9       ;  AUPNLKID - Prints identifiers and duplicate patient messages

 +10      ;  AUPNLKUT - Contains functions common to multiple routines

 +11      ;

 +12      ;  AUPNLKI is the initialization logic for AUPNLK.

 +13      ;

 +14      ;  Routines broken up because of size will create a new

 +15      ;  routine with B appended (e.g. AUPNLKB & AUPNLK2B).

 +16      ;

 +17      ;  Use caution with the following variables:

 +18      ;

 +19      ;  AUPDIC, AUPDICS, AUPDICW - All used to save a variable that needs

 +20      ;                             to be restored.

 +21      ;  AUPX - Input value for patient lookup.  Common to most routines.

 +22      ;  AUPDFN - Flag indicating lookup status - patient DFN if found.

 +23      ;           Common to most routines.

 +24      ;  AUP("DR") - Used to build DIC("DR") string - AUPNLK2 only.

 +25      ;  AUP("NOPRT^") - Used to suppress printing in PRTAUP^AUPNLKUT.

 +26      ;                  Used by AUPNLK and AUPNLK1.

 +27      ;  AUPS(s) - Used to store all xref lookup hits.  Used by AUPNLK,

 +28      ;            AUPNLK1, and AUPNLKUT.  Contains the patient's NAME_"^"_

 +29      ;            LOOKUP VALUE which caused the hit.

 +30      ;  AUPNICK(s) - Indicates hit on ALIAS.  Used by AUPNLK, AUPNLK1,

 +31      ;               AUPNLKUT.

 +32      ;  AUPIFNS(s) - Used to table all xref lookup hits stored by hit

 +33      ;               sequence.  Used by AUPNLK, AUPNLK1, and AUPNLKUT.

 +34      ;  AUPCNT - Indicates # of hits stored in AUPIFNS(s).  Used by

 +35      ;           AUPNLK, AUPNLK1, and AUPNLKUT.

 +36      ;  AUPNUM - Used to display AUPIFNS(s) list.  Used by AUPNLK, AUPNLK1

 +37      ;           and AUPNLKUT.

 +38      ;  AUPSEL - Indicates patient from AUPIFNS(s) selected by user.

 +39      ;           Used by AUPNLK, AUPNLK1, and AUPNLKUT.

 +40      ;  AUPIFN - Patient DFN taken from xrefs by $O.  Used by AUPNLK,

 +41      ;           AUPNLK1, and AUPNLKUT.

 +42      ;  AUPIDS(s) - Used to build list of identifiers.  Created by

 +43      ;              AUPNLK2 but referenced by AUPNLK3.

 +44      ;  AUPD(s) - List of potential duplicates.  Created by AUPNLKD

 +45      ;            but referenced by AUPNLK3.

 +46      ;

M         ; MARKER FOR INSERTIONS