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: ACKQAS4

Package: Quasar

Routine: ACKQAS4


Information

ACKQAS4 ;HCIOFO/AG - Delete a Quasar Visit ; 04/01/99

Source Information

Source file <ACKQAS4.m>

Entry Points

Name Comments DBIA/ICR reference
OPTN ; Introduce option.
DATE ; Enter date
DELETE ; ask user to confirm the deletion
DELPCE ; call the function to delete the visit from PCE
FAILED ; if deletion failed then display errors
CONFIRM ; prompt whether to continue
DOIT ; ok - delete the visit from Quasar
EXIT ;
; unlock
WARNING ; display a warning to the user that the interface is not on so this
; deletion will not be replicated in the PCE database.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OPTN+1
Function Call: WRITE
  • Prompt: !!,"This option is used to DELETE an existing A&SP Clinic Visit.",!!
  • Line Location: OPTN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !!,"This record is locked by another process - Please try again later.",!!
  • Line Location: DATE+13
Function Call: WRITE
  • Prompt: !!?2," Patient: ",$E(ACKPATNM,1,35)
  • Line Location: DATE+26
Function Call: WRITE
  • Prompt: ?48," SSN: ",ACKPATSS
  • Line Location: DATE+27
Function Call: WRITE
  • Prompt: !?2," Clinic: ",$E(ACKCLNNM,1,35)
  • Line Location: DATE+28
Function Call: WRITE
  • Prompt: ?48," Visit Date: ",$E(ACKDATE,1,12)
  • Line Location: DATE+29
Function Call: WRITE
  • Prompt: !?2,"Division: ",$E(ACKDIVNM,1,35)
  • Line Location: DATE+30
Function Call: WRITE
  • Prompt: ?48,"Appointment Time: ",ACKTIME_ACKP
  • Line Location: DATE+31
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+32
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: DELETE+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DELETE+8
Function Call: WRITE
  • Prompt: !!?2,"ERROR: The PCE Visit linked to this QUASAR Visit could not be deleted."
  • Line Location: FAILED+1
Function Call: WRITE
  • Prompt: !!?2,"If you choose to continue, the QUASAR visit will be deleted but the PCE Visit"
  • Line Location: FAILED+2
Function Call: WRITE
  • Prompt: !?2,"will remain. Corrective action to the PCE Visit will be required using the"
  • Line Location: FAILED+3
Function Call: WRITE
  • Prompt: !?2,"PCE System.",!
  • Line Location: FAILED+4
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: CONFIRM+6
Function Call: WRITE
  • Prompt: !?10,"* * * Visit deleted from QUASAR. * * *",!
  • Line Location: DOIT+4
Function Call: WRITE
  • Prompt: !?2,"WARNING - This QUASAR Visit is linked to a PCE Visit but the PCE Interface"
  • Line Location: WARNING+2
Function Call: WRITE
  • Prompt: !?2,"is not active. If you delete this visit, it will be deleted from QUASAR but"
  • Line Location: WARNING+3
Function Call: WRITE
  • Prompt: !?2,"the corresponding PCE Visit will remain. To delete the visit from PCE you"
  • Line Location: WARNING+4
Function Call: WRITE
  • Prompt: !?2,"must use the PCE package options.",!
  • Line Location: WARNING+5

FileMan Files Accessed Via FileMan Db Call

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