BGUGPLK ; IHS/OIT/MJL - GENERAL PATIENT LOOKUP FOR BGU WINDOWS ;
Source file <BGUGPLK.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CHRT | ;EXACT MATCH FIND - 1 to 6 digits (No Leading zeros)
|
|
PTLIST(RESULT,BGUGX,BGUGMAX,BGUGMORE,BGUGPRAM) | ||
DOB | ;LOOK UP BY DOB- EXACT MATCH FIND
|
|
FMTOUT | ;FMT output
|
|
DICFIND | ;SETUP to call FIND^DIC() - BGUGSCRN code is executed in ^DICF3
|
|
SSN | ;EXACT MATCH FIND
|
|
KILL | ;
|
|
DICLST | ;SETUP to call LIST^DIC( ) - BGUGSCRN code is executed in ^DIL2C
|
|
LSTNMA | ;
|
|
A1N4 | ;LIST BY A1N4
|
|
LSTNM | ;Partial last name search
|
RPC Name | Call Tags |
---|---|
BGU GETPATIENTLIST | PTLIST |
BPC GETPATIENTLIST | PTLIST |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNPAT - [#9000001] | FMTOUT+7, LSTNMA+3 |
^DD("DD" | FMTOUT+5, LSTNMA+1 |
^DPT - [#2] | FMTOUT+5, FMTOUT+8, LSTNM+7, LSTNMA+1, LSTNMA+4 |
^DPT("B" | LSTNM+1, LSTNM+6, LSTNM+7, LSTNM+10 |
Name | Line Occurrences |
---|---|
A1N4 | PTLIST+37 |
CHRT | PTLIST+47 |
DICFIND | DOB+4, SSN+4, CHRT+5 |
DICLST | A1N4+5 |
DOB | PTLIST+40 |
FMTOUT | A1N4+5, DOB+4, SSN+4, CHRT+5 |
KILL | PTLIST+50, A1N4+5, DOB+4, SSN+4, CHRT+5 |
LSTNM | PTLIST+50 |
LSTNMA | LSTNM+7 |
SSN | PTLIST+43 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | LSTNM+1*, LSTNM+6*, LSTNM+7, LSTNM+8, LSTNM+9, LSTNM+10*, LSTNMA+3, KILL+1! |
BGUAGEG | KILL+1! |
BGUBYR | KILL+1! |
BGUD | KILL+1! |
BGUDATA | PTLIST+28! |
BGUEYR | KILL+1! |
BGUGCHRT | FMTOUT+1~ |
BGUGCNT | PTLIST+29~, LSTNM+2*, LSTNM+6, LSTNM+7, LSTNM+8, LSTNM+9*, LSTNM+10*, LSTNM+12, LSTNMA+2*, LSTNMA+3 , LSTNMA+5, LSTNMA+6, KILL+1! |
BGUGCTR | FMTOUT+2*, FMTOUT+9*, FMTOUT+10, FMTOUT+12, FMTOUT+13, KILL+3! |
BGUGDFN | PTLIST+29~, FMTOUT+1~, FMTOUT+4*, FMTOUT+5, FMTOUT+7, FMTOUT+8, FMTOUT+9, FMTOUT+12, LSTNM+3*, LSTNM+7* , LSTNM+9, LSTNM+10*, LSTNMA+1, LSTNMA+3, LSTNMA+4, KILL+1! |
BGUGFILE | A1N4+1*, DOB+2*, SSN+2*, CHRT+3*, DICLST+4, DICFIND+4, KILL+3! |
BGUGFLDS | A1N4+1*, DOB+2*, SSN+2*, CHRT+3*, DICLST+4, DICFIND+4, KILL+3! |
BGUGFLGS | DICLST+1*, DICLST+4, DICFIND+1*, DICFIND+4, KILL+3! |
BGUGFROM | DICLST+2*, DICLST+4, KILL+3! |
BGUGGL | LSTNM+4*, LSTNM+6, LSTNM+8, KILL+4! |
BGUGGLB | FMTOUT+1~, FMTOUT+2*, FMTOUT+3, FMTOUT+4, KILL+3! |
>> BGUGGLOC | FMTOUT+8*, FMTOUT+9, LSTNMA+4*, LSTNMA+5 |
>> BGUGHRCN | FMTOUT+7*, FMTOUT+9 |
BGUGIDFR | DICLST+3*, DICLST+4, DICFIND+3*, DICFIND+4, KILL+4! |
BGUGIEN | DICLST+1*, DICLST+4, DICFIND+1*, DICFIND+4, KILL+4! |
BGUGINDX | A1N4+1*, DOB+2*, SSN+2*, CHRT+3*, DICLST+4, DICFIND+4, KILL+4! |
BGUGMAX | PTLIST~, DICLST+2, DICFIND+2, FMTOUT+12, LSTNM+6, LSTNM+7, LSTNM+8, KILL+1! |
BGUGMORE | PTLIST~, LSTNM+1, LSTNM+3 |
>> BGUGMROT | PTLIST+33*, DICFIND+4 |
BGUGNM | FMTOUT+1~, FMTOUT+4*, FMTOUT+9, KILL+5! |
BGUGNUM | DICLST+2*, DICLST+4, DICFIND+2*, DICFIND+4, KILL+5! |
>> BGUGNX | A1N4+4*, DOB+3*, SSN+3*, CHRT+4*, FMTOUT+12 |
BGUGOUT | FMTOUT+1~, FMTOUT+2*, FMTOUT+9, FMTOUT+10, FMTOUT+12, FMTOUT+13, KILL+5! |
BGUGPART | DICLST+3*, DICLST+4, KILL+5! |
BGUGPRAM | PTLIST~ |
BGUGQT | PTLIST+30*, PTLIST+33, FMTOUT+2, KILL+5! |
BGUGQTR | KILL+2! |
BGUGROOT | PTLIST+32*, PTLIST+33, FMTOUT+2, KILL+5! |
BGUGSCRN | CHRT+2*, DICLST+3*, DICLST+4, DICFIND+3*, DICFIND+4, KILL+5! |
BGUGSSN | FMTOUT+1~, FMTOUT+6*, FMTOUT+9, KILL+4! |
>> BGUGSTRT | FMTOUT+11*, FMTOUT+12 |
BGUGTROT | PTLIST+32*, PTLIST+34, DICLST+4, DICFIND+4, KILL+5! |
BGUGVAL | DICFIND+2*, DICFIND+4, FMTOUT+5*, FMTOUT+6, LSTNMA+1*, LSTNMA+3, KILL+4! |
BGUGX | PTLIST~, PTLIST+37, PTLIST+40, PTLIST+43, PTLIST+47, A1N4+1, A1N4+2*, A1N4+3*, DICLST+2, DICFIND+2 , LSTNM+1, LSTNM+4, LSTNM+6, LSTNM+8 |
BGUGZROS | PTLIST+29~, KILL+4! |
BGUINC | KILL+1! |
BGUJ | KILL+1! |
BGUOBJ | KILL+2! |
BGUOBJN | KILL+2! |
BGUOBJV | KILL+2! |
BGUPARM | KILL+2! |
BGURTN | KILL+2! |
BGUSEX | FMTOUT+5*, FMTOUT+9, LSTNMA+1*, LSTNMA+6, KILL+5! |
BGUYQ | KILL+2! |
BGUYR | KILL+2! |
DUZ(2 | FMTOUT+7, LSTNMA+3 |
I | FMTOUT+1~, FMTOUT+3*, FMTOUT+4, KILL+6! |
RESULT | PTLIST~, PTLIST+28! |
RESULT( | PTLIST+30*, LSTNM+9*, LSTNM+10*, LSTNM+12*, LSTNMA+3*, LSTNMA+5*, LSTNMA+6* |
U | FMTOUT+5, FMTOUT+6, FMTOUT+7, FMTOUT+8, FMTOUT+9, LSTNMA+1, LSTNMA+3, LSTNMA+4, LSTNMA+5, LSTNMA+6 |
X1 | A1N4+1*, A1N4+3*, KILL+6! |
X2 | A1N4+1*, A1N4+2*, A1N4+3, KILL+6! |
>> Y | FMTOUT+5*, FMTOUT+9, LSTNMA+1*, LSTNMA+3 |