Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ACKQASU3

Package: Quasar

Routine: ACKQASU3


Information

ACKQASU3 ;HCIOFO/BH-New/Edit Visit Utilities ; 04/01/99

Source Information

Source file <ACKQASU3.m>

Entry Points

Name Comments DBIA/ICR reference
PCESEND(ACKVIEN) ; This function is called from within the New Visit
; and Edit visit processing. It calls the send to PCE function.
; The SEND to PCE function returns either true or false depending on
; whether the visit has been sent successfully. It the SEND function
; returns true this function quits returning a true value. If the
; SEND function returns false the error is displayed (contained in the
; error multiple of the A&SP visit file). The user is then offered
; the option to either quit processing this visit and leave it with an
; error or to return back into the visit entry function - thus
; enabling the user to edit the erroreous field.
TEST
ERORDISP(ACKVIEN) ; Display text that defines the reason for the
; transmission failiure to PCE.
; Passed in Visit IEN, Displays error multiple (6.5) of the associated
; visit.
HEADING ;
DATACHK(ACKVIEN) ; PCE Data integrity check.
; Only called if Quasar visit has a value within the PCE VISIT IEN
; field. This routine check the Clinic,Patient,Appointment time and
; Visit date values on the quasar file and compares them to the same
; fields on the associated PCE record. If the values are all the same
; the routine Quits. If the Clinic,Patient or Visit Date are different
; then a message is displayed to the user detailing which field(s) are
; different and then deletes the PCE VISIT IEN.If just the Appointment
; Time is different a message is displayed the user then has the choice
; to either overwrite the Quasar time with the PCE time or to leave the
; Quasar time as it is and Quasar will delete the PCE VISIT IEN.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ERORDISP+6
Function Call: WRITE
  • Prompt: !!!," No Error information returned for display.",!!
  • Line Location: ERORDISP+7
Function Call: WRITE
  • Prompt: !!,?2,ACKNUM,?20,ACKFLD,?50,ACKVAL,!
  • Line Location: ERORDISP+17
Function Call: WRITE
  • Prompt: ?2,ACKERR
  • Line Location: ERORDISP+18
Function Call: WRITE
  • Prompt: !!
  • Line Location: ERORDISP+20
Function Call: WRITE
  • Prompt: "There has been an Error during the Transmission of this QUASAR visit.",!
  • Line Location: HEADING+1
Function Call: WRITE
  • Prompt: "The PCE system has return the following Errors for this visit."
  • Line Location: HEADING+2
Function Call: WRITE
  • Prompt: !!,"The following fields within the PCE Visit entry linked to this Quasar visit no"
  • Line Location: DATACHK+18
Function Call: WRITE
  • Prompt: !,"longer match.",!
  • Line Location: DATACHK+19
Function Call: WRITE
  • Prompt: !," CLINIC LOCATION"
  • Line Location: DATACHK+20
Function Call: WRITE
  • Prompt: !," PATIENT"
  • Line Location: DATACHK+21
Function Call: WRITE
  • Prompt: !," VISIT DATE"
  • Line Location: DATACHK+22
Function Call: WRITE
  • Prompt: !!,"Due to this mismatch the link between this Quasar visit and the PCE visit will"
  • Line Location: DATACHK+23
Function Call: WRITE
  • Prompt: !,"be broken.",!
  • Line Location: DATACHK+24
Function Call: WRITE
  • Prompt: !,"Enter <RETURN> to continue processing this visit or '^' to Quit."
  • Line Location: DATACHK+26
Function Call: WRITE
  • Prompt: !!,"The Appointment Time of "_$$FMT^ACKQUTL6(ACKTEST)_" within the PCE Visit no longer matches the"
  • Line Location: DATACHK+31
Function Call: WRITE
  • Prompt: !,"Appointment Time of "_$$FMT^ACKQUTL6($$GET1^DIQ(509850.6,ACKVIEN_",",55,"I"))_" within the linked Quasar visit.",!
  • Line Location: DATACHK+32

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACK(509850.6 - [#509850.6] GET1^DIQ
509850.65 GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call