ACKQUTL6 ;HCIOFO/BH-A&SP Utilities routine ; 12/28/07 11:04am
Source file <ACKQUTL6.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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 |
Name | Line Occurrences |
---|---|
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 |
|
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 |
|
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 |
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 |
Name | Field # of Occurrence |
---|---|
^(0 | SUPER+4, CDR+2, CDR+3 |
>> | 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~ |