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 |  Marked Items  | All
Print Page as PDF
Routine: ACKQUTL

Package: Quasar

Routine: ACKQUTL


Information

ACKQUTL ;AUG/JLTP BIR/PTD HCIOFO/BH-QUASAR Utility Routine ; [ 06/06/99 10:03 ]

Source Information

Source file <ACKQUTL.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 5 (,DD)^%DT  LIST^DIC  UPDATE^DIE  $$GET1^DIQ  ^DIR  
Kernel 1 (,HOME)^%ZIS  

Caller Graph

Caller Graph Total: 38

Package Total Caller Graph
Quasar 37 ACKQAS SUPER  ACKQAS VISIT ENTRY  ACKQAS1  ACKQAS3  ACKQASU4  ACKQCD3  ACKQCDD  ACKQCDD3  
ACKQCDR  ACKQCDRP  ACKQCP  ACKQCPL  ACKQDWL  ACKQDWLP  ACKQDWLR  ACKQFIL  
ACKQFIL1  ACKQHLP  ACKQNQ  ACKQPCX  ACKQR1  ACKQR2  ACKQR3  ACKQR4  
ACKQR5  ACKQRU  ACKQTE  ACKQTE10  ACKQTE7  ACKQTE9  ACKQUTL7  ACKQWL  
ACKQWLD  ^ACK(509850.6  CPT  ICD  ZIP CODE  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
V ;;3.0;QUASAR;;Feb 11, 2000
CNTR(X) ; "CENTER" FUNCTION
MIXC(X) ; CHANGES X TO MIXED CASE
SSN(X) ; FORMAT SSN
LOWC(X) ; CONVERT X TO LOWERCASE
UPC(X) ; CONVERT X TO UPPERCASE
NUMDT(X1,X2) ; LIKE FILEMAN'S GREAT NUMDATE
XDAT(X) ; FILEMAN INTERNAL TO EXTERNAL
FTIME(X) ;
STACT(ACKXX,ACKXX1) ;
YN(X) ; YES OR NO READER
ASKYN
PAUSE
TRIGCP ; TRIGGER OF C AND P STATUS FIELD FROM #2.5, #4.17, & #4.19
HTIM(%H,%S) ;
; Expected Input: %H = Full $H, %S = 1 if seconds desired
PAD(X,X1,X2,X3) ;
; Required Input: X = String to Pad, X1 = "R" or "L" (right/left justify)
; X2 = Number of Spaces, X3 = Pad character
BFY(X) ; RETURNS FM BEGIN OF FY FOR DATE X
INTRO ; QUASAR Introduction:
; Called by the entry action of the ACKQAS SUPER menu option.
IVD ; INITIAL VISIT DATE ** TRIGGERED FROM PATIENT NAME ***
ADDPROV(ACKVIEN,X) ; Add Procedure Provider to List of Secondary
; Providers if it is not already there.
; X=Provider
; ACKVIEN=IEN of Visit

External References

Name Field # of Occurrence
^%DT IVD+6
DD^%DT IVD+5
^%ZIS INTRO+3
HOME^%ZIS CNTR+1
LIST^DIC ADDPROV+6
UPDATE^DIE ADDPROV+14
$$GET1^DIQ ADDPROV+10
^DIR PAUSE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?(IOM\2-($L(X)\2)),X
  • Line Location: CNTR+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKYN+0
Function Call: WRITE
  • Prompt: !,"Answer Y for Yes or N for No."
  • Line Location: ASKYN+1
Function Call: WRITE
  • Prompt: $S($D(X("D")):" (YES)",1:$E("YES",$L(X)+1,3))
  • Line Location: ASKYN+3
Function Call: WRITE
  • Prompt: $S($D(X("D")):" (NO)",1:$E("NO",$L(X)+1,3))
  • Line Location: ASKYN+4
Function Call: WRITE
  • Prompt: " ??",!,$C(7)
  • Line Location: ASKYN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: INTRO+4
Function Call: WRITE
  • Prompt: !
  • Line Location: INTRO+5
Function Call: WRITE
  • Prompt: !
  • Line Location: INTRO+6
Function Call: WRITE
  • Prompt: !
  • Line Location: INTRO+7
Function Call: WRITE
  • Prompt: !
  • Line Location: INTRO+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: INTRO+9
Function Call: WRITE
  • Prompt: !
  • Line Location: INTRO+10
Function Call: WRITE
  • Prompt: !,"No Future Dates Allowed",!
  • Line Location: IVD+7
Routine Call
  • DIC
  • Line Location:
    • ADDPROV+6
Routine Call
  • DIE
  • Line Location:
    • ADDPROV+14
Routine Call
  • DIR
  • Line Location:
    • PAUSE+2
Routine Call
  • %ZIS
  • Line Location:
    • INTRO+3
Routine Call
  • %ZIS
  • Line Location:
    • CNTR+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACK(509850.6 - [#509850.6] GET1^DIQ
509850.66 LIST^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACK(509850.2 - [#509850.2] IVD+2
^ACK(509850.3 - [#509850.3] STACT+6, STACT+8
^ACK(509850.6 - [#509850.6] TRIGCP+2

Label References

Name Line Occurrences
$$LOWC MIXC+2
$$PAD HTIM+4, HTIM+5
$$UPC MIXC+3, ASKYN+2
ASKYN ASKYN+1, ASKYN+5
CNTR INTRO+5, INTRO+6, INTRO+7, INTRO+8, INTRO+9
V INTRO+9

Naked Globals

Name Field # of Occurrence
^(0 IVD+2
^(4 TRIGCP+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT IVD+1~, IVD+5*, IVD+6!
%DT("A" IVD+5*
%DT("B" IVD+6*
%H HTIM~, HTIM+3*, HTIM+4*, HTIM+5*, HTIM+6
%S HTIM~, HTIM+6
%ZIS INTRO+3!
A1 IVD+8!
ACK2 ADDPROV+5~, ADDPROV+7*, ADDPROV+8*, ADDPROV+9
ACKARR ADDPROV+5~
ACKARR( ADDPROV+9*, ADDPROV+11*, ADDPROV+12
ACKARR1 ADDPROV+5~
ACKARR1( ADDPROV+13*
ACKMSG ADDPROV+5~
>> ACKPRIM ADDPROV+10*, ADDPROV+11
ACKTGT ADDPROV+5~
ACKTGT("DILIST" ADDPROV+8, ADDPROV+9
>> ACKVD IVD+5
ACKVIEN ADDPROV~, ADDPROV+6, ADDPROV+10, ADDPROV+13
ACKXX STACT~, STACT+6, STACT+8
ACKXX1 STACT~, STACT+8
ACTIVE STACT+7~, STACT+8*, STACT+9
D BFY+1~*, BFY+2
D0 IVD+1~
DA XDAT+1~, XDAT+2*, XDAT+4, TRIGCP+2
DATE STACT+7~, STACT+8*, STACT+9
DD IVD+1~
DDD IVD+1~
DFN IVD+1~, IVD+2*
DIR PAUSE~
DIR(0 PAUSE+2*
DIRUT YN+1!, ASKYN*, PAUSE+2*
DT STACT+8, IVD+4, IVD+7
DTIME ASKYN
DTOUT YN+1!, ASKYN*, PAUSE~, PAUSE+2
DUOUT YN+1!, ASKYN*, PAUSE~, PAUSE+2
I MIXC+1~, MIXC+3*
INACTIVE STACT+7~, STACT+8*, STACT+9
IOF INTRO+4
IOM CNTR+1
IOP INTRO+3*!
JJ PAUSE~, PAUSE+1*
M BFY+1~*, BFY+2
MO XDAT+1~, XDAT+2*, XDAT+3, XDAT+4
MO(1 XDAT+3*, XDAT+4
SS PAUSE~, PAUSE+1*
STANDING STACT+7~, STACT+8*, STACT+9
U STACT+8, ASKYNTRIGCP+2, TRIGCP+3, IVD+2
X CNTR~, CNTR+1, MIXC~, MIXC+2*, MIXC+3*, MIXC+4, SSN~, SSN+1, LOWC~, LOWC+1
, UPC~, UPC+1, XDAT~, XDAT+1, XDAT+2, XDAT+4*, XDAT+5, FTIME~, FTIME+1*, FTIME+2
, YN~, YN+2, ASKYN*, ASKYN+1, ASKYN+2*, ASKYN+3, ASKYN+4, PAUSE~, TRIGCP+4*, HTIM+2~
, HTIM+6*, HTIM+7, PAD~, PAD+3*, PAD+4, BFY~, BFY+1, IVD+2*, IVD+3, IVD+4
IVD+6*, IVD+7, ADDPROV~, ADDPROV+12, ADDPROV+13
X("B" YN+2*, ASKYN
X("D" ASKYN*, ASKYN+3, ASKYN+4
X(2 HTIM+5*, HTIM+6
X(3 HTIM+4*, HTIM+6
X1 NUMDT~, NUMDT+1, NUMDT+2, PAD~, PAD+3
X2 NUMDT~, NUMDT+1*, NUMDT+2, PAD~, PAD+3
X3 PAD~, PAD+3
Y MIXC+1~, MIXC+2*, MIXC+3, PAUSE~, TRIGCP+1~, BFY+1~*, BFY+2, IVD+1~, IVD+5*, IVD+6
Y(0 TRIGCP+2*
Y(1 TRIGCP+2*, TRIGCP+4
Y(2 TRIGCP+3*, TRIGCP+4
Y(3 TRIGCP+3*, TRIGCP+4
Y(4 TRIGCP+2*, TRIGCP+3
Y1 MIXC+1~, MIXC+3*
YR XDAT+1~, XDAT+2*, XDAT+4
ZERONODE STACT+7~, STACT+8*

Marked Items

Name Field # of Occurrence
$T(V INTRO+9
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 |  Marked Items  | All