- SDESCKNSTEP ;ALB/BLB,TAW,MGD - VISTA SCHEDULING RPCS ;July 19, 2022
- ;;5.3;Scheduling;**788,790,792,800,805,807,819,820**;Aug 13, 1993;Build 10
- ;;Per VHA Directive 2004-038, this routine should not be modified;
- Q
- SETAPPTCKNSTEP(SDECY,IEN,STATUS,EAS) ; File check-in status and date/time in 409.843,.01/1
- N STATPOINTER,SIEN,DATETIME,FDA,SDCHECKIN
- I '$G(IEN) S SDCHECKIN("ApptCheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,14),BUILDER Q
- I '$D(^SDEC(409.84,IEN,0)) S SDCHECKIN("ApptCheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,15),BUILDER Q ;invalid appt IEN
- I $G(STATUS)="" S SDCHECKIN("ApptCheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,38),BUILDER Q
- I '$D(^SDEC(409.842,STATUS,0)) S SDCHECKIN("ApptCheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,37),BUILDER Q
- I $$GET1^DIQ(409.84,IEN,.17,"E")["CANCEL" S SDCHECKIN("ApptCheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,31),BUILDER Q ;appt status is "C" (canceled)
- S EAS=$TR($G(EAS),"^"," ")
- I $L(EAS) S EAS=$$EASVALIDATE^SDESUTIL(EAS)
- I EAS=-1 S SDCHECKIN("ApptCheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,142),BUILDER Q
- S SIEN=0,STATPOINTER=0
- F S SIEN=$O(^SDEC(409.84,IEN,3,SIEN)) Q:'SIEN!(STATPOINTER=STATUS) D
- .S STATPOINTER=$$GET1^DIQ(409.843,SIEN_","_IEN_",",.01,"I")
- I STATPOINTER=STATUS S SDCHECKIN("ApptCheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,32),BUILDER Q ; duplicate status entry, will not file
- S DATETIME=$$NOW^XLFDT
- S FDA(409.843,"+1,"_IEN_",",.01)=STATUS
- S FDA(409.843,"+1,"_IEN_",",1)=DATETIME
- D UPDATE^DIE(,"FDA",,"ERR") K FDA
- S FDA(409.84,IEN_",",100)=$G(EAS)
- D FILE^DIE(,"FDA") K FDA
- I '$D(ERR) D Q
- .S SDCHECKIN("ApptCheckInSteps","FilingSuccess")=1 D BUILDER
- .I STATUS=6 D
- ..D CHECKIN(IEN)
- I $D(ERR) D ERRLOG^SDESJSON(.SDCHECKIN,36) D BUILDER
- Q
- ;
- CHECKIN(IEN) ;
- S DATETIME=$$NOW^XLFDT,DATETIME=$$FMTE^XLFDT(DATETIME)
- D CHECKIN^SDEC25(.SDECY,IEN,DATETIME,,,"FALSE",,"FALSE",,,"FALSE","FALSE")
- Q
- ;
- GETAPPTCKNSTEP(SDECY,IEN,STATUS,EAS) ; Get check-in status associated appointment IEN and passed in status
- N SDCHECKIN,SIEN,STATPOINTER,STAT,DATETIME
- I '$G(IEN) S SDCHECKIN("ApptCheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,14),BUILDER Q
- I $G(STATUS)="" S SDCHECKIN("ApptCheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,38),BUILDER Q
- I '$D(^SDEC(409.84,IEN,0)) S SDCHECKIN("ApptCheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,15),BUILDER Q ;invalid appt IEN
- S EAS=$G(EAS,"")
- I $L(EAS) S EAS=$$EASVALIDATE^SDESUTIL(EAS)
- I EAS=-1 S SDCHECKIN("CheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,142),BUILDER Q
- ;
- S SIEN=0
- F S SIEN=$O(^SDEC(409.84,IEN,3,SIEN)) Q:'SIEN D
- .S STATPOINTER=$$GET1^DIQ(409.843,SIEN_","_IEN_",",.01,"I")
- .I STATPOINTER'=STATUS Q ; no match
- .S STAT=$$GET1^DIQ(409.842,STATPOINTER,.01,"E")
- .S DATETIME=$$GET1^DIQ(409.843,SIEN_","_IEN_",",1,"E"),DATETIME=$$FMTE^XLFDT(DATETIME)
- .S EAS=$$GET1^DIQ(409.84,IEN,100,"E")
- .D CKNBUILDER(STATPOINTER,STAT,DATETIME,"GETAPPTCKNSTEP")
- I '$D(SDCHECKIN("ApptCheckInSteps")) S SDCHECKIN("ApptCheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,30) ;no status match found, will not pass back status
- D BUILDER
- Q
- GETAPPTCKNSTEPS(SDECY,IEN,EAS) ; Get a list of checkin statuses associated with an appointment IEN
- N SDCHECKIN,SIEN,STATPOINTER,STAT,DATETIME,NUM
- I '$G(IEN) S SDCHECKIN("ApptCheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,14),BUILDER Q
- I '$D(^SDEC(409.84,IEN,0)) S SDCHECKIN("ApptCheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,15),BUILDER Q ;invalid appt IEN
- S EAS=$G(EAS,"")
- I $L(EAS) S EAS=$$EASVALIDATE^SDESUTIL(EAS)
- I EAS=-1 S SDCHECKIN("CheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,142),BUILDER Q
- S SIEN=0,NUM=0
- F S SIEN=$O(^SDEC(409.84,IEN,3,SIEN)) Q:'SIEN D
- .S NUM=NUM+1
- .S STATPOINTER=$$GET1^DIQ(409.843,SIEN_","_IEN_",",.01,"I")
- .S STAT=$$GET1^DIQ(409.842,STATPOINTER,.01,"E")
- .S DATETIME=$$GET1^DIQ(409.843,SIEN_","_IEN_",",1,"E"),DATETIME=$$FMTE^XLFDT(DATETIME)
- .S EAS=$$GET1^DIQ(409.84,IEN,100,"E")
- .D CKNBUILDER(STATPOINTER,STAT,DATETIME,"GETAPPTCKNSTEPS")
- .D BUILDER
- I '$D(SDCHECKIN("ApptCheckInSteps")) S SDCHECKIN("ApptCheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,33),BUILDER Q ;no statuses found, will not pass back list
- Q
- SETCKNSTEP(SDECY,STATUS,EAS) ;create new status entry in check-in step status file
- N FDA,SDCHECKIN,IEN,ENTRY
- I $G(STATUS)="" S SDCHECKIN("CheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,38),BUILDER Q
- I $L(STATUS)<3!($L(STATUS)>30) S SDCHECKIN("CheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,39),BUILDER Q
- I STATUS'?.E1A.E!(STATUS?1P.E) S SDCHECKIN("CheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,41),BUILDER Q
- S EAS=$G(EAS,"")
- I $L(EAS) S EAS=$$EASVALIDATE^SDESUTIL(EAS)
- I EAS=-1 S SDCHECKIN("CheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,142),BUILDER Q
- S IEN=0,ENTRY=""
- F S IEN=$O(^SDEC(409.842,IEN)) Q:'IEN!(STATUS=ENTRY) D
- .S ENTRY=$$GET1^DIQ(409.842,IEN,.01,"E")
- I STATUS=ENTRY S SDCHECKIN("CheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,32),BUILDER Q ; duplicate status entry, will not file
- S FDA(409.842,"+1,",.01)=STATUS
- D UPDATE^DIE(,"FDA",,"ERR") K FDA,ERR
- I '$D(ERR) S SDCHECKIN("CheckInSteps",0,"FilingSuccess")=1 D BUILDER Q
- I $D(ERR) D ERRLOG^SDESJSON(.SDCHECKIN,34),BUILDER
- Q
- EDITCKNSTEP(SDECY,IEN,STATUS,EAS) ; edit entry in check-in step status file
- N FDA,SDCHECKIN,ENTRY,SIEN
- I '$G(IEN) S SDCHECKIN("CheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,40),BUILDER Q
- I $G(STATUS)="" S SDCHECKIN("CheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,38),BUILDER Q
- I STATUS'="@",$L(STATUS)<3!($L(STATUS)>30) S SDCHECKIN("CheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,39),BUILDER Q
- I STATUS'="@",STATUS'?.E1A.E!(STATUS?1P.E) S SDCHECKIN("CheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,41),BUILDER Q
- I '$D(^SDEC(409.842,IEN,0)) S SDCHECKIN("ApptCheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,37),BUILDER Q
- S EAS=$G(EAS,"")
- I $L(EAS) S EAS=$$EASVALIDATE^SDESUTIL(EAS)
- I EAS=-1 S SDCHECKIN("CheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,142),BUILDER Q
- ;
- S SIEN=0,ENTRY=""
- F S SIEN=$O(^SDEC(409.842,SIEN)) Q:'SIEN!(STATUS=ENTRY) D
- .S ENTRY=$$GET1^DIQ(409.842,SIEN,.01,"E")
- I STATUS=ENTRY S SDCHECKIN("CheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,32),BUILDER Q ; duplicate status entry, will not file
- S FDA(409.842,IEN_",",.01)=STATUS
- D FILE^DIE(,"FDA","ERR") K FDA
- I '$D(ERR) S SDCHECKIN("CheckInSteps",0,"FilingSuccess")=1 D BUILDER Q
- I $D(ERR) D ERRLOG^SDESJSON(.SDCHECKIN,35),BUILDER
- Q
- GETCKNSTEP(SDECY,IEN,EAS) ;get status from check-in step status file
- N SDCHECKIN,STATUS
- I '$G(IEN) S SDCHECKIN("CheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,40),BUILDER Q
- S EAS=$G(EAS,"")
- I $L(EAS) S EAS=$$EASVALIDATE^SDESUTIL(EAS)
- I EAS=-1 S SDCHECKIN("CheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,142),BUILDER Q
- S STATUS=$$GET1^DIQ(409.842,IEN,.01,"E")
- D CKNBUILDER(IEN,STATUS,"","GETCKNSTEP")
- I $G(STATUS)="" S SDCHECKIN("CheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,37),BUILDER Q
- D BUILDER
- Q
- GETCKNSTEPS(SDECY,EAS) ;
- N SDCHECKIN,IEN,NUM
- S EAS=$G(EAS,"")
- I $L(EAS) S EAS=$$EASVALIDATE^SDESUTIL(EAS)
- I EAS=-1 S SDCHECKIN("CheckInSteps")="" D ERRLOG^SDESJSON(.SDCHECKIN,142),BUILDER Q
- S IEN=0,NUM=0
- F S IEN=$O(^SDEC(409.842,IEN)) Q:'IEN D
- .S NUM=NUM+1
- .S STATUS=$$GET1^DIQ(409.842,IEN,.01,"E")
- .D CKNBUILDER(IEN,STATUS,"","GETCKNSTEPS")
- .D BUILDER
- Q
- BUILDER ;
- D ENCODE^XLFJSON("SDCHECKIN","SDECY","ERR")
- Q
- CKNBUILDER(IEN,STATUS,DATETIME,TAG) ;
- ;single appt check-in step
- I $G(TAG)="GETAPPTCKNSTEP" D
- .S SDCHECKIN("ApptCheckInSteps","IEN")=$G(IEN)
- .S SDCHECKIN("ApptCheckInSteps","Status")=$G(STATUS)
- .S SDCHECKIN("ApptCheckInSteps","DateTime")=$G(DATETIME)
- .S SDCHECKIN("ApptCheckInSteps","EASTrackingNumber")=$G(EAS)
- I $G(TAG)="GETAPPTCKNSTEP",$D(SDCHECKIN("ApptCheckInSteps")) Q
- ;list of appt check-in steps
- I $G(TAG)="GETAPPTCKNSTEPS" D
- .S SDCHECKIN("ApptCheckInSteps",NUM,"IEN")=$G(IEN)
- .S SDCHECKIN("ApptCheckInSteps",NUM,"Status")=$G(STAT)
- .S SDCHECKIN("ApptCheckInSteps",NUM,"DateTime")=$G(DATETIME)
- .S SDCHECKIN("ApptCheckInSteps",NUM,"EASTrackingNumber")=$G(EAS)
- I $G(TAG)="GETAPPTCKNSTEPS",$D(SDCHECKIN("ApptCheckInSteps")) Q
- ;single check-in step
- I $G(TAG)="GETCKNSTEP" D
- .S SDCHECKIN("CheckInSteps","IEN")=$G(IEN)
- .S SDCHECKIN("CheckInSteps",0,"Status")=STATUS
- I $G(TAG)="GETCKNSTEP",$D(SDCHECKIN("CheckInSteps")) Q
- ;list of check-in steps
- I $G(TAG)="GETCKNSTEPS" D
- .S SDCHECKIN("CheckInSteps",NUM,"IEN")=$G(IEN)
- .S SDCHECKIN("CheckInSteps",NUM,"Status")=STATUS
- I $G(TAG)="GETCKNSTEPS",$D(SDCHECKIN("CheckInSteps")) Q
- Q
- ;
- HASCKNSTEP(IEN,STATUS) ;
- ; Function will confirm if a STATUS is on the Appointment IEN
- ; IEN - IEN from SDEC Appointment
- ; STATUS - IEN from SDEC CHECK-IN STEP STATUS
- N SIEN,RET
- S (SIEN,RET)=0
- F S SIEN=$O(^SDEC(409.84,IEN,3,SIEN)) Q:'SIEN D Q:RET
- .I STATUS=$P($G(^SDEC(409.84,IEN,3,SIEN,0)),"^",1) S RET=1
- Q RET
- ;
- LASTCKNSTEP(IEN) ;
- ; Function will return the last Check In Step on the Appointment IEN
- ; IEN - IEN from SDEC Appointment
- N SIEN,RET,STEP
- S (SIEN,RET)=""
- S SIEN=$O(^SDEC(409.84,IEN,3,9999999999),-1)
- IF +SIEN S STEP=$P($G(^SDEC(409.84,IEN,3,SIEN,0)),"^",1),RET=$$GET1^DIQ(409.842,STEP,.01,"E")
- Q RET
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDESCKNSTEP 9329 printed Feb 19, 2025@00:22:38 Page 2
- SDESCKNSTEP ;ALB/BLB,TAW,MGD - VISTA SCHEDULING RPCS ;July 19, 2022
- +1 ;;5.3;Scheduling;**788,790,792,800,805,807,819,820**;Aug 13, 1993;Build 10
- +2 ;;Per VHA Directive 2004-038, this routine should not be modified;
- +3 QUIT
- SETAPPTCKNSTEP(SDECY,IEN,STATUS,EAS) ; File check-in status and date/time in 409.843,.01/1
- +1 NEW STATPOINTER,SIEN,DATETIME,FDA,SDCHECKIN
- +2 IF '$GET(IEN)
- SET SDCHECKIN("ApptCheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,14)
- DO BUILDER
- QUIT
- +3 ;invalid appt IEN
- IF '$DATA(^SDEC(409.84,IEN,0))
- SET SDCHECKIN("ApptCheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,15)
- DO BUILDER
- QUIT
- +4 IF $GET(STATUS)=""
- SET SDCHECKIN("ApptCheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,38)
- DO BUILDER
- QUIT
- +5 IF '$DATA(^SDEC(409.842,STATUS,0))
- SET SDCHECKIN("ApptCheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,37)
- DO BUILDER
- QUIT
- +6 ;appt status is "C" (canceled)
- IF $$GET1^DIQ(409.84,IEN,.17,"E")["CANCEL"
- SET SDCHECKIN("ApptCheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,31)
- DO BUILDER
- QUIT
- +7 SET EAS=$TRANSLATE($GET(EAS),"^"," ")
- +8 IF $LENGTH(EAS)
- SET EAS=$$EASVALIDATE^SDESUTIL(EAS)
- +9 IF EAS=-1
- SET SDCHECKIN("ApptCheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,142)
- DO BUILDER
- QUIT
- +10 SET SIEN=0
- SET STATPOINTER=0
- +11 FOR
- SET SIEN=$ORDER(^SDEC(409.84,IEN,3,SIEN))
- if 'SIEN!(STATPOINTER=STATUS)
- QUIT
- Begin DoDot:1
- +12 SET STATPOINTER=$$GET1^DIQ(409.843,SIEN_","_IEN_",",.01,"I")
- End DoDot:1
- +13 ; duplicate status entry, will not file
- IF STATPOINTER=STATUS
- SET SDCHECKIN("ApptCheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,32)
- DO BUILDER
- QUIT
- +14 SET DATETIME=$$NOW^XLFDT
- +15 SET FDA(409.843,"+1,"_IEN_",",.01)=STATUS
- +16 SET FDA(409.843,"+1,"_IEN_",",1)=DATETIME
- +17 DO UPDATE^DIE(,"FDA",,"ERR")
- KILL FDA
- +18 SET FDA(409.84,IEN_",",100)=$GET(EAS)
- +19 DO FILE^DIE(,"FDA")
- KILL FDA
- +20 IF '$DATA(ERR)
- Begin DoDot:1
- +21 SET SDCHECKIN("ApptCheckInSteps","FilingSuccess")=1
- DO BUILDER
- +22 IF STATUS=6
- Begin DoDot:2
- +23 DO CHECKIN(IEN)
- End DoDot:2
- End DoDot:1
- QUIT
- +24 IF $DATA(ERR)
- DO ERRLOG^SDESJSON(.SDCHECKIN,36)
- DO BUILDER
- +25 QUIT
- +26 ;
- CHECKIN(IEN) ;
- +1 SET DATETIME=$$NOW^XLFDT
- SET DATETIME=$$FMTE^XLFDT(DATETIME)
- +2 DO CHECKIN^SDEC25(.SDECY,IEN,DATETIME,,,"FALSE",,"FALSE",,,"FALSE","FALSE")
- +3 QUIT
- +4 ;
- GETAPPTCKNSTEP(SDECY,IEN,STATUS,EAS) ; Get check-in status associated appointment IEN and passed in status
- +1 NEW SDCHECKIN,SIEN,STATPOINTER,STAT,DATETIME
- +2 IF '$GET(IEN)
- SET SDCHECKIN("ApptCheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,14)
- DO BUILDER
- QUIT
- +3 IF $GET(STATUS)=""
- SET SDCHECKIN("ApptCheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,38)
- DO BUILDER
- QUIT
- +4 ;invalid appt IEN
- IF '$DATA(^SDEC(409.84,IEN,0))
- SET SDCHECKIN("ApptCheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,15)
- DO BUILDER
- QUIT
- +5 SET EAS=$GET(EAS,"")
- +6 IF $LENGTH(EAS)
- SET EAS=$$EASVALIDATE^SDESUTIL(EAS)
- +7 IF EAS=-1
- SET SDCHECKIN("CheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,142)
- DO BUILDER
- QUIT
- +8 ;
- +9 SET SIEN=0
- +10 FOR
- SET SIEN=$ORDER(^SDEC(409.84,IEN,3,SIEN))
- if 'SIEN
- QUIT
- Begin DoDot:1
- +11 SET STATPOINTER=$$GET1^DIQ(409.843,SIEN_","_IEN_",",.01,"I")
- +12 ; no match
- IF STATPOINTER'=STATUS
- QUIT
- +13 SET STAT=$$GET1^DIQ(409.842,STATPOINTER,.01,"E")
- +14 SET DATETIME=$$GET1^DIQ(409.843,SIEN_","_IEN_",",1,"E")
- SET DATETIME=$$FMTE^XLFDT(DATETIME)
- +15 SET EAS=$$GET1^DIQ(409.84,IEN,100,"E")
- +16 DO CKNBUILDER(STATPOINTER,STAT,DATETIME,"GETAPPTCKNSTEP")
- End DoDot:1
- +17 ;no status match found, will not pass back status
- IF '$DATA(SDCHECKIN("ApptCheckInSteps"))
- SET SDCHECKIN("ApptCheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,30)
- +18 DO BUILDER
- +19 QUIT
- GETAPPTCKNSTEPS(SDECY,IEN,EAS) ; Get a list of checkin statuses associated with an appointment IEN
- +1 NEW SDCHECKIN,SIEN,STATPOINTER,STAT,DATETIME,NUM
- +2 IF '$GET(IEN)
- SET SDCHECKIN("ApptCheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,14)
- DO BUILDER
- QUIT
- +3 ;invalid appt IEN
- IF '$DATA(^SDEC(409.84,IEN,0))
- SET SDCHECKIN("ApptCheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,15)
- DO BUILDER
- QUIT
- +4 SET EAS=$GET(EAS,"")
- +5 IF $LENGTH(EAS)
- SET EAS=$$EASVALIDATE^SDESUTIL(EAS)
- +6 IF EAS=-1
- SET SDCHECKIN("CheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,142)
- DO BUILDER
- QUIT
- +7 SET SIEN=0
- SET NUM=0
- +8 FOR
- SET SIEN=$ORDER(^SDEC(409.84,IEN,3,SIEN))
- if 'SIEN
- QUIT
- Begin DoDot:1
- +9 SET NUM=NUM+1
- +10 SET STATPOINTER=$$GET1^DIQ(409.843,SIEN_","_IEN_",",.01,"I")
- +11 SET STAT=$$GET1^DIQ(409.842,STATPOINTER,.01,"E")
- +12 SET DATETIME=$$GET1^DIQ(409.843,SIEN_","_IEN_",",1,"E")
- SET DATETIME=$$FMTE^XLFDT(DATETIME)
- +13 SET EAS=$$GET1^DIQ(409.84,IEN,100,"E")
- +14 DO CKNBUILDER(STATPOINTER,STAT,DATETIME,"GETAPPTCKNSTEPS")
- +15 DO BUILDER
- End DoDot:1
- +16 ;no statuses found, will not pass back list
- IF '$DATA(SDCHECKIN("ApptCheckInSteps"))
- SET SDCHECKIN("ApptCheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,33)
- DO BUILDER
- QUIT
- +17 QUIT
- SETCKNSTEP(SDECY,STATUS,EAS) ;create new status entry in check-in step status file
- +1 NEW FDA,SDCHECKIN,IEN,ENTRY
- +2 IF $GET(STATUS)=""
- SET SDCHECKIN("CheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,38)
- DO BUILDER
- QUIT
- +3 IF $LENGTH(STATUS)<3!($LENGTH(STATUS)>30)
- SET SDCHECKIN("CheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,39)
- DO BUILDER
- QUIT
- +4 IF STATUS'?.E1A.E!(STATUS?1P.E)
- SET SDCHECKIN("CheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,41)
- DO BUILDER
- QUIT
- +5 SET EAS=$GET(EAS,"")
- +6 IF $LENGTH(EAS)
- SET EAS=$$EASVALIDATE^SDESUTIL(EAS)
- +7 IF EAS=-1
- SET SDCHECKIN("CheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,142)
- DO BUILDER
- QUIT
- +8 SET IEN=0
- SET ENTRY=""
- +9 FOR
- SET IEN=$ORDER(^SDEC(409.842,IEN))
- if 'IEN!(STATUS=ENTRY)
- QUIT
- Begin DoDot:1
- +10 SET ENTRY=$$GET1^DIQ(409.842,IEN,.01,"E")
- End DoDot:1
- +11 ; duplicate status entry, will not file
- IF STATUS=ENTRY
- SET SDCHECKIN("CheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,32)
- DO BUILDER
- QUIT
- +12 SET FDA(409.842,"+1,",.01)=STATUS
- +13 DO UPDATE^DIE(,"FDA",,"ERR")
- KILL FDA,ERR
- +14 IF '$DATA(ERR)
- SET SDCHECKIN("CheckInSteps",0,"FilingSuccess")=1
- DO BUILDER
- QUIT
- +15 IF $DATA(ERR)
- DO ERRLOG^SDESJSON(.SDCHECKIN,34)
- DO BUILDER
- +16 QUIT
- EDITCKNSTEP(SDECY,IEN,STATUS,EAS) ; edit entry in check-in step status file
- +1 NEW FDA,SDCHECKIN,ENTRY,SIEN
- +2 IF '$GET(IEN)
- SET SDCHECKIN("CheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,40)
- DO BUILDER
- QUIT
- +3 IF $GET(STATUS)=""
- SET SDCHECKIN("CheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,38)
- DO BUILDER
- QUIT
- +4 IF STATUS'="@"
- IF $LENGTH(STATUS)<3!($LENGTH(STATUS)>30)
- SET SDCHECKIN("CheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,39)
- DO BUILDER
- QUIT
- +5 IF STATUS'="@"
- IF STATUS'?.E1A.E!(STATUS?1P.E)
- SET SDCHECKIN("CheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,41)
- DO BUILDER
- QUIT
- +6 IF '$DATA(^SDEC(409.842,IEN,0))
- SET SDCHECKIN("ApptCheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,37)
- DO BUILDER
- QUIT
- +7 SET EAS=$GET(EAS,"")
- +8 IF $LENGTH(EAS)
- SET EAS=$$EASVALIDATE^SDESUTIL(EAS)
- +9 IF EAS=-1
- SET SDCHECKIN("CheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,142)
- DO BUILDER
- QUIT
- +10 ;
- +11 SET SIEN=0
- SET ENTRY=""
- +12 FOR
- SET SIEN=$ORDER(^SDEC(409.842,SIEN))
- if 'SIEN!(STATUS=ENTRY)
- QUIT
- Begin DoDot:1
- +13 SET ENTRY=$$GET1^DIQ(409.842,SIEN,.01,"E")
- End DoDot:1
- +14 ; duplicate status entry, will not file
- IF STATUS=ENTRY
- SET SDCHECKIN("CheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,32)
- DO BUILDER
- QUIT
- +15 SET FDA(409.842,IEN_",",.01)=STATUS
- +16 DO FILE^DIE(,"FDA","ERR")
- KILL FDA
- +17 IF '$DATA(ERR)
- SET SDCHECKIN("CheckInSteps",0,"FilingSuccess")=1
- DO BUILDER
- QUIT
- +18 IF $DATA(ERR)
- DO ERRLOG^SDESJSON(.SDCHECKIN,35)
- DO BUILDER
- +19 QUIT
- GETCKNSTEP(SDECY,IEN,EAS) ;get status from check-in step status file
- +1 NEW SDCHECKIN,STATUS
- +2 IF '$GET(IEN)
- SET SDCHECKIN("CheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,40)
- DO BUILDER
- QUIT
- +3 SET EAS=$GET(EAS,"")
- +4 IF $LENGTH(EAS)
- SET EAS=$$EASVALIDATE^SDESUTIL(EAS)
- +5 IF EAS=-1
- SET SDCHECKIN("CheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,142)
- DO BUILDER
- QUIT
- +6 SET STATUS=$$GET1^DIQ(409.842,IEN,.01,"E")
- +7 DO CKNBUILDER(IEN,STATUS,"","GETCKNSTEP")
- +8 IF $GET(STATUS)=""
- SET SDCHECKIN("CheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,37)
- DO BUILDER
- QUIT
- +9 DO BUILDER
- +10 QUIT
- GETCKNSTEPS(SDECY,EAS) ;
- +1 NEW SDCHECKIN,IEN,NUM
- +2 SET EAS=$GET(EAS,"")
- +3 IF $LENGTH(EAS)
- SET EAS=$$EASVALIDATE^SDESUTIL(EAS)
- +4 IF EAS=-1
- SET SDCHECKIN("CheckInSteps")=""
- DO ERRLOG^SDESJSON(.SDCHECKIN,142)
- DO BUILDER
- QUIT
- +5 SET IEN=0
- SET NUM=0
- +6 FOR
- SET IEN=$ORDER(^SDEC(409.842,IEN))
- if 'IEN
- QUIT
- Begin DoDot:1
- +7 SET NUM=NUM+1
- +8 SET STATUS=$$GET1^DIQ(409.842,IEN,.01,"E")
- +9 DO CKNBUILDER(IEN,STATUS,"","GETCKNSTEPS")
- +10 DO BUILDER
- End DoDot:1
- +11 QUIT
- BUILDER ;
- +1 DO ENCODE^XLFJSON("SDCHECKIN","SDECY","ERR")
- +2 QUIT
- CKNBUILDER(IEN,STATUS,DATETIME,TAG) ;
- +1 ;single appt check-in step
- +2 IF $GET(TAG)="GETAPPTCKNSTEP"
- Begin DoDot:1
- +3 SET SDCHECKIN("ApptCheckInSteps","IEN")=$GET(IEN)
- +4 SET SDCHECKIN("ApptCheckInSteps","Status")=$GET(STATUS)
- +5 SET SDCHECKIN("ApptCheckInSteps","DateTime")=$GET(DATETIME)
- +6 SET SDCHECKIN("ApptCheckInSteps","EASTrackingNumber")=$GET(EAS)
- End DoDot:1
- +7 IF $GET(TAG)="GETAPPTCKNSTEP"
- IF $DATA(SDCHECKIN("ApptCheckInSteps"))
- QUIT
- +8 ;list of appt check-in steps
- +9 IF $GET(TAG)="GETAPPTCKNSTEPS"
- Begin DoDot:1
- +10 SET SDCHECKIN("ApptCheckInSteps",NUM,"IEN")=$GET(IEN)
- +11 SET SDCHECKIN("ApptCheckInSteps",NUM,"Status")=$GET(STAT)
- +12 SET SDCHECKIN("ApptCheckInSteps",NUM,"DateTime")=$GET(DATETIME)
- +13 SET SDCHECKIN("ApptCheckInSteps",NUM,"EASTrackingNumber")=$GET(EAS)
- End DoDot:1
- +14 IF $GET(TAG)="GETAPPTCKNSTEPS"
- IF $DATA(SDCHECKIN("ApptCheckInSteps"))
- QUIT
- +15 ;single check-in step
- +16 IF $GET(TAG)="GETCKNSTEP"
- Begin DoDot:1
- +17 SET SDCHECKIN("CheckInSteps","IEN")=$GET(IEN)
- +18 SET SDCHECKIN("CheckInSteps",0,"Status")=STATUS
- End DoDot:1
- +19 IF $GET(TAG)="GETCKNSTEP"
- IF $DATA(SDCHECKIN("CheckInSteps"))
- QUIT
- +20 ;list of check-in steps
- +21 IF $GET(TAG)="GETCKNSTEPS"
- Begin DoDot:1
- +22 SET SDCHECKIN("CheckInSteps",NUM,"IEN")=$GET(IEN)
- +23 SET SDCHECKIN("CheckInSteps",NUM,"Status")=STATUS
- End DoDot:1
- +24 IF $GET(TAG)="GETCKNSTEPS"
- IF $DATA(SDCHECKIN("CheckInSteps"))
- QUIT
- +25 QUIT
- +26 ;
- HASCKNSTEP(IEN,STATUS) ;
- +1 ; Function will confirm if a STATUS is on the Appointment IEN
- +2 ; IEN - IEN from SDEC Appointment
- +3 ; STATUS - IEN from SDEC CHECK-IN STEP STATUS
- +4 NEW SIEN,RET
- +5 SET (SIEN,RET)=0
- +6 FOR
- SET SIEN=$ORDER(^SDEC(409.84,IEN,3,SIEN))
- if 'SIEN
- QUIT
- Begin DoDot:1
- +7 IF STATUS=$PIECE($GET(^SDEC(409.84,IEN,3,SIEN,0)),"^",1)
- SET RET=1
- End DoDot:1
- if RET
- QUIT
- +8 QUIT RET
- +9 ;
- LASTCKNSTEP(IEN) ;
- +1 ; Function will return the last Check In Step on the Appointment IEN
- +2 ; IEN - IEN from SDEC Appointment
- +3 NEW SIEN,RET,STEP
- +4 SET (SIEN,RET)=""
- +5 SET SIEN=$ORDER(^SDEC(409.84,IEN,3,9999999999),-1)
- +6 IF +SIEN
- SET STEP=$PIECE($GET(^SDEC(409.84,IEN,3,SIEN,0)),"^",1)
- SET RET=$$GET1^DIQ(409.842,STEP,.01,"E")
- +7 QUIT RET
