Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBOHLS

Package: Integrated Billing

Routine: IBOHLS


Information

IBOHLS ;ALB/JWS,BAA - IB HELD CHARGES LIST MANAGER ;08-SEP-2015

Source Information

Source file <IBOHLS.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: FILTER+16
Function Call: WRITE
  • Prompt: !
  • Line Location: FILTER+25
Function Call: WRITE
  • Prompt: !
  • Line Location: FMDATES+6
Function Call: WRITE
  • Prompt: !!!,"Show From Date: ",$S(STDT=0:"First",1:$$FMTE^XLFDT(STDT,"2DZ"))
  • Line Location: SHOWFILT+9
Function Call: WRITE
  • Prompt: !," Thru Date: ",$$FMTE^XLFDT($P(FILTERS(0),U,2),"2DZ")
  • Line Location: SHOWFILT+10
Function Call: WRITE
  • Prompt: !,"Show All Divisions or Selected Divisions: "
  • Line Location: SHOWFILT+11
Function Call: WRITE
  • Prompt: $S($P(FILTERS(0),U,3)=0:"All",1:"Selected")
  • Line Location: SHOWFILT+12
Function Call: WRITE
  • Prompt: !,$$WRAP(.LINE,.PFLG,80)
  • Line Location: SHOWFILT+21
Function Call: WRITE
  • Prompt: !,?22,$$WRAP(.LINE,.PFLG,58)
  • Line Location: SHOWFILT+22
Function Call: WRITE
  • Prompt: !,"Show All Patients or Selected Patients: "
  • Line Location: SHOWFILT+24
Function Call: WRITE
  • Prompt: $S($P(FILTERS(0),U,4)=0:"All",1:"Selected")
  • Line Location: SHOWFILT+25
Function Call: WRITE
  • Prompt: !,$$WRAP(.LINE,.PFLG,80)
  • Line Location: SHOWFILT+33
Function Call: WRITE
  • Prompt: !,?21,$$WRAP(.LINE,.PFLG,60)
  • Line Location: SHOWFILT+34
Function Call: WRITE
  • Prompt: !,"Include Insurance information on the Held Charges list? ",$S(FILTERS(3)=1:"Yes",1:"No")
  • Line Location: SHOWFILT+36

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^DG(40.8 - [#40.8] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call