SDCED1 ;ALB/JCH - VSE ENCOUNTER XREF ; 19 Oct 14 04:11PM
Source file <SDCED1.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 |
|---|---|---|
| EN(SDRPTAR,SDBEGRNG,SDENDRNG,SDNODE) | ;
|
|
| PROVIDER(SDBEGRNG,SDENDRNG,DTRANGE,SDNODE) | ; aggregate daily encounters by provider
|
|
| ENCOUNTR(SDACTDT,SDRPTYP,SDFAC,SDIV,SDCL,SDDT,SDPR,DTRANGE,SDNODE) | ; Get encounters from ^XTMP("SDVSE","DT"
|
|
| APPT(SDACTDT,SDRPTYP,SDFAC,SDIV,SDCL,SDDT,SDPAT,DTRANGE,SDNODE) | ; Get appointments from ^XTMP("SDVSE","DT"
|
|
| APPTG | ; Add data to groups "All" and SDGRP
|
|
| CLEAN(SDNODE) | ; Clean up
|
|
| CHKEST(DFN,BDATE,ENC,CLSTOP) | ; Was Patient DFN's encounter on date DATE considered Established or New?
|
|
| GETSCAT(SDLOC,SDSGNM,SDSGAR) | ||
| CLSTOP(SDLOC,CSTOP) | ; Get Clinic Stop
|
|
| STOPCAT(CLSTOP,CAT,STOPAR) | ; Get stop code category (Mental Health, Specialty, Primary)
|
|
| DIV(DIVINT) | ; convert internal division to external
|
|
| WEEKS(SDDT,WEEKS) | ; Get ending dates for 52 weeks
|
|
| GETDIV(CLINIC) | ; Return CLINIC's division from file 40.8
|
|
| AGGDT(SDBEGRNG,SDENDRNG,DTRANGE,SDNODE) | ; Aggregate Facility, Divisions, Clinics, Providers by Date
|
|
| AGGSET(SDGLOB,DTNAM,PRVND) | ; Perform generic aggregation of Pn values into SDGLOB
; Encounter data stored in @SDGLOB |
|
| GRP(LOC,GROUP) | ; Get clinic groups
; Look in Clinic Group for now, until Medsphere code is available |
|
| GETWEEK(SDDT,SDWEEKS) | ; Return the week-ending date for date SDDT
|
|
| GETQUART(SDDT) | ||
| SUPPLY(SDNODE,DTINC,SDRPTYP,SDDT,SDFAC,SDIV,SDCL,SUPPLY) | ; Get Supply
|
| Name | Field # of Occurrence |
|---|---|
| ^DIC | GRP+3 |
| GETS^DIQ | DIV+3, GETDIV+4 |
| $$APPLEN^SDCED2 | APPTG+10 |
| APPT^SDCED2 | AGGDT+20 |
| SUP^SDCED2 | AGGDT+15 |
| SDGRP^SDECXUTL | ENCOUNTR+8, APPTG+5, SUPPLY+3 |
| $$SITE^VASITE | EN+10, DIV+5, GETDIV+6 |
| $$DOW^XLFDT | WEEKS+2, WEEKS+4 |
| $$FMADD^XLFDT | EN+9, PROVIDER+5, PROVIDER+11, WEEKS+4, WEEKS+5, GETWEEK+3 |
| $$FMDIFF^XLFDT | CHKEST+6 |
| $$FMTE^XLFDT | GETQUART+2 |
| $$NOW^XLFDT | EN+7, PROVIDER+5 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(40.7 - [#40.7] | CLSTOP+5 |
| ^PS(57.8 - [#57.8] | GRP+4, GRP+5 |
| ^SC - [#44] | ENCOUNTR+12, APPTG+4, CLSTOP+2, SUPPLY+5 |
| ^SCE - [#409.68] | CHKEST+2, CHKEST+3, CHKEST+4, CHKEST+7, CHKEST+9 |
| ^SCE("ADFN" | CHKEST+6 |
| ^VA(200 - [#200] | ENCOUNTR+11, ENCOUNTR+21, APPTG+2 |
| ^XTMP( | EN+17, EN+18!*, ENCOUNTR+13, ENCOUNTR+16*, ENCOUNTR+18, ENCOUNTR+22*, APPTG+15, APPTG+20*, APPTG+23, APPTG+25* , AGGDT+3, AGGDT+4, AGGDT+9, AGGDT+10, AGGDT+12, AGGDT+14, AGGDT+16, AGGDT+23, SUPPLY+7, SUPPLY+9* |
| ^XTMP("SDVSE" | EN+8, EN+17, EN+18, PROVIDER+7, PROVIDER+9, PROVIDER+12, PROVIDER+13, PROVIDER+16, ENCOUNTR+4, APPT+2 , APPT+3 |
| Name | Line Occurrences |
|---|---|
| $$GETDIV | PROVIDER+10 |
| $$GETQUART | AGGDT+8 |
| $$GETWEEK | AGGDT+7 |
| AGGDT | EN+21 |
| AGGSET | AGGDT+27, AGGDT+30, AGGDT+40, AGGDT+46, AGGDT+47, AGGDT+53, AGGDT+54, AGGDT+55, AGGDT+56, AGGDT+57 , AGGDT+58, AGGDT+63, AGGDT+66 |
| APPT | PROVIDER+15 |
| APPTG | APPT+6 |
| CLEAN | EN+22 |
| CLSTOP | CHKEST+4, CHKEST+8, GETSCAT+2 |
| ENCOUNTR | PROVIDER+14 |
| PROVIDER | EN+20 |
| STOPCAT | GETSCAT+3 |
| SUPPLY | PROVIDER+18 |
| WEEKS | EN+19 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AGGDATA | PROVIDER+2~, ENCOUNTR+14*, ENCOUNTR+15*, ENCOUNTR+16, ENCOUNTR+19*, ENCOUNTR+20*, ENCOUNTR+22, APPT+1~, APPTG+14*, APPTG+16* , APPTG+19*, APPTG+20, AGGDT+2~, AGGSET+2~, AGGSET+5*, AGGSET+6 |
| BDATE | CHKEST~, CHKEST+1, CHKEST+2, CHKEST+6 |
| CAT | STOPCAT~, STOPCAT+2!, STOPCAT+7* |
| CGRP | GRP+4~*, GRP+5 |
| CLINAR | GETDIV+1~ |
| CLINAR(44 | GETDIV+5 |
| CLINEX | PROVIDER+1~, STOPCAT+1~, STOPCAT+4*, STOPCAT+5 |
| CLINIC | GETDIV~, GETDIV+2, GETDIV+3, GETDIV+5 |
| CLNAM | ENCOUNTR+2~, ENCOUNTR+12*, ENCOUNTR+13, ENCOUNTR+16, ENCOUNTR+18, ENCOUNTR+22, APPTG+1~, APPTG+4*, APPTG+15, APPTG+20 , APPTG+23, APPTG+25, SUPPLY+2~, SUPPLY+5*, SUPPLY+7, SUPPLY+9 |
| CLSTOP | CHKEST~, CHKEST+3*, CHKEST+4*, CHKEST+9, STOPCAT~, STOPCAT+2, STOPCAT+5 |
| CSTOP | GETSCAT+1~*, GETSCAT+2, GETSCAT+3, CLSTOP~, CLSTOP+1!*, CLSTOP+2*, CLSTOP+3, CLSTOP+5* |
| DA | DIV+1~, DIV+2*, DIV+3, GETDIV+1~, GETDIV+3*, GETDIV+4 |
| DATE | EN+6~ |
| DFN | CHKEST~, CHKEST+2, CHKEST+6 |
| DIC | DIV+1~, DIV+2*, DIV+3, GETDIV+1~, GETDIV+3*, GETDIV+4, GRP+3~* |
| DIC(0 | GRP+3* |
| >> DIQ(0 | GETDIV+3* |
| DIVAR | DIV+1~ |
| DIVEX | PROVIDER+1~, DIV+4*, DIV+5*, DIV+6 |
| DIVINT | DIV~, DIV+2, DIV+4 |
| DIVXAR | DIV+1~ |
| DIVXAR( | DIV+4 |
| DR | DIV+1~, DIV+2*, DIV+3, GETDIV+1~, GETDIV+3*, GETDIV+4 |
| DT | EN+6~, EN+7* |
| DTINC | SUPPLY~, SUPPLY+7, SUPPLY+9 |
| DTNAM | AGGDT+32~, AGGDT+35*, AGGDT+40, AGGDT+44*, AGGDT+45, AGGDT+46, AGGDT+47, AGGDT+51*, AGGDT+52, AGGDT+53 , AGGDT+54, AGGDT+55, AGGDT+56, AGGDT+57, AGGDT+58, AGGDT+63, AGGDT+66, AGGSET~, AGGSET+3 |
| DTRANGE | EN+14*, EN+16, EN+20, EN+21, PROVIDER~, PROVIDER+11, PROVIDER+12, PROVIDER+14, PROVIDER+15, ENCOUNTR~ , ENCOUNTR+10, APPT~, APPTG+3, AGGDT~, AGGDT+20, SUPPLY+4 |
| ENC | CHKEST~, CHKEST+1, CHKEST+2, CHKEST+3, CHKEST+4, CHKEST+9 |
| FOUND | STOPCAT+1~*, STOPCAT+3, STOPCAT+4, STOPCAT+5* |
| GROUP | GRP~, GRP+2!* |
| GROUP( | GRP+5* |
| I | ENCOUNTR+14~*, ENCOUNTR+15, ENCOUNTR+19~*, ENCOUNTR+20, APPTG+18~*, APPTG+19, WEEKS+3*, WEEKS+4, WEEKS+5*, AGGSET+2~ , AGGSET+5* |
| LEN | APPT+1~, APPTG+9*, APPTG+10*, APPTG+11, APPTG+15, APPTG+16, APPTG+20, APPTG+23, APPTG+25 |
| LOC | GRP~, GRP+3, GRP+5 |
| LOCNUM | GRP+3~*, GRP+4 |
| MONTH | GETQUART+1~, GETQUART+3*, GETQUART+4 |
| NEXTD | WEEKS+1~, WEEKS+4* |
| NEXTW | WEEKS+1~, WEEKS+5* |
| OCLSTOP | CHKEST+1~, CHKEST+7*, CHKEST+8*, CHKEST+9 |
| OENCND | CHKEST+1~, CHKEST+7*, CHKEST+8 |
| OK | STOPCAT+1~ |
| OLOC | CHKEST+1~, CHKEST+7*, CHKEST+8 |
| PROVEX | PROVIDER+1~ |
| PRVDATE | CHKEST+1~*, CHKEST+6* |
| PRVENC | CHKEST+1~*, CHKEST+6*, CHKEST+7 |
| PRVNAM | ENCOUNTR+2~, ENCOUNTR+11*, ENCOUNTR+13, ENCOUNTR+16, ENCOUNTR+18, ENCOUNTR+21*, ENCOUNTR+22, APPTG+1~, APPTG+2*, APPTG+15 , APPTG+20, APPTG+23, APPTG+25 |
| PRVND | AGGSET~, AGGSET+5 |
| SDACTDT | PROVIDER+2~, PROVIDER+7*, PROVIDER+9, PROVIDER+12, PROVIDER+13, PROVIDER+14, PROVIDER+15, PROVIDER+16, ENCOUNTR~, ENCOUNTR+4 , APPT~, APPT+2, APPT+3 |
| SDATE | EN+6~, EN+7*, EN+8*, EN+9 |
| SDBEGDT | EN+6~, EN+12*, EN+13, EN+14 |
| SDBEGRNG | EN~, EN+11*, EN+12, EN+20, EN+21, PROVIDER~, AGGDT~, AGGDT+33, AGGDT+45, AGGDT+52 |
| SDCHIT | CHKEST+1~, CHKEST+5*, CHKEST+6, CHKEST+9*, CHKEST+10 |
| SDCL | PROVIDER+2~, PROVIDER+9*, PROVIDER+10, PROVIDER+12, PROVIDER+13, PROVIDER+14, PROVIDER+15, PROVIDER+16, PROVIDER+18, ENCOUNTR~ , ENCOUNTR+4, ENCOUNTR+8, ENCOUNTR+12, ENCOUNTR+13, ENCOUNTR+16, ENCOUNTR+18, ENCOUNTR+22, APPT~, APPT+2, APPT+3 , APPTG+4, APPTG+5, APPTG+10, APPTG+15, APPTG+20, APPTG+23, APPTG+25, AGGDT+1~, AGGDT+14*, AGGDT+15 , AGGDT+16, AGGDT+20, AGGDT+23, SUPPLY~, SUPPLY+3, SUPPLY+5, SUPPLY+7, SUPPLY+9 |
| SDCS | CLSTOP+1~ |
| SDDATE | APPTG+1~, APPTG+3*, APPTG+15, APPTG+20, APPTG+23, APPTG+25, SUPPLY+2~, SUPPLY+4*, SUPPLY+7, SUPPLY+9 |
| SDDT | PROVIDER+4*, PROVIDER+11*, PROVIDER+12*, PROVIDER+13, PROVIDER+14, PROVIDER+15, PROVIDER+16, PROVIDER+18, ENCOUNTR~, ENCOUNTR+3 , APPT~, APPT+2, APPT+3, APPTG+3, WEEKS~, WEEKS+2, WEEKS+4, AGGDT+1~, AGGDT+4*, AGGDT+5 , AGGDT+6, AGGDT+7, AGGDT+8, AGGDT+9, AGGDT+10, AGGDT+12, AGGDT+14, AGGDT+16, AGGDT+20, AGGDT+23 , AGGSET+3, GETWEEK~, GETWEEK+2, GETQUART~, GETQUART+2, GETQUART+3, SUPPLY~, SUPPLY+4 |
| SDDTAG | AGGDT+1~ |
| SDEC | PROVIDER+2~ |
| SDEDDT | ENCOUNTR+2~, ENCOUNTR+3*, ENCOUNTR+4, ENCOUNTR+10*, ENCOUNTR+13, ENCOUNTR+16, ENCOUNTR+18, ENCOUNTR+22 |
| SDEFLT | PROVIDER+1~, PROVIDER+5*, PROVIDER+11 |
| SDENC | PROVIDER+1~, ENCOUNTR+6* |
| SDENDATE | EN+13*, EN+14, AGGDT+1~ |
| SDENDDT | EN+6~ |
| SDENDRNG | EN~, EN+11*, EN+12, EN+13, EN+20, EN+21, PROVIDER~, AGGDT~, AGGDT+33, AGGDT+45 , AGGDT+52 |
| SDEST | PROVIDER+1~, PROVIDER+4*, ENCOUNTR+6* |
| SDFAC | EN+6~, EN+10*, PROVIDER+14, PROVIDER+15, PROVIDER+18, ENCOUNTR~, ENCOUNTR+13, ENCOUNTR+16, ENCOUNTR+18, ENCOUNTR+22 , APPT~, APPTG+15, APPTG+20, APPTG+23, APPTG+25, AGGDT+1~, AGGDT+9*, AGGDT+10, AGGDT+12, AGGDT+14 , AGGDT+16, AGGDT+20, AGGDT+23, SUPPLY~, SUPPLY+7, SUPPLY+9 |
| SDGLFULL | AGGDT+32~, AGGDT+36*, AGGDT+39, AGGDT+40, AGGDT+46*, AGGDT+47*, AGGDT+53*, AGGDT+54*, AGGDT+55*, AGGDT+56* , AGGDT+57*, AGGDT+58* |
| SDGLOB | AGGSET~, AGGSET+4, AGGSET+6 |
| SDGLROOT | AGGDT+32~, AGGDT+33*, AGGDT+36, AGGDT+43*, AGGDT+46, AGGDT+47, AGGDT+50* |
| SDGRP | PROVIDER+2~, ENCOUNTR+2~, ENCOUNTR+8, ENCOUNTR+13, ENCOUNTR+16, APPT+1~, APPTG+1~, APPTG+6*, APPTG+15, APPTG+20 , APPTG+23, APPTG+25, AGGDT+12*, AGGDT+13, AGGDT+14, AGGDT+16, AGGDT+20, AGGDT+23, AGGDT+39, AGGDT+62 , SUPPLY+2~, SUPPLY+3, SUPPLY+7, SUPPLY+9 |
| SDIV | PROVIDER+2~, PROVIDER+10*, PROVIDER+14, PROVIDER+15, PROVIDER+18, ENCOUNTR~, ENCOUNTR+13, ENCOUNTR+16, ENCOUNTR+18, ENCOUNTR+22 , APPT~, APPTG+15, APPTG+20, APPTG+23, APPTG+25, GETDIV+5*, GETDIV+6*, GETDIV+7, AGGDT+1~, AGGDT+10* , AGGDT+12, AGGDT+14, AGGDT+16, AGGDT+20, AGGDT+23, AGGDT+58, SUPPLY~, SUPPLY+7, SUPPLY+9 |
| SDLCNT | EN+6~ |
| SDLOC | CHKEST+1~, CHKEST+3*, CHKEST+4, GETSCAT~, GETSCAT+2, CLSTOP~, CLSTOP+2 |
| SDNEW | PROVIDER+1~, PROVIDER+4*, ENCOUNTR+6* |
| SDNODE | EN~, EN+16*, EN+17, EN+18, EN+20, EN+21, EN+22, PROVIDER~, PROVIDER+14, PROVIDER+15 , PROVIDER+18, ENCOUNTR~, ENCOUNTR+13, ENCOUNTR+16, ENCOUNTR+18, ENCOUNTR+22, APPT~, APPTG+15, APPTG+20, APPTG+23 , APPTG+25, CLEAN~, AGGDT~, AGGDT+3, AGGDT+4, AGGDT+9, AGGDT+10, AGGDT+12, AGGDT+14, AGGDT+16 , AGGDT+20, AGGDT+23, SUPPLY~, SUPPLY+7, SUPPLY+9 |
| SDPAT | APPT~, APPT+2, APPT+3 |
| SDPR | PROVIDER+2~, PROVIDER+13*, PROVIDER+14, PROVIDER+15, ENCOUNTR~, ENCOUNTR+1, ENCOUNTR+4, ENCOUNTR+11, ENCOUNTR+13, ENCOUNTR+16 , ENCOUNTR+18, ENCOUNTR+21, ENCOUNTR+22, APPT+1~, APPT+2*, APPT+3, APPTG+2, APPTG+15, APPTG+20, APPTG+23 , APPTG+25 |
| SDPRV | AGGDT+1~, AGGDT+16*, AGGDT+17, AGGDT+20, AGGDT+23 |
| SDPRVND | AGGDT+1~, AGGDT+23*, AGGDT+24, AGGDT+27, AGGDT+30, AGGDT+40, AGGDT+46, AGGDT+47, AGGDT+53, AGGDT+54 , AGGDT+55, AGGDT+56, AGGDT+57, AGGDT+58, AGGDT+63, AGGDT+66 |
| SDQUART | GETQUART+1!, GETQUART+4*, GETQUART+6*, GETQUART+7 |
| SDRPT | EN+6~ |
| SDRPTAR | EN~ |
| SDRPTAR( | PROVIDER+8 |
| SDRPTYP | PROVIDER+8*, PROVIDER+9, PROVIDER+12, PROVIDER+13, PROVIDER+14, PROVIDER+15, PROVIDER+16, PROVIDER+18, ENCOUNTR~, ENCOUNTR+4 , ENCOUNTR+13, ENCOUNTR+16, ENCOUNTR+18, ENCOUNTR+22, APPT~, APPT+2, APPT+3, APPTG+15, APPTG+20, APPTG+23 , APPTG+25, AGGDT+1~, AGGDT+3*, AGGDT+4, AGGDT+9, AGGDT+10, AGGDT+12, AGGDT+14, AGGDT+16, AGGDT+20 , AGGDT+23, SUPPLY~, SUPPLY+7, SUPPLY+9 |
| SDSGAR | GETSCAT~, GETSCAT+3 |
| SDSGNM | GETSCAT~, GETSCAT+1*, GETSCAT+3 |
| SDSTART | EN+6~, EN+9*, EN+19 |
| SDTEL | ENCOUNTR+2~, ENCOUNTR+6* |
| SDTMPND | ENCOUNTR+13~*, ENCOUNTR+15, ENCOUNTR+18~*, ENCOUNTR+20, APPT+1~, APPTG+15*, APPTG+16, APPTG+19, APPTG+23*, APPTG+24* , APPTG+25 |
| SDUTLND | ENCOUNTR+2~, ENCOUNTR+4*, ENCOUNTR+5, ENCOUNTR+6, ENCOUNTR+14, ENCOUNTR+15, ENCOUNTR+19, ENCOUNTR+20, APPT+1~, APPT+3* , APPT+4, APPTG+9, APPTG+19 |
| SDVSEBEG | PROVIDER+2~ |
| SDWEEKS | EN+6~, EN+19, AGGDT+7, AGGDT+20, GETWEEK~ |
| SDWEEKS( | GETWEEK+2 |
| STARTD | WEEKS+1~*, WEEKS+2*, WEEKS+3, WEEKS+4*, WEEKS+5 |
| STATUS | APPT+1~, APPTG+9*, APPTG+23, APPTG+25 |
| STOPAR | STOPCAT~ |
| STOPAR( | STOPCAT+3, STOPCAT+4, STOPCAT+5 |
| STOPGRP | ENCOUNTR+2~, APPT+1~ |
| STOPIEN | ENCOUNTR+2~, APPT+1~ |
| STPCNT | STOPCAT+1~, STOPCAT+3*, STOPCAT+4, STOPCAT+5, STOPCAT+6 |
| SUPPLY | PROVIDER+16~*, PROVIDER+17, PROVIDER+18, SUPPLY~, SUPPLY+1, SUPPLY+8 |
| SVCAT | ENCOUNTR+2~ |
| TELCATD | PROVIDER+1~ |
| TMPCAT | STOPCAT+1~, STOPCAT+2*, STOPCAT+6*, STOPCAT+7 |
| TMPDT | AGGSET+2~, AGGSET+3* |
| TMPGRP | APPTG+1~, APPTG+5, APPTG+6, APPTG+15, APPTG+20 |
| TMPMON | AGGDT+2~, AGGDT+5*, AGGDT+20, AGGSET+3 |
| TMPQRT | AGGDT+2~, AGGDT+8*, AGGDT+20, AGGSET+3 |
| TMPSUP | SUPPLY+2~, SUPPLY+7*, SUPPLY+8*, SUPPLY+9 |
| TMPWK | AGGDT+2~, AGGDT+7*, AGGSET+3, GETWEEK+1!, GETWEEK+2*, GETWEEK+3*, GETWEEK+4 |
| TMPYR | AGGDT+2~, AGGDT+6*, AGGDT+20, AGGSET+3 |
| TODAY | WEEKS+1~, WEEKS+2*, WEEKS+3 |
| TOT | AGGSET+2~, AGGSET+4*, AGGSET+5 |
| TOT1 | AGGDT+32~ |
| TOT2 | AGGDT+32~ |
| TOT3 | AGGDT+32~ |
| TOT4 | AGGDT+32~ |
| U | CLSTOP+2, CLSTOP+5 |
| WEEKS | WEEKS~, WEEKS+1!* |
| WEEKS( | WEEKS+5* |
| X | GRP+3~* |
| Y | GRP+3~ |
| YEAR | GETQUART+1~, GETQUART+2*, GETQUART+6 |
