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

Package: Quasar

Routine: ACKQASU


Information

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

Source Information

Source file <ACKQASU.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 6 DD^%DT  NOW^%DTC  FILE^DICN  ^DIE  $$GET1^DIQ  ^DIR  
Quasar 2 $$FMT^ACKQUTL6  $$DIAGTXT^ACKQUTL8  
DRG Grouper 1 $$CODEC^ICDEX  
Kernel 1 ENS^%ZISS  
PCE Patient Care Encounter 1 ENCEVENT^PXAPI  
Registration 1 (DEM,ELIG)^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: 3

Package Total Caller Graph
Quasar 3 ACKQAS  ACKQAS VISIT ENTRY  ACKQTE2  

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

External References

Name Field # of Occurrence
DD^%DT DISP+6, DATE+1
NOW^%DTC DISP+6
ENS^%ZISS DISP+3
$$FMT^ACKQUTL6 TIME+1
$$DIAGTXT^ACKQUTL8 DC+6
FILE^DICN ADCODE+4
^DIE ADCODE+4
$$GET1^DIQ DISP+7, DISP+9, DISP+12, DUPEDATA+9, DUPEDATA+10
^DIR DUPEDATA+18
$$CODEC^ICDEX DC+4
ENCEVENT^PXAPI GETPCETM+6
DEM^VADPT DC+4
ELIG^VADPT ELIGCHK+4

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
Routine Call
  • DIE
  • Line Location:
    • ADCODE+4
Routine Call
  • DIR
  • Line Location:
    • DUPEDATA+18

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACK(509850.2 - [#509850.2] DC+2, ADCODE+2, ADCODE+5
^DD(509850.2 ADCODE+4
^TMP("PXKENC" GETPCETM+5!, GETPCETM+7, GETPCETM+9!
^UTILITY("VASD" DISP+20, DISP+21

Label References

Name Line Occurrences
$$DATE DUPEDATA+8
$$TIME DUPEDATA+8
ADCODE DC+7, DC+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DISP+6, KILL+5!
%DT KILL+5!
%I KILL+5!
%X KILL+5!
%Y KILL+6!
ACK0 KILL+1!, DC+10!
ACK2 KILL+1!
ACKACKBA KILL+11!
ACKAO KILL+8!
ACKAPMNT KILL+12!
ACKATS KILL+11!
ACKAUDIO KILL+11!
>> ACKBGRD DC+5, DC+9, ADCODE+2
ACKCAT KILL+1!
ACKCD KILL+1!
ACKCDN KILL+1!
ACKCHK KILL+8!
ACKCLIN DISP+12, KILL+4!, DUPEDATA~, DUPEDATA+9
ACKCLN KILL+1!
ACKCLNO KILL+4!
ACKCNT KILL+1!
ACKCP KILL+1!
ACKCPNO KILL+4!
ACKCPTDS KILL+9!
ACKCSC KILL+4!
ACKCV KILL+12!
ACKDA KILL+1!
ACKDATE GETPCETM+4~, GETPCETM+7*, GETPCETM+8, DATE~, DATE+1
ACKDC KILL+1!, DC+2, DC+4, DC+6, ADCODE+4
ACKDDT1 DISP+6*, DISP+17!
ACKDDT2 DISP+6*, DISP+11, DISP+17!
ACKDEF KILL+4!
ACKDIAGD KILL+9!
ACKDIRUT KILL+9!
ACKDIV KILL+8!
ACKDIVN KILL+4!
ACKDUP KILL+1!
ACKDUPN KILL+2!
ACKDVN KILL+11!
ACKECSC KILL+2!
ACKELG1 KILL+10!
ACKELGCT KILL+10!
ACKELIG KILL+7!
ACKENV KILL+9!
ACKESITE KILL+2!
ACKFLD KILL+2!
ACKFLG ELIGCHK+3~, ELIGCHK+4*, ELIGCHK+6
ACKFLG1 KILL+2!
ACKFLG2 KILL+2!
ACKGEN KILL+2!
ACKHNC KILL+12!
ACKI KILL+2!
ACKIEN KILL+7!
ACKK2 KILL+7!
>> ACKK3 DISP+19*, DISP+20*, DISP+21, DISP+22
ACKL1 KILL+5!
ACKL2 KILL+5!
ACKL3 KILL+5!
ACKL4 KILL+5!
ACKLAMD KILL+7!
ACKLAYGO KILL+2!, ADCODE+3*
ACKLN DC+4*, DC+7, DC+10!
ACKLOSS KILL+7!
ACKMOD KILL+3!
ACKMON KILL+3!
ACKMSG KILL+11!
ACKN KILL+7!
ACKPAT DISP+7, DISP+9, KILL+8!, DUPEDATA~, DUPEDATA+10
ACKPCE KILL+7!
ACKPCENO KILL+10!, GETPCETM~, GETPCETM+6, GETPCETM+7
ACKPROV KILL+9!
ACKQCPS KILL+3!
ACKQCPT KILL+3!
ACKQECON KILL+12!
ACKQIR KILL+12!
ACKQORG KILL+12!
ACKQRAW KILL+3!
ACKQSER KILL+12!
ACKQTST KILL+11!
ACKQUIT KILL+11!
ACKR1 KILL+5!
ACKR2 KILL+5!
ACKR3 KILL+5!
ACKR4 KILL+5!
ACKRAD KILL+9!
ACKRAW KILL+3!
ACKREQ KILL+3!
ACKSC KILL+8!
ACKSCR KILL+10!
ACKSEL KILL+3!
ACKSIG KILL+4!
ACKSSN DISP+7*, DISP+10, DISP+17!
ACKSTF KILL+3!
>> ACKSTRIN DISP+21*, DISP+23, DISP+24, DISP+25
ACKSX DC+4*, DC+7, DC+8, DC+10!
ACKTIME TIME~, TIME+1
ACKTITL KILL+5!
ACKTM KILL+4!, GETPCETM+4~, GETPCETM+8*, GETPCETM+10, DUPEDATA~, DUPEDATA+8
ACKTME KILL+10!
ACKTRGT KILL+11!
ACKVD KILL+4!, DC+6, ADCODE+4, DUPEDATA~, DUPEDATA+8
ACKVIEN KILL+8!
ACKVISIT KILL+8!
ACKY KILL+4!, DC+1~, DC+4*
ACLCLIN KILL+8!
C KILL+6!
CLINVAR KILL+9!
CLINVARR KILL+10!
D ADCODE+1~
D0 KILL+6!, ADCODE+1~
D1 ADCODE+1~
DA KILL+6!, ADCODE+1~, ADCODE+4*
DA(1 ADCODE+4*
DB ADCODE+1~
DC ADCODE+1~
DD ADCODE+1~
DDTM ADCODE+1~
DE ADCODE+1~
DF ADCODE+1~
DFN KILL+6!, DC+2, ADCODE+2, ADCODE+3, ADCODE+4, ADCODE+5
DG ADCODE+1~
DH ADCODE+1~
DI ADCODE+1~
DIC KILL+6!, ADCODE+1~, ADCODE+3*
DIC("P" ADCODE+4*
DIC(0 ADCODE+3*
DIE KILL+6!, ADCODE+1~, ADCODE+3*
DIEL ADCODE+1~
DIFLD ADCODE+1~
DIK KILL+6!
>> DILOCKTM ADCODE+2
DIOV ADCODE+1~
DIP ADCODE+1~
DIR DUPEDATA+18!
DIR(0 DUPEDATA+18*
DIRUT KILL+6!
DIV KILL+10!
DIVARR KILL+9!, KILL+10!
DJ ADCODE+1~
DK ADCODE+1~
DL ADCODE+1~
DLAYGO KILL+6!, ADCODE+3*
DM ADCODE+1~
DN ADCODE+1~
DO ADCODE+1~
DP ADCODE+1~
DQ ADCODE+1~
DR KILL+6!, ADCODE+1~, ADCODE+4*
DTOUT KILL+6!
DU ADCODE+1~
DUOUT KILL+6!
DV ADCODE+1~
DW ADCODE+1~
DXS ADCODE+1~
DZ ADCODE+1~
I KILL+6!, ADCODE+1~
ICDVDT KILL+12!
ICPTVDT KILL+12!
IOF DISP+4
>> IOUOFF DISP+8, DISP+13, DISP+16
>> IOUON DISP+8, DISP+13, DISP+16
J KILL+6!
U DISP+23, DISP+24, DISP+25, DC+4, GETPCETM+7, GETPCETM+10
VA KILL+6!, DC+10!
VADM KILL+6!, DC+10!
VADM(1 DC+4
VADM(5 DC+4
VAEL ELIGCHK+5!
VAEL(1 ELIGCHK+4
VAERR KILL+7!, DC+10!
VSAD KILL+10!
X DISP+6, KILL+7!, DC+4*, DC+6, DC+7, DC+10!, ADCODE+4*, DUPEDATA+19
X1 KILL+7!
X4 KILL+7!
Y DISP+6*, KILL+7!, DC+4*, ADCODE+1~, ADCODE+4, 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