SDES2APTLETTER ;ALB/TJB,TJB,TJB,MCB,JHC,TJB,TJB - VISTA SCHEDULING RPCS - LETTER PRINT ; OCT 20, 2025
Source file <SDES2APTLETTER.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | $$FMTE^XLFDT $$NAMEFMT^XLFNAME DUZ^XUP |
| Scheduling | 3 | (BUILDJSON,ERRLOG)^SDES2JSON VALCONTEXT^SDES2VALCONTEXT $$TIMEZONEDATA^SDESUTIL |
| Registration | 2 | $$FML^DGNFUNC (ADD,KVAR)^VADPT |
| VA FileMan | 2 | DW^%DTC ($$GET1,GETS)^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRINTLETTER(RESULTS,SDCONTEXT,SDINPUT) | ;
|
|
| PRINTLETTERS(RESULTS,SDCONTEXT,SDINPUT) | ;
|
|
| VALAPPTS(ERRORS,LIST,LTYPE) | ;
|
|
| VALAPPT(ERRORS,APPTIEN,LTYPE) | ;
|
|
| VALLETTYPE(ERRORS,LTYPE) | ;
|
|
| APPTLETTER(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 ; SDFORM - address location on letters (1 - bottom, 0 - top) |
|
| WRAPP(DFN,SDC,SD,LT,SDLET) | ;WRITE APPOINTMENT INFORMATION
|
|
| FORM(SDC,SDCL,SDX,LEXPROC,SDLET) | ;
|
|
| REST(DFN,SDC,SD,LT,SDLET,SDFORM) | ;WRITE THE REMAINDER OF LETTER
|
|
| ADDR(DFN) | ;
|
|
| DTS(Y) | ;
|
|
| BADADD | ;Print patients with a Bad Address Indicator
|
|
| TST(SDCL,DOW) | ; handle scheduled tests
|
|
| FILL(PADS,CHAR) | ||
| LILAST4(DFN) | ;Retrieve the first letter of the last name and append last 4 SSN of a patient
|
| Name | Field # of Occurrence |
|---|---|
| DW^%DTC | FORM+3 |
| $$FML^DGNFUNC | ADDR+3 |
| $$GET1^DIQ | VALAPPT+5, VALAPPT+6, VALAPPT+8, VALAPPT+10, APPTLETTER+14, APPTLETTER+16, APPTLETTER+17, APPTLETTER+20, PRT+23, WRAPP+3 , WRAPP+7, WRAPP+8, WRAPP+9, WRAPP+10, WRAPP+11, WRAPP+12, FORM+14, FORM+15, FORM+16, FORM+17 , FORM+20, FORM+21, FORM+22, REST+4, ADDR+4, ADDR+7, ADDR+8, LILAST4+4, LILAST4+5 |
| GETS^DIQ | APPTLETTER+10 |
| BUILDJSON^SDES2JSON | PRINTLETTER+6, PRINTLETTER+12, PRINTLETTER+17, PRINTLETTERS+5, PRINTLETTERS+12, PRINTLETTERS+23 |
| ERRLOG^SDES2JSON | PRINTLETTERS+8, VALAPPTS+2, VALAPPT+3, VALAPPT+4, VALAPPT+11, VALLETTYPE+2, VALLETTYPE+3 |
| VALCONTEXT^SDES2VALCONTEXT | PRINTLETTER+5, PRINTLETTERS+4 |
| $$TIMEZONEDATA^SDESUTIL | FORM+2 |
| ADD^VADPT | ADDR+5 |
| KVAR^VADPT | ADDR+27 |
| $$FMTE^XLFDT | PRT+13, DTS+2 |
| $$NAMEFMT^XLFNAME | PRT+19 |
| DUZ^XUP | PRINTLETTER+7, PRINTLETTERS+6 |
| RPC Name | Call Tags |
|---|---|
| SDES2 PRINT APPT LETTER | PRINTLETTER |
| SDES2 PRINT APPT LETTERS | PRINTLETTERS |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| 2.98 | GET1^DIQ |
| ^DG(40.8 - [#40.8] | GET1^DIQ |
| ^VA(407.5 - [#407.5] | GET1^DIQ |
| ^SDEC(409.831 - [#409.831] | GET1^DIQ |
| ^SDEC(409.84 - [#409.84] | GET1^DIQ, GETS^DIQ |
| ^DG(43 - [#43] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
| 44.1 | GET1^DIQ |
| ^DIC(5 - [#5] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("FUNC" - [#.5] | FORM+5 |
| ^DG(40.8 - [#40.8] | APPTLETTER+18 |
| ^DG(43 - [#43] | ADDR+4 |
| ^SC - [#44] | FORM+19 |
| ^SDEC(409.84 - [#409.84] | VALAPPT+4 |
| ^TMP("SDEC_COMP" | APPTLETTER+8!, APPTLETTER+9, PRT+14*, PRT+15*, PRT+20*, PRT+23*, FORM+8*, FORM+10*, FORM+23*, FORM+27* , FORM+30*, REST+4*, ADDR+3*, ADDR+12*, ADDR+15*, ADDR+17*, ADDR+18*, ADDR+21*, ADDR+23*, ADDR+25* , ADDR+26*, BADADD+3*, BADADD+4*, BADADD+6*, BADADD+7*, BADADD+8*, BADADD+11*, BADADD+12*, TST+3*, TST+6* , TST+9* |
| ^TMP($J | BADADD+1, BADADD+9, BADADD+10 |
| ^VA(200 - [#200] | FORM+29 |
| ^VA(407.5 - [#407.5] | PRT+22, FORM+30, REST+3 |
| ^VA(407.6 - [#407.6] | VALLETTYPE+3, VALLETTYPE+5 |
| Name | Line Occurrences |
|---|---|
| $$FILL | PRT+14, PRT+15, ADDR+3, ADDR+12, ADDR+15, ADDR+17, ADDR+18, ADDR+21, ADDR+23, ADDR+25 , ADDR+26, BADADD+3, BADADD+4, BADADD+8 |
| $$LILAST4 | PRT+15, BADADD+11 |
| $$VALLETTYPE | PRINTLETTER+8, PRINTLETTERS+11 |
| ADDR | PRT+16, REST+5 |
| APPTLETTER | PRINTLETTER+13, PRINTLETTERS+17 |
| FORM | WRAPP+4, WRAPP+8, WRAPP+10, WRAPP+12 |
| PRT | APPTLETTER+22 |
| REST | APPTLETTER+24 |
| TST | FORM+32 |
| VALAPPT | PRINTLETTER+9, PRINTLETTERS+16, VALAPPTS+3 |
| WRAPP | APPTLETTER+23 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | PRINTLETTER+2~, PRINTLETTERS+2~ |
| %H | PRINTLETTER+2~, PRINTLETTERS+2~ |
| %T | PRINTLETTER+2~, PRINTLETTERS+2~ |
| %Y | PRINTLETTER+2~, PRINTLETTERS+2~ |
| APPT | VALAPPTS+1~, VALAPPTS+3* |
| APPTIEN | PRINTLETTER+1~, PRINTLETTER+3*, PRINTLETTER+9, PRINTLETTER+13, PRINTLETTER+15, PRINTLETTERS+1~, PRINTLETTERS+13*, PRINTLETTERS+15*, PRINTLETTERS+16, PRINTLETTERS+17 , PRINTLETTERS+20, VALAPPT~, VALAPPT+3, VALAPPT+4, VALAPPT+5 |
| APPTLIST | PRINTLETTER+1~ |
| CHAR | FILL~, FILL+2*, FILL+3*, FILL+5 |
| CLIN | VALLETTYPE+1~ |
| CLINICIEN | APPTLETTER+5~, APPTLETTER+14*, APPTLETTER+16, APPTLETTER+17, APPTLETTER+22, APPTLETTER+23, APPTLETTER+24 |
| CLINIEN | VALAPPT+1~, VALAPPT+6*, VALAPPT+8, VALAPPT+10 |
| DFN | APPTLETTER+5~, APPTLETTER+12*, APPTLETTER+22, APPTLETTER+23, APPTLETTER+24, PRT~, PRT+9, PRT+15, PRT+16, PRT+18 , WRAPP~, WRAPP+6, REST~, REST+5, ADDR~, ADDR+3, LILAST4~, LILAST4+4, LILAST4+5 |
| DOW | FORM+1~, FORM+3*, FORM+8, FORM+32, TST~, TST+3, TST+6, TST+9 |
| DPTNAME | PRT+8~, PRT+19 |
| DPTNAME("FIELD" | PRT+18* |
| DPTNAME("FILE" | PRT+18* |
| DPTNAME("IENS" | PRT+18* |
| DT | PRT+12 |
| DUZ | PRINTLETTER+7~, PRINTLETTERS+6~ |
| ECNT | PRINTLETTERS+1~, PRINTLETTERS+13*, PRINTLETTERS+16* |
| ERRAPT | PRINTLETTERS+1~, PRINTLETTERS+16! |
| ERRAPT("Error" | PRINTLETTERS+16 |
| ERRORS | PRINTLETTER+1~, PRINTLETTER+5, PRINTLETTER+6, PRINTLETTER+8, PRINTLETTER+9, PRINTLETTER+10, PRINTLETTER+12, PRINTLETTER+16, PRINTLETTERS+1~, PRINTLETTERS+4 , PRINTLETTERS+5, PRINTLETTERS+8, PRINTLETTERS+11, PRINTLETTERS+12, PRINTLETTERS+22, VALAPPTS~, VALAPPTS+2, VALAPPTS+3, VALAPPT~, VALAPPT+3 , VALAPPT+4, VALAPPT+11, VALLETTYPE~, VALLETTYPE+2, VALLETTYPE+3 |
| ERRORS("Error" | PRINTLETTERS+16* |
| ERRORS("letters" | PRINTLETTER+6*, PRINTLETTER+11*, PRINTLETTERS+5*, PRINTLETTERS+12*, PRINTLETTERS+22* |
| ERRTXT | VALAPPT+1~, VALAPPT+10*, VALAPPT+11, APPTLETTER+6~ |
| FINSEC | REST+1~, REST+3*, REST+4 |
| GBL | PRINTLETTER+1~, PRINTLETTER+13, PRINTLETTER+14, PRINTLETTERS+1~, PRINTLETTERS+17, PRINTLETTERS+19 |
| I | FILL+1~, FILL+5* |
| INITSEC | PRT+8~, PRT+22*, PRT+23 |
| J | FORM+1~, FORM+19*, FORM+20, FORM+21 |
| LAST4SSN | LILAST4+1~, LILAST4+5*, LILAST4+6*, LILAST4+7*, LILAST4+8 |
| LASTIN | LILAST4+1~, LILAST4+4*, LILAST4+6, LILAST4+8 |
| LCNT | PRINTLETTER+1~, PRINTLETTERS+1~, PRINTLETTERS+13*, PRINTLETTERS+18*, PRINTLETTERS+19, PRINTLETTERS+20 |
| LETIEN | PRINTLETTER+1~, PRINTLETTER+8*, PRINTLETTERS+1~, PRINTLETTERS+11* |
| LETTERS | PRINTLETTER+1~, PRINTLETTER+16*, PRINTLETTER+17, PRINTLETTERS+1~, PRINTLETTERS+21, PRINTLETTERS+22*, PRINTLETTERS+23 |
| LETTERS("letters" | PRINTLETTER+14*, PRINTLETTER+15*, PRINTLETTERS+19*, PRINTLETTERS+20*, PRINTLETTERS+21* |
| LEXPROC | FORM~, FORM+7, FORM+8, FORM+9, FORM+22, FORM+24, FORM+30, FORM+32 |
| LIEN | VALLETTYPE+1~, VALLETTYPE+5*, VALLETTYPE+6 |
| LINE | PRINTLETTER+1~, PRINTLETTERS+1~ |
| LIST | VALAPPTS~ |
| LIST("Appoint | ment IEN" , VALAPPTS+2, VALAPPTS+3 |
| LL | ADDR+2~, ADDR+12*, ADDR+21* |
| LT | VALAPPT+1~, VALAPPT+2*, VALAPPT+7, VALAPPT+10, APPTLETTER~, APPTLETTER+15, APPTLETTER+22, APPTLETTER+23, APPTLETTER+24, PRT~ , PRT+10, WRAPP~, REST~ |
| LTYPE | PRINTLETTER+1~, PRINTLETTER+3*, PRINTLETTER+8, PRINTLETTER+9, PRINTLETTER+13, PRINTLETTERS+1~, PRINTLETTERS+10*, PRINTLETTERS+11, PRINTLETTERS+16, PRINTLETTERS+17 , VALAPPTS~, VALAPPTS+3, VALAPPT~, VALAPPT+2, VALLETTYPE~, VALLETTYPE+2, VALLETTYPE+3, VALLETTYPE+5 |
| OUT | LILAST4+1~, LILAST4+2* |
| PADS | FILL~, FILL+5 |
| PTAPPIENS | WRAPP+1~, WRAPP+6*, WRAPP+7, WRAPP+8, WRAPP+9, WRAPP+10, WRAPP+11, WRAPP+12 |
| RES | VALAPPT+1~, VALAPPT+5*, VALAPPT+6, APPTLETTER+5~, APPTLETTER+13*, APPTLETTER+14 |
| RESOURCE | VALLETTYPE+1~ |
| RESULTS | PRINTLETTER~, PRINTLETTER+6, PRINTLETTER+12, PRINTLETTER+17, PRINTLETTERS~, PRINTLETTERS+5, PRINTLETTERS+12, PRINTLETTERS+23 |
| RET | FILL+1~, FILL+4*, FILL+5*, FILL+6 |
| SCLETFLD | VALAPPT+1~, VALAPPT+7*, VALAPPT+8, APPTLETTER+6~, APPTLETTER+15*, APPTLETTER+16 |
| SD | PRT~, WRAPP~, WRAPP+2, WRAPP+6, REST~ |
| SDC | PRT~, WRAPP~, WRAPP+3, WRAPP+4, WRAPP+8, WRAPP+10, WRAPP+12, FORM~, FORM+2, FORM+8 , FORM+9, FORM+14, FORM+15, FORM+16, FORM+17, FORM+19, FORM+20, FORM+21, FORM+22, FORM+24 , FORM+29, FORM+30, REST~ |
| SDCCACT1 | ADDR+2~, ADDR+9*, ADDR+11, ADDR+20 |
| SDCCACT2 | ADDR+2~, ADDR+9*, ADDR+11, ADDR+20 |
| SDCL | WRAPP+1~, WRAPP+3*, WRAPP+4*, WRAPP+8*, WRAPP+10*, WRAPP+12*, FORM~, FORM+10, FORM+32, TST~ , TST+1, TST+3, TST+4, TST+6, TST+7, TST+9 |
| SDCONTEXT | PRINTLETTER~, PRINTLETTER+5, PRINTLETTERS~, PRINTLETTERS+4 |
| SDCONTEXT("US | ER DUZ" , PRINTLETTER+7, PRINTLETTERS+6 |
| SDDAT | WRAPP+1~, FORM+6*, FORM+8, TST+3, TST+6, TST+9 |
| SDDFN | BADADD+2~, BADADD+10*, BADADD+11 |
| SDECAPID | APPTLETTER~, APPTLETTER+10, APPTLETTER+11, APPTLETTER+12, APPTLETTER+13 |
| SDECDATA | APPTLETTER+6~ |
| SDECDATA( | APPTLETTER+11, APPTLETTER+12, APPTLETTER+13 |
| SDECI | APPTLETTER+5~, APPTLETTER+7*, PRT+14*, PRT+15*, PRT+20*, PRT+23*, FORM+8*, FORM+10*, FORM+23*, FORM+27* , FORM+30*, REST+4*, ADDR+3*, ADDR+12*, ADDR+15*, ADDR+17*, ADDR+18*, ADDR+21*, ADDR+23*, ADDR+25* , ADDR+26*, BADADD+3*, BADADD+4*, BADADD+6*, BADADD+7*, BADADD+8*, BADADD+11*, BADADD+12*, TST+2*, TST+3 , TST+5*, TST+6, TST+8*, TST+9 |
| SDECY | APPTLETTER~, APPTLETTER+9* |
| SDFORM | APPTLETTER+6~, APPTLETTER+20*, APPTLETTER+22, APPTLETTER+24, PRT~, PRT+11*, PRT+16, REST~, REST+5 |
| SDHDR | BADADD+2~, BADADD+4* |
| SDHDR1 | BADADD+2~, BADADD+5*, BADADD+12 |
| SDHX | WRAPP+1~, FORM+1~, FORM+3*, FORM+6 |
| SDIENS | ADDR+2~, ADDR+7*, ADDR+8* |
| SDINPUT | PRINTLETTER~, PRINTLETTERS~ |
| SDINPUT("Appo | intment IEN" , PRINTLETTER+3, PRINTLETTERS+7, PRINTLETTERS+15 |
| SDINPUT("Lett | er Type" , PRINTLETTER+3, PRINTLETTERS+10 |
| SDIV | APPTLETTER+6~, APPTLETTER+17*, APPTLETTER+18*, APPTLETTER+20 |
| SDLET | VALAPPT+1~, VALAPPT+8*, VALAPPT+9, APPTLETTER+5~, APPTLETTER+16*, APPTLETTER+22, APPTLETTER+23, APPTLETTER+24, PRT~, PRT+22 , PRT+23, WRAPP~, WRAPP+4, FORM~, FORM+22, FORM+30, REST~, REST+3, REST+4 |
| SDLOC | FORM+1~, FORM+14*, FORM+23 |
| SDNAM | APPTLETTER+6~, BADADD+2~, BADADD+9*, BADADD+10, BADADD+11 |
| SDPRNM | FORM+1~, FORM+29*, FORM+30 |
| SDPROV | FORM+1~, FORM+21*, FORM+28, FORM+29 |
| SDT | APPTLETTER+5~, APPTLETTER+11*, APPTLETTER+22, APPTLETTER+23, APPTLETTER+24 |
| SDT0 | FORM+1~, FORM+6*, FORM+8, TST+3, TST+6, TST+9 |
| SDTEL | FORM+1~, FORM+15*, FORM+16, FORM+24, FORM+25 |
| SDTELEXT | FORM+1~, FORM+16*, FORM+17*, FORM+26 |
| SDTMP | FORM+1~, FORM+25*, FORM+26*, FORM+27 |
| SDX | WRAPP+1~, WRAPP+2*, WRAPP+4, WRAPP+5, WRAPP+8*, WRAPP+10*, WRAPP+12*, WRAPP+13*, FORM~, FORM+3 |
| SDX1 | WRAPP+1~, WRAPP+5*, WRAPP+13 |
| TIMEZONE | APPTLETTER+5~, FORM+1~, FORM+2*, FORM+8 |
| U | FORM+2, FORM+29, FORM+30, ADDR+7, ADDR+8, ADDR+15, ADDR+18, ADDR+23, ADDR+26 |
| VACNTRY | ADDR+2~ |
| VAHOW | ADDR+1! |
| VAPA | ADDR+2~ |
| VAPA( | ADDR+12, ADDR+21 |
| VAPA("P" | ADDR+4* |
| VAPA(11 | ADDR+15 |
| VAPA(12 | ADDR+9 |
| VAPA(16 | ADDR+23, ADDR+25 |
| VAPA(17 | ADDR+8*, ADDR+23 |
| VAPA(18 | ADDR+23 |
| VAPA(22 | ADDR+9 |
| VAPA(23 | ADDR+17 |
| VAPA(24 | ADDR+17 |
| VAPA(25 | ADDR+14, ADDR+18 |
| VAPA(26 | ADDR+25 |
| VAPA(27 | ADDR+25 |
| VAPA(28 | ADDR+22, ADDR+26 |
| VAPA(4 | ADDR+15, ADDR+17 |
| VAPA(5 | ADDR+7*, ADDR+15 |
| X | PRT+8~, PRT+19*, PRT+20, WRAPP+1~, WRAPP+13*, FORM+1~, FORM+3*, FORM+4*, FORM+6, ADDR+2~ , ADDR+7*, ADDR+8* |
| X1 | APPTLETTER+5~ |
| X2 | APPTLETTER+5~ |
| Y | APPTLETTER+5~, PRT+8~, PRT+12*, PRT+13*, PRT+14, DTS~, DTS+1, DTS+2 |
