SDECPT.m

SDECPT ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016

 ;;5.3;Scheduling;**627**;Aug 13, 1993;Build 249

 ;

 Q

 ;

PTINQ(SDECY,DFN) ; Return output from ORWPT PTINQ in DataTable format

 ;PTINQ(SDECY,DFN)  external parameter tag is in SDEC

 ;Return detailed patient information for display in GUI form

 ;INPUT:

 ;  DFN       - (required) Patient ID - pointer to the PATIENT file 2

 ;RETURN:

 ;  DataTable with one column: PATIENT_INFO

 ;

 N II,SDECI,SDECARR

 S SDECY=$NA(^TMP("SDEC",$J))

 K @SDECY

 S SDECI=0

 S @SDECY@(SDECI)="T00250PATIENT_INFO"_$C(30)

 S DFN=$G(DFN)

 I DFN="" D ERR1^SDECERR(-1,"Patient ID required.",SDECI,SDECY)

 I '$D(DFN) D ERR1^SDECERR(-1,"Invalid patient ID "_DFN_".",SDECI,SDECY)

 D PTINQ^ORWPT(.SDECARR,DFN)

 F II=1:1:$O(@SDECARR@(""),-1) D

 . S SDECI=SDECI+1

 . S @SDECY@(SDECI)=@SDECARR@(II)_$C(30)

 S SDECI=SDECI+1

 S @SDECY@(SDECI)=$C(31)

 K @SDECARR

 Q

 ;

FACLIST ; Return list of remote facilities for patient

 ;FACLIST(SDECY,DFN)

 ;INPUT:

 ;  DFN       - (required) Patient ID - pointer to the PATIENT file 2

 ;RETURN:

 ;  DataTable with one column: PATIENT_INFO

 ;

 N II,SDECI,SDECARR

 S SDECY=$NA(^TMP("SDECPT",$J))

 K @SDECY

 S SDECI=0

 S @SDECY@(SDECI)="T00030R1^T00030R2^T00030R3^T00030R4^T00030R5"_$C(30)

 D FACLIST^ORWCIRN(.SDECARR,DFN)

 S II="" F  S II=$O(SDECARR(II)) Q:II=""  D

 . S SDECI=SDECI+1

 . S @SDECY@(SDECI)=@SDECARR@(II)_$C(30)

 S SDECI=SDECI+1

 S @SDECY@(SDECI)=$C(31)

 K @SDECARR

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDECPT   1486     printed  Apr 09, 2024@22:00:54                                                                                                                                                                                                      Page 2

SDECPT    ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016

 +1       ;;5.3;Scheduling;**627**;Aug 13, 1993;Build 249

 +2       ;

 +3        QUIT 

 +4       ;

PTINQ(SDECY,DFN) ; Return output from ORWPT PTINQ in DataTable format

 +1       ;PTINQ(SDECY,DFN)  external parameter tag is in SDEC

 +2       ;Return detailed patient information for display in GUI form

 +3       ;INPUT:

 +4       ;  DFN       - (required) Patient ID - pointer to the PATIENT file 2

 +5       ;RETURN:

 +6       ;  DataTable with one column: PATIENT_INFO

 +7       ;

 +8        NEW II,SDECI,SDECARR

 +9        SET SDECY=$NAME(^TMP("SDEC",$JOB))

 +10       KILL @SDECY

 +11       SET SDECI=0

 +12       SET @SDECY@(SDECI)="T00250PATIENT_INFO"_$CHAR(30)

 +13       SET DFN=$GET(DFN)

 +14       IF DFN=""

               DO ERR1^SDECERR(-1,"Patient ID required.",SDECI,SDECY)

 +15       IF '$DATA(DFN)

               DO ERR1^SDECERR(-1,"Invalid patient ID "_DFN_".",SDECI,SDECY)

 +16       DO PTINQ^ORWPT(.SDECARR,DFN)

 +17       FOR II=1:1:$ORDER(@SDECARR@(""),-1)

               Begin DoDot:1

 +18               SET SDECI=SDECI+1

 +19               SET @SDECY@(SDECI)=@SDECARR@(II)_$CHAR(30)

               End DoDot:1

 +20       SET SDECI=SDECI+1

 +21       SET @SDECY@(SDECI)=$CHAR(31)

 +22       KILL @SDECARR

 +23       QUIT 

 +24      ;

FACLIST   ; Return list of remote facilities for patient

 +1       ;FACLIST(SDECY,DFN)

 +2       ;INPUT:

 +3       ;  DFN       - (required) Patient ID - pointer to the PATIENT file 2

 +4       ;RETURN:

 +5       ;  DataTable with one column: PATIENT_INFO

 +6       ;

 +7        NEW II,SDECI,SDECARR

 +8        SET SDECY=$NAME(^TMP("SDECPT",$JOB))

 +9        KILL @SDECY

 +10       SET SDECI=0

 +11       SET @SDECY@(SDECI)="T00030R1^T00030R2^T00030R3^T00030R4^T00030R5"_$CHAR(30)

 +12       DO FACLIST^ORWCIRN(.SDECARR,DFN)

 +13       SET II=""

           FOR 

               SET II=$ORDER(SDECARR(II))

               if II=""

                   QUIT 

               Begin DoDot:1

 +14               SET SDECI=SDECI+1

 +15               SET @SDECY@(SDECI)=@SDECARR@(II)_$CHAR(30)

               End DoDot:1

 +16       SET SDECI=SDECI+1

 +17       SET @SDECY@(SDECI)=$CHAR(31)

 +18       KILL @SDECARR

 +19       QUIT