- SDEC52CRMVJSON ;ALB/BLB,LEG,LAB - VIA RECALL REMINDER REMOVE FILE (#403.56) ;MAR 23, 2022@10:48
- ;;5.3;Scheduling;**790,799,813**;Aug 13, 1993;Build 6
- ;;Per VHA Directive 6402, this routine should not be modified
- ;
- ;Reference is made to ICR #10035
- Q
- ;
- RECGETJSON(SDECY,DFN) ;Return a list of REMOVED recall appointment types for patient
- ;INPUT - DFN (Data File Number) Pointer to PATIENT (#2) File.
- ;RETURN PARMETER:
- ;List of recalls associated with a given patient
- ; Field List:
- ; (1) Internal IEN
- ; (2) Accession #
- ; (3) Comment
- ; (4) Fast/Non-Fasting
- ; (5) Test/App
- ; (6) Provider IEN
- ; (7) Provider Name
- ; (8) Clinic IEN
- ; (9) Clinic Name
- ; (10) Length of Appointment
- ; (11) Recall Date
- ; (12) Recall Date (Per Patient)
- ; (13) Date Reminder Sent
- ; (14) Second Print
- ; (15) Date/Time Recall Added
- ; (16) GAF Score
- ; (17) Patient Sensitive & Record Access Checks
- ; (18) Similar Patient Data
- ; (19) Number of Call Attempts
- ; (20) Recall Reminders Letter Date
- ; Number of Email Contacts
- ; Number of Text Contacts
- ; Number of Secure Messages
- ;
- N SDRECALLRMV,IEN,NUM,ERR,IENS,SDESJSONERR
- S DFN=$G(DFN),SDESJSONERR=0
- I DFN="" S SDESJSONERR=1 D ERRLOG^SDESJSON(.SDRECALLRMV,1)
- S ERR=0,IEN=0,NUM=0
- I DFN'="",'$D(^DPT(DFN,0)) S SDESJSONERR=1 D ERRLOG^SDESJSON(.SDRECALLRMV,2)
- I 'SDESJSONERR D
- . F S IEN=$O(^SD(403.56,"B",DFN,IEN)) Q:IEN="" D
- . . S NUM=NUM+1
- . . D RECDATA(DFN,IEN)
- . . D PATDATA(DFN,IEN)
- .I '$D(SDRECALLRMV("Recall")) S SDRECALLRMV("Recall")=""
- D BUILDER
- Q
- ;
- RECDATA(DFN,IEN) ;
- N F,DAPTDT,DATE,DATE1,DATE2,DATE3,RECARY
- D GETS^DIQ(403.56,IEN,"**","IE","RECARY","SDMSG")
- S F=403.56
- S IENS=IEN_","
- S SDRECALLRMV("Recall",NUM,"RecallIEN")=IEN
- S SDRECALLRMV("Recall",NUM,"Accession")=$G(RECARY(F,IENS,2,"E"))
- S SDRECALLRMV("Recall",NUM,"Comment")=$G(RECARY(F,IENS,2.5,"E"))
- S SDRECALLRMV("Recall",NUM,"FastingNonFasting")=$G(RECARY(F,IENS,2.6,"I"))
- S SDRECALLRMV("Recall",NUM,"TestApp")=$G(RECARY(F,IENS,3,"I"))
- S SDRECALLRMV("Recall",NUM,"ProviderIEN")=$G(RECARY(F,IENS,4,"I"))
- S SDRECALLRMV("Recall",NUM,"ProviderName")=$$GET1^DIQ(403.54,SDRECALLRMV("Recall",NUM,"ProviderIEN"),.01,"E")
- S SDRECALLRMV("Recall",NUM,"ClinicIEN")=$G(RECARY(F,IENS,4.5,"I"))
- S SDRECALLRMV("Recall",NUM,"ClinicName")=$G(RECARY(F,IENS,4.5,"E"))
- S SDRECALLRMV("Recall",NUM,"AppointmentLength")=$G(RECARY(F,IENS,4.7,"E"))
- S DATE=$G(RECARY(F,IENS,5,"I")) S DATE=$$FMTE^XLFDT(DATE)
- S DATE1=$G(RECARY(F,IENS,5.5,"I")) S DATE1=$$FMTE^XLFDT(DATE1)
- S DAPTDT=$G(RECARY(F,IENS,6,"I")) S DAPTDT=$$FMTE^XLFDT(DAPTDT)
- S DATE2=$G(RECARY(F,IENS,8,"I")) S DATE2=$$FMTE^XLFDT(DATE2)
- S DATE3=$G(RECARY(403.56,IENS,7.5,"E")) S DATE3=$$FMTE^XLFDT(DATE3)
- S SDRECALLRMV("Recall",NUM,"RecallDate")=DATE
- S SDRECALLRMV("Recall",NUM,"RecallDatePerPatient")=DATE1
- S SDRECALLRMV("Recall",NUM,"DateReminderSent")=DAPTDT
- S SDRECALLRMV("Recall",NUM,"SecondPrint")=DATE2
- S SDRECALLRMV("Recall",NUM,"DateTimeRecallAdded")=DATE3
- Q
- ;
- PATDATA(DFN,IEN) ;
- N SDREC
- S SDRECALLRMV("Recall",NUM,"GAFScore")=$$GAF^SDECU2(DFN)
- S SDRECALLRMV("Recall",NUM,"PatientSensitiveRecordAccessChecks")=$$PTSEC^SDECUTL(DFN)
- S SDRECALLRMV("Recall",NUM,"SimilarPatientData")=$$SIM^SDECU3(DFN)
- S SDREC=$$RECALL^SDECAR1A(DFN,IEN)
- S SDRECALLRMV("Recall",NUM,"NumberOfCallAttempts")=$P(SDREC,U)
- S SDRECALLRMV("Recall",NUM,"RecallRemindersLetterDate")=$P(SDREC,U,2)
- S SDRECALLRMV("Recall",NUM,"NumberOfEmailContact")=$P(SDREC,U,3)
- S SDRECALLRMV("Recall",NUM,"NumberOfTextContact")=$P(SDREC,U,4)
- S SDRECALLRMV("Recall",NUM,"NumberOfSecureMessages")=$P(SDREC,U,5)
- Q
- ;
- BUILDER ;
- D ENCODE^XLFJSON("SDRECALLRMV","SDECY","ERR")
- Q
- ;
- RECGETONERMVJSON(SDECY,DFN) ;Return the latest REMOVED RECALL REMINDER info in JSON format based on the patient DFN
- ;INPUT - DFN (Data File Number) Pointer to PATIENT (#2) File.
- ;RETURN PARAMETER: recall based on DFN being passed
- ; Field List:
- ; (1) Internal IEN
- ; (2) Accession #
- ; (3) Comment
- ; (4) Fast/Non-Fasting
- ; (5) Test/App
- ; (6) Provider IEN
- ; (7) Provider Name
- ; (8) Clinic IEN
- ; (9) Clinic Name
- ; (10) Length of Appointment
- ; (11) Recall Date
- ; (12) Recall Date (Per Patient)
- ; (13) Date Reminder Sent
- ; (14) Second Print
- ; (15) Date/Time Recall Added
- ; (16) GAF Score
- ; (17) Patient Sensitive & Record Access Checks
- ; (18) Similar Patient Data
- ; (19) Number of Call Attempts
- ; (20) Recall Reminders Letter Date
- ;
- N ERR,NUM,F,IENS,ACCESION,COMM,FASTING,RRAPPTYP,RRPROVIEN,PROVNAME,CLINIEN,SDTMP,NUM,SDECI,SDESJSONERR
- N CLINNAME,APPTLEN,DATE,DATE1,DAPTDT,DATE2,DATE3,MSGTYP,GAF,SENSITIVE,SIMILAR,SDREC,CPHONE,CLET,SDRECALLRMV
- S SDESJSONERR=0
- ; VSE-1066;LEG;6/25/2021 ;
- N SDRECALLRMV,IEN
- S DFN=$G(DFN)
- ; check if no DFN
- I DFN="" S SDESJSONERR=1 D ERRLOG^SDESJSON(.SDRECALLRMV,1)
- S ERR=0,NUM=0
- ; check for defined DFN
- I DFN,'$D(^DPT(DFN,0)) S SDESJSONERR=1 D ERRLOG^SDESJSON(.SDRECALLRMV,2)
- ; find latest REMOVED RECALL REMINDER info because patient has no entry in the RECALL REMINDERS File (#403.5)
- I 'SDESJSONERR S IEN=$O(^SD(403.56,"B",DFN,""),-1)
- ;
- S IEN=$G(IEN)
- I IEN,'$D(^SD(403.56,IEN)) S SDESJSONERR=1 D ERRLOG^SDESJSON(.SDRECALLRMV,17) ; send error and quit if patient has no entry in the RECALL REMINDERS REMOVE File (#403.56)
- I 'IEN S SDESJSONERR=1 D ERRLOG^SDESJSON(.SDRECALLRMV,16)
- I 'SDESJSONERR D
- . D RECDATAONEJSON(IEN) ; build out recall data
- . D PATDATAONEJSON(IEN) ; build out required patient data
- D BUILDER ; build return
- Q
- ;
- RECDATAONEJSON(IEN) ;
- N RECARY
- D GETS^DIQ(403.56,IEN,"**","IE","RECARY","SDMSG")
- S F=403.56
- S IENS=IEN_","
- S NUM=NUM+1
- S SDRECALLRMV("Recall",NUM,"RecallIEN")=IEN
- S SDRECALLRMV("Recall",NUM,"EASTrackingNumber")=$G(RECARY(F,IENS,100,"E"))
- S SDRECALLRMV("Recall",NUM,"Accession")=$G(RECARY(F,IENS,2,"E"))
- S SDRECALLRMV("Recall",NUM,"Comment")=$G(RECARY(F,IENS,2.5,"E"))
- S SDRECALLRMV("Recall",NUM,"FastingNonFasting")=$G(RECARY(F,IENS,2.6,"I"))
- S SDRECALLRMV("Recall",NUM,"TestApp")=$G(RECARY(F,IENS,3,"I"))
- S SDRECALLRMV("Recall",NUM,"ProviderIEN")=$G(RECARY(F,IENS,4,"I"))
- S SDRECALLRMV("Recall",NUM,"ProviderName")=$$GET1^DIQ(403.54,SDRECALLRMV("Recall",NUM,"ProviderIEN"),.01,"E")
- S SDRECALLRMV("Recall",NUM,"ClinicIEN")=$G(RECARY(F,IENS,4.5,"I"))
- S SDRECALLRMV("Recall",NUM,"ClinicName")=$G(RECARY(F,IENS,4.5,"E"))
- S SDRECALLRMV("Recall",NUM,"AppointmentLength")=$G(RECARY(F,IENS,4.7,"E"))
- S DATE=$G(RECARY(F,IENS,5,"I")) S DATE=$$FMTE^XLFDT(DATE)
- S DATE1=$G(RECARY(F,IENS,5.5,"I")) S DATE1=$$FMTE^XLFDT(DATE1)
- S DAPTDT=$G(RECARY(F,IENS,6,"I")) S DAPTDT=$$FMTE^XLFDT(DAPTDT)
- S DATE2=$G(RECARY(F,IENS,8,"I")) S DATE2=$$FMTE^XLFDT(DATE2)
- S DATE3=$G(RECARY(403.56,IENS,7.5,"E")) S DATE3=$$FMTE^XLFDT(DATE3)
- S SDRECALLRMV("Recall",NUM,"RecallDate")=DATE
- S SDRECALLRMV("Recall",NUM,"RecallDatePerPatient")=DATE1
- S SDRECALLRMV("Recall",NUM,"DateReminderSent")=DAPTDT
- S SDRECALLRMV("Recall",NUM,"SecondPrint")=DATE2
- S SDRECALLRMV("Recall",NUM,"DateTimeRecallAdded")=DATE3
- Q
- ;
- PATDATAONEJSON(IEN) ;
- N SDECALL,SDECLET
- S DFN=$$GET1^DIQ(403.56,IEN,.01,"I")
- S SDRECALLRMV("Recall",NUM,"GAFScore")=$$GAF^SDECU2(DFN)
- S SDRECALLRMV("Recall",NUM,"PatientSensitiveRecordAccessChecks")=$$PTSEC^SDECUTL(DFN)
- S SDRECALLRMV("Recall",NUM,"SimilarPatientData")=$$SIM^SDECU3(DFN)
- S SDREC=$$RECALL^SDECAR1A(DFN,IEN)
- S SDRECALLRMV("Recall",NUM,"NumberOfCallAttempts")=$P(SDREC,U)
- S SDRECALLRMV("Recall",NUM,"RecallRemindersLetterDate")=$P(SDREC,U,2)
- S SDRECALLRMV("Recall",NUM,"NumberOfEmailContact")=$P(SDREC,U,3)
- S SDRECALLRMV("Recall",NUM,"NumberOfTextContact")=$P(SDREC,U,4)
- S SDRECALLRMV("Recall",NUM,"NumberOfSecureMessages")=$P(SDREC,U,5)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDEC52CRMVJSON 7954 printed Jan 18, 2025@03:51:57 Page 2
- SDEC52CRMVJSON ;ALB/BLB,LEG,LAB - VIA RECALL REMINDER REMOVE FILE (#403.56) ;MAR 23, 2022@10:48
- +1 ;;5.3;Scheduling;**790,799,813**;Aug 13, 1993;Build 6
- +2 ;;Per VHA Directive 6402, this routine should not be modified
- +3 ;
- +4 ;Reference is made to ICR #10035
- +5 QUIT
- +6 ;
- RECGETJSON(SDECY,DFN) ;Return a list of REMOVED recall appointment types for patient
- +1 ;INPUT - DFN (Data File Number) Pointer to PATIENT (#2) File.
- +2 ;RETURN PARMETER:
- +3 ;List of recalls associated with a given patient
- +4 ; Field List:
- +5 ; (1) Internal IEN
- +6 ; (2) Accession #
- +7 ; (3) Comment
- +8 ; (4) Fast/Non-Fasting
- +9 ; (5) Test/App
- +10 ; (6) Provider IEN
- +11 ; (7) Provider Name
- +12 ; (8) Clinic IEN
- +13 ; (9) Clinic Name
- +14 ; (10) Length of Appointment
- +15 ; (11) Recall Date
- +16 ; (12) Recall Date (Per Patient)
- +17 ; (13) Date Reminder Sent
- +18 ; (14) Second Print
- +19 ; (15) Date/Time Recall Added
- +20 ; (16) GAF Score
- +21 ; (17) Patient Sensitive & Record Access Checks
- +22 ; (18) Similar Patient Data
- +23 ; (19) Number of Call Attempts
- +24 ; (20) Recall Reminders Letter Date
- +25 ; Number of Email Contacts
- +26 ; Number of Text Contacts
- +27 ; Number of Secure Messages
- +28 ;
- +29 NEW SDRECALLRMV,IEN,NUM,ERR,IENS,SDESJSONERR
- +30 SET DFN=$GET(DFN)
- SET SDESJSONERR=0
- +31 IF DFN=""
- SET SDESJSONERR=1
- DO ERRLOG^SDESJSON(.SDRECALLRMV,1)
- +32 SET ERR=0
- SET IEN=0
- SET NUM=0
- +33 IF DFN'=""
- IF '$DATA(^DPT(DFN,0))
- SET SDESJSONERR=1
- DO ERRLOG^SDESJSON(.SDRECALLRMV,2)
- +34 IF 'SDESJSONERR
- Begin DoDot:1
- +35 FOR
- SET IEN=$ORDER(^SD(403.56,"B",DFN,IEN))
- if IEN=""
- QUIT
- Begin DoDot:2
- +36 SET NUM=NUM+1
- +37 DO RECDATA(DFN,IEN)
- +38 DO PATDATA(DFN,IEN)
- End DoDot:2
- +39 IF '$DATA(SDRECALLRMV("Recall"))
- SET SDRECALLRMV("Recall")=""
- End DoDot:1
- +40 DO BUILDER
- +41 QUIT
- +42 ;
- RECDATA(DFN,IEN) ;
- +1 NEW F,DAPTDT,DATE,DATE1,DATE2,DATE3,RECARY
- +2 DO GETS^DIQ(403.56,IEN,"**","IE","RECARY","SDMSG")
- +3 SET F=403.56
- +4 SET IENS=IEN_","
- +5 SET SDRECALLRMV("Recall",NUM,"RecallIEN")=IEN
- +6 SET SDRECALLRMV("Recall",NUM,"Accession")=$GET(RECARY(F,IENS,2,"E"))
- +7 SET SDRECALLRMV("Recall",NUM,"Comment")=$GET(RECARY(F,IENS,2.5,"E"))
- +8 SET SDRECALLRMV("Recall",NUM,"FastingNonFasting")=$GET(RECARY(F,IENS,2.6,"I"))
- +9 SET SDRECALLRMV("Recall",NUM,"TestApp")=$GET(RECARY(F,IENS,3,"I"))
- +10 SET SDRECALLRMV("Recall",NUM,"ProviderIEN")=$GET(RECARY(F,IENS,4,"I"))
- +11 SET SDRECALLRMV("Recall",NUM,"ProviderName")=$$GET1^DIQ(403.54,SDRECALLRMV("Recall",NUM,"ProviderIEN"),.01,"E")
- +12 SET SDRECALLRMV("Recall",NUM,"ClinicIEN")=$GET(RECARY(F,IENS,4.5,"I"))
- +13 SET SDRECALLRMV("Recall",NUM,"ClinicName")=$GET(RECARY(F,IENS,4.5,"E"))
- +14 SET SDRECALLRMV("Recall",NUM,"AppointmentLength")=$GET(RECARY(F,IENS,4.7,"E"))
- +15 SET DATE=$GET(RECARY(F,IENS,5,"I"))
- SET DATE=$$FMTE^XLFDT(DATE)
- +16 SET DATE1=$GET(RECARY(F,IENS,5.5,"I"))
- SET DATE1=$$FMTE^XLFDT(DATE1)
- +17 SET DAPTDT=$GET(RECARY(F,IENS,6,"I"))
- SET DAPTDT=$$FMTE^XLFDT(DAPTDT)
- +18 SET DATE2=$GET(RECARY(F,IENS,8,"I"))
- SET DATE2=$$FMTE^XLFDT(DATE2)
- +19 SET DATE3=$GET(RECARY(403.56,IENS,7.5,"E"))
- SET DATE3=$$FMTE^XLFDT(DATE3)
- +20 SET SDRECALLRMV("Recall",NUM,"RecallDate")=DATE
- +21 SET SDRECALLRMV("Recall",NUM,"RecallDatePerPatient")=DATE1
- +22 SET SDRECALLRMV("Recall",NUM,"DateReminderSent")=DAPTDT
- +23 SET SDRECALLRMV("Recall",NUM,"SecondPrint")=DATE2
- +24 SET SDRECALLRMV("Recall",NUM,"DateTimeRecallAdded")=DATE3
- +25 QUIT
- +26 ;
- PATDATA(DFN,IEN) ;
- +1 NEW SDREC
- +2 SET SDRECALLRMV("Recall",NUM,"GAFScore")=$$GAF^SDECU2(DFN)
- +3 SET SDRECALLRMV("Recall",NUM,"PatientSensitiveRecordAccessChecks")=$$PTSEC^SDECUTL(DFN)
- +4 SET SDRECALLRMV("Recall",NUM,"SimilarPatientData")=$$SIM^SDECU3(DFN)
- +5 SET SDREC=$$RECALL^SDECAR1A(DFN,IEN)
- +6 SET SDRECALLRMV("Recall",NUM,"NumberOfCallAttempts")=$PIECE(SDREC,U)
- +7 SET SDRECALLRMV("Recall",NUM,"RecallRemindersLetterDate")=$PIECE(SDREC,U,2)
- +8 SET SDRECALLRMV("Recall",NUM,"NumberOfEmailContact")=$PIECE(SDREC,U,3)
- +9 SET SDRECALLRMV("Recall",NUM,"NumberOfTextContact")=$PIECE(SDREC,U,4)
- +10 SET SDRECALLRMV("Recall",NUM,"NumberOfSecureMessages")=$PIECE(SDREC,U,5)
- +11 QUIT
- +12 ;
- BUILDER ;
- +1 DO ENCODE^XLFJSON("SDRECALLRMV","SDECY","ERR")
- +2 QUIT
- +3 ;
- RECGETONERMVJSON(SDECY,DFN) ;Return the latest REMOVED RECALL REMINDER info in JSON format based on the patient DFN
- +1 ;INPUT - DFN (Data File Number) Pointer to PATIENT (#2) File.
- +2 ;RETURN PARAMETER: recall based on DFN being passed
- +3 ; Field List:
- +4 ; (1) Internal IEN
- +5 ; (2) Accession #
- +6 ; (3) Comment
- +7 ; (4) Fast/Non-Fasting
- +8 ; (5) Test/App
- +9 ; (6) Provider IEN
- +10 ; (7) Provider Name
- +11 ; (8) Clinic IEN
- +12 ; (9) Clinic Name
- +13 ; (10) Length of Appointment
- +14 ; (11) Recall Date
- +15 ; (12) Recall Date (Per Patient)
- +16 ; (13) Date Reminder Sent
- +17 ; (14) Second Print
- +18 ; (15) Date/Time Recall Added
- +19 ; (16) GAF Score
- +20 ; (17) Patient Sensitive & Record Access Checks
- +21 ; (18) Similar Patient Data
- +22 ; (19) Number of Call Attempts
- +23 ; (20) Recall Reminders Letter Date
- +24 ;
- +25 NEW ERR,NUM,F,IENS,ACCESION,COMM,FASTING,RRAPPTYP,RRPROVIEN,PROVNAME,CLINIEN,SDTMP,NUM,SDECI,SDESJSONERR
- +26 NEW CLINNAME,APPTLEN,DATE,DATE1,DAPTDT,DATE2,DATE3,MSGTYP,GAF,SENSITIVE,SIMILAR,SDREC,CPHONE,CLET,SDRECALLRMV
- +27 SET SDESJSONERR=0
- +28 ; VSE-1066;LEG;6/25/2021 ;
- +29 NEW SDRECALLRMV,IEN
- +30 SET DFN=$GET(DFN)
- +31 ; check if no DFN
- +32 IF DFN=""
- SET SDESJSONERR=1
- DO ERRLOG^SDESJSON(.SDRECALLRMV,1)
- +33 SET ERR=0
- SET NUM=0
- +34 ; check for defined DFN
- +35 IF DFN
- IF '$DATA(^DPT(DFN,0))
- SET SDESJSONERR=1
- DO ERRLOG^SDESJSON(.SDRECALLRMV,2)
- +36 ; find latest REMOVED RECALL REMINDER info because patient has no entry in the RECALL REMINDERS File (#403.5)
- +37 IF 'SDESJSONERR
- SET IEN=$ORDER(^SD(403.56,"B",DFN,""),-1)
- +38 ;
- +39 SET IEN=$GET(IEN)
- +40 ; send error and quit if patient has no entry in the RECALL REMINDERS REMOVE File (#403.56)
- IF IEN
- IF '$DATA(^SD(403.56,IEN))
- SET SDESJSONERR=1
- DO ERRLOG^SDESJSON(.SDRECALLRMV,17)
- +41 IF 'IEN
- SET SDESJSONERR=1
- DO ERRLOG^SDESJSON(.SDRECALLRMV,16)
- +42 IF 'SDESJSONERR
- Begin DoDot:1
- +43 ; build out recall data
- DO RECDATAONEJSON(IEN)
- +44 ; build out required patient data
- DO PATDATAONEJSON(IEN)
- End DoDot:1
- +45 ; build return
- DO BUILDER
- +46 QUIT
- +47 ;
- RECDATAONEJSON(IEN) ;
- +1 NEW RECARY
- +2 DO GETS^DIQ(403.56,IEN,"**","IE","RECARY","SDMSG")
- +3 SET F=403.56
- +4 SET IENS=IEN_","
- +5 SET NUM=NUM+1
- +6 SET SDRECALLRMV("Recall",NUM,"RecallIEN")=IEN
- +7 SET SDRECALLRMV("Recall",NUM,"EASTrackingNumber")=$GET(RECARY(F,IENS,100,"E"))
- +8 SET SDRECALLRMV("Recall",NUM,"Accession")=$GET(RECARY(F,IENS,2,"E"))
- +9 SET SDRECALLRMV("Recall",NUM,"Comment")=$GET(RECARY(F,IENS,2.5,"E"))
- +10 SET SDRECALLRMV("Recall",NUM,"FastingNonFasting")=$GET(RECARY(F,IENS,2.6,"I"))
- +11 SET SDRECALLRMV("Recall",NUM,"TestApp")=$GET(RECARY(F,IENS,3,"I"))
- +12 SET SDRECALLRMV("Recall",NUM,"ProviderIEN")=$GET(RECARY(F,IENS,4,"I"))
- +13 SET SDRECALLRMV("Recall",NUM,"ProviderName")=$$GET1^DIQ(403.54,SDRECALLRMV("Recall",NUM,"ProviderIEN"),.01,"E")
- +14 SET SDRECALLRMV("Recall",NUM,"ClinicIEN")=$GET(RECARY(F,IENS,4.5,"I"))
- +15 SET SDRECALLRMV("Recall",NUM,"ClinicName")=$GET(RECARY(F,IENS,4.5,"E"))
- +16 SET SDRECALLRMV("Recall",NUM,"AppointmentLength")=$GET(RECARY(F,IENS,4.7,"E"))
- +17 SET DATE=$GET(RECARY(F,IENS,5,"I"))
- SET DATE=$$FMTE^XLFDT(DATE)
- +18 SET DATE1=$GET(RECARY(F,IENS,5.5,"I"))
- SET DATE1=$$FMTE^XLFDT(DATE1)
- +19 SET DAPTDT=$GET(RECARY(F,IENS,6,"I"))
- SET DAPTDT=$$FMTE^XLFDT(DAPTDT)
- +20 SET DATE2=$GET(RECARY(F,IENS,8,"I"))
- SET DATE2=$$FMTE^XLFDT(DATE2)
- +21 SET DATE3=$GET(RECARY(403.56,IENS,7.5,"E"))
- SET DATE3=$$FMTE^XLFDT(DATE3)
- +22 SET SDRECALLRMV("Recall",NUM,"RecallDate")=DATE
- +23 SET SDRECALLRMV("Recall",NUM,"RecallDatePerPatient")=DATE1
- +24 SET SDRECALLRMV("Recall",NUM,"DateReminderSent")=DAPTDT
- +25 SET SDRECALLRMV("Recall",NUM,"SecondPrint")=DATE2
- +26 SET SDRECALLRMV("Recall",NUM,"DateTimeRecallAdded")=DATE3
- +27 QUIT
- +28 ;
- PATDATAONEJSON(IEN) ;
- +1 NEW SDECALL,SDECLET
- +2 SET DFN=$$GET1^DIQ(403.56,IEN,.01,"I")
- +3 SET SDRECALLRMV("Recall",NUM,"GAFScore")=$$GAF^SDECU2(DFN)
- +4 SET SDRECALLRMV("Recall",NUM,"PatientSensitiveRecordAccessChecks")=$$PTSEC^SDECUTL(DFN)
- +5 SET SDRECALLRMV("Recall",NUM,"SimilarPatientData")=$$SIM^SDECU3(DFN)
- +6 SET SDREC=$$RECALL^SDECAR1A(DFN,IEN)
- +7 SET SDRECALLRMV("Recall",NUM,"NumberOfCallAttempts")=$PIECE(SDREC,U)
- +8 SET SDRECALLRMV("Recall",NUM,"RecallRemindersLetterDate")=$PIECE(SDREC,U,2)
- +9 SET SDRECALLRMV("Recall",NUM,"NumberOfEmailContact")=$PIECE(SDREC,U,3)
- +10 SET SDRECALLRMV("Recall",NUM,"NumberOfTextContact")=$PIECE(SDREC,U,4)
- +11 SET SDRECALLRMV("Recall",NUM,"NumberOfSecureMessages")=$PIECE(SDREC,U,5)
- +12 QUIT