ACKQASU1 ;HCIOFO/BH-Quasar New Visit Utilities routine ; 04/01/99
Source file <ACKQASU1.m>
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. |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^SC - [#44] | GET1^DIQ |
^ACK(509850.6 - [#509850.6] | GETS^DIQ |
509850.831 | EXTERNAL^DILFD, FIND1^DIC, LIST^DIC, RECALL^DILFD |