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 |