- PSOVCC1 ;ORLFO/WLC - PSO VCC RPC CALLS ; Mar 20, 2023@12:57:56
- ;;7.0;OUTPATIENT PHARMACY;**707**;DEC 1997;Build 18
- ;
- ; External calls:
- ;
- ; Description ICR Notes
- ; ----------- ------ -------
- ; Reference to ENCODE^XLFJSON in #6682
- ; Reference to GET^DDE in #7008
- ; Reference to FMTHL7^XLFDT, HTFM^XLFDT in #10103
- ;
- ;
- RFIL(PSOVO,PSOVIEN) ; retrieve ENTITY data for Refill Log (#52.1)
- ; inside a PRESCRIPTION (#52) file entry.
- ;
- ; INPUT:
- ; PSOVIEN = External # of Prescription
- ; OUTPUT:
- ; PSOVO(0) - Return value:
- ; 1 = Success, array of values returned in JSON format.
- ; -1^error message for failure
- ; PSOVO(1) = Array of values from REFILLS Log
- ;
- N CT,DDEY,ERR,PIEN
- I $G(PSOVIEN)']"" D NORXNER("-1^ Prescription Number is Required") Q
- I '$$RXVAL^PSOUTCRM(PSOVIEN) D NORXNER("-2^ Prescription Number is not recognized") Q
- S PIEN=$O(^TMP($J,"PSOV",-1))
- K PSOVO,ERR D GET^DDE("PSO REFILL LOG",PIEN,,0,,"PSOVO","ERR")
- I $D(ERR) D NORXNER("-1^Error in Retrieval") Q
- I $L(PSOVO(1),"}")<3 D NORXNER("0^No data - there are no REFILL LOG entries for this prescription") Q
- D TIDY^PSOVCC0
- Q
- ;----------
- ;
- ACT(PSOVO,PSOVIEN) ; Activity Log from PRESCRIPTION (#52) file.
- ;
- ; INPUT:
- ; PSOVIEN - External # OF PRESCRIPTION (#52) file entry.
- ; OUTPUT:
- ; PSOVO(0) - Return value
- ; 1 = Success
- ; -1^Error message for failure
- ; PSOVO(1) = Array of values from ACTIVITY Log
- ;
- N CT,DDEY,ERR,JSONER,OC,OD,PIEN,RETVAR,V
- I $G(PSOVIEN)']"" D NORXNER("-1^ Prescription Number is Required") Q
- I '$$RXVAL^PSOUTCRM(PSOVIEN) D NORXNER("-2^ Prescription Number is not recognized") Q
- S PIEN=$O(^TMP($J,"PSOV",-1))
- D GET^DDE("PSO ACTIVITY LOG",PIEN,,0,,"PSOVO","ERR")
- I $L(PSOVO(1),"}")<3 D NORXNER("0^No data - there are no ACTIVITY LOG entries for this prescription") Q
- D TIDY^PSOVCC0
- Q
- ;
- ; ----------
- CMOP(PSOVO,PSOVIEN) ; List CMOP Log
- ;
- ; INPUT:
- ; PSOVIEN - External # OF PRESCRIPTION (#52) file entry.
- ; OUTPUT:
- ; PSOVO(0) - Return Value:
- ; 1 for success
- ; -1^error message for failure
- ; PSOVO(1) = Array of values from CMOP Log
- ;
- N CT,DDEY,ERR,OC,OD,PIEN,RETVAR,V
- I $G(PSOVIEN)']"" D NORXNER("-1^ Prescription Number is Required") Q
- I '$$RXVAL^PSOUTCRM(PSOVIEN) D NORXNER("-2^ Prescription Number is not recognized") Q
- S PIEN=$O(^TMP($J,"PSOV",-1))
- D GET^DDE("PSO CMOP M",PIEN,,0,,"PSOVO","ERR")
- I $D(ERR) D NORXNER("-1^Error in Retrieval") Q
- I $L(PSOVO(1),"}")<3 D NORXNER("0^No data - there are no CMOP entries for this prescription") Q
- D TIDY^PSOVCC0
- Q
- ;
- ; -------
- ;
- PART(PSOVO,PSOVIEN) ; Partial log
- ;
- ; INPUT:
- ; PSOVIEN - External # of PRESCRIPTION (#52) file entry.
- ; OUTPUT:
- ; PSOVO(0) - Return Value:
- ; 1 for success
- ; -1^error message for failure
- ; PSOVO(1) - Array of values from PARTIALS Log
- ;
- N CT,DDEY,ERR,PIEN,RETVAR,V
- I $G(PSOVIEN)']"" D NORXNER("-1^ Prescription Number is Required") Q
- I '$$RXVAL^PSOUTCRM(PSOVIEN) D NORXNER("-2^ Prescription Number is not recognized") Q
- S PIEN=$O(^TMP($J,"PSOV",-1))
- D GET^DDE("PSO PARTIALS LOG",PIEN,,0,,"PSOVO","ERR")
- I $D(ERR) D NORXNER("-1^Error in Retrieval") Q
- I $L(PSOVO(1),"}")<3 D NORXNER("0^No data - there are no PARTIAL entries for this prescription") Q
- D TIDY^PSOVCC0
- Q
- ;
- ; -------
- ;
- COPAY(PSOVO,PSOVIEN) ; COPAY transaction log
- ;
- ; INPUT:
- ; PSOVIEN - External # of PRESCRIPTION (#52) file.
- ; OUTPUT:
- ; PSOVO(0) - Return Value:
- ; 1 for success
- ; -1^error message for failure
- ; PSOVO(1) - Array of values from COPAY Log
- ;
- N CT,DDEY,ERR,PIEN,RETVAR,V
- S PSOVO(0)=0,PIEN=0
- I $G(PSOVIEN)']"" D NORXNER("-1^ Prescription Number is Required") Q
- I '$$RXVAL^PSOUTCRM(PSOVIEN) D NORXNER("-2^ Prescription Number is not recognized") Q
- S PIEN=$O(^TMP($J,"PSOV",-1))
- D GET^DDE("PSO COPAY LOG",PIEN,,0,,"PSOVO","ERR")
- I $D(ERR) D NORXNER("-1^Error in Retrieval") Q
- I $L(PSOVO(1),"}")<3 D NORXNER("0^No data - there are no COPAY entries for this prescription") Q
- D TIDY^PSOVCC0
- Q
- ;
- ; -------
- ;
- LABEL(PSOVO,PSOVIEN) ; Labels Log
- ;
- ; INPUT:
- ; PSOVIEN - External # of PRESCRIPTION (#52) file.
- ; OUTPUT:
- ; PSOVO(0) - Return Value:
- ; 1 for success
- ; -1^error message for failure
- ; PSOVO(1) - Array of values from LABELS Log
- ;
- N CT,DDEY,ERR,PIEN
- I $G(PSOVIEN)']"" D NORXNER("-1^ Prescription Number is Required") Q
- I '$$RXVAL^PSOUTCRM(PSOVIEN) D NORXNER("-2^ Prescription Number is not recognized") Q
- S PIEN=$O(^TMP($J,"PSOV",-1))
- D GET^DDE("PSO LABEL LOG",PIEN,,0,,"PSOVO","ERR")
- I $D(ERR) D NORXNER("-1^Error in Retrieval") Q
- I $L(PSOVO(1),"}")<3 D NORXNER("0^No data - there are no LABEL entries for this prescription") Q
- D TIDY^PSOVCC0
- Q
- ;
- ; -------
- ;
- NORXNER(ERROR) ; handle messages for input parameter issue or no data
- ;
- N ZXC,DDEY
- S DDEY="PSOVO"
- S ECMER=ERROR
- D MERGE(0)
- K PSOVO(0)
- K PSOVO(1)
- D ENCODE^XLFJSON("ECM",.DDEY)
- S ZXC=@(DDEY_"(1)")
- S ZXC=$$SWAP^PSOUTCRM(ZXC,"\/","/")
- S @DDEY=ZXC
- K ECM,ECMER
- Q
- ;
- MERGE(CT) ; merge into output array as json
- ;
- M ECM("data","items")=ECMER
- S ECM("data","updated")=$$FMTHL7^XLFDT($$HTFM^XLFDT($H))
- S ECM("data","total items")=CT
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOVCC1 5509 printed Mar 13, 2025@21:41:06 Page 2
- PSOVCC1 ;ORLFO/WLC - PSO VCC RPC CALLS ; Mar 20, 2023@12:57:56
- +1 ;;7.0;OUTPATIENT PHARMACY;**707**;DEC 1997;Build 18
- +2 ;
- +3 ; External calls:
- +4 ;
- +5 ; Description ICR Notes
- +6 ; ----------- ------ -------
- +7 ; Reference to ENCODE^XLFJSON in #6682
- +8 ; Reference to GET^DDE in #7008
- +9 ; Reference to FMTHL7^XLFDT, HTFM^XLFDT in #10103
- +10 ;
- +11 ;
- RFIL(PSOVO,PSOVIEN) ; retrieve ENTITY data for Refill Log (#52.1)
- +1 ; inside a PRESCRIPTION (#52) file entry.
- +2 ;
- +3 ; INPUT:
- +4 ; PSOVIEN = External # of Prescription
- +5 ; OUTPUT:
- +6 ; PSOVO(0) - Return value:
- +7 ; 1 = Success, array of values returned in JSON format.
- +8 ; -1^error message for failure
- +9 ; PSOVO(1) = Array of values from REFILLS Log
- +10 ;
- +11 NEW CT,DDEY,ERR,PIEN
- +12 IF $GET(PSOVIEN)']""
- DO NORXNER("-1^ Prescription Number is Required")
- QUIT
- +13 IF '$$RXVAL^PSOUTCRM(PSOVIEN)
- DO NORXNER("-2^ Prescription Number is not recognized")
- QUIT
- +14 SET PIEN=$ORDER(^TMP($JOB,"PSOV",-1))
- +15 KILL PSOVO,ERR
- DO GET^DDE("PSO REFILL LOG",PIEN,,0,,"PSOVO","ERR")
- +16 IF $DATA(ERR)
- DO NORXNER("-1^Error in Retrieval")
- QUIT
- +17 IF $LENGTH(PSOVO(1),"}")<3
- DO NORXNER("0^No data - there are no REFILL LOG entries for this prescription")
- QUIT
- +18 DO TIDY^PSOVCC0
- +19 QUIT
- +20 ;----------
- +21 ;
- ACT(PSOVO,PSOVIEN) ; Activity Log from PRESCRIPTION (#52) file.
- +1 ;
- +2 ; INPUT:
- +3 ; PSOVIEN - External # OF PRESCRIPTION (#52) file entry.
- +4 ; OUTPUT:
- +5 ; PSOVO(0) - Return value
- +6 ; 1 = Success
- +7 ; -1^Error message for failure
- +8 ; PSOVO(1) = Array of values from ACTIVITY Log
- +9 ;
- +10 NEW CT,DDEY,ERR,JSONER,OC,OD,PIEN,RETVAR,V
- +11 IF $GET(PSOVIEN)']""
- DO NORXNER("-1^ Prescription Number is Required")
- QUIT
- +12 IF '$$RXVAL^PSOUTCRM(PSOVIEN)
- DO NORXNER("-2^ Prescription Number is not recognized")
- QUIT
- +13 SET PIEN=$ORDER(^TMP($JOB,"PSOV",-1))
- +14 DO GET^DDE("PSO ACTIVITY LOG",PIEN,,0,,"PSOVO","ERR")
- +15 IF $LENGTH(PSOVO(1),"}")<3
- DO NORXNER("0^No data - there are no ACTIVITY LOG entries for this prescription")
- QUIT
- +16 DO TIDY^PSOVCC0
- +17 QUIT
- +18 ;
- +19 ; ----------
- CMOP(PSOVO,PSOVIEN) ; List CMOP Log
- +1 ;
- +2 ; INPUT:
- +3 ; PSOVIEN - External # OF PRESCRIPTION (#52) file entry.
- +4 ; OUTPUT:
- +5 ; PSOVO(0) - Return Value:
- +6 ; 1 for success
- +7 ; -1^error message for failure
- +8 ; PSOVO(1) = Array of values from CMOP Log
- +9 ;
- +10 NEW CT,DDEY,ERR,OC,OD,PIEN,RETVAR,V
- +11 IF $GET(PSOVIEN)']""
- DO NORXNER("-1^ Prescription Number is Required")
- QUIT
- +12 IF '$$RXVAL^PSOUTCRM(PSOVIEN)
- DO NORXNER("-2^ Prescription Number is not recognized")
- QUIT
- +13 SET PIEN=$ORDER(^TMP($JOB,"PSOV",-1))
- +14 DO GET^DDE("PSO CMOP M",PIEN,,0,,"PSOVO","ERR")
- +15 IF $DATA(ERR)
- DO NORXNER("-1^Error in Retrieval")
- QUIT
- +16 IF $LENGTH(PSOVO(1),"}")<3
- DO NORXNER("0^No data - there are no CMOP entries for this prescription")
- QUIT
- +17 DO TIDY^PSOVCC0
- +18 QUIT
- +19 ;
- +20 ; -------
- +21 ;
- PART(PSOVO,PSOVIEN) ; Partial log
- +1 ;
- +2 ; INPUT:
- +3 ; PSOVIEN - External # of PRESCRIPTION (#52) file entry.
- +4 ; OUTPUT:
- +5 ; PSOVO(0) - Return Value:
- +6 ; 1 for success
- +7 ; -1^error message for failure
- +8 ; PSOVO(1) - Array of values from PARTIALS Log
- +9 ;
- +10 NEW CT,DDEY,ERR,PIEN,RETVAR,V
- +11 IF $GET(PSOVIEN)']""
- DO NORXNER("-1^ Prescription Number is Required")
- QUIT
- +12 IF '$$RXVAL^PSOUTCRM(PSOVIEN)
- DO NORXNER("-2^ Prescription Number is not recognized")
- QUIT
- +13 SET PIEN=$ORDER(^TMP($JOB,"PSOV",-1))
- +14 DO GET^DDE("PSO PARTIALS LOG",PIEN,,0,,"PSOVO","ERR")
- +15 IF $DATA(ERR)
- DO NORXNER("-1^Error in Retrieval")
- QUIT
- +16 IF $LENGTH(PSOVO(1),"}")<3
- DO NORXNER("0^No data - there are no PARTIAL entries for this prescription")
- QUIT
- +17 DO TIDY^PSOVCC0
- +18 QUIT
- +19 ;
- +20 ; -------
- +21 ;
- COPAY(PSOVO,PSOVIEN) ; COPAY transaction log
- +1 ;
- +2 ; INPUT:
- +3 ; PSOVIEN - External # of PRESCRIPTION (#52) file.
- +4 ; OUTPUT:
- +5 ; PSOVO(0) - Return Value:
- +6 ; 1 for success
- +7 ; -1^error message for failure
- +8 ; PSOVO(1) - Array of values from COPAY Log
- +9 ;
- +10 NEW CT,DDEY,ERR,PIEN,RETVAR,V
- +11 SET PSOVO(0)=0
- SET PIEN=0
- +12 IF $GET(PSOVIEN)']""
- DO NORXNER("-1^ Prescription Number is Required")
- QUIT
- +13 IF '$$RXVAL^PSOUTCRM(PSOVIEN)
- DO NORXNER("-2^ Prescription Number is not recognized")
- QUIT
- +14 SET PIEN=$ORDER(^TMP($JOB,"PSOV",-1))
- +15 DO GET^DDE("PSO COPAY LOG",PIEN,,0,,"PSOVO","ERR")
- +16 IF $DATA(ERR)
- DO NORXNER("-1^Error in Retrieval")
- QUIT
- +17 IF $LENGTH(PSOVO(1),"}")<3
- DO NORXNER("0^No data - there are no COPAY entries for this prescription")
- QUIT
- +18 DO TIDY^PSOVCC0
- +19 QUIT
- +20 ;
- +21 ; -------
- +22 ;
- LABEL(PSOVO,PSOVIEN) ; Labels Log
- +1 ;
- +2 ; INPUT:
- +3 ; PSOVIEN - External # of PRESCRIPTION (#52) file.
- +4 ; OUTPUT:
- +5 ; PSOVO(0) - Return Value:
- +6 ; 1 for success
- +7 ; -1^error message for failure
- +8 ; PSOVO(1) - Array of values from LABELS Log
- +9 ;
- +10 NEW CT,DDEY,ERR,PIEN
- +11 IF $GET(PSOVIEN)']""
- DO NORXNER("-1^ Prescription Number is Required")
- QUIT
- +12 IF '$$RXVAL^PSOUTCRM(PSOVIEN)
- DO NORXNER("-2^ Prescription Number is not recognized")
- QUIT
- +13 SET PIEN=$ORDER(^TMP($JOB,"PSOV",-1))
- +14 DO GET^DDE("PSO LABEL LOG",PIEN,,0,,"PSOVO","ERR")
- +15 IF $DATA(ERR)
- DO NORXNER("-1^Error in Retrieval")
- QUIT
- +16 IF $LENGTH(PSOVO(1),"}")<3
- DO NORXNER("0^No data - there are no LABEL entries for this prescription")
- QUIT
- +17 DO TIDY^PSOVCC0
- +18 QUIT
- +19 ;
- +20 ; -------
- +21 ;
- NORXNER(ERROR) ; handle messages for input parameter issue or no data
- +1 ;
- +2 NEW ZXC,DDEY
- +3 SET DDEY="PSOVO"
- +4 SET ECMER=ERROR
- +5 DO MERGE(0)
- +6 KILL PSOVO(0)
- +7 KILL PSOVO(1)
- +8 DO ENCODE^XLFJSON("ECM",.DDEY)
- +9 SET ZXC=@(DDEY_"(1)")
- +10 SET ZXC=$$SWAP^PSOUTCRM(ZXC,"\/","/")
- +11 SET @DDEY=ZXC
- +12 KILL ECM,ECMER
- +13 QUIT
- +14 ;
- MERGE(CT) ; merge into output array as json
- +1 ;
- +2 MERGE ECM("data","items")=ECMER
- +3 SET ECM("data","updated")=$$FMTHL7^XLFDT($$HTFM^XLFDT($HOROLOG))
- +4 SET ECM("data","total items")=CT
- +5 QUIT
- +6 ;
