VBECLU0 ;HOIFO/BNT - VBECS Patient Lookup Utility ;
Source file <VBECLU0.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BYFILTER(FILTER,FILTERV,BDATE,EDATE,SEARCH,VALUE,DELIM) | ; -- search type by clinic, provider, or ward.
|
|
| FILTCHK(DFN,TYPE,VALUE) | ; -- Filter search -
; -- check patients to match search type and search value for filter searchs ; -- returns 1 if matchs, 0 if no match |
|
| WARDPTS(WARD) | ; RETURN LIST OF PATIENTS IN A WARD
; Based on ORQPTQ2 |
|
| PROVPTS(PROV) | ; RETURN LIST OF PATIENTS LINKED TO A PRIMARY PROVIDER
; Based on ORQPTQ2 ; "APR" xref is on field PROVIDER in file 2 (2;.104) ; "AAP" xref is on field ATTENDING PHYSICIAN in file 2 (2;.1041) ; |
|
| CLINPTS(CLIN,BDATE,EDATE) | ; RETURN LIST OF PTS W/CLINIC APPT W/IN BEGINNING AND END DATES
|
|
| CLINPT2(CLIN,BEGIN,END) | ; -- Use scheduling rehosting API from patches SD*5.3*253 and SD*5.3*275
; -- GETPLIST^SDAMA202(SDIEN,SDFIELDS,SDAPSTAT,SDSTART,SDEND,.SDRESULT,SDIOSTAT) |
|
| ADDPTS() | ;
|
|
| NAMECOMP(DFN) | ; ENTRY IS +$P($G(^DPT(DFN,"NAME")),"^",1)
|
| Name | Field # of Occurrence |
|---|---|
| DT^DILF | CLINPTS+11, CLINPTS+12 |
| GETPLIST^SDAMA202 | CLINPT2+8 |
| ADD^VBECLU | BYFILTER+6, BYFILTER+13, BYFILTER+18, BYFILTER+19, NAMECOMP+9 |
| PTDATA^VBECLU | ADDPTS+5 |
| $$NOW^XLFDT | CLINPTS+5 |
| $$UP^XLFSTR | FILTCHK+5 |
| $$CHARCHK^XOBVLIB | NAMECOMP+3, NAMECOMP+4, NAMECOMP+5, NAMECOMP+6, NAMECOMP+7, NAMECOMP+8 |
| $$STOP^XOBVLIB | BYFILTER+8, WARDPTS+7, PROVPTS+10 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(42 - [#42] | WARDPTS+5 |
| ^DPT - [#2] | FILTCHK+13, FILTCHK+16, FILTCHK+19, FILTCHK+22, WARDPTS+10, PROVPTS+10, PROVPTS+12, NAMECOMP+2 |
| ^DPT("CN" | WARDPTS+8 |
| ^TMP("PTLKUP" | BYFILTER+2!, WARDPTS+10*, PROVPTS+12*, CLINPT2+20*, ADDPTS+3, ADDPTS+4 |
| ^TMP($J | CLINPT2+3!, CLINPT2+14, CLINPT2+18 |
| ^VA(20 - [#20] | NAMECOMP+2 |
| Name | Line Occurrences |
|---|---|
| $$FILTCHK | WARDPTS+9, PROVPTS+11, CLINPT2+19 |
| ADDPTS | BYFILTER+16 |
| CLINPT2 | CLINPTS+16 |
| CLINPTS | BYFILTER+10 |
| PROVPTS | BYFILTER+11 |
| WARDPTS | BYFILTER+9 |
| Name | Field # of Occurrence |
|---|---|
| ^( | CLINPT2+18 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | NAMECOMP+1~, NAMECOMP+2*, NAMECOMP+3, NAMECOMP+4, NAMECOMP+5, NAMECOMP+6, NAMECOMP+7, NAMECOMP+8 |
| APPTS | CLINPT2+4~*, CLINPT2+8, CLINPT2+11 |
| BDATE | BYFILTER~, BYFILTER+10, CLINPTS~, CLINPTS+8*, CLINPTS+11, CLINPTS+13, CLINPTS+16 |
| BEGIN | CLINPT2~, CLINPT2+8 |
| CHKIN | CLINPTS+3~ |
| >> CHKVAL | FILTCHK+13*, FILTCHK+14, FILTCHK+16*, FILTCHK+17, FILTCHK+19*, FILTCHK+20, FILTCHK+22*, FILTCHK+23 |
| CHKX | CLINPTS+3~ |
| CLIN | CLINPTS~, CLINPTS+1, CLINPTS+16, CLINPT2~, CLINPT2+8 |
| CLNAM | CLINPTS+3~ |
| DE | NAMECOMP+1~, NAMECOMP+8*, NAMECOMP+9 |
| DELIM | BYFILTER~, BYFILTER+8 |
| DFN | FILTCHK~, FILTCHK+8, FILTCHK+13, FILTCHK+16, FILTCHK+19, FILTCHK+22, WARDPTS+3~, WARDPTS+4*, WARDPTS+7, WARDPTS+8* , WARDPTS+9, WARDPTS+10, PROVPTS+7~, PROVPTS+8*, PROVPTS+10*, PROVPTS+11, PROVPTS+12, CLINPTS+3~, CLINPTS+7*, ADDPTS+1~ , ADDPTS+4*, ADDPTS+5, NAMECOMP~, NAMECOMP+2 |
| EDATE | BYFILTER~, BYFILTER+10, CLINPTS~, CLINPTS+9*, CLINPTS+12, CLINPTS+13, CLINPTS+14*, CLINPTS+16 |
| END | CLINPT2~, CLINPT2+8 |
| FILTER | BYFILTER~, BYFILTER+9, BYFILTER+10, BYFILTER+11 |
| FILTERV | BYFILTER~, BYFILTER+8 |
| FN | NAMECOMP+1~, NAMECOMP+4*, NAMECOMP+9 |
| I | BYFILTER+8*, FILTCHK+10~, CLINPTS+3~, CLINPTS+7*, CLINPT2+4~, CLINPT2+17*, CLINPT2+18* |
| J | FILTCHK+10~, CLINPTS+3~ |
| >> LINENO | BYFILTER+7*, BYFILTER+17 |
| LN | NAMECOMP+1~, NAMECOMP+3*, NAMECOMP+9 |
| MAXAPPTS | CLINPTS+3~, CLINPTS+4* |
| >> MAXSIZRE | BYFILTER+18 |
| MI | NAMECOMP+1~, NAMECOMP+5*, NAMECOMP+9 |
| NAME | CLINPTS+3~, ADDPTS+1~, ADDPTS+2*, ADDPTS+3*, ADDPTS+4 |
| >> NOWDT | CLINPTS+5* |
| OKAY | BYFILTER+1~, BYFILTER+3*, BYFILTER+9*, BYFILTER+10*, BYFILTER+11*, BYFILTER+13, FILTCHK+10~, FILTCHK+11*, FILTCHK+14*, FILTCHK+17* , FILTCHK+20*, FILTCHK+23*, FILTCHK+24 |
| ORC | CLINPTS+3~ |
| ORJ | CLINPTS+3~ |
| ORNOWDT | CLINPTS+3~ |
| ORSRV | CLINPTS+3~ |
| PCNT | BYFILTER+1~, BYFILTER+3*, BYFILTER+17, ADDPTS+5 |
| PR | NAMECOMP+1~, NAMECOMP+6*, NAMECOMP+9 |
| PROV | PROVPTS~, PROVPTS+5, PROVPTS+10 |
| SEARCH | BYFILTER~, WARDPTS+9, PROVPTS+11, CLINPT2+19 |
| SU | NAMECOMP+1~, NAMECOMP+7*, NAMECOMP+9 |
| TYPE | FILTCHK~, FILTCHK+7, FILTCHK+12, FILTCHK+15, FILTCHK+18, FILTCHK+21 |
| VAL | BYFILTER+1~, BYFILTER+8*, BYFILTER+9, BYFILTER+10, BYFILTER+11 |
| VALUE | BYFILTER~, FILTCHK~, FILTCHK+5*, FILTCHK+6, FILTCHK+14, FILTCHK+17, FILTCHK+20, FILTCHK+23, WARDPTS+9, PROVPTS+11 , CLINPT2+19 |
| >> VBECLINE | BYFILTER+7 |
| >> VBECRSLT | BYFILTER+17 |
| WARD | WARDPTS~, WARDPTS+2, WARDPTS+5*, WARDPTS+6, WARDPTS+8 |
| X | VBECLU0+9*, CLINPTS+3~, CLINPT2+4~, CLINPT2+17*, CLINPT2+18*, CLINPT2+19, CLINPT2+20 |
| XREF | PROVPTS+7~, PROVPTS+9*, PROVPTS+10 |
| >> Y(1 | CLINPTS+13* |
