PSOUTCRM.m

PSOUTCRM ;ORLFO/FJF/WC - PSO utilities for CRM; Mar 20, 2023@12:57:56

 ;;7.0;OUTPATIENT PHARMACY;**707**;DEC 1997;Build 18

 ; 

 ; PSO utilities for SalesForce CRM application

 ;

SWAP(INPT,THIS,THAT) ; swap this with that in a string

 N OUTP,I

 F I=1:1:$L(INPT,THIS) D

 .S $P(OUTP,THAT,I)=$P(INPT,THIS,I)

 Q OUTP

 ;

RXVAL(RXN)  ; validate Presciption number and return 0 node

 ;  INPUT:

 ;      RXN - external Presciption number

 ;

 ;  OUTPUT:

 ;      1 = valid

 ;      0 or less = invalid prescription

 ;

 ;

 N DFN,LIST,X

 S X=0,RXN=$G(RXN) Q:RXN="" 0

 S DFN=-1

 S LIST="PSOV"

 D RX^PSO52API(DFN,LIST,,RXN)

 I $O(^TMP($J,"PSOV",$O(^TMP($J,"PSOV",-2))))>0 Q 1

 Q 0

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSOUTCRM   695     printed  Apr 09, 2024@21:39:07                                                                                                                                                                                                     Page 2

PSOUTCRM  ;ORLFO/FJF/WC - PSO utilities for CRM; Mar 20, 2023@12:57:56

 +1       ;;7.0;OUTPATIENT PHARMACY;**707**;DEC 1997;Build 18

 +2       ; 

 +3       ; PSO utilities for SalesForce CRM application

 +4       ;

SWAP(INPT,THIS,THAT) ; swap this with that in a string

 +1        NEW OUTP,I

 +2        FOR I=1:1:$LENGTH(INPT,THIS)

               Begin DoDot:1

 +3                SET $PIECE(OUTP,THAT,I)=$PIECE(INPT,THIS,I)

               End DoDot:1

 +4        QUIT OUTP

 +5       ;

RXVAL(RXN) ; validate Presciption number and return 0 node

 +1       ;  INPUT:

 +2       ;      RXN - external Presciption number

 +3       ;

 +4       ;  OUTPUT:

 +5       ;      1 = valid

 +6       ;      0 or less = invalid prescription

 +7       ;

 +8       ;

 +9        NEW DFN,LIST,X

 +10       SET X=0

           SET RXN=$GET(RXN)

           if RXN=""

               QUIT 0

 +11       SET DFN=-1

 +12       SET LIST="PSOV"

 +13       DO RX^PSO52API(DFN,LIST,,RXN)

 +14       IF $ORDER(^TMP($JOB,"PSOV",$ORDER(^TMP($JOB,"PSOV",-2))))>0

               QUIT 1

 +15       QUIT 0

 +16      ;