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* |