ACKQPCE ;HCIOFO/AG - Quasar PCE Interface; August 1999.
Source file <ACKQPCE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SENDPCE(ACKVIEN,ACKPKG,ACKSRC) | ; send a visit to pce
; requires :- ; ACKVIEN - Quasar visit ien (from 509850.6) (reqd) ; ACKPKG - package number for Quasar from package file (9.4) (opt) ; ACKSRC - source name (free text) (opt) ; returns :- ; 1 - visit processed ok (no errors) ; 0 - visit not processed (errors found) ; briefly, this routine does the following :- ; (code for this function is in ^ACKQPCE1) ; .lock the visit ; .retrieve all the visit data ; .if the visit already exists in PCE... ; ..remove all workload from the PCE visit ; ..if workload not removed ok... ; ...record error on Qsr Visit file ; ...unlock visit ; ...end processing - return 0 ; .create temp file containing visit data in format reqd by ; PCE api DATA2PCE^PXAPI ; .call the PCE api to update the PCE Visit file ; .if PCE api returned an error... ; ..record error on Qsr Visit file ; ..unlock visit ; ..end processing - return 0 ; .update visit fields ; .unlock visit ; .end processing - return 1 |
|
| KILLPCE(ACKVIEN) | ; remove a Quasar Visit from PCE
; requires:- ; ACKVIEN - Quasar Visit ien (from 509850.6) (reqd) ; returns:- ; 0 - unable to process, error returned by PCE ; 1 - visit deleted successfully ; this routine does the following :- ; .get the PCE ien for the visit ; .if no PCE ien then exit (return 1) ; .lock the visit ; .call the PCE API DELVFILE^PXAPI to delete the visit ; .if error returned by PCE... ; ..record error on Qsr Visit file ; ..file Last Edited in Qsr date (to create Exception entry) ; ..end processing - return 0 ; .update visit fields ; .unlock visit ; .end processing - return 1 |
|
| PKG() | ; determine Quasar package number
|
|
| SRC() | ; return default source string for quasar/pce interface
|
|
| CLEAR(ACKVIEN) | ; clear the PCE Error multiple for a Quasar visit
|
|
| FILERSN(ACKVIEN,ACKRSN) | ; file PCE Errors on Quasar visit file 509850.6
; requires :- ACKVIEN - quasar visit number ; ACKRSN - array containing the errors |
| FileNo | Call Tags |
|---|---|
| 509850.65 | LIST^DIC |
| ^DIC(9.4 - [#9.4] | FIND^DIC |
