DGQPTQ2 ; slc/CLA - Functions which return patient lists and list sources pt 2 ;05/05/2004
Source file <DGQPTQ2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| WARD(Y) | ; RETURN LIST OF ACTIVE WARDS
|
|
| PROVPTS(Y,PROV) | ; RETURN LIST OF PATIENTS LINKED TO A PRIMARY PROVIDER
|
|
| CLIN(Y) | ; RETURN LIST OF CLINICS
|
|
| PTAPPTS(Y,DFN,DGBDATE,DGEDATE,CLIN) | ; return appts for a patient between beginning and end dates for a clinic, if no clinic return all appointments
|
|
| WARDPTS(Y,WARD) | ; RETURN LIST OF PATIENTS IN A WARD
; SLC/PKS - Modifications for Room/Bed data on 1/19/2001. |
|
| PROV(Y) | ; RETURN LIST OF PROVIDERS
|
|
| NLIST(DGQY) | ; return a null list
|
|
| SPECPTS(Y,SPEC) | ; RETURN LIST OF PATIENTS LINKED TO A TREATING SPECIALTY
|
|
| CLINPTS(Y,CLIN,DGBDATE,DGEDATE) | ; RETURN LIST OF PTS W/CLINIC APPT W/IN BEGINNING AND END DATES
|
|
| CDATRANG(DGY) | ; return default start and stop dates for clinics in form start^stop
|
|
| SPEC(Y) | ; RETURN LIST OF TREATING SPECIALTIES
|
| Name | Field # of Occurrence |
|---|---|
| $$ACTIVE^DGACT | SPEC+4 |
| $$FAPCHK^DGENRPD2 | CLINPTS+19 |
| WIN^DGPMDDCF | WARD+5 |
| DT^DILF | CLINPTS+11, CLINPTS+12, PTAPPTS+13, PTAPPTS+14 |
| $$SDAPI^SDAMA301 | CLINPTS+18 |
| $$ACTLOC^SDWU | CLIN+4, CLINPTS+2, PTAPPTS+2 |
| SDA^VADPT | PTAPPTS+19 |
| $$NOW^XLFDT | CLINPTS+5 |
| $$UP^XLFSTR | CLINPTS+8, CLINPTS+9, CDATRANG+3, CDATRANG+4, CDATRANG+6, PTAPPTS+7, PTAPPTS+10 |
| $$GET^XPAR | CLINPTS+8, CLINPTS+9, CDATRANG+3, CDATRANG+4, PTAPPTS+7, PTAPPTS+10 |
| GETLST^XPAR | CLIN+2 |
| $$ACTIVE^XUSER | PROV+5 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(42 - [#42] | WARD+4, WARDPTS+6 |
| ^DIC(45.7 - [#45.7] | SPEC+4 |
| ^DPT - [#2] | CLINPTS+29, PROVPTS+4, SPECPTS+4, WARDPTS+10, WARDPTS+13 |
| ^DPT("APR" | PROVPTS+4 |
| ^DPT("ATR" | SPECPTS+4 |
| ^DPT("CN" | WARDPTS+9 |
| ^SC - [#44] | CLIN+5, CLINPTS+32 |
| ^TMP($J | CLINPTS+19!, CLINPTS+20, CLINPTS+21, CLINPTS+22*, CLINPTS+24, CLINPTS+25, CLINPTS+26, CLINPTS+35! |
| ^UTILITY("VASD" | PTAPPTS+21, PTAPPTS+22, PTAPPTS+23 |
| ^VA(200 - [#200] | CLINPTS+6, CDATRANG+2, PTAPPTS+5, PROV+3 |
| ^XUSEC("PROVIDER" | PROV+5 |
| Name | Field # of Occurrence |
|---|---|
| ^( | PROV+3, SPEC+4, WARD+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ASTAT | CLINPTS+16~, CLINPTS+26*, CLINPTS+28, CLINPTS+35! |
| CHKIN | CLINPTS+3~ |
| CHKX | CLINPTS+3~ |
| CLIN | CLINPTS~, CLINPTS+1, CLINPTS+2, CLINPTS+17, CLINPTS+29, CLINPTS+32, PTAPPTS~, PTAPPTS+2, PTAPPTS+7, PTAPPTS+10 , PTAPPTS+18 |
| CLNAM | CLINPTS+3~, CLINPTS+32*, CLINPTS+33 |
| CNT | PTAPPTS+3~*, PTAPPTS+24, PTAPPTS+25* |
| D0 | WARD+1~, WARD+5* |
| DFN | CLINPTS+3~, CLINPTS+7*, CLINPTS+25*, CLINPTS+26, CLINPTS+29, PTAPPTS~, PROVPTS+2~, PROVPTS+3*, PROVPTS+4*, SPECPTS+2~ , SPECPTS+3*, SPECPTS+4*, WARDPTS+3~, WARDPTS+4*, WARDPTS+8, WARDPTS+9*, WARDPTS+10, WARDPTS+13 |
| DGARRAY | CLINPTS+16~, CLINPTS+18, CLINPTS+35! |
| DGARRAY("FLDS" | CLINPTS+17* |
| DGARRAY("SORT" | CLINPTS+18* |
| DGARRAY(1 | CLINPTS+17* |
| DGARRAY(2 | CLINPTS+17* |
| DGBDATE | CLINPTS~, CLINPTS+8*, CLINPTS+11, CLINPTS+13, CLINPTS+17, CDATRANG+1~, CDATRANG+3*, CDATRANG+5*, CDATRANG+6, PTAPPTS~ , PTAPPTS+4, PTAPPTS+6, PTAPPTS+7*, PTAPPTS+8*, PTAPPTS+13, PTAPPTS+15, PTAPPTS+16 |
| DGC | CLINPTS+3~ |
| DGEDATE | CLINPTS~, CLINPTS+9*, CLINPTS+12, CLINPTS+13, CLINPTS+14*, CLINPTS+17, CDATRANG+1~, CDATRANG+4*, CDATRANG+5*, CDATRANG+6 , PTAPPTS~, PTAPPTS+4, PTAPPTS+9, PTAPPTS+10*, PTAPPTS+11*, PTAPPTS+14, PTAPPTS+15, PTAPPTS+17 |
| DGI | PROVPTS+2~, PROVPTS+3*, PROVPTS+4*, SPECPTS+2~, SPECPTS+3*, SPECPTS+4*, WARDPTS+3~, WARDPTS+4*, WARDPTS+10, WARDPTS+19 , WARDPTS+20* |
| DGJ | CLINPTS+3~, CLINPTS+24*, CLINPTS+25, CLINPTS+26, CLINPTS+29 |
| DGLST | CLIN+1~, CLIN+2 |
| DGLST( | CLIN+3, CLIN+4 |
| DGNOWDT | CLINPTS+3~, CLINPTS+5* |
| DGQY | NLIST~ |
| DGQY(1 | NLIST+1* |
| DGSRV | CLINPTS+3~, CLINPTS+6*, CLINPTS+8, CLINPTS+9, CDATRANG+1~, CDATRANG+2*, CDATRANG+3, CDATRANG+4, PTAPPTS+3~, PTAPPTS+5* , PTAPPTS+7, PTAPPTS+10 |
| DGY | CDATRANG~, CDATRANG+6* |
| DUZ | CLINPTS+6, CDATRANG+2, PTAPPTS+5 |
| EXT | PTAPPTS+3~, PTAPPTS+23*, PTAPPTS+24 |
| I | CLIN+1~, CLIN+3*, CLIN+4, CLIN+5, CLINPTS+3~, CLINPTS+7*, CLINPTS+29*, CLINPTS+31, PROV+1~, PROV+2* , PROV+5*, SPEC+1~, SPEC+2*, SPEC+4*, WARD+1~, WARD+2*, WARD+6* |
| IEN | CLIN+1~, CLIN+4*, CLIN+5, PROV+1~, PROV+3*, PROV+5, SPEC+1~, SPEC+4*, WARD+1~, WARD+4* , WARD+5, WARD+6 |
| INT | PTAPPTS+3~, PTAPPTS+22*, PTAPPTS+24 |
| INVDT | PTAPPTS+3~, PTAPPTS+22*, PTAPPTS+24 |
| J | CLINPTS+3~ |
| MAXAPPTS | CLINPTS+3~, CLINPTS+4*, CLINPTS+31 |
| NAME | CLINPTS+3~, PROV+1~, PROV+2*, PROV+3*, PROV+4, PROV+5, SPEC+1~, SPEC+2*, SPEC+4*, WARD+1~ , WARD+2*, WARD+4*, WARD+6 |
| NUM | PTAPPTS+3~*, PTAPPTS+21*, PTAPPTS+22, PTAPPTS+23 |
| PROV | PROVPTS~, PROVPTS+1, PROVPTS+4 |
| RBDAT | WARDPTS+3~, WARDPTS+11*, WARDPTS+13*, WARDPTS+15, WARDPTS+16, WARDPTS+17*, WARDPTS+18*, WARDPTS+19 |
| SAPPT | CLINPTS+16~, CLINPTS+21*, CLINPTS+22, CLINPTS+35! |
| SDCNT | CLINPTS+16~, CLINPTS+18*, CLINPTS+19, CLINPTS+35! |
| SDFN | CLINPTS+16~, CLINPTS+20*, CLINPTS+21, CLINPTS+22, CLINPTS+35! |
| SPEC | SPECPTS~, SPECPTS+1, SPECPTS+4 |
| TDATE | PROV+1~ |
| U | CLIN+4, CLIN+5, CLINPTS+6, CLINPTS+32, CDATRANG+2, PTAPPTS+5, PTAPPTS+22, PTAPPTS+24, WARDPTS+13, WARDPTS+19 |
| VAERR | PTAPPTS+20, PTAPPTS+27! |
| VASD | PTAPPTS+3~ |
| VASD("C" | PTAPPTS+18* |
| VASD("F" | PTAPPTS+16* |
| VASD("T" | PTAPPTS+17* |
| WARD | WARDPTS~, WARDPTS+2, WARDPTS+6*, WARDPTS+9 |
| X | CLINPTS+3~, CLINPTS+19*, WARD+6 |
| Y | CLIN~, CLINPTS~, CLINPTS+33!, CLINPTS+34, PTAPPTS~, PROV~, PROVPTS~, SPEC~, SPECPTS~, WARD~ , WARDPTS~ |
| Y( | CLIN+5*, CLINPTS+29*, PTAPPTS+24*, PROV+5*, PROVPTS+4*, SPEC+4*, SPECPTS+4*, WARD+6*, WARDPTS+10*, WARDPTS+19* |
| Y(1 | CLINPTS+1*, CLINPTS+2*, CLINPTS+13*, CLINPTS+19*, CLINPTS+33*, CLINPTS+34*, PTAPPTS+2*, PTAPPTS+15*, PTAPPTS+26*, PROVPTS+1* , PROVPTS+5*, SPECPTS+1*, SPECPTS+5*, WARDPTS+2*, WARDPTS+22* |