SDEC40 ;ALB/SAT,WTC,LEG,TJB - VISTA SCHEDULING RPCS ;OCT 20, 2025@15:22
Source file <SDEC40.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 |
|---|---|---|
| APPTLETR(SDECY,SDECAPID,LT) | ||
| PRT(DFN,SDC,SD,LT,SDLET,SDFORM) | ;
; DFN - pointer to PATIENT file 2 ; SDC - pointer to HOSPITAL LOCATION file 44 ; SD - appointment time in FM format ; LT - Letter type - "N"=No Show; "P"=Pre-Appointment; "A"=Cancelled by Patient; "C"=Cancelled by Clinic ; SDLET - pointer to LETTER file 407.5 |
|
| WRAPP(DFN,SDC,SD,LT,SDLET) | ;WRITE APPOINTMENT INFORMATION
|
|
| FORM | ;S:$D(SDX) X=SDX S SDHX=X D DW^%DTC S DOW=X,X=SDHX X ^DD("FUNC",2,1) S SDT0=X,SDDAT=$P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC","^",$E(SDHX,4,5))_" "_+$E(SDHX,6,7)_", "_(1700+$E(SDHX,1,3)) ; See below wtc 6/7/18 694
|
|
| REST(DFN,SDC,SD,LT,SDLET,SDFORM) | ;WRITE THE REMAINDER OF LETTER
|
|
| ADDR | ||
| BADADD | ;Print patients with a Bad Address Indicator
|
|
| TST | ; SD*5.3*622 - handle scheduled tests
|
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | ADDR+2 |
| DW^%DTC | FORM+5 |
| $$FML^DGNFUNC | ADDR |
| $$GET1^DIQ | ADDR+6, ADDR+7 |
| ERR^SDECERR | APPTLETR+11, APPTLETR+12, APPTLETR+21 |
| $$FILL^SDECU | PRT+13, PRT+14, ADDR, ADDR+13, ADDR+16, ADDR+18, ADDR+19, ADDR+22, ADDR+24, ADDR+26 , ADDR+27, BADADD+3, BADADD+4, BADADD+8 |
| $$TIMEZONEDATA^SDESUTIL | FORM+4 |
| DTS^SDUTL | PRT+12 |
| ADD^VADPT | ADDR+3 |
| KVAR^VADPT | ADDR+29 |
| $$NAMEFMT^XLFNAME | PRT+21 |
| FileNo | Call Tags |
|---|---|
| ^DIC(5 - [#5] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("FUNC" - [#.5] | FORM+7 |
| ^DG(40.8 - [#40.8] | APPTLETR+22, APPTLETR+23 |
| ^DG(43 - [#43] | ADDR+1 |
| ^DPT - [#2] | APPTLETR+18, WRAPP+2 |
| ^SC - [#44] | APPTLETR+20, APPTLETR+21, APPTLETR+22, WRAPP+3, FORM+16, FORM+18, FORM+19, FORM+20, FORM+22 |
| ^SDEC(409.831 - [#409.831] | APPTLETR+17 |
| ^SDEC(409.84 - [#409.84] | APPTLETR+12, APPTLETR+14 |
| ^TMP("SDEC" | APPTLETR+8!, APPTLETR+10*, APPTLETR+25*, APPTLETR+29*, PRT+13*, PRT+14*, PRT+16*, PRT+18*, PRT+23*, PRT+24* , PRT+25*, PRT+28*, PRT+29*, WRAPP+6*, FORM+9*, FORM+11*, FORM+24*, FORM+28*, FORM+31*, REST+6* , REST+7*, ADDR*, ADDR+13*, ADDR+16*, ADDR+18*, ADDR+19*, ADDR+22*, ADDR+24*, ADDR+26*, ADDR+27* , ADDR+28*, BADADD+3*, BADADD+4*, BADADD+6*, BADADD+7*, BADADD+8*, BADADD+12*, BADADD+13*, BADADD+14*, BADADD+15* , TST+2*, TST+3*, TST+4* |
| ^TMP($J | BADADD+1, BADADD+10, BADADD+11 |
| ^VA(200 - [#200] | FORM+30 |
| ^VA(407.5 - [#407.5] | PRT+27, PRT+28, FORM+23, FORM+31, REST+5, REST+6 |
| Name | Field # of Occurrence |
|---|---|
| ^("BT" | ADDR+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | PRT+7~, PRT+8*, PRT+20, REST+1~, REST+2*, ADDR |
| B | WRAPP+1~, WRAPP+5*, FORM+9, FORM+10, FORM+23, FORM+25, FORM+31, FORM+33 |
| DFN | APPTLETR+5~, APPTLETR+16*, APPTLETR+18, APPTLETR+26, APPTLETR+27, APPTLETR+28, PRT~, PRT+8, PRT+9, WRAPP~ , WRAPP+2, REST~, REST+2, ADDR* |
| DOW | WRAPP+1~, FORM+5*, FORM+9, TST+2, TST+3, TST+4 |
| DPTNAME | PRT+7~, PRT+21 |
| DPTNAME("FIELD" | PRT+20* |
| DPTNAME("FILE" | PRT+20* |
| DPTNAME("IENS" | PRT+20* |
| DT | PRT+12, ADDR+2 |
| I | PRT+16*, PRT+18*, REST+1~ |
| IN | APPTLETR+5~, PRT+7~, PRT+27*, PRT+28, REST+1~, REST+5*, REST+6 |
| J | FORM+15~, FORM+22* |
| LL | ADDR+9~, ADDR+13*, ADDR+22* |
| LT | APPTLETR~, APPTLETR+13*, APPTLETR+19, APPTLETR+26, APPTLETR+27, APPTLETR+28, PRT~, PRT+10, WRAPP~, REST~ |
| RES | APPTLETR+5~, APPTLETR+17* |
| S | WRAPP+1~, WRAPP+2*, WRAPP+5* |
| SCLT | APPTLETR+5~, APPTLETR+19*, APPTLETR+20, APPTLETR+21 |
| SD | PRT~, WRAPP~, WRAPP+2, REST~ |
| SDC | APPTLETR+5~, APPTLETR+17*, APPTLETR+20, APPTLETR+21, APPTLETR+22, APPTLETR+26, APPTLETR+27, APPTLETR+28, PRT~, WRAPP~ , WRAPP+3, FORM+4, FORM+9, FORM+10, FORM+16, FORM+18, FORM+19, FORM+20, FORM+22, FORM+23 , FORM+25, FORM+30, FORM+31, REST~ |
| SDCCACT1 | ADDR+9~, ADDR+10*, ADDR+12, ADDR+21 |
| SDCCACT2 | ADDR+9~, ADDR+10*, ADDR+12, ADDR+21 |
| SDCL | WRAPP+1~, WRAPP+3*, WRAPP+5*, FORM+11, TST+2, TST+3, TST+4 |
| SDDAT | WRAPP+1~, FORM+8*, FORM+9, TST+2, TST+3, TST+4 |
| SDDFN | BADADD+9~, BADADD+11* |
| SDECAPID | APPTLETR~, APPTLETR+11, APPTLETR+12, APPTLETR+14 |
| SDECI | APPTLETR+5~, APPTLETR+7*, APPTLETR+29*, PRT+13*, PRT+14*, PRT+16*, PRT+18*, PRT+23*, PRT+24*, PRT+25* , PRT+28*, PRT+29*, WRAPP+6*, FORM+9*, FORM+11*, FORM+24*, FORM+28*, FORM+31*, REST+6*, REST+7* , ADDR*, ADDR+13*, ADDR+16*, ADDR+18*, ADDR+19*, ADDR+22*, ADDR+24*, ADDR+26*, ADDR+27*, ADDR+28* , BADADD+3*, BADADD+4*, BADADD+6*, BADADD+7*, BADADD+8*, BADADD+12*, BADADD+13*, BADADD+14*, BADADD+15*, TST+2* , TST+3*, TST+4* |
| SDECNOD | APPTLETR+5~, APPTLETR+14*, APPTLETR+15, APPTLETR+16, APPTLETR+17 |
| SDECTMP | APPTLETR+5~ |
| SDECY | APPTLETR~, APPTLETR+9* |
| SDFORM | APPTLETR+6~, APPTLETR+23*, APPTLETR+26, APPTLETR+28, PRT~, PRT+11*, PRT+15, REST~, REST+3*, REST+8 |
| SDHDR | BADADD+2~, BADADD+4* |
| SDHDR1 | BADADD+2~, BADADD+5*, BADADD+15 |
| SDHX | WRAPP+1~, FORM+5*, FORM+8 |
| SDIENS | ADDR+5~, ADDR+6*, ADDR+7*, ADDR+8! |
| SDIV | APPTLETR+6~, APPTLETR+22*, APPTLETR+23 |
| SDLET | APPTLETR+5~, APPTLETR+20*, APPTLETR+21, APPTLETR+26, APPTLETR+27, APPTLETR+28, PRT~, PRT+27, PRT+28, WRAPP~ , FORM+23, FORM+31, REST~, REST+5, REST+6 |
| SDLOC | FORM+15~, FORM+16*, FORM+24 |
| SDNAM | APPTLETR+6~, BADADD+9~, BADADD+10*, BADADD+11, BADADD+12 |
| SDPRNM | FORM+15~, FORM+30*, FORM+31 |
| SDPROV | FORM+15~, FORM+22*, FORM+29, FORM+30 |
| SDS | APPTLETR+5~, APPTLETR+18*, WRAPP+5 |
| SDSSN | APPTLETR+6~ |
| SDT | APPTLETR+5~, APPTLETR+15*, APPTLETR+18, APPTLETR+26, APPTLETR+27, APPTLETR+28 |
| SDT0 | WRAPP+1~, FORM+8*, FORM+9, TST+2, TST+3, TST+4 |
| SDTEL | FORM+15~, FORM+18*, FORM+19, FORM+25, FORM+26 |
| SDTELEXT | FORM+15~, FORM+19*, FORM+20*, FORM+27 |
| SDTMP | WRAPP+1~, FORM+26*, FORM+27*, FORM+28 |
| SDX | WRAPP+1~, WRAPP+2*, WRAPP+5*, WRAPP+7*, FORM+5 |
| SDX1 | WRAPP+1~, WRAPP+5*, WRAPP+7 |
| TIMEZONE | APPTLETR+5~, FORM+4*, FORM+9 |
| U | APPTLETR+15, APPTLETR+16, APPTLETR+17, APPTLETR+20, APPTLETR+21, APPTLETR+23, FORM+4, FORM+22, FORM+23, FORM+30 , FORM+31, ADDR+6, ADDR+7, ADDR+16, ADDR+19, ADDR+24, ADDR+27 |
| VAHOW | ADDR! |
| VAPA | APPTLETR+6~ |
| VAPA( | ADDR+13, ADDR+22 |
| VAPA("P" | ADDR+1* |
| VAPA(11 | ADDR+16 |
| VAPA(12 | ADDR+10 |
| VAPA(16 | ADDR+24, ADDR+26 |
| VAPA(17 | ADDR+7*, ADDR+24 |
| VAPA(18 | ADDR+24 |
| VAPA(22 | ADDR+10 |
| VAPA(23 | ADDR+18 |
| VAPA(24 | ADDR+18 |
| VAPA(25 | ADDR+15, ADDR+19 |
| VAPA(26 | ADDR+26 |
| VAPA(27 | ADDR+26 |
| VAPA(28 | ADDR+23, ADDR+27 |
| VAPA(4 | ADDR+16, ADDR+18 |
| VAPA(5 | ADDR+6*, ADDR+16 |
| X | PRT+7~, PRT+21*, PRT+23, WRAPP+1~, WRAPP+7*, FORM+5*, FORM+6*, FORM+8, REST+1~, ADDR+5~ , ADDR+6*, ADDR+7* |
| X1 | APPTLETR+5~, ADDR+2* |
| X2 | APPTLETR+5~, ADDR+2* |
| Y | APPTLETR+5~, PRT+7~, PRT+12*, PRT+13 |
| Z5 | REST+1~ |