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 |