ACKQUTL ;AUG/JLTP BIR/PTD HCIOFO/BH-QUASAR Utility Routine ; [ 06/06/99 10:03 ]
Source file <ACKQUTL.m>
Package | Total | Caller Graph |
---|---|---|
Quasar | 33 | 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 |
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: READ |
|
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^ACK(509850.6 - [#509850.6] | GET1^DIQ |
509850.66 | LIST^DIC |
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 |
>> | 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, ASKYN, TRIGCP+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* |
Name | Field # of Occurrence |
---|---|
$T(V | INTRO+9 |