| 1 | BSDXAPI1 ; VEN/SMH - SCHEDULING APIs - Continued!!! ; 6/26/12 4:32pm
|
|---|
| 2 | ;;1.7T1;BSDX;;Aug 31, 2011;Build 18
|
|---|
| 3 | ; Licensed under LGPL
|
|---|
| 4 | ;
|
|---|
| 5 | NOSHOW(PAT,CLINIC,DATE,NSFLAG) ; $$ PEP; No-show Patient at appt date (new in v1.7)
|
|---|
| 6 | ; PAT = DFN
|
|---|
| 7 | ; CLINIC = SC IEN
|
|---|
| 8 | ; DATE = FM Date/Time of Appointment
|
|---|
| 9 | ; NSFLAG = truthy value to add no-show, or falsy to remove
|
|---|
| 10 | ; -1^error for failure, 0 for success
|
|---|
| 11 | ; Code follows EN1^SDN
|
|---|
| 12 | N NOSHOWCK S NOSHOWCK=$$NOSHOWCK(PAT,CLINIC,DATE,NSFLAG)
|
|---|
| 13 | I NOSHOWCK Q NOSHOWCK
|
|---|
| 14 | ;
|
|---|
| 15 | N SDNSHDL,SDDA S SDNSHDL=$$HANDLE^SDAMEVT(1) S SDDA=$$SCIEN^BSDXAPI(PAT,CLINIC,DATE)
|
|---|
| 16 | N SDATA
|
|---|
| 17 | D BEFORE^SDAMEVT(.SDATA,PAT,DATE,CLINIC,SDDA,SDNSHDL)
|
|---|
| 18 | N BSDXIENS S BSDXIENS=DATE_","_PAT_","
|
|---|
| 19 | N BSDXFDA
|
|---|
| 20 | I +NSFLAG D
|
|---|
| 21 | . S BSDXFDA(2.98,BSDXIENS,3)="N"
|
|---|
| 22 | . S BSDXFDA(2.98,BSDXIENS,14)=DUZ
|
|---|
| 23 | . S BSDXFDA(2.98,BSDXIENS,15)=$$NOW^XLFDT()
|
|---|
| 24 | E D
|
|---|
| 25 | . S BSDXFDA(2.98,BSDXIENS,3)="@"
|
|---|
| 26 | . S BSDXFDA(2.98,BSDXIENS,14)="@"
|
|---|
| 27 | . S BSDXFDA(2.98,BSDXIENS,15)="@"
|
|---|
| 28 | N BSDXMSG
|
|---|
| 29 | D FILE^DIE("","BSDXFDA","BSDXMSG")
|
|---|
| 30 | Q:$D(BSDXMSG) 1_U_"Fileman edit to DPT error: Patient="_PAT_" Appt="_DATE_" Error="_BSDXMSG("DIERR",1,"TEXT",1)
|
|---|
| 31 | D NOSHOW^SDAMEVT(.SDATA,PAT,DATE,CLINIC,SDDA,0,SDNSHDL)
|
|---|
| 32 | Q 0
|
|---|
| 33 | NOSHOWCK(PAT,CLINIC,DATE,NSFLAG) ; $$ PEP; No-show Check
|
|---|
| 34 | ; pars are the same as above
|
|---|
| 35 | QUIT 0
|
|---|
