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

Package: Quasar

Routine: ACKQAS4


Information

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

Source Information

Source file <ACKQAS4.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 ^DIC  FILE^DIE  $$GET1^DIQ  ^DIR  
Quasar 3 $$KILLPCE^ACKQPCE  PROBLIST^ACKQUTL3  $$FMT^ACKQUTL6  
Registration 1 DEM^VADPT  

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

Package Total Caller Graph
Quasar 1 ACKQAS DELETE VISIT  

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.

External References

Name Field # of Occurrence
$$KILLPCE^ACKQPCE DELPCE+1
PROBLIST^ACKQUTL3 DOIT+6
$$FMT^ACKQUTL6 DATE+23
^DIC DATE+3
FILE^DIE DOIT+3
$$GET1^DIQ DATE+16, DATE+20, DATE+21, DATE+22, DATE+23, DATE+24, DATE+36, DATE+37, DATE+38, DATE+39
DATE+40
^DIR DELETE+3, CONFIRM+3
DEM^VADPT DATE+17

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
Routine Call
  • DIC
  • Line Location:
    • DATE+3
Routine Call
  • DIE
  • Line Location:
    • DOIT+3
Routine Call
  • DIR
  • Line Location:
    • DELETE+3
    • CONFIRM+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACK(509850.6 - [#509850.6] DATE+12

Label References

Name Line Occurrences
CONFIRM CONFIRM+6
DATE DATE+4, DATE+12
DELETE DELETE+6
DOIT DELETE+12, DELPCE+4
EXIT DATE+5, DATE+6, DELETE+4, DELETE+5, DELETE+7, CONFIRM+4, CONFIRM+5, CONFIRM+7
WARNING DATE+46

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACKARR ACKQAS4+6~, DOIT+1!, EXIT+6!
ACKARR( DOIT+2*
ACKCLNNM ACKQAS4+4~, DATE+20*, DATE+28, EXIT+5!
ACKDATE ACKQAS4+5~, DATE+22*, DATE+29, EXIT+6!
ACKDIV ACKQAS4+5~, DATE+37*, DATE+39, DATE+40
ACKDIVNM ACKQAS4+4~, DATE+21*, DATE+30, EXIT+5!
ACKIFACE ACKQAS4+5~, DATE+35*, DATE+43*, DATE+46, DELETE+12
ACKOK ACKQAS4+6~, DELPCE+1*, DELPCE+4, EXIT+6!
ACKP ACKQAS4+5~, DATE+25*, DATE+31, EXIT+6!
ACKPAT ACKQAS4+4~, DATE+16*, DOIT+6, EXIT+5!
ACKPATNM ACKQAS4+4~, DATE+18*, DATE+26, EXIT+5!
ACKPATSS ACKQAS4+4~, DATE+19*, DATE+27, EXIT+5!
ACKPCED ACKQAS4+6~, DATE+39*, DATE+43
ACKPCEDT ACKQAS4+6~, DATE+40*, DATE+43
ACKPCES ACKQAS4+5~, DATE+36*, DATE+43
ACKPIEN ACKQAS4+5~, DATE+24*, DATE+25, DATE+46, DELETE+12
ACKTIME ACKQAS4+5~, DATE+23*, DATE+31, EXIT+6!
ACKTM ACKQAS4+5~, DATE+23*, EXIT+6!
ACKVDT ACKQAS4+5~, DATE+38*, DATE+43
ACKVIEN ACKQAS4+4~, DATE+9*, DATE+12, DATE+16, DATE+20, DATE+21, DATE+22, DATE+23, DATE+24, DATE+37
DATE+38, DELPCE+1, DOIT+2, EXIT+5!
DFN ACKQAS4+4~, DATE+16*, EXIT+5!
DIC ACKQAS4+4~, DATE+3*, EXIT+5!
DIC("W" DATE+2*
DIC(0 DATE+3*
DIR ACKQAS4+6~, EXIT+6!
DIR("A" DELETE+2*, CONFIRM+2*
DIR("B" DELETE+1*, CONFIRM+1*
DIR(0 DELETE+1*, CONFIRM+1*
>> DIRUT DATE+6
>> DTOUT DELETE+4, CONFIRM+4
>> DUOUT DELETE+5, CONFIRM+5
IOF OPTN+1
U DATE+19
VADM ACKQAS4+4~, EXIT+5!
VADM(1 DATE+18
VADM(2 DATE+19
X ACKQAS4+4~, DATE+4
Y ACKQAS4+4~, DATE+5, DATE+9, DELETE+6, DELETE+7, CONFIRM+6, CONFIRM+7, EXIT+5!
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