ACKQPCE ;HCIOFO/AG - Quasar PCE Interface; August 1999.
Source file <ACKQPCE.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences |
|---|---|
| $$PKG | SENDPCE+29 |
| $$SRC | SENDPCE+30 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACKARR | CLEAR+1~, FILERSN+3~ |
| ACKARR( | CLEAR+7*, FILERSN+5*, FILERSN+6*, FILERSN+7*, FILERSN+8*, FILERSN+9* |
| ACKI | CLEAR+1~, CLEAR+5*, CLEAR+6, FILERSN+3~, FILERSN+4*, FILERSN+5, FILERSN+6, FILERSN+7, FILERSN+8, FILERSN+9 |
| ACKPKG | SENDPCE~, SENDPCE+29*, SENDPCE+31 |
| ACKRSN | FILERSN~, FILERSN+4 |
| ACKRSN( | FILERSN+6, FILERSN+7, FILERSN+8, FILERSN+9 |
| ACKSRC | SENDPCE~, SENDPCE+30*, SENDPCE+31 |
| >> ACKSUB | CLEAR+6*, CLEAR+7 |
| ACKTGT | PKG+1~, CLEAR+1~ |
| ACKTGT("DILIST" | PKG+3, CLEAR+5, CLEAR+6 |
| ACKVIEN | SENDPCE~, SENDPCE+28, SENDPCE+31, KILLPCE~, KILLPCE+18, KILLPCE+19, CLEAR~, CLEAR+3, CLEAR+7, FILERSN~ , FILERSN+5, FILERSN+6, FILERSN+7, FILERSN+8, FILERSN+9 |
| U | FILERSN+6, FILERSN+7, FILERSN+8 |
