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

Package: Quasar

Routine: ACKQASU


Information

ACKQASU ;HCIOFO/BH - New/Edit Visit Utilities ;04/01/99

Source Information

Source file <ACKQASU.m>

Entry Points

Name Comments DBIA/ICR reference
ELIGCHK() ; Checks to see if there is a Primary Eligibility (which there
; always should be) if there's not (i.e. data error) pass back zero.
;
DISP ; Displays headings and Patient Appointments
KILL ; Kill off values at end of processing
DC ; CHECK OUT DIAGNOSTIC CONDITION - ENTER IF NEEDED
ADCODE ; Adds ICD to permanent record.
GETPCETM(ACKPCENO) ; get appointment time from a PCE Visit ien
; inputs:- ACKPCENO - PCE Visit ien (from ^AUPNVSIT)
; returned :- 0^ - error (visit not found)
; '.nnnnnn^' - time portion of PCE visit date/time
DUPEDATA(ACKPAT,ACKCLIN,ACKVD,ACKTM) ; If an appointment or PCE visit has been selected for a visit
; which is at the same time, for the same patient, on the same day
; within the same clinic this processing is run.
; inputs:- ACKPAT - patient ien
; ACKCLIN - clinic ien
; ACKVD - visit date (internal)
; ACKTM - appointment time (.NNN - internal)
DATE(ACKDATE) ; convert ACKDATE to external format
TIME(ACKTIME) ; convert Time to external format

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: " - ",IOUON,"APPOINTMENT LIST",IOUOFF," -",!
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !," Name : "_$$GET1^DIQ(2,ACKPAT,".01")
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: ?38,"SSN : ",$E(ACKSSN,1,3)_"-"_$E(ACKSSN,4,5)_"-"_$E(ACKSSN,6,9)
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !," Date : "_$E(ACKDDT2,4,5)_"/"_$E(ACKDDT2,6,7)_"/"_$E(ACKDDT2,2,3)
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: ?38,"Clinic : "_$$GET1^DIQ(44,ACKCLIN,.01)
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: !,IOUON," ",IOUOFF
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: !!," ",IOUON,"Appt Date/Time",IOUOFF," ",IOUON,"Status",IOUOFF," ",IOUON,"Appointment Type",IOUOFF
  • Line Location: DISP+16
Function Call: WRITE
  • Prompt: !!," "_ACKK3_"."
  • Line Location: DISP+22
Function Call: WRITE
  • Prompt: ?4,$P($P(ACKSTRIN,U,1),"@",1)_" "_$P($P(ACKSTRIN,U,1),"@",2)
  • Line Location: DISP+23
Function Call: WRITE
  • Prompt: ?49,$P(ACKSTRIN,U,4)
  • Line Location: DISP+25
Function Call: WRITE
  • Prompt: !!!
  • Line Location: DISP+26
Function Call: WRITE
  • Prompt: !!,X," ",$$DIAGTXT^ACKQUTL8(ACKDC,ACKVD)
  • Line Location: DC+6
Function Call: WRITE
  • Prompt: !,"We have no previous record of diagnostic condition ",X," for ",$S(ACKSX="F":"Ms.",1:"Mr.")," ",ACKLN,"."
  • Line Location: DC+7
Function Call: WRITE
  • Prompt: !,"Ok, I've added this code to ",$S(ACKSX="F":"her",1:"his")," permanent record !",!
  • Line Location: DC+8
Function Call: WRITE
  • Prompt: !!?4,"ERROR - A visit already exists in QUASAR with the following details..",!
  • Line Location: DUPEDATA+7
Function Call: WRITE
  • Prompt: !?7,"Visit Date: ",$$DATE(ACKVD)," Appointment Time: ",$$TIME(ACKTM)
  • Line Location: DUPEDATA+8
Function Call: WRITE
  • Prompt: !?7," Clinic: ",$$GET1^DIQ(44,ACKCLIN_",",.01,"E")
  • Line Location: DUPEDATA+9
Function Call: WRITE
  • Prompt: !?7," Patient: ",$$GET1^DIQ(509850.2,ACKPAT_",",.01,"E")
  • Line Location: DUPEDATA+10
Function Call: WRITE
  • Prompt: !!?4,"If you choose to continue you must enter a different Appointment Time."
  • Line Location: DUPEDATA+11
Function Call: WRITE
  • Prompt: !!,"There is already an entry within Quasar for this Patient, within the same"
  • Line Location: DUPEDATA+13
Function Call: WRITE
  • Prompt: !,"Clinic, on the same date at the same time."
  • Line Location: DUPEDATA+14
Function Call: WRITE
  • Prompt: !!,"Enter '^' to terminate and quit back to the Division prompt"
  • Line Location: DUPEDATA+15
Function Call: WRITE
  • Prompt: !,"or <RETURN> to continue."
  • Line Location: DUPEDATA+16
Function Call: WRITE
  • Prompt: !
  • Line Location: DUPEDATA+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^SC - [#44] GET1^DIQ
^ACK(509850.2 - [#509850.2] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call