[1462] | 1 | BSDXAPI1 ; VEN/SMH - SCHEDULING APIs - Continued!!! ; 6/27/12 4:45pm
|
---|
[1461] | 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
|
---|
[1462] | 9 | ; NSFLAG = truthy value to add no-show, or falsy to remove (use 1 or 0 pls!)
|
---|
| 10 | ; 1^error for failure, 0 for success
|
---|
[1461] | 11 | ; Code follows EN1^SDN
|
---|
[1462] | 12 | ;
|
---|
| 13 | ; Check for failure conditions first before doing this. No globals set here
|
---|
[1461] | 14 | N NOSHOWCK S NOSHOWCK=$$NOSHOWCK(PAT,CLINIC,DATE,NSFLAG)
|
---|
| 15 | I NOSHOWCK Q NOSHOWCK
|
---|
| 16 | ;
|
---|
[1462] | 17 | ; Set up Protocol Driver
|
---|
[1461] | 18 | N SDNSHDL,SDDA S SDNSHDL=$$HANDLE^SDAMEVT(1) S SDDA=$$SCIEN^BSDXAPI(PAT,CLINIC,DATE)
|
---|
| 19 | N SDATA
|
---|
[1462] | 20 | D BEFORE^SDAMEVT(.SDATA,PAT,DATE,CLINIC,SDDA,SDNSHDL) ; Only ^TMP set here.
|
---|
| 21 | ;
|
---|
| 22 | ; Simulated Errors
|
---|
| 23 | Q:$D(BSDXSIMERR2) 1_U_"Simulated Error"
|
---|
| 24 | ;
|
---|
| 25 | ; Edit the ^DPT( "S" node entry - Noshow or undo noshow
|
---|
| 26 | ; Failure analysis: if we fail here, we presume no change happened in
|
---|
| 27 | ; ^DPT(DA,"S", and so we just have to roll back ^BSDXAPPT
|
---|
[1461] | 28 | N BSDXIENS S BSDXIENS=DATE_","_PAT_","
|
---|
| 29 | N BSDXFDA
|
---|
| 30 | I +NSFLAG D
|
---|
| 31 | . S BSDXFDA(2.98,BSDXIENS,3)="N"
|
---|
| 32 | . S BSDXFDA(2.98,BSDXIENS,14)=DUZ
|
---|
| 33 | . S BSDXFDA(2.98,BSDXIENS,15)=$$NOW^XLFDT()
|
---|
| 34 | E D
|
---|
| 35 | . S BSDXFDA(2.98,BSDXIENS,3)="@"
|
---|
| 36 | . S BSDXFDA(2.98,BSDXIENS,14)="@"
|
---|
| 37 | . S BSDXFDA(2.98,BSDXIENS,15)="@"
|
---|
| 38 | N BSDXMSG
|
---|
| 39 | D FILE^DIE("","BSDXFDA","BSDXMSG")
|
---|
| 40 | Q:$D(BSDXMSG) 1_U_"Fileman edit to DPT error: Patient="_PAT_" Appt="_DATE_" Error="_BSDXMSG("DIERR",1,"TEXT",1)
|
---|
[1462] | 41 | ;
|
---|
| 42 | ; This M error trigger tests if ^BSDXAPPT rolls back.
|
---|
| 43 | ; I won't try to roll back ^DPT(,"S"
|
---|
| 44 | ; The M error is caused here, so if I try to rollback, I can cause another
|
---|
| 45 | ; error. Infinite Errors then.
|
---|
| 46 | I $D(BSDXSIMERR3) N X S X=1/0
|
---|
| 47 | ;
|
---|
| 48 | ; Run the event driver
|
---|
[1461] | 49 | D NOSHOW^SDAMEVT(.SDATA,PAT,DATE,CLINIC,SDDA,0,SDNSHDL)
|
---|
| 50 | Q 0
|
---|
[1462] | 51 | ;
|
---|
[1461] | 52 | NOSHOWCK(PAT,CLINIC,DATE,NSFLAG) ; $$ PEP; No-show Check
|
---|
[1462] | 53 | ; TODO: Not all appointments can be no showed.
|
---|
| 54 | ; Check the code in SDAMN
|
---|
| 55 | ; S SDSTB=$$STATUS^SDAM1(DFN,SDT,SDCL,$G(^DPT(DFN,"S",SDT,0))) ; before status
|
---|
| 56 | ; Q:'$$CHK ; Checks $D(^SD(409.63,"ANS",1,+SDSTB))
|
---|
[1461] | 57 | QUIT 0
|
---|