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

Package: Quasar

Routine: ACKQASU1


Information

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

Source Information

Source file <ACKQASU1.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 9 DD^%DT  C^%DTC  ($$FIND1,LIST)^DIC  YN^DICN  ($$EXTERNAL,RECALL)^DILFD  ($$GET1,GETS)^DIQ  ^DIR  ^DIWP  
^DIWW  
Quasar 3 ^ACKQHLP  SELECT^ACKQSEL  $$FMT^ACKQUTL6  

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
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.

External References

Name Field # of Occurrence
DD^%DT DATE+1
C^%DTC PCEVST1+5
^ACKQHLP ASK1+12
SELECT^ACKQSEL CLIN+32
$$FMT^ACKQUTL6 DUPCHK+45
$$FIND1^DIC CLIN+22
LIST^DIC GETCLIN+14
YN^DICN ASK1+3
$$EXTERNAL^DILFD CLIN+23
RECALL^DILFD CLIN+37
$$GET1^DIQ GETCLIN+19, DUPCHK+48
GETS^DIQ DUPCHK+23
^DIR SELECT+4, EXCEPT+12
^DIWP CLINHLP+4, CLINHLP+5, CLINHLP+6
^DIWW CLINHLP+7

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
Routine Call
  • DIC
  • Line Location:
    • CLIN+22
Routine Call
  • DIC
  • Line Location:
    • GETCLIN+14
Routine Call
  • DIR
  • Line Location:
    • SELECT+4
    • 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACK(509850.6 - [#509850.6] DUPCHK+21
^AUPNVSIT("AET" PCEVST1+6, PCEVST1+7
^TMP("ACKQASU1" DUPCHK+17!, DUPCHK+28*, DUPCHK+29*, DUPCHK+39, DUPCHK+41, DUPCHK+43*, DUPCHK+44, ASK1+15, SELECT+8, DUPCHKX+1!

Label References

Name Line Occurrences
$$ACKSTOP DUPCHK+49
$$DATE DUPCHK+51
$$UP CLIN+26, GETCLIN+21
ASK1 ASK1+4, ASK1+12
CLINX CLIN+15, CLIN+18, CLIN+31
DUPCHKX DUPCHK+32, ASK1+7, ASK1+10, ASK1+15, SELECT+5
GETCLIN CLIN+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DUPCHK+13~, ASK1+3*, ASK1+4, ASK1+7, ASK1+10, ASK1+12
>> %Y ASK1+4
ACK GETCLIN+12~, GETCLIN+17*, GETCLIN+18, GETCLIN+20, GETCLIN+21, GETCLIN+22, PCEVST1+3~
ACKC CLIN+9~, CLIN+35*, CLIN+36, CLIN+38
>> ACKCANDP DUPCHK+47*, DUPCHK+52
ACKCLIN CLIN+9~, CLIN+15*, CLIN+19*, CLIN+34*, CLIN+38*, CLINX+1, PCEVST1~, PCEVST1+7
ACKCLINN CLIN+9~, CLIN+35*
ACKCLN DUPCHK+12~, DUPCHK+25*, DUPCHK+29, DUPCHK+48*
>> ACKCLNNM DUPCHK+48*, DUPCHK+52
ACKCP DUPCHK+12~, DUPCHK+24*, DUPCHK+29
ACKCT DUPCHK+12~, DUPCHK+20*, DUPCHK+22*, DUPCHK+32, DUPCHK+35, ASK1+1, ASK1+15
ACKDATE PCEVST1+3~
ACKDEF CLIN+9~, CLIN+22*, CLIN+23*, CLIN+26*, CLIN+27*, CLIN+28
ACKDFLT CLIN+9~, CLIN+28*, CLIN+32
ACKDIV CLIN~, CLIN+12, CLIN+22, CLIN+37, GETCLIN~, GETCLIN+14
ACKIEN CLIN+9~, CLIN+36*, CLIN+37
ACKMSG GETCLIN+12~
ACKOPT CLIN~, CLIN+12, GETCLIN~, GETCLIN+21, UP~, UP+1
ACKPASS PCEVST1+3~, PCEVST1+4*, PCEVST1+6, PCEVST1+7*, PCEVST1+8
ACKPAT DUPCHK~, DUPCHK+21, PCEVST1~, PCEVST1+6, PCEVST1+7
ACKPIEN PCEVST1+3~
>> ACKQHLP ASK1+12*
ACKSCRN GETCLIN+12~
ACKSEL DUPCHK+12~, SELECT+6*, SELECT+8
ACKSEQ DUPCHK+13~, DUPCHK+38*, DUPCHK+42*, DUPCHK+43, DUPCHK+51, SELECT+1
>> ACKSTOP DUPCHK+49*, DUPCHK+52
ACKTGT GETCLIN+12~, DUPCHK+12~, DUPCHK+22!
ACKTGT( DUPCHK+24, DUPCHK+25, DUPCHK+26, DUPCHK+27
ACKTGT("DILIST" GETCLIN+16, GETCLIN+18
ACKTIME DUPCHK+12~, DUPCHK+13~, DUPCHK+45*, DUPCHK+52
>> ACKTM DUPCHK+27*, DUPCHK+28, DUPCHK+29, DUPCHK+38*, DUPCHK+39*, DUPCHK+41, DUPCHK+45
ACKVD DUPCHK~, DUPCHK+21, DUPCHK+29, DUPCHK+46*, DUPCHK+51, PCEVST1~, PCEVST1+5, PCEVST1+6
ACKVIEN DUPCHK+12~, DUPCHK+20*, DUPCHK+21*, DUPCHK+23, DUPCHK+24, DUPCHK+25, DUPCHK+26, DUPCHK+27, DUPCHK+28, DUPCHK+29
, DUPCHK+40*, DUPCHK+41*, DUPCHK+43, DUPCHK+44
ACKVSC DUPCHK+12~, DUPCHK+26*, DUPCHK+29, DUPCHK+49*, ACKSTOP~, ACKSTOP+1, ACKSTOP+2, ACKSTOP+3, ACKSTOP+4
ACKVSEL DUPCHK+12~, DUPCHK+13~, DUPCHK+14*, DUPCHK+32*, ASK1+7*, ASK1+10*, ASK1+15*, SELECT+5*, SELECT+8*, DUPCHKX+2
CLIN GETCLIN+12~, GETCLIN+18*, GETCLIN+19, GETCLIN+20, GETCLIN+22
CLINNAME GETCLIN+12~, GETCLIN+19*, GETCLIN+20, GETCLIN+21
CLINVARR CLIN+12, CLIN+15, CLIN+18, CLIN+31, GETCLIN~, GETCLIN+13!, GETCLIN+16*, GETCLIN+17
CLINVARR(1 CLIN+19, CLIN+36, CLIN+38, GETCLIN+20*
CLINVARR(2 CLIN+27, CLIN+35, GETCLIN+21*
CLINVARR(3 GETCLIN+22*
CLINVARR(4 CLIN+34, CLIN+35
DIR DUPCHK+13~, SELECT+4!, EXCEPT+12!
DIR("?" SELECT+3*
DIR("A" SELECT+2*, EXCEPT+12*
DIR(0 SELECT+1*, EXCEPT+12*
>> DIRUT SELECT+5
DIWF CLINHLP+1~, CLINHLP+2*
DIWL CLINHLP+1~, CLINHLP+2*
DIWR CLINHLP+1~, CLINHLP+2*
DUZ CLIN+37
>> TMP DUPCHK+44*, DUPCHK+46, DUPCHK+47, DUPCHK+48, DUPCHK+49
U CLIN+19, CLIN+36, CLIN+38, GETCLIN+16, GETCLIN+20, DUPCHK+29, DUPCHK+43, DUPCHK+46, DUPCHK+47, DUPCHK+48
, DUPCHK+49, ASK1+15, SELECT+8
X CLINHLP+1~, CLINHLP+4*, CLINHLP+5*, CLINHLP+6*, UP~, UP+1, UP+2, DUPCHK+13~, PCEVST1+5*, PCEVST1+6*
, PCEVST1+7
>> X1 PCEVST1+5*
>> X2 PCEVST1+5*
Y DUPCHK+13~, SELECT+6, DATE~, DATE+1*, DATE+2
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