AUPNLK ; IHS/CMI/LAB - IHS PATIENT LOOKUP MAIN ROUTINE 24-MAY-1993 ; [ 03/16/2004 7:43 AM ]
Source file <AUPNLK.m>
Package | Total | Call Graph |
---|---|---|
IHS Patient | 4 | (ADDPAT,LOOKUPS)^AUPNLKB ^AUPNLKH ^AUPNLKI (RESET,SET)^AUPNLKZ |
Registration | 2 | ^DGSEC SENS^DGSEC4 |
VA Fileman | 2 | EN^DDIOL YN^DICN |
Package | Total | Caller Graph |
---|---|---|
Case Management System | 1 | ACMLPAT |
IHS Support HL7 Interfaces | 1 | BHLJVN1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
FINDPAT | ; FIND PATIENT
|
|
HIT | ;
|
|
WRT2 | ;
|
|
DUPECHK2 | ; VERIFIED DUPE
|
|
EOJ2 | ;
; - FOLLOW MERGE CHAIN - |
|
EOJ | ;
|
|
KILL | ;
; - RESTORE DIC AND DIC("S") - |
|
START | ;
|
|
WRT | ;
|
|
DUPECHK | ; SELECTED PATIENT HAS UNRESOLVED DUPES
|
|
ASKPAT | ;
|
|
CHKPAT | ;
|
Name | Field # of Occurrence |
---|---|
ADDPAT^AUPNLKB | CHKPAT+10 |
LOOKUPS^AUPNLKB | CHKPAT+8 |
^AUPNLKH | CHKPAT+4 |
^AUPNLKI | START+1 |
RESET^AUPNLKZ | DUPECHK2+2, KILL+7 |
SET^AUPNLKZ | DUPECHK2+2 |
EN^DDIOL | ASKPAT+8, CHKPAT+7, CHKPAT+13, WRT+3, WRT+4, WRT2+1, DUPECHK2+1, DUPECHK2+2, DUPECHK2+3, EOJ2+4 |
^DGSEC | HIT+3 |
SENS^DGSEC4 | HIT+3 |
YN^DICN | WRT2+2 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: READ |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNPAT - [#9000001] | EOJ2+9 |
^DD(2 | HIT+5, EOJ2+11 |
^DD(9000001 | EOJ2+11 |
^DISV( | EOJ2+7* |
^DPT - [#2] | WRT+5, WRT2+1, DUPECHK2+2, EOJ2+3, EOJ2+4, EOJ2+7 |
^VA(15 - [#15] | DUPECHK+1 |
Name | Line Occurrences |
---|---|
ASKPAT | FINDPAT+2 |
CHKPAT | FINDPAT+1, FINDPAT+2 |
DUPECHK | HIT+5 |
DUPECHK2 | DUPECHK+1 |
EOJ | START+2, START+4 |
EOJ2 | EOJ+5 |
FINDPAT | START+3 |
HIT | FINDPAT+1, FINDPAT+2 |
KILL | EOJ+3, EOJ+6 |
WRT | HIT+1 |
WRT2 | WRT+1 |
Name | Field # of Occurrence |
---|---|
^("ACT" | EOJ2+11 |
^(0 | EOJ2+3, EOJ2+7 |
^(2 | DUPECHK+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | CHKPAT+7~*, WRT2+2*, WRT2+3, WRT2+4! |
%Y | WRT2+4! |
AUP | KILL+9! |
AUPBEG | KILL+9! |
AUPCNT | ASKPAT+1!, CHKPAT+2*, KILL+9! |
AUPD | ASKPAT+1! |
AUPDFN | HIT+3*, HIT+4*, HIT+5, WRT+1, WRT+3, WRT+4, WRT+5, WRT2+1, WRT2+3*, EOJ+4 , KILL+9! |
AUPDIC | WRT+1, EOJ+2!, EOJ2+9, EOJ2+13, KILL+2, KILL+9! |
AUPDICS | KILL+4, KILL+9! |
AUPDICW | KILL+9! |
AUPI | KILL+9! |
AUPIDS | ASKPAT+1! |
AUPIFN | ASKPAT+1!, KILL+9! |
AUPIFNS | ASKPAT+1!, CHKPAT+1!, KILL+9! |
AUPIX | KILL+9! |
AUPL | FINDPAT+2*, EOJ2+3*, KILL+9! |
AUPLP1 | KILL+9! |
AUPMAPY | KILL+9! |
AUPMT | DUPECHK+1*, DUPECHK2+2, DUPECHK2+4! |
AUPNDAYS | ASKPAT+1! |
AUPNDOB | ASKPAT+1! |
AUPNDOD | ASKPAT+1! |
AUPNICK | ASKPAT+1!, KILL+9! |
AUPNICK( | WRT+1, WRT+3 |
AUPNLK | KILL+8! |
AUPNLK("ALL" | KILL+7, KILL+8* |
AUPNLK("ICN" | EOJ+1! |
AUPNLOOK | KILL+4! |
AUPNORIG | KILL+4! |
AUPNPAT | ASKPAT+1! |
AUPNSEX | ASKPAT+1! |
AUPNUM | ASKPAT+1!, KILL+9! |
AUPQF | START+2, FINDPAT+1, FINDPAT+2*, CHKPAT+3*, CHKPAT+4*, CHKPAT+6*, CHKPAT+9, CHKPAT+11, CHKPAT+14*, HIT+2 , HIT+3*, WRT+2, WRT2+3*, EOJ+2!, EOJ+3, KILL+9! |
AUPS | ASKPAT+1!, CHKPAT+1!, KILL+9! |
AUPS( | HIT+4, WRT+3, WRT+4 |
AUPSEL | ASKPAT+1!, CHKPAT+1!, WRT+1, WRT+3, WRT+4, KILL+9! |
AUPSY | DUPECHK2+2*, DUPECHK2+4!, EOJ2+2*, EOJ2+4, EOJ2+5! |
AUPX | FINDPAT+1*, ASKPAT+3*, ASKPAT+7*, ASKPAT+10*, CHKPAT+3, CHKPAT+4, CHKPAT+6, CHKPAT+8, HIT+4*, WRT+3 , EOJ+3, EOJ+4, KILL+8*, KILL+9! |
D | KILL+6! |
DA | HIT+5~* |
>> DIADD | CHKPAT+8 |
>> DIC | EOJ2+13*, KILL+2* |
>> DIC("A" | ASKPAT+6 |
>> DIC("B" | ASKPAT+7 |
>> DIC("S" | KILL+4!* |
>> DIC("W" | WRT+5, DUPECHK2+2, EOJ+2!, KILL+6! |
>> DIC(0 | FINDPAT+1, CHKPAT+6, CHKPAT+10, CHKPAT+13, HIT+1, HIT+5, EOJ2+4, EOJ2+7, EOJ2+9 |
>> DICR | HIT+3 |
DO | KILL+6! |
DSPVAL | ASKPAT+6~*, ASKPAT+7*, ASKPAT+8 |
DTIME | ASKPAT+9 |
DTOUT | ASKPAT+1!, ASKPAT+9* |
DUOUT | ASKPAT+1!, ASKPAT+9* |
DUZ | EOJ2+7 |
U | HIT+4, HIT+5, WRT+1, WRT+3, WRT+4, WRT2+1, DUPECHK2+2, EOJ2+3, EOJ2+4, EOJ2+7 , EOJ2+9 |
X | START+5*, FINDPAT+1, ASKPAT+9*, ASKPAT+10, HIT+5~, EOJ+3*, EOJ+4* |
>> Y | HIT+3*, WRT+5*, DUPECHK+1, DUPECHK2+2*, EOJ+2*, EOJ+3*, EOJ+4*, EOJ2+2, EOJ2+3*, EOJ2+4 , EOJ2+7, EOJ2+9* |
>> Y(0 | EOJ2+7*, EOJ2+9* |
Name | Field # of Occurrence |
---|---|
$T(SENS^DGSEC4 | HIT+3 |