Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBTRH1

Package: Integrated Billing

Routine: IBTRH1


Information

IBTRH1 ;ALB/FA - HCSR Worklist ;01-JUL-2014

Source Information

Source file <IBTRH1.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 5 ^DIC  FILE^DIE  ($$GET1,GETS)^DIQ  ^DIR  EN^DIWE  
List Manager 4 EN^VALM  ($$SETSTR,CLEAR,FULL,PAUSE)^VALM1  (FLDTEXT,SET,WRITE)^VALM10  EN^VALM2  
Integrated Billing 2 ($$FILTERS,SORT1)^IBTRH1A  ADDCMT^IBTRH2  
Kernel 1 $$NOW^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 22

Package Total Caller Graph
Integrated Billing 21 IBJPC1  IBJPC3  IBT HCSR ADD COMMENT WORKLIST  IBT HCSR EXPAND ENTRY  IBT HCSR IN PROGRESS REM  IBT HCSR IN PROGRESS SET  IBT HCSR LIST DEL  IBT HCSR LIST SORT  
IBT HCSR NEXT REVIEW  IBT HCSR RESPONSE EDIT  IBT HCSR RESPONSE IN PROGRESS REM  IBT HCSR RESPONSE IN PROGRESS SET  IBT HCSR WORKLIST  IBTRH1A  IBTRH1B  IBTRH2  
IBTRH3  IBTRH5  IBTRH5I  IBTRH6  IBTRH7  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ;EP
; Main entry point for HCSR Worklist
; Input: None
HDR ;EP
; Header code for HCSR Worklist
; Input: HCSRSORT - Current sort selection
; IBFILTS() - Array of filter criteria
; Output: VALMHDR - Header information to display
; VALM("TITLE") - HCSR Worklist Title
; VALMSG - Initial Error line display
VALMSGH(INP) ;EP
; Sets the legend into variable VALMSG
; Input: INP - 1 - Only display #In-Prog, 0 - Display all
; Optional, defaults to 0
; Output: VALMSG is set
FILTBY(IBFILTS) ;EP
; Creates the 'Filtered By' line of the worklist header
; Input: IBFILT - Array of current filter settings
; Returns: Filtered By line
INIT ;EP
; Initialize variables and list array
; Input: None
; Output: HCSRSORT - Initial worklist sort if not yet defined
; IBFILTS() - Array of filter criteria
; ^TMP("IBTRH1",$J) - Body lines to display
BLD ; Build screen array, no variables required for input
; Input: HCSRSORT - Current select sort type
; IBFILTS() - Array of filter criteria
; Output: ^TMP("IBTRH1",$J) - Body lines to display
; ^TMP($J,"IBTRH1S") - Sorted Body lines to display
; ^TMP($J,"IBTRH1IX") - Index of Entry IENs by display line
BLD1 ;
BLDLN(ECTR,LINED) ; Builds a line to display on List screen for one entry
; Input: ECTR - Entry counter
; LINED - A1^A2^...A9 Where:
; A1 - Patient Name
; A2 - Patient Status ('I' or 'O')
; A3 - External Appt or Admission date
; A4 - Clinic or Ward name
; A5 - COB ('P' or 'S')
; A6 - Insurance Company Name
; A7 - Utilization Review required
; A8 - Pre-Certification required
; A9 - Service Connection flags
; Output: LINE - Formatted for setting into the list display
HELP ;EP
; Help code
; Input: None
EXIT ;EP
; Exit code
; Input: None
SORT(FIRST) ;EP
; Listman Protocol Action to sort the worklist
; Input: FIRST - 1 - Called for the first time before the Worklist is displayed
; 2 - Called from Refresh action (REFRESH^IBTRH1A)
; 0 - Called as an action from within the Worklist, Optional, defaults to 0
; HCSRSORT - Current sort selection (null if FIRST=1)
; IBFILTS()- Array of filter criteria
; Output: HCSRSORT - New sort selection and list is sorted
DEL ;EP
; Protocol Action to select an entry to be manually removed from the worklist
; Input: ^TMP("IBTRH1",$J) - Current Array of displayed entries
; ^TMP($J,"IBTRHIX") - Current Index of displayed entries
; Output: Selected Entry is removed from the worklist
; Error messages display (potentially)
; ^TMP("IBTRH1",$J) - Updated Array of displayed entries
; ^TMP($J,"IBTRHIX") - Updated Index of displayed entries
D1 ;
ASKSURE(DLINE,MSG,ENTIRE)
PRMARK(WHICH,EIENIN,WLIST)
PRMARK1(IEN,STATUS,USER,TSTAMP,RESP) ; Change 'In-Progress' status of a given entry
; Input: IEN - IEN of file 356.22 entry to use
; STATUS - New status to set: '01' - Set 'In-Progress',
; '0' - Remove 'In-Progress'
; USER - File 200 ien of a user changing the status, defaults
; to DUZ
; TSTAMP - Timestamp of the status change, defaults to current
; date/time
; RESP - 1 - Setting field .21 instead of field .08
; Optional, defaults to 0
SELEVENT(FULL,PROMPT,DLINE,MULT,WLIST)
ADDCMT
LOCKEV(IEN) ;EP
; Locks the specified entry for editing
; Input: IEN - IEN of the entry to locked
; Output: Entry is locked (potentially)
; Returns: 1 - Entry was locked
; 0 - Entry couldn't be locked
UNLOCKEV(IEN)
COMMENT(COM)

External References

Name Field # of Occurrence
^DIC D1+3
FILE^DIE D1+30, PRMARK1+22
$$GET1^DIQ PRMARK+43, PRMARK+44
GETS^DIQ BLD+24, BLD+30
^DIR SORT+24, D1+16, ASKSURE+14
EN^DIWE COMMENT+7
$$FILTERS^IBTRH1A EN+4
SORT1^IBTRH1A BLD+8
ADDCMT^IBTRH2 ADDCMT+12
EN^VALM EN+6
$$SETSTR^VALM1 BLDLN+14, BLDLN+15, BLDLN+16, BLDLN+17, BLDLN+18, BLDLN+19, BLDLN+20, BLDLN+21, BLDLN+22, BLDLN+23
CLEAR^VALM1 EXIT+5
FULL^VALM1 HELP+3, SORT+14, SELEVENT+22
PAUSE^VALM1 PRMARK+70, SELEVENT+30
FLDTEXT^VALM10 PRMARK+66
SET^VALM10 BLD+18, BLD+26, BLD+32
WRITE^VALM10 PRMARK+67
EN^VALM2 SELEVENT+32
$$NOW^XLFDT D1+26, PRMARK1+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"Flags displayed on screen for SC Reas (Service Connected Reason):"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !," A - Agent Orange"
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !," I - Ionizing Radiation"
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: !," S - Southwest Asia"
  • Line Location: HELP+8
Function Call: WRITE
  • Prompt: !," N - Nose/Throat Radium"
  • Line Location: HELP+9
Function Call: WRITE
  • Prompt: !," C - Combat Veteran"
  • Line Location: HELP+10
Function Call: WRITE
  • Prompt: !," M - Military Sexual Trauma (MST)"
  • Line Location: HELP+11
Function Call: WRITE
  • Prompt: !," L - Camp Lejeune"
  • Line Location: HELP+12
Function Call: WRITE
  • Prompt: !,"Flags displayed on screen for U (UR Required) or P (Pre-certification Required):"
  • Line Location: HELP+13
Function Call: WRITE
  • Prompt: !," Y - Yes, N - No"
  • Line Location: HELP+14
Function Call: WRITE
  • Prompt: !,"Flags displayed on screen for S (Patient Status):"
  • Line Location: HELP+15
Function Call: WRITE
  • Prompt: !," O - Outpatient, I - Inpatient"
  • Line Location: HELP+16
Function Call: WRITE
  • Prompt: !,"The following Status indicators may appear to the left of the patient name:"
  • Line Location: HELP+17
Function Call: WRITE
  • Prompt: !," # - 278 has been not been initiated, entry is in-progress"
  • Line Location: HELP+18
Function Call: WRITE
  • Prompt: !," ? - 278 has been sent and waiting for response"
  • Line Location: HELP+19
Function Call: WRITE
  • Prompt: !," + - 278 is pending"
  • Line Location: HELP+20
Function Call: WRITE
  • Prompt: !," * - Flagged for Next Review"
  • Line Location: HELP+21
Function Call: WRITE
  • Prompt: !," ! - Unable to send 278"
  • Line Location: HELP+22
Function Call: WRITE
  • Prompt: !," <Blank> - Entry added through scheduled task"
  • Line Location: HELP+23
Function Call: WRITE
  • Prompt: !," - - 278 has been sent and negative response received "
  • Line Location: HELP+24
Function Call: WRITE
  • Prompt: !," (error AAA condition in AAA segment(s))"
  • Line Location: HELP+25
Function Call: WRITE
  • Prompt: !,"Select the item to sort the records on the HCSR Worklist screen."
  • Line Location: SORT+16
Function Call: WRITE
  • Prompt: !,*7,">>>> A Delete Reason Code must be selected, or '^' to exit."
  • Line Location: D1+4
Function Call: WRITE
  • Prompt: !,*7,">>>> Entry ",LINE," has been sent and is awaiting a response. It cannot be deleted."
  • Line Location: D1+12
Function Call: WRITE
  • Prompt: !,*7,">>>> Someone else is editing entry ",LINE,". Try again later."
  • Line Location: D1+21
Function Call: WRITE
  • Prompt: !,*7,">>>> Entry ",LINE," - Invalid Status, action not performed"
  • Line Location: PRMARK+47
Function Call: WRITE
  • Prompt: !,*7,">>>> Some else is editing the entry ",LINE,". Try again later."
  • Line Location: PRMARK+51
Function Call: WRITE
  • Prompt: !,*7,">>>> Only single entry selection is allowed"
  • Line Location: SELEVENT+27
Routine Call
  • DIC
  • Line Location:
    • D1+3
Routine Call
  • DIE
  • Line Location:
    • D1+30
    • PRMARK1+22
Routine Call
  • DIR
  • Line Location:
    • SORT+24
    • D1+16
    • ASKSURE+14
Routine Call
  • VALM
  • Line Location:
    • EN+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBT(356.021 - [#356.021] GETS^DIQ
^IBT(356.023 - [#356.023] Classic Fileman Calls
^IBT(356.22 - [#356.22] GET1^DIQ
^IBE(365.017 - [#365.017] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBT(356.22 - [#356.22] BLD+20, BLD+21, BLD+28, BLD+29, D1+11, D1+29, PRMARK+58, LOCKEV+6, UNLOCKEV+4
^TMP("IBTRH1" INIT+6!, BLD+41*, BLD1+1*, EXIT+3!, PRMARK+61, PRMARK+62
^TMP("IBTRH5" PRMARK+65
^TMP($J INIT+6!, BLD+10, BLD+11, BLD+12, BLD+13, BLD+15, BLD+19*, EXIT+3!, SELEVENT+39, COMMENT+5!
, COMMENT+8, COMMENT+9, COMMENT+10!

Label References

Name Line Occurrences
$$ASKSURE D1+6
$$BLDLN BLD+16
$$FILTBY HDR+9
$$LOCKEV D1+20, PRMARK+50
$$SELEVENT DEL+15, PRMARK+37, ADDCMT+10
BLD INIT+8
BLD1 BLD+18, BLD+27, BLD+33
D1 D1+4
HDR SORT+30
INIT SORT+30
PRMARK1 PRMARK+54
SORT EN+5
UNLOCKEV D1+31, PRMARK+55
VALMSGH HDR+12, SORT+9, DEL+10, PRMARK+28, ADDCMT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COM DEL+9~, COMMENT~, COMMENT+9*
CSTAT PRMARK+23~, PRMARK+43*, PRMARK+44*, PRMARK+46
CTR SORT+8~, SORT+10*, SORT+17*, SORT+18*, SORT+19*, SORT+20*, SORT+21
DA BLD+6~, BLD+13*, BLD+15, BLD+19, BLD+20
DELRCODE DEL+9~, D1+5*, D1+28
DIC D1+1*, COMMENT+4~, COMMENT+6*
DIC("A" D1+2*
DIC(0 D1+1*
DIR SORT+8~, SORT+24!, DEL+8~, D1+13~, D1+33!, ASKSURE+8~, ASKSURE+14!, PRMARK+23~, PRMARK+68!, SELEVENT+19~
, SELEVENT+29!
DIR("A" SORT+23*, D1+15*, D1+16*, ASKSURE+13*
DIR("B" SORT+23*, ASKSURE+11*
DIR(0 SORT+22*, D1+14*, ASKSURE+11*
DIROUT SORT+8~, DEL+8~, D1+13~, ASKSURE+8~, PRMARK+23~, SELEVENT+19~
DIRUT SORT+8~, DEL+8~, D1+13~, ASKSURE+8~, PRMARK+23~, SELEVENT+19~
DIWETXT DEL+9~
DLINE DEL+8~, DEL+15, D1+6, D1+9, ASKSURE~, ASKSURE+10, ASKSURE+12, PRMARK+23~, PRMARK+37, PRMARK+41
, SELEVENT~, SELEVENT+23*, SELEVENT+24*, SELEVENT+26, SELEVENT+28*, SELEVENT+34*, SELEVENT+38*, ADDCMT+5~, ADDCMT+10
DT PRMARK+33
DTOUT SORT+8~, DEL+8~, D1+13~, ASKSURE+8~, PRMARK+23~, SELEVENT+19~
DUOUT SORT+8~, DEL+8~, D1+13~, ASKSURE+8~, PRMARK+23~, SELEVENT+19~
DUZ D1+27, D1+29, PRMARK+33, PRMARK1+15
DWPK COMMENT+4~, COMMENT+6*
ECTR BLD+6~, BLD+9*, BLD+14*, BLD+16, BLDLN~, BLDLN+14
EIEN DEL+8~, D1+8*, D1+11, D1+20, D1+24, D1+29, D1+31, PRMARK+23~, PRMARK+40*, PRMARK+43
, PRMARK+44, PRMARK+50, PRMARK+54, PRMARK+55, PRMARK+58, SELEVENT+19~, SELEVENT+39*, SELEVENT+40
EIENIN PRMARK~, PRMARK+25*, PRMARK+29, PRMARK+41, PRMARK+56, PRMARK+69
EIENS DEL+8~, DEL+15*, DEL+16, D1+7, D1+8, PRMARK+23~, PRMARK+29*, PRMARK+37*, PRMARK+38, PRMARK+39
, PRMARK+40, SELEVENT+19~, SELEVENT+25*, SELEVENT+40*, SELEVENT+41
ENTIRE ASKSURE~, ASKSURE+9*, ASKSURE+12
ERROR DEL+8~, DEL+11*, D1+7, D1+17*, D1+22*, D1+32, PRMARK+23~, PRMARK+31*, PRMARK+48*, PRMARK+52*
, PRMARK+70
EVENT PRMARK+23~, PRMARK+58*, PRMARK+60, PRMARK+64
FIELD PRMARK+23~, PRMARK+62*, PRMARK+65*, PRMARK+66
FIRST SORT~, SORT+11*, SORT+12, SORT+13, SORT+14, SORT+15, SORT+28
FLG PRMARK+23~, PRMARK+60*, PRMARK+62, PRMARK+64*, PRMARK+65
FULL SELEVENT~, SELEVENT+22
HCSRSORT EN+3~, HDR+8*, HDR+10, INIT+7*, EXIT+4!, SORT+12*, SORT+23, SORT+27*
IBFILTS EN+3~, EN+4, HDR+9, FILTBY~
IBFILTS(0 FILTBY+5, FILTBY+6, FILTBY+7, FILTBY+9, FILTBY+11, FILTBY+13, SORT+19, SORT+20, SORT+26
IBFILTS(1 FILTBY+10, FILTBY+14
IBFILTS(2 FILTBY+12, FILTBY+15
IBFILTS(3 FILTBY+8
IBTRIEN ADDCMT+5~, ADDCMT+10*, ADDCMT+11
IEN DEL+8~, D1+24*, D1+25, D1+26, D1+27, D1+28, D1+29, PRMARK1~, PRMARK1+11, PRMARK1+17
, LOCKEV~, LOCKEV+6, UNLOCKEV~, UNLOCKEV+4
IENS PRMARK1+10~, PRMARK1+17*, PRMARK1+18, PRMARK1+19, PRMARK1+20, PRMARK1+21
INP VALMSGH~, VALMSGH+5*, VALMSGH+6
IOF HELP+5, SORT+15
IX DEL+8~, D1+7*, D1+8, D1+9, PRMARK+24~, PRMARK+39*, PRMARK+40, PRMARK+41, SELEVENT+19~, SELEVENT+34*
, SELEVENT+35, SELEVENT+36*, SELEVENT+37, SELEVENT+38, SELEVENT+39
LINE BLD+6~, BLD+15*, BLD+16*, BLD+18, BLDLN+13~, BLDLN+14*, BLDLN+15*, BLDLN+16*, BLDLN+17*, BLDLN+18*
, BLDLN+19*, BLDLN+20*, BLDLN+21*, BLDLN+22*, BLDLN+23*, BLDLN+24, DEL+8~, D1+9*, D1+12, D1+21
, PRMARK+24~, PRMARK+41*, PRMARK+47, PRMARK+51, PRMARK+61*, PRMARK+62, PRMARK+65, PRMARK+66, PRMARK+67
LINED BLDLN~, BLDLN+15, BLDLN+16, BLDLN+17, BLDLN+18, BLDLN+19, BLDLN+20, BLDLN+21, BLDLN+22, BLDLN+23
LINEI BLDLN+13~
MSG DEL+8~, DEL+14*, D1+6, ASKSURE~, ASKSURE+12*, ASKSURE+13
MULT SELEVENT~, SELEVENT+20*, SELEVENT+26
PROMPT DEL+9~, DEL+13*, DEL+15, PRMARK+24~, PRMARK+36*, PRMARK+37, SELEVENT~, ADDCMT+5~, ADDCMT+9*, ADDCMT+10
RESP PRMARK1~, PRMARK1+12*, PRMARK1+13, PRMARK1+14, PRMARK1+18, PRMARK1+19
REST PRMARK+24~, PRMARK+32*, PRMARK+33*, PRMARK+36
S1 BLD+6~, BLD+9*, BLD+10*, BLD+11, BLD+12, BLD+13, BLD+15
S2 BLD+6~, BLD+11*, BLD+12, BLD+13, BLD+15
S3 BLD+6~, BLD+12*, BLD+13, BLD+15
SDATA DEL+9~, D1+23!, PRMARK1+10~
SDATA( D1+25*, D1+26*, D1+27*, D1+28*, D1+29*, PRMARK1+18*, PRMARK1+19*, PRMARK1+20*, PRMARK1+21*
ST SORT+8~
STATUS PRMARK+24~, PRMARK+32*, PRMARK+33*, PRMARK+34*, PRMARK+54, PRMARK1~, PRMARK1+13, PRMARK1+14, PRMARK1+18, PRMARK1+19
STATUSDT PRMARK+24~, PRMARK+32*, PRMARK+33*, PRMARK+54
STATUSU PRMARK+24~, PRMARK+32*, PRMARK+33*, PRMARK+54
STDES SORT+8~
TSTAMP PRMARK1~, PRMARK1+16*, PRMARK1+21
U BLD+20, BLD+22, BLD+24, BLD+26, BLD+29, PRMARK1+13, PRMARK1+14
USER PRMARK1~, PRMARK1+15*, PRMARK1+20
>> VALM("TITLE" HDR+11*
>> VALMBCK HELP+4*, SORT+25*, SORT+31*, DEL+11*, DEL+16*, PRMARK+30*, PRMARK+38*, ADDCMT+6*, ADDCMT+11*
>> VALMBG SORT+31*
>> VALMCNT BLD+9*, BLD+17*, BLD+18, BLD+25*, BLD+26, BLD+31*, BLD+32, BLD+40, BLD1+1
>> VALMHDR(1 HDR+9*
>> VALMHDR(2 HDR+10*
>> VALMSG VALMSGH+6*, VALMSGH+7*, HELP+26*
VALMY SELEVENT+19~, SELEVENT+33
VALMY( SELEVENT+36
WHICH PRMARK~, PRMARK+32
WLIST PRMARK~, PRMARK+26*, PRMARK+27, PRMARK+34, PRMARK+37, PRMARK+43, PRMARK+44, PRMARK+53, PRMARK+59, PRMARK+63
, SELEVENT~, SELEVENT+21*, SELEVENT+39
X SORT+8~, D1+4, D1+13~, ASKSURE+8~, SELEVENT+19~
XCOM DEL+9~
XDA1 BLD+6~, BLD+21*, BLD+22, BLD+24, BLD+26, BLD+28*, BLD+29, BLD+34*
>> XQORNOD(0 SELEVENT+23, SELEVENT+32
XREJDA BLD+6~, BLD+29*, BLD+30, BLD+32
XREJDA1 BLD+6~
XREJDA1( BLD+32
XRESP BLD+6~, BLD+20*, BLD+21, BLD+28, BLD+29
XREVDA1 BLD+23~
XREVDA1( BLD+26
XSELCNT BLD+6~, BLD+17*, BLD+18, BLD+19, BLD+26, BLD+32, BLD1+1
XX HDR+7~, FILTBY+4~, FILTBY+5*, FILTBY+6*, FILTBY+7*, FILTBY+8*, FILTBY+10*, FILTBY+12*, FILTBY+14*, FILTBY+15*
, FILTBY+16, SORT+8~, SORT+17*, SORT+18*, SORT+19*, SORT+20*, SORT+21*, SORT+22, SORT+26*, SORT+27
, ASKSURE+8~, ASKSURE+10*, ASKSURE+12, PRMARK+24~, PRMARK+27*, PRMARK+28, PRMARK+53*, PRMARK+54
Y SORT+8~, SORT+25, SORT+26, D1+4, D1+5, D1+13~, ASKSURE+8~, ASKSURE+15, SELEVENT+19~
Y(0 SORT+27
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All