[1466] | 1 | BSDXAPI1 ; VEN/SMH - SCHEDULING APIs - Continued!!! ; 7/3/12 12:37pm
|
---|
[1461] | 2 | ;;1.7T1;BSDX;;Aug 31, 2011;Build 18
|
---|
| 3 | ; Licensed under LGPL
|
---|
| 4 | ;
|
---|
[1466] | 5 | ; Change History (BSDXAPI and BSDXAPI1)
|
---|
| 6 | ; Pre 1.42:
|
---|
| 7 | ; - Simplified entry points (MAKE1, CANCEL1, CHECKIN1)
|
---|
| 8 | ; 2010-11-5: (1.42)
|
---|
| 9 | ; - Fixed errors having to do uncanceling patient appointments if it was
|
---|
| 10 | ; a patient cancelled appointment.
|
---|
| 11 | ; - Use new style Fileman API for storing appointments in file 44 in
|
---|
| 12 | ; $$MAKE due to problems with legacy API.
|
---|
| 13 | ; 2010-11-12: (1.42)
|
---|
| 14 | ; - Changed ="C" to ["C" in SCIEN. Cancelled appointments can be "PC" as
|
---|
| 15 | ; well.
|
---|
| 16 | ; 2010-12-5 (1.42)
|
---|
| 17 | ; Added an entry point to update the patient note in file 44.
|
---|
| 18 | ; 2010-12-6 (1.42)
|
---|
| 19 | ; MAKE1 incorrectly put info field in BSDR("INFO") rather than BSDR("OI")
|
---|
| 20 | ; 2010-12-8 (1.42)
|
---|
| 21 | ; Removed restriction on max appt length. Even though this restriction
|
---|
| 22 | ; exists in fileman (120 minutes), PIMS ignores it. Therefore, I
|
---|
| 23 | ; will ignore it here too.
|
---|
| 24 | ; 2011-01-25 (v.1.5)
|
---|
| 25 | ; Added entry point $$RMCI to remove checked in appointments.
|
---|
| 26 | ; In $$CANCEL, if the appointment is checked in, delete check-in rather than
|
---|
| 27 | ; spitting an error message to the user saying 'Delete the check-in'
|
---|
| 28 | ; Changed all lines that look like this:
|
---|
| 29 | ; I $G(BSDR("ADT"))'?7N1".".4N Q 1_U_"Appt Date/Time error: "_$G(BSDR("ADT"))
|
---|
| 30 | ; to:
|
---|
| 31 | ; I $G(BSDR("ADT"))'?7N.1".".4N Q 1_U_"Appt Date/Time error: "_$G(BSDR("ADT"))
|
---|
| 32 | ; to allow for date at midnight which does not have a dot at the end.
|
---|
| 33 | ; 2011-01-26 (v.1.5)
|
---|
| 34 | ; More user friendly message if patient already has appointment in $$MAKE:
|
---|
| 35 | ; Spits out pt name and user friendly date.
|
---|
| 36 | ; 2012-06-18 (v 1.7)
|
---|
| 37 | ; Removing transacions. Means that code SHOULD NOT fail. Took all checks
|
---|
| 38 | ; out for making an appointment to MAKECK. We call this first to make sure
|
---|
| 39 | ; that the appointment is okay to make before committing to make it. We
|
---|
| 40 | ; still have the provision to delete the data though if we fail when we
|
---|
| 41 | ; actually make the appointment.
|
---|
| 42 | ; CANCELCK exists for the same purpose.
|
---|
| 43 | ; CHECKINK ditto
|
---|
| 44 | ; New API: $$NOWSHOW^BSDXAPI1 for no-showing patients
|
---|
| 45 | ; Moved RMCI from BSDXAPI to BSDXAPI1 because BSDXAPI1 is getting larger
|
---|
| 46 | ; than 20000 characters.
|
---|
| 47 | ;
|
---|
[1461] | 48 | NOSHOW(PAT,CLINIC,DATE,NSFLAG) ; $$ PEP; No-show Patient at appt date (new in v1.7)
|
---|
| 49 | ; PAT = DFN
|
---|
| 50 | ; CLINIC = SC IEN
|
---|
| 51 | ; DATE = FM Date/Time of Appointment
|
---|
[1462] | 52 | ; NSFLAG = truthy value to add no-show, or falsy to remove (use 1 or 0 pls!)
|
---|
| 53 | ; 1^error for failure, 0 for success
|
---|
[1461] | 54 | ; Code follows EN1^SDN
|
---|
[1462] | 55 | ;
|
---|
| 56 | ; Check for failure conditions first before doing this. No globals set here
|
---|
[1461] | 57 | N NOSHOWCK S NOSHOWCK=$$NOSHOWCK(PAT,CLINIC,DATE,NSFLAG)
|
---|
| 58 | I NOSHOWCK Q NOSHOWCK
|
---|
| 59 | ;
|
---|
[1462] | 60 | ; Set up Protocol Driver
|
---|
[1461] | 61 | N SDNSHDL,SDDA S SDNSHDL=$$HANDLE^SDAMEVT(1) S SDDA=$$SCIEN^BSDXAPI(PAT,CLINIC,DATE)
|
---|
| 62 | N SDATA
|
---|
[1462] | 63 | D BEFORE^SDAMEVT(.SDATA,PAT,DATE,CLINIC,SDDA,SDNSHDL) ; Only ^TMP set here.
|
---|
| 64 | ;
|
---|
| 65 | ; Simulated Errors
|
---|
| 66 | Q:$D(BSDXSIMERR2) 1_U_"Simulated Error"
|
---|
| 67 | ;
|
---|
| 68 | ; Edit the ^DPT( "S" node entry - Noshow or undo noshow
|
---|
| 69 | ; Failure analysis: if we fail here, we presume no change happened in
|
---|
| 70 | ; ^DPT(DA,"S", and so we just have to roll back ^BSDXAPPT
|
---|
[1461] | 71 | N BSDXIENS S BSDXIENS=DATE_","_PAT_","
|
---|
| 72 | N BSDXFDA
|
---|
| 73 | I +NSFLAG D
|
---|
| 74 | . S BSDXFDA(2.98,BSDXIENS,3)="N"
|
---|
| 75 | . S BSDXFDA(2.98,BSDXIENS,14)=DUZ
|
---|
| 76 | . S BSDXFDA(2.98,BSDXIENS,15)=$$NOW^XLFDT()
|
---|
| 77 | E D
|
---|
| 78 | . S BSDXFDA(2.98,BSDXIENS,3)="@"
|
---|
| 79 | . S BSDXFDA(2.98,BSDXIENS,14)="@"
|
---|
| 80 | . S BSDXFDA(2.98,BSDXIENS,15)="@"
|
---|
| 81 | N BSDXMSG
|
---|
| 82 | D FILE^DIE("","BSDXFDA","BSDXMSG")
|
---|
| 83 | Q:$D(BSDXMSG) 1_U_"Fileman edit to DPT error: Patient="_PAT_" Appt="_DATE_" Error="_BSDXMSG("DIERR",1,"TEXT",1)
|
---|
[1462] | 84 | ;
|
---|
| 85 | ; This M error trigger tests if ^BSDXAPPT rolls back.
|
---|
[1466] | 86 | ; I won't try to roll back ^DPT(,"S" because
|
---|
| 87 | ; the M error is caused here, so if I try to rollback, I can cause another
|
---|
[1462] | 88 | ; error. Infinite Errors then.
|
---|
| 89 | I $D(BSDXSIMERR3) N X S X=1/0
|
---|
| 90 | ;
|
---|
| 91 | ; Run the event driver
|
---|
[1461] | 92 | D NOSHOW^SDAMEVT(.SDATA,PAT,DATE,CLINIC,SDDA,0,SDNSHDL)
|
---|
| 93 | Q 0
|
---|
[1462] | 94 | ;
|
---|
[1461] | 95 | NOSHOWCK(PAT,CLINIC,DATE,NSFLAG) ; $$ PEP; No-show Check
|
---|
[1462] | 96 | ; TODO: Not all appointments can be no showed.
|
---|
| 97 | ; Check the code in SDAMN
|
---|
| 98 | ; S SDSTB=$$STATUS^SDAM1(DFN,SDT,SDCL,$G(^DPT(DFN,"S",SDT,0))) ; before status
|
---|
| 99 | ; Q:'$$CHK ; Checks $D(^SD(409.63,"ANS",1,+SDSTB))
|
---|
[1461] | 100 | QUIT 0
|
---|
[1464] | 101 | ;
|
---|
| 102 | RMCI(PAT,CLINIC,DATE) ;PEP; -- Remove Check-in; $$
|
---|
| 103 | ; PAT = DFN
|
---|
| 104 | ; CLINIC = SC IEN
|
---|
| 105 | ; DATE = FM Date/Time of Appointment
|
---|
| 106 | ;
|
---|
| 107 | ; Returns:
|
---|
| 108 | ; 0 if okay
|
---|
| 109 | ; -1 if failure
|
---|
| 110 | ;
|
---|
| 111 | ; Call like this: $$RMCI(233,33,3110102.1130)
|
---|
| 112 | ;
|
---|
[1466] | 113 | ; Check to see if we can remove the check-in
|
---|
| 114 | N BSDXERR S BSDXERR=$$RMCICK(PAT,CLINIC,DATE)
|
---|
| 115 | I BSDXERR Q BSDXERR
|
---|
| 116 | ;
|
---|
[1464] | 117 | ; Move my variables into the ones used by SDAPIs (just a convenience)
|
---|
| 118 | NEW SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL,SDMODE
|
---|
| 119 | S DFN=PAT,SDT=DATE,SDCL=CLINIC,SDMODE=2,SDDA=$$SCIEN^BSDXAPI(DFN,SDCL,SDT)
|
---|
| 120 | ;
|
---|
| 121 | I SDDA<1 QUIT 0 ; Appt cancelled; cancelled appts rm'ed from file 44
|
---|
| 122 | ;
|
---|
| 123 | ; remember before status
|
---|
| 124 | S SDCIHDL=$$HANDLE^SDAMEVT(1),SDATA=SDDA_U_DFN_U_SDT_U_SDCL
|
---|
| 125 | D BEFORE^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL)
|
---|
| 126 | ;
|
---|
| 127 | ; remove check-in using filer.
|
---|
| 128 | N BSDXIENS S BSDXIENS=SDDA_","_DATE_","_CLINIC_","
|
---|
| 129 | N BSDXFDA
|
---|
| 130 | S BSDXFDA(44.003,BSDXIENS,309)="@" ; CHECKED-IN
|
---|
| 131 | S BSDXFDA(44.003,BSDXIENS,302)="@" ; CHECK IN USER
|
---|
| 132 | S BSDXFDA(44.003,BSDXIENS,305)="@" ; CHECK IN ENTERED
|
---|
| 133 | N BSDXERR
|
---|
| 134 | D FILE^DIE("","BSDXFDA","BSDXERR")
|
---|
| 135 | I $D(BSDXERR) QUIT "-1~Can't file for Pat "_PAT_" in Clinic "_CLINIC_" at "_DATE_". Fileman reported an error: "_BSDXERR("DIERR",1,"TEXT",1)
|
---|
| 136 | ;
|
---|
| 137 | ; set after status
|
---|
| 138 | ; S SDDA=$$SCIEN(DFN,SDCL,SDT) ;smh -why is this here? SDDA won't change.
|
---|
| 139 | S SDCIHDL=$$HANDLE^SDAMEVT(1),SDATA=SDDA_U_DFN_U_SDT_U_SDCL
|
---|
| 140 | D AFTER^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL)
|
---|
| 141 | ;
|
---|
| 142 | ; call event driver
|
---|
| 143 | D EVT^SDAMEVT(.SDATA,4,SDMODE,SDCIHDL)
|
---|
| 144 | QUIT 0
|
---|
| 145 | ;
|
---|
[1466] | 146 | RMCICK(PAT,CLINIC,DATE) ;PEP; Can you remove a check-in for this patient?
|
---|
| 147 | ; PAT - DFN by value
|
---|
| 148 | ; CLINIC - ^SC ien by value
|
---|
| 149 | ; DATE - Appointment Date
|
---|
| 150 | ; Output: 0 if okay or 1 if error
|
---|
| 151 | ;
|
---|
| 152 | ; Get appointment IEN in ^SC(DA(2),"S",DA(1),1,
|
---|
| 153 | N SCIEN S SCIEN=$$SCIEN^BSDXAPI(PAT,CLINIC,DATE)
|
---|
| 154 | ;
|
---|
| 155 | ; If not there, it has been cancelled.
|
---|
| 156 | I 'SCIEN QUIT 0
|
---|
| 157 | ;
|
---|
| 158 | ; Check if checked out
|
---|
| 159 | I $$CO^BSDXAPI(PAT,CLINIC,DATE,SCIEN) Q 1_U_"Appointment Already Checked Out"
|
---|
| 160 | ;
|
---|
| 161 | QUIT 0
|
---|
| 162 | ;
|
---|
[1464] | 163 | UPDATENT(PAT,CLINIC,DATE,NOTE) ; PEP; Update Note in ^SC for patient's appointment @ DATE
|
---|
| 164 | ; PAT = DFN
|
---|
| 165 | ; CLINIC = SC IEN
|
---|
| 166 | ; DATE = FM Date/Time of Appointment
|
---|
| 167 | ;
|
---|
| 168 | ; Returns:
|
---|
| 169 | ; 0 if okay
|
---|
| 170 | ; -1 if failure
|
---|
| 171 | ;
|
---|
| 172 | ; ERROR SIMULATION
|
---|
| 173 | I $G(BSDXSIMERR1) QUIT "-1~Simulated Error"
|
---|
| 174 | ;
|
---|
| 175 | N SCIEN S SCIEN=$$SCIEN^BSDXAPI(PAT,CLINIC,DATE) ; ien of appt in ^SC
|
---|
| 176 | I SCIEN<1 QUIT 0 ; Appt cancelled; cancelled appts rm'ed from file 44
|
---|
| 177 | N BSDXIENS S BSDXIENS=SCIEN_","_DATE_","_CLINIC_","
|
---|
| 178 | N BSDXFDA S BSDXFDA(44.003,BSDXIENS,3)=$E(NOTE,1,150)
|
---|
| 179 | N BSDXERR
|
---|
| 180 | D FILE^DIE("","BSDXFDA","BSDXERR")
|
---|
| 181 | I $D(BSDXERR) QUIT "-1~Can't file for Pat "_PAT_" in Clinic "_CLINIC_" at "_DATE_". Fileman reported an error: "_BSDXERR("DIERR",1,"TEXT",1)
|
---|
| 182 | QUIT 0
|
---|
| 183 | ;
|
---|