IBOHLS ;ALB/JWS,BAA - IB HELD CHARGES LIST MANAGER ;08-SEP-2015
Source file <IBOHLS.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; -- main entry point for HELD CHARGES LIST
; add code to do filters here |
|
HDR | ; -- header code
|
|
INIT | ; -- init variables and list array
; input - none ; output ^TMP($J,"IBOHLS") |
|
SORT | ; get the data
|
|
EXPAND | ; -- expand code
|
|
BLD | ; build data to display
; build display |
|
SETL(LINE,DATA,LABEL,COL,LNG) | ; Creates a line of data to be set into the body
; of the worklist ; Input: LINE - Current line being created ; DATA - Information to be added to the end of the current line ; LABEL - Label to describe the information being added ; COL - Column position in line to add information add ; LNG - Maximum length of data information to include on the line ; Returns: Line updated with added information |
|
HELP | ; -- help code
|
|
EXIT | ; -- exit code
|
|
FILTER(FILTERS) | ; filter display
; Sets an array of filters to determine which entris to include in display ; Input: None ; Output: ; Returns: 0 if the user entered '^' or timed out, 1 otherwise ; FILTERS(0) = from date ^ to date ^ 0 (all) 1 (selected) institutions ^ 0 (all) 1 (selected) patients ; FILTERS(1,inst ien) = "" ; FILTERS(2,pat ien) = "" ; FILTERS(3) = 0 (NO) 1 (YES) to include insurance information |
|
FMDATES(PROMPT) | ; ask for date range
|
|
FMDQ | ||
ASKPAT(FILTERS) | ||
ONEPAT(DIC,IEN,FIRST) | ||
SHOWFILT(FILTERS) | ||
WRAP(STR,FLG,CL) | ;
; STR - STRING TO BE WRAPPED PASSED IN BE REFERENCE SO IT CONTAINS THE REMAING PORTION OF STRING ; FLG - FLAG TO INDICATE WRAPPING NEEDS TO OCCUR ; CL - COLUMN LENGTH |
|
CHKFILT | ; Check Filters
|
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 |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls, GET1^DIQ |
^DIC(4 - [#4] | GET1^DIQ |
^DG(40.8 - [#40.8] | GET1^DIQ |