©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BGUCEKT ; IHS/OIT/MJL - GENERAL PATIENT LOOKUP FOR BGU WINDOWS ;
Source file <BGUCEKT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHRT | ;EXACT MATCH FIND - 1 to 6 digits (No Leading zeros)
|
|
| ZZZ | ;
|
|
| DOB | ;LOOK UP BY DOB- EXACT MATCH FIND
|
|
| FMTOUT | ;FMT output
|
|
| DICFIND | ;SETUP to call FIND^DIC() - SCREEN code is executed in ^DICF3
|
|
| A1N4 | ;LIST
|
|
| SSN | ;EXACT MATCH FIND
|
|
| KILL | ;
|
|
| DICLST | ;SETUP to call LIST^DIC( ) - SCREEN code is executed in ^DIL2C
|
|
| PTLIST(RESULT,X) | ||
| LSTNM | ;Partial last name search
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPAT - [#9000001] | FMTOUT+7, LSTNM+4 |
| ^DD("DD" | FMTOUT+5, LSTNM+4 |
| ^DPT - [#2] | FMTOUT+5, LSTNM+4 |
| ^DPT("B" | LSTNM+1, LSTNM+2, LSTNM+3 |
| Name | Line Occurrences |
|---|---|
| A1N4 | PTLIST+34 |
| CHRT | PTLIST+44 |
| DICFIND | DOB+4, SSN+4, CHRT+8 |
| DICLST | A1N4+5 |
| DOB | PTLIST+37 |
| FMTOUT | A1N4+5, DOB+4, SSN+4, CHRT+8 |
| KILL | PTLIST+47, A1N4+5, DOB+4, SSN+4, CHRT+8 |
| LSTNM | PTLIST+47 |
| SSN | PTLIST+40 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | LSTNM+1*, LSTNM+2*, LSTNM+3, LSTNM+4, LSTNM+5, LSTNM+6, KILL+2! |
| BGUAGEG | KILL+2! |
| BGUBYR | KILL+2! |
| BGUCOUNT | PTLIST+25~, LSTNM+1*, LSTNM+2, LSTNM+4*, LSTNM+5, LSTNM+7, KILL+2! |
| BGUCTR | FMTOUT+2*, FMTOUT+8*, FMTOUT+9, FMTOUT+12, FMTOUT+13, KILL+4! |
| BGUD | KILL+2! |
| BGUDATA | PTLIST+24! |
| BGUDFN | PTLIST+25~, KILL+2! |
| BGUEYR | KILL+2! |
| BGUINC | KILL+2! |
| BGUJ | KILL+2! |
| BGUMAX | PTLIST+25~, PTLIST+26*, DICLST+2, DICFIND+2, FMTOUT+12, LSTNM+2, LSTNM+5, KILL+2! |
| >> BGUNX | A1N4+4*, DOB+3*, SSN+3*, CHRT+7*, FMTOUT+12 |
| BGUOBJ | KILL+3! |
| BGUOBJN | KILL+3! |
| BGUOBJV | KILL+3! |
| BGUPARM | KILL+3! |
| BGUQT | PTLIST+27*, PTLIST+30, FMTOUT+2, KILL+5! |
| BGUQTR | KILL+3! |
| BGUROOT | PTLIST+29*, PTLIST+30, FMTOUT+2, KILL+5! |
| BGURTN | KILL+3! |
| >> BGUSTRT | FMTOUT+11*, FMTOUT+12 |
| BGUYQ | KILL+3! |
| BGUYR | KILL+3! |
| BGUZROS | PTLIST+25~, KILL+6! |
| CHRT | FMTOUT+1~ |
| DFN | FMTOUT+1~, FMTOUT+4*, FMTOUT+5, FMTOUT+7, FMTOUT+8, LSTNM+3*, LSTNM+4 |
| DUZ(2 | FMTOUT+7, LSTNM+4 |
| FIELDS | A1N4+1*, DOB+2*, SSN+2*, CHRT+6*, DICLST+4, DICFIND+4, KILL+4! |
| FILE | A1N4+1*, DOB+2*, SSN+2*, CHRT+6*, DICLST+4, DICFIND+4, KILL+4! |
| FLAGS | DICLST+1*, DICLST+4, DICFIND+1*, DICFIND+4, KILL+4! |
| FROM | DICLST+2*, DICLST+4, KILL+4! |
| GLB | FMTOUT+1~, FMTOUT+2*, FMTOUT+3, FMTOUT+4, KILL+4! |
| >> HRCN | FMTOUT+7*, FMTOUT+8 |
| I | FMTOUT+1~, FMTOUT+3*, FMTOUT+4, LSTNM+2*, LSTNM+4, LSTNM+5, LSTNM+6, KILL+4! |
| IDNTIFIR | DICLST+3*, DICLST+4, DICFIND+3*, DICFIND+4, KILL+4! |
| IEN | DICLST+1*, DICLST+4, DICFIND+1*, DICFIND+4, KILL+4! |
| INDEX | A1N4+1*, DOB+2*, SSN+2*, CHRT+6*, DICLST+4, DICFIND+4, KILL+4! |
| >> MROOT | PTLIST+30*, DICFIND+4, KILL+1 |
| NM | FMTOUT+1~, FMTOUT+4*, FMTOUT+8, KILL+5! |
| NUMBER | DICLST+2*, DICLST+4, DICFIND+2*, DICFIND+4, KILL+5! |
| OUT | FMTOUT+1~, FMTOUT+2*, FMTOUT+8, FMTOUT+9, FMTOUT+12, FMTOUT+13, KILL+5! |
| PART | DICLST+3*, DICLST+4, KILL+5! |
| RESULT | PTLIST~, PTLIST+24! |
| RESULT( | PTLIST+27*, LSTNM+4*, LSTNM+5*, LSTNM+6*, LSTNM+7* |
| SCREEN | CHRT+5*, DICLST+3*, DICLST+4, DICFIND+3*, DICFIND+4, KILL+5! |
| SSN | FMTOUT+1~, FMTOUT+6*, FMTOUT+8, KILL+5! |
| TROOT | PTLIST+29*, PTLIST+30*, PTLIST+31, DICLST+4, DICFIND+4, KILL+1, KILL+5! |
| U | FMTOUT+5, FMTOUT+6, FMTOUT+7, FMTOUT+8, LSTNM+4 |
| VAL | FMTOUT+5*, FMTOUT+6, LSTNM+4*, KILL+5! |
| >> VALUE | DICFIND+2*, DICFIND+4 |
| X | PTLIST~, PTLIST+26*, PTLIST+34, PTLIST+37, PTLIST+40, PTLIST+44, A1N4+1, A1N4+2*, A1N4+3*, DICLST+2 , DICFIND+2, LSTNM+1, LSTNM+2 |
| X1 | A1N4+1*, A1N4+3*, KILL+6! |
| X2 | A1N4+1*, A1N4+2*, A1N4+3, KILL+6! |
| >> Y | FMTOUT+5*, FMTOUT+8, LSTNM+4* |