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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ACKQUTL6

Package: Quasar

Routine: ACKQUTL6


Information

ACKQUTL6 ;HCIOFO/BH-A&SP Utilities routine ; 12/28/07 11:04am

Source Information

Source file <ACKQUTL6.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 ^%DT  NOW^%DTC  ENALL^DIK  ($$GET1,GETS)^DIQ  
Quasar 2 $$PROVCHK^ACKQASU4  $$TIMECHEK^ACKQASU5  
Registration 1 IN5^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: 17

Package Total Caller Graph
Quasar 17 ACKQAS VISIT ENTRY  ACKQAS4  ACKQASU  ACKQASU1  ACKQASU3  ACKQFIL  ACKQFIL1  ACKQPCE1  
ACKQPCX  ACKQTE  ACKQTE2  ACKQTE6  ACKQTE9  ACKQUTL3  ACKQUTL4  ^ACK(509850.3  
^ACK(509850.6  

Entry Points

Name Comments DBIA/ICR reference
DATACHEK(X,ACKVIEN) ; Checks that the input (X) is a valid time also checks that
; current user has supervisor status
SUPER(DUZ) ; Function passes back true if DUZ belongs to a supervisor
TTIME(X) ; Time input validation used within input transform of
; the Appointment time field (#55) of the visit file.
FMT(ACKFMT,ACKSTYL) ; convert Quasar Time to external format
; inputs:- ACKFMT - fileman time (internal) (reqd)
; can be passed in as 'date.time','.time' or just 'time'
; ACKSTYL - style of output (optional)
; where 0 = 12:mm[:ss] am/pm (no lead space)
; 1 = 12:mm[:ss] am/pm (lead space)
; 2 = 12:mm am/pm
FMT0 ; style 0 - 12:mm[:ss] am/pm (the default)
FMT1 ; style 1 - 12:mm[:ss] am/pm (with lead space if hour<10)
FMT2 ; style 2 - 12:mm am/pm
DUPECHK(X,DA,ACKP) ; Check there are no previous duplicate entries
DUPCHK ; Called from xecutable help of Appointment Time field when ACKITME is
; defined. This will only be defined if DUPECHK returned false
CDR() ; COMPUTE SUGGESTED CDR BASED ON TREATING SPECIALTY
STAFFNO(X) ; Finds valid staff No. to be used when allocating next time
GETNEXT ;
FILE ;
IDATE(D0,Y) ; Checks that the entered Inactive date falls after the
; Active date (if one has been entered).
ADATE(D0,Y) ; Checks that the entered Active date falls before the
; Inactive date (if one has been entered).
STAFFREF(X,DA) ; Cross Reference called from Cross Reference 'Logic'
REINDEX() ; Re-Indexes 'D' Cross Reference of Staff file
SETARR(ACK) ;
LONG(ACKPC,ACKQPR) ; Displays Long Description of Procedure Code
FORMAT(ACKNEW) ;
STRIP(ACKNEW) ;
PLIST(ACKPAT,ACKDC) ; Determines if an entry exists in the Problem file
; returns Status as first piece, Problem List IEN as second piece
; (Status^IEN)
; Status values - 1=Inactive, 2=Active

External References

Name Field # of Occurrence
^%DT TTIME+15
NOW^%DTC TTIME+8
$$PROVCHK^ACKQASU4 SUPER+2
$$TIMECHEK^ACKQASU5 DATACHEK+3
ENALL^DIK REINDEX+31
$$GET1^DIQ CDR+1, IDATE+4, ADATE+3, STAFFREF+6
GETS^DIQ DUPECHK+3
IN5^VADPT CDR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?30,"("_+$E(ACKFMT,1,2)_":"_$E(ACKFMT,3,4)_":"_$E(ACKFMT,5,6)_ACKAMPM_")"
  • Line Location: TTIME+23
Function Call: WRITE
  • Prompt: ?30,"("_+$E(ACKFMT,1,2)_":"_$E(ACKFMT,3,4)_ACKAMPM_")"
  • Line Location: TTIME+25
Function Call: WRITE
  • Prompt: ?30,"("_$$FMT(ACKFMT)_")"
  • Line Location: TTIME+26
Function Call: WRITE
  • Prompt: !!,"Quasar already has a Visit entry for this Patient, within the same Clinic,"
  • Line Location: DUPCHK+2
Function Call: WRITE
  • Prompt: !,"on the same date at the same time."
  • Line Location: DUPCHK+3
Function Call: WRITE
  • Prompt: !!,"Please re-enter a new Appointment Time.",!!
  • Line Location: DUPCHK+4
Function Call: WRITE
  • Prompt: !!,"Suggested CDR Account :",ACKCDN," ",ACKCD,!
  • Line Location: CDR+5
Function Call: WRITE
  • Prompt: !!,"Warning - The following user(s) have been deleted from the USR Class Membership"
  • Line Location: REINDEX+12
Function Call: WRITE
  • Prompt: !,"file (#8930.3)."
  • Line Location: REINDEX+13
Function Call: WRITE
  • Prompt: !,"Quasar's A&SP Staff file (#509850.3) points to this file."
  • Line Location: REINDEX+14
Function Call: WRITE
  • Prompt: !,"The Quasar staff member(s) need to be re-entered into the USR Class Membership"
  • Line Location: REINDEX+15
Function Call: WRITE
  • Prompt: !,"file (8930.3) and the associated Quasar staff record amended to point to this"
  • Line Location: REINDEX+16
Function Call: WRITE
  • Prompt: !,"new entry.",!!
  • Line Location: REINDEX+17
Function Call: WRITE
  • Prompt: " "_ACKARR(ACK1),!
  • Line Location: REINDEX+21
Function Call: WRITE
  • Prompt: !!
  • Line Location: REINDEX+22
Function Call: WRITE
  • Prompt: "Please inform IRM/National VistA Support of this problem. This error"
  • Line Location: REINDEX+23
Function Call: WRITE
  • Prompt: !,"can be re-created by running this option again."
  • Line Location: REINDEX+24
Function Call: WRITE
  • Prompt: !!
  • Line Location: REINDEX+25
Function Call: WRITE
  • Prompt: !!," Long Description: "
  • Line Location: LONG+27
Function Call: WRITE
  • Prompt: !," "
  • Line Location: LONG+29
Function Call: WRITE
  • Prompt: ACKQARR(ACKK1)
  • Line Location: LONG+30
Function Call: WRITE
  • Prompt: "..."
  • Line Location: LONG+30
Function Call: WRITE
  • Prompt: !
  • Line Location: LONG+31

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DIC(42.4 - [#42.4] GET1^DIQ
^DIC(45.7 - [#45.7] GET1^DIQ
^ACK(509850.3 - [#509850.3] Classic Fileman Calls,  GET1^DIQ
^ACK(509850.6 - [#509850.6] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACK(509850 - [#509850] CDR+2, CDR+3
^ACK(509850.3 - [#509850.3] SUPER+4, GETNEXT+8, FILE+1*, STAFFREF+7*, REINDEX+7, REINDEX+8, REINDEX+28!, SETARR+5, SETARR+6
^ACK(509850.6 - [#509850.6] DUPECHK+7
^AUPNPROB - [#9000011] PLIST+9
^AUPNPROB("AC" PLIST+6, PLIST+7
^AUPNPROB("B" PLIST+8
^ICPT - [#81] LONG+5, LONG+6
^USR(8930.3 - [#8930.3] REINDEX+9

Label References

Name Line Occurrences
$$FMT TTIME+26
$$FORMAT LONG+12, LONG+17
$$STRIP LONG+7
$$TTIME DATACHEK+4
FILE STAFFNO+5
FMT1 FMT+12
FMT2 FMT+13
GETNEXT STAFFNO+5
SETARR REINDEX+9

Naked Globals

Name Field # of Occurrence
^(0 SUPER+4, CDR+2, CDR+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% TTIME+8, CDR+4!
>> %DT TTIME+11*
%H CDR+4!
%I CDR+4!
ACK REINDEX+4~, REINDEX+6*, REINDEX+7*, REINDEX+8, REINDEX+9, SETARR~, SETARR+6
ACK01 REINDEX+4~, REINDEX+8*, REINDEX+9
ACK1 REINDEX+18~, REINDEX+19*, REINDEX+20*, REINDEX+21, LONG+3~, LONG+4*, LONG+5*, LONG+6
ACKACT IDATE+3~, IDATE+4*, IDATE+5
ACKAMPM TTIME+7~, FMT+7~, FMT0+1*, FMT0+4, FMT1+1*, FMT1+4, FMT2+1*, FMT2+4
ACKARR REINDEX+4~, REINDEX+5!, REINDEX+11
ACKARR( REINDEX+20, REINDEX+21, SETARR+6*
ACKARRAY STRIP+1~
ACKARRAY( STRIP+7*, STRIP+8*, STRIP+12, STRIP+13
ACKCCT FORMAT+2~, FORMAT+4*, FORMAT+6*, FORMAT+7, FORMAT+8
>> ACKCD CDR+3*, CDR+5
>> ACKCDN CDR+1*, CDR+2, CDR+3*, CDR+5, CDR+6
ACKCDP CDR+2*, CDR+3, CDR+4!
ACKCLIN DUPECHK+1~, DUPECHK+6*, DUPECHK+7
ACKCNT REINDEX+4~, REINDEX+6*, SETARR+6*, LONG+3~*, LONG+11*, LONG+12*, LONG+19*
ACKCT STRIP+1~, STRIP+2*, STRIP+7*, STRIP+8*
ACKDC PLIST~, PLIST+8
ACKDUZ SUPER+1~, SUPER+2*, SUPER+3, SUPER+4
ACKEND FORMAT+2~, FORMAT+4*, FORMAT+5, FORMAT+8*
ACKFIND STAFFNO+2~, GETNEXT+1*, GETNEXT+2, GETNEXT+6*, GETNEXT+8*
ACKFIRST STAFFNO+2~, STAFFNO+3*, STAFFNO+4*, GETNEXT+5*, GETNEXT+6
ACKFMT TTIME+7~, TTIME+21*, TTIME+26, FMT~, FMT+9*, FMT+10*, FMT+11, FMT0+4*, FMT0+5, FMT1+4*
FMT1+5, FMT2+4*, FMT2+5
ACKHH FMT+7~, FMT+11*, FMT0+1, FMT0+2*, FMT0+3*, FMT0+4, FMT1+1, FMT1+2*, FMT1+3*, FMT1+4
FMT2+1, FMT2+2*, FMT2+3*, FMT2+4
ACKI STRIP+1~, STRIP+4*, STRIP+5, STRIP+8
ACKIFN PLIST+4~, PLIST+5*, PLIST+7*, PLIST+8
ACKINA ADATE+2~, ADATE+3*, ADATE+4
ACKITME DUPCHK+5!
ACKK1 LONG+25~, LONG+26*, LONG+28*, LONG+29, LONG+30
ACKLEN LONG+3~, LONG+9*, LONG+10, LONG+11, LONG+13, STRIP+1~, STRIP+3*, STRIP+4, STRIP+8, STRIP+15*
, STRIP+16
ACKLOOP STRIP+10~, STRIP+11*, STRIP+12*, STRIP+13
ACKN FORMAT+2~, FORMAT+7*, FORMAT+9
ACKNAME STAFFREF+3~, STAFFREF+6*, STAFFREF+7, SETARR+3~, SETARR+4*, SETARR+5*, SETARR+6
ACKNEW LONG+3~, LONG+6*, LONG+7*, LONG+8*, LONG+9, LONG+11, LONG+12*, LONG+13, LONG+17*, LONG+18*
, LONG+19, FORMAT~, FORMAT+3, FORMAT+7, FORMAT+8, FORMAT+9, STRIP~, STRIP+3, STRIP+5
ACKP DUPECHK~, DUPECHK+2
ACKPAT DUPECHK+1~, DUPECHK+2*, DUPECHK+5*, DUPECHK+7, PLIST~, PLIST+6, PLIST+7
ACKPC LONG~, LONG+5, LONG+6
ACKPLQT PLIST+4~, PLIST+5*, PLIST+7, PLIST+8*, PLIST+9
ACKQ LONG+3~, LONG+15*, LONG+16, LONG+20*
ACKQARR LONG+3~, LONG+24
ACKQARR( LONG+11*, LONG+12*, LONG+19*, LONG+28, LONG+30
ACKQPR LONG~, LONG+30
ACKQUIT LONG+25~, LONG+26*, LONG+28, LONG+30*
ACKRES LONG+3~, LONG+12*, LONG+17*, LONG+18, FORMAT+2~, FORMAT+3*, FORMAT+9*, FORMAT+10
ACKSTR LONG+3~*, LONG+8, LONG+11*, LONG+12*, LONG+13*, LONG+14, LONG+17, LONG+18*, LONG+20
ACKSTRG STRIP+10~, STRIP+11*, STRIP+13*, STRIP+15, STRIP+16*, STRIP+18
ACKSTYL FMT~, FMT+8*, FMT+12, FMT+13
>> ACKT TTIME+19*, TTIME+27
ACKTGT DUPECHK+1~
ACKTGT( DUPECHK+4, DUPECHK+5, DUPECHK+6
ACKTS CDR+1*, CDR+4!
ACKVD DUPECHK+1~, DUPECHK+4*, DUPECHK+7, CDR+1
ACKVIEN DATACHEK~, DATACHEK+3
ACKX STAFFNO+2~, GETNEXT+3*, GETNEXT+8, STRIP+1~, STRIP+5*, STRIP+6, STRIP+7
ACKY STRIP+1~, STRIP+2*, STRIP+6*, STRIP+7*, STRIP+8*
D0 IDATE~, IDATE+4, ADATE~, ADATE+3, REINDEX+27~
DA DUPECHK~, DUPECHK+3, DUPECHK+4, DUPECHK+5, DUPECHK+6, STAFFREF~, STAFFREF+7, REINDEX+27~
>> DIK REINDEX+29*
>> DIK(1 REINDEX+30*
DUZ SUPER~, SUPER+2
U CDR+3, PLIST+9
VAERR CDR+4!
VAIP CDR+4!
VAIP("D" CDR+1*
VAIP(8 CDR+1
X DATACHEK~, DATACHEK+4*, TTIME~, TTIME+8*, TTIME+9*, TTIME+13*, DUPECHK~, DUPECHK+7, STAFFNO~, STAFFNO+4*
GETNEXT+3, GETNEXT+4*, GETNEXT+5*, GETNEXT+6, GETNEXT+7*, GETNEXT+8*, FILE+1, STAFFREF~, STAFFREF+6, REINDEX+27~
Y TTIME+7~, TTIME+14!, TTIME+17, TTIME+18*, TTIME+19, TTIME+21, IDATE~, IDATE+2, IDATE+5, ADATE~
, ADATE+4, REINDEX+27~
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 |  Naked Globals |  Local Variables  | All