Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Quasar 3 $$SENDPCE^ACKQPCE  $$PCECHKV^ACKQUTL3  $$FMT^ACKQUTL6  
VA FileMan 3 FILE^DIE  ($$GET1,GETS)^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Quasar 3 ACKQAS  ACKQAS2  ACKQAS5  

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.

External References

Name Field # of Occurrence
$$SENDPCE^ACKQPCE PCESEND+15
$$PCECHKV^ACKQUTL3 DATACHK+12
$$FMT^ACKQUTL6 DATACHK+31, DATACHK+32
FILE^DIE DATACHK+25, DATACHK+38, DATACHK+39
$$GET1^DIQ DATACHK+32
GETS^DIQ ERORDISP+11
^DIR TEST+4, DATACHK+27, DATACHK+36

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
Routine Call
  • DIE
  • Line Location:
    • DATACHK+25
    • DATACHK+38
    • DATACHK+39
Routine Call
  • DIR
  • Line Location:
    • TEST+4
    • DATACHK+27
    • DATACHK+36

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACK(509850.6 - [#509850.6] GET1^DIQ
509850.65 GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACK(509850.6 - [#509850.6] ERORDISP+7, ERORDISP+10

Label References

Name Line Occurrences
ERORDISP PCESEND+19
HEADING ERORDISP+7, ERORDISP+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACKARR DATACHK+11~
ACKARR( DATACHK+25*, DATACHK+38*, DATACHK+39*
ACKERR ERORDISP+4~, ERORDISP+14*, ERORDISP+16*, ERORDISP+18
ACKFLD ERORDISP+4~, ERORDISP+12*, ERORDISP+15*, ERORDISP+17
ACKK1 ERORDISP+4~, ERORDISP+9*, ERORDISP+10*, ERORDISP+11, ERORDISP+12, ERORDISP+13, ERORDISP+14, ERORDISP+15
ACKNUM ERORDISP+4~, ERORDISP+15*, ERORDISP+17
ACKOUT DATACHK+11~, DATACHK+17, DATACHK+27*, DATACHK+28*, DATACHK+30, DATACHK+37*, DATACHK+38*, DATACHK+39*
ACKSTAT DATACHK+11~, DATACHK+13*, DATACHK+15, DATACHK+17, DATACHK+30
ACKTEST DATACHK+11~, DATACHK+12*, DATACHK+13, DATACHK+20, DATACHK+21, DATACHK+22, DATACHK+31, DATACHK+39
ACKTGT ERORDISP+4~
ACKTGT( ERORDISP+12, ERORDISP+13, ERORDISP+14
ACKVAL ERORDISP+4~, ERORDISP+13*, ERORDISP+16*, ERORDISP+17
ACKVIEN PCESEND~, PCESEND+15, PCESEND+19, ERORDISP~, ERORDISP+7, ERORDISP+10, ERORDISP+11, ERORDISP+12, ERORDISP+13, ERORDISP+14
, DATACHK~, DATACHK+12, DATACHK+25, DATACHK+32, DATACHK+38, DATACHK+39
D PCESEND+14~
D0 PCESEND+14~
DA PCESEND+14~
DI PCESEND+14~
DIC PCESEND+14~
DIE PCESEND+14~
DIFLD PCESEND+14~
DIR TEST+4!, DATACHK+33!, DATACHK+36!
DIR("?" TEST+2*, DATACHK+35*
DIR("A" TEST*, DATACHK+34*
DIR("B" TEST+1*, DATACHK+33*
DIR(0 TEST+3*, DATACHK+27*, DATACHK+33*
>> DIRUT TEST+5
DK PCESEND+14~
DL PCESEND+14~
DR PCESEND+14~
>> DTOUT DATACHK+27, DATACHK+36
>> DUOUT DATACHK+27
IOF ERORDISP+6
U DATACHK+20, DATACHK+21, DATACHK+22, DATACHK+36, DATACHK+39
X PCESEND+14~, TEST+6, TEST+7, DATACHK+36*, DATACHK+37, DATACHK+38, DATACHK+39
Y PCESEND+14~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All