- 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 ---[H[J[2J[HPSOUTCRM 695 printed Feb 19, 2025@00:02:29 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 ;