SDEC40 ;ALB/SAT,WTC,LEG - VISTA SCHEDULING RPCS ;Feb 12, 2020@15:22
Source file <SDEC40.m>
| 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 | ||
| LAST4(DFN) | ;Return patient "last four"
|
|
| BADADD | ;Print patients with a Bad Address Indicator
|
|
| TST | ; SD*5.3*622 - handle scheduled tests
|
| FileNo | Call Tags |
|---|---|
| ^DIC(5 - [#5] | GET1^DIQ |
