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

Package: Quasar

Routine: ACKQASU1


Information

ACKQASU1 ;HCIOFO/BH-Quasar New Visit Utilities routine ; 04/01/99

Source Information

Source file <ACKQASU1.m>

Entry Points

Name Comments DBIA/ICR reference
CLIN(ACKDIV,ACKOPT) ; prompt for clinic
; inputs: - ACKDIV - selected Division
; ACKOPT - set to U to force uppercase entry
; returns: 0 - if no valid clinics to select from
; null - if no clinic selected
; or X^Y^ where
; X - ien of selected clinic
; & Y - clinic name
CLINX ; end
CLINHLP ; displays help text for the clinic prompt
GETCLIN(ACKDIV,CLINVARR,ACKOPT) ; get all the valid clinics and put them in CLINVARR
UP(ACKOPT,X) ; Convert X to uppercase (if requested)
DUPCHK(ACKPAT,ACKVD) ; Check for Duplicate Visit by this patient on this Date
; this function will determine if the patient has another visit on
; the selected date. If so the user may choose to select an
; existing visit, or confirm that they are entering a new visit.
; inputs: ACKPAT - patient DFN
; ACKVD - visit date
; returns: -1 if user quit or timed out
; 0 create a new visit
; (ie either no duplicates or user did not select
; a duplicate)
; >0 ien of selected visit
;
ASK1 ; ask if one of the displayed visits is the one to be edited
SELECT ; prompt for which visit
DUPCHKX ; exit point
ACKSTOP(ACKVSC) ; translate visit stop code for display
DATE(Y) ; convert date portion of Y to external format
PCEVST1(ACKVD,ACKPAT,ACKCLIN) ; Checks to see if patients has a PCE visit for
; selected clinic on visit date
EXCEPT ; Displays Error message explaining that the visit has previously been
; sent to PCE and that the PCE interface is now off. The changes
; made here in Quasar will therefore not be sent to PCE thus causing
; a data disparity between the two systems.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$S(ACKCT=1:"One visit has ",1:ACKCT_" visits have ")_"already been entered for this date and patient.",!
  • Line Location: DUPCHK+35
Function Call: WRITE
  • Prompt: !,$J(ACKSEQ,3),". ",$$DATE(ACKVD)
  • Line Location: DUPCHK+51
Function Call: WRITE
  • Prompt: ?20,ACKTIME,?32,$E(ACKCLNNM,1,30),?64,ACKSTOP,?70,ACKCANDP
  • Line Location: DUPCHK+52
Function Call: WRITE
  • Prompt: !!,"Is "_$S(ACKCT=1:"the appointment",1:"one of the appointments")
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: " shown here the one you wish to edit"
  • Line Location: ASK1+2
Function Call: WRITE
  • Prompt: !,"Jumping not allowed."
  • Line Location: ASK1+4
Function Call: WRITE
  • Prompt: !!,"Ok, adding another visit for this patient/date.",!!
  • Line Location: ASK1+8
Function Call: WRITE
  • Prompt: !!,"WARNING"
  • Line Location: EXCEPT+4
Function Call: WRITE
  • Prompt: !!,"This visit has Previously been sent to PCE."
  • Line Location: EXCEPT+5
Function Call: WRITE
  • Prompt: !,"The edited visit will not be sent to PCE because (within the Site Parameters)"
  • Line Location: EXCEPT+6
Function Call: WRITE
  • Prompt: !,"either the INTERFACE WITH PCE field is set to off, the SEND TO PCE field for"
  • Line Location: EXCEPT+7
Function Call: WRITE
  • Prompt: !,"this Division is set to off or this visits Visit Date is before the PCE"
  • Line Location: EXCEPT+8
Function Call: WRITE
  • Prompt: !,"INTERFACE START DATE."
  • Line Location: EXCEPT+9
Function Call: WRITE
  • Prompt: !!,"Data will now be different between the Quasar and the PCE visit."
  • Line Location: EXCEPT+10
Function Call: WRITE
  • Prompt: !,"Please take the appropriate corrective action.",!
  • Line Location: EXCEPT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: EXCEPT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: EXCEPT+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] GET1^DIQ
^ACK(509850.6 - [#509850.6] GETS^DIQ
509850.831 EXTERNAL^DILFD,  FIND1^DIC,  LIST^DIC,  RECALL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call