SDQQCN2 ;ALB/MJK - COMMENT to REQUEST/CONSULTATION ; 3/23/06 12:10pm
;;5.3;Scheduling;**478**;Aug 13, 1993
;
;IA#2980 GMRCGUIB
; Code taken from ORQQCN2
; OR variables in ORQQCN2 replaced with SD names.
CMT(SDERR,SDIEN,SDCOM,SDALRT,SDALTO,SDDATE) ;Add comment to existing consult without changing status
;SDIEN - IEN of consult from File 123
;SDERR - return array for results/errors
;SDCOM is the comments array to be added
; passed in as SDCOM(1)="Xxxx Xxxxx...",SDCOM(2)="Xxxx Xx Xxx...", SDCOM(3)="Xxxxx Xxx Xx...", etc.
;SDALRT - should alerts be sent to anyone?
;SDALTO - array of alert recipient IENs
N SDAD,SDDUZ,SDNP,X,I
S SDERR=0,SDAD=$S($D(SDDATE):SDDATE,1:$$NOW^XLFDT),SDNP=""
I '$D(SDCOM) S SDERR="1^Comments required - no action taken" Q
I '$D(^GMR(123,SDIEN)) S SDERR="1^No such consult" Q
I $G(SDALRT)=1 D
.F I=1:1 S X=$P(SDALTO,";",I) Q:X="" S SDDUZ(X)=""
D CMT^GMRCGUIB(SDIEN,.SDCOM,.SDDUZ,SDAD,DUZ)
Q
;
SCH(SDERR,SDIEN,SDNP,SDDATE,SDALRT,SDALTO,SDCOM) ;Schedule consult and change status
;SDERR - return array for results/errors
;SDIEN - IEN of consult from File 123
;SDNP - Provider who Scheduled consult
;SDDATE - Date/Time Consult was scheduled.
;SDALRT - should alerts be sent to anyone?
;SDALTO - array of alert recipient IENs
;SDCOM is the comments array to be added
; passed in as SDCOM(1)="Xxxx Xxxxx...",SDCOM(2)="Xxxx Xx Xxx...", SDCOM(3)="Xxxxx Xxx Xx...", etc.
N SDAD,SDDUZ,X
S SDERR=0,SDAD=$S($D(SDDATE):SDDATE,1:$$NOW^XLFDT)
S:+$G(SDNP)=0 SDNP=DUZ
I '$D(^GMR(123,SDIEN)) S SDERR="1^No such consult" Q
I $G(SDALRT)=1 D
.F I=1:1 S X=$P(SDALTO,";",I) Q:X="" S SDDUZ(X)=""
S SDERR=$$SCH^GMRCGUIB(SDIEN,SDNP,SDAD,.SDDUZ,.SDCOM)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDQQCN2 1744 printed Dec 13, 2024@03:00:03 Page 2
SDQQCN2 ;ALB/MJK - COMMENT to REQUEST/CONSULTATION ; 3/23/06 12:10pm
+1 ;;5.3;Scheduling;**478**;Aug 13, 1993
+2 ;
+3 ;IA#2980 GMRCGUIB
+4 ; Code taken from ORQQCN2
+5 ; OR variables in ORQQCN2 replaced with SD names.
CMT(SDERR,SDIEN,SDCOM,SDALRT,SDALTO,SDDATE) ;Add comment to existing consult without changing status
+1 ;SDIEN - IEN of consult from File 123
+2 ;SDERR - return array for results/errors
+3 ;SDCOM is the comments array to be added
+4 ; passed in as SDCOM(1)="Xxxx Xxxxx...",SDCOM(2)="Xxxx Xx Xxx...", SDCOM(3)="Xxxxx Xxx Xx...", etc.
+5 ;SDALRT - should alerts be sent to anyone?
+6 ;SDALTO - array of alert recipient IENs
+7 NEW SDAD,SDDUZ,SDNP,X,I
+8 SET SDERR=0
SET SDAD=$SELECT($DATA(SDDATE):SDDATE,1:$$NOW^XLFDT)
SET SDNP=""
+9 IF '$DATA(SDCOM)
SET SDERR="1^Comments required - no action taken"
QUIT
+10 IF '$DATA(^GMR(123,SDIEN))
SET SDERR="1^No such consult"
QUIT
+11 IF $GET(SDALRT)=1
Begin DoDot:1
+12 FOR I=1:1
SET X=$PIECE(SDALTO,";",I)
if X=""
QUIT
SET SDDUZ(X)=""
End DoDot:1
+13 DO CMT^GMRCGUIB(SDIEN,.SDCOM,.SDDUZ,SDAD,DUZ)
+14 QUIT
+15 ;
SCH(SDERR,SDIEN,SDNP,SDDATE,SDALRT,SDALTO,SDCOM) ;Schedule consult and change status
+1 ;SDERR - return array for results/errors
+2 ;SDIEN - IEN of consult from File 123
+3 ;SDNP - Provider who Scheduled consult
+4 ;SDDATE - Date/Time Consult was scheduled.
+5 ;SDALRT - should alerts be sent to anyone?
+6 ;SDALTO - array of alert recipient IENs
+7 ;SDCOM is the comments array to be added
+8 ; passed in as SDCOM(1)="Xxxx Xxxxx...",SDCOM(2)="Xxxx Xx Xxx...", SDCOM(3)="Xxxxx Xxx Xx...", etc.
+9 NEW SDAD,SDDUZ,X
+10 SET SDERR=0
SET SDAD=$SELECT($DATA(SDDATE):SDDATE,1:$$NOW^XLFDT)
+11 if +$GET(SDNP)=0
SET SDNP=DUZ
+12 IF '$DATA(^GMR(123,SDIEN))
SET SDERR="1^No such consult"
QUIT
+13 IF $GET(SDALRT)=1
Begin DoDot:1
+14 FOR I=1:1
SET X=$PIECE(SDALTO,";",I)
if X=""
QUIT
SET SDDUZ(X)=""
End DoDot:1
+15 SET SDERR=$$SCH^GMRCGUIB(SDIEN,SDNP,SDAD,.SDDUZ,.SDCOM)
+16 QUIT
