QTP program execution terminates session

[Lorry Litman]

Hi,

Powerhouse 710.E6
Oracle RDB 7.0-1
Recently moved from GS160 & VMS 7.3-1 to ES47 & VMS 7.3-2

I have a QTP program that I can’t figure out why it does what it does!?!?!?

This program seems to execute fine but it terminates my session as opposed to returning me to the DCL prompt.
What’s even stranger is that it only does this if the source RMS file that it reads has no data/records in it. If there is data/records it does not terminate my session and I’m returned to the DCL prompt.

The QTP program stillborn_interface.qts
==========================================================
RUN   Stillborn_Interface &
   USERS INCLUDE ABS_MANAGER

GLOBAL TEMPORARY USERNAME CHAR*12 INITIAL LOGONID
GLOBAL TEMPORARY TODAY DATE INITIAL SYSDATE

REQUEST LOAD_ABSTRACT_DETAILS &
   INPUT NOLIMIT &
   PROCESS NOLIMIT

DISPLAY "Load Abstract Detail Request"
ACCESS Stillborn_Interface ALIAS Still &
   LINK Claim_NO &
        TO ATD_Claim_NO OF Abstract_Details IN Abstracting ALIAS Dtls  &
        OPTIONAL    &
    AND Claim_NO &
        TO ATD_Claim_NO OF Encounter_Details IN Abstracting ALIAS Enc    &
        OPTIONAL

DISPLAY "Abstract Details Output Phase"
OUTPUT Abstract_Details IN Abstracting ADD    &
   IF NOT RECORD Dtls EXIST    &
   ON ERROR REPORT

   ITEM ABS_Patient_NO OF Abstract_Details = Patient_NUM OF Still
  ….and other item statements

DISPLAY "Abstract Details Failure Output Phase"
SUBFILE ABS_DAT:Still_Intrfc_Dtls_Fail ALIAS Fail1 KEEP   &
   IF RECORD Dtls EXIST   &
   INCLUDE   &
      Patient_NUM   OF Still,   &
      Encounter_NUM  OF Still,   &
      Claim_NO  OF Still

DISPLAY "Abstract Details Success Output Phase"
SUBFILE ABS_DAT:Still_Intrfc_Dtls_Success ALIAS Success1 KEEP   &
   IF NOT RECORD Dtls EXIST     &
   INCLUDE    &
      Patient_NUM  OF Still,    &
      Encounter_NUM  OF Still,    &
      Claim_NO   OF Still,    &
      Attending_Physician_No  OF Still

DISPLAY "Encounter Details Output Phase"
OUTPUT Encounter_Details IN Abstracting ADD    &
   IF NOT RECORD Enc EXIST    &
   ON ERROR REPORT

   ITEM ATD_Stillbirth_Order_Cd OF Encounter_Details =      &
      Stillbirth_Order_Cd OF Still
    …. And other itme statements

OUTPUT Still DELETE     &
   IF RECORD Still EXISTS
==========================================================

At the dcl prompt $qtp auto=abs_qts:stillborn_interface.qtc

This is what displays on the screen and then my session is terminated.

Executing request LOAD_ABSTRACT_DETAILS ...
  Load Abstract Detail Request
    Abstract Details Output Phase
    Abstract Details Failure Output Phase
    Abstract Details Success Output Phase
   Encounter Details Output Phase
------------------------------------------------------------------------------
The permanent subfile will be overwritten.
   File:  ABS_DAT:STILL_INTRFC_DTLS_FAIL
------------------------------------------------------------------------------
The permanent subfile will be overwritten.
   File:  ABS_DAT:STILL_INTRFC_DTLS_SUCCESS
------------------------------------------------------------------------------

Records read:
STILL                                     0
DTLS                                      0
ENC                                       0

Transactions processed:                    0

Records processed:                     Added    Updated  Unchanged    Deleted
STILL                                     0          0          0          0
ABSTRACT_DETAILS                          0          0          0          0
FAIL1                                     0          0          0          0
SUCCESS1                                  0          0          0          0
ENCOUNTER_DETAILS                         0          0          0          0

Finished.
==========================================================



Thanx
Lorry Litman,
Application Management
llitman at manitoba-ehealth.ca<mailto:llitman at manitoba-ehealth.ca>
(204) 926-9076


300-355 Portage Avenue
Winnipeg, Manitoba
R3B 0J6
www.manitoba-ehealth.ca<http://www.manitoba-ehealth.ca/>

[Description: eHealth_emailsig]






This email and/or any documents in this transmission is intended for the
addressee(s) only and may contain legally privileged or confidential information.  Any unauthorized use, disclosure, distribution, copying or dissemination is strictly prohibited.  If you receive this transmission in error, please notify the sender immediately and return the original.

Ce courriel et tout document dans cette transmission est destiné à la personne ou aux personnes à qui il est adressé. Il peut contenir des informations privilégiées ou confidentielles. Toute utilisation, divulgation, distribution, copie, ou diffusion non autorisée est strictement défendue. Si vous n'êtes pas le destinataire de ce message, veuillez en informer l'expéditeur immédiatement et lui remettre l'original.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.sowder.com/pipermail/powerh-l/attachments/20131209/5745b2bc/attachment-0001.htm>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: image002.jpg
Type: image/jpeg
Size: 2870 bytes
Desc: image002.jpg
URL: <http://lists.sowder.com/pipermail/powerh-l/attachments/20131209/5745b2bc/attachment-0001.jpg>