ACKQUTL6 ;HCIOFO/BH-A&SP Utilities routine ; 12/28/07 11:04am
Source file <ACKQUTL6.m>
| 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 |
