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: IBCNCH2

Package: Integrated Billing

Routine: IBCNCH2


Information

IBCNCH2 ;ALB/FA - PATIENT POLICY COMMENT HISTORY ;27-APR-2015

Source Information

Source file <IBCNCH2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Integrated Billing 2 $$ASKYN^IBCNCH  SEARCH^IBCNCH3  
Kernel 2 $$FMTE^XLFDT  $$UP^XLFSTR  
List Manager 2 (FULL,PAUSE)^VALM1  SET^VALM10  
VA FileMan 2 $$GET1^DIQ  ^DIR  

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: 4

Package Total Caller Graph
Integrated Billing 4 IBCNCH  IBCNCH SEARCH LIST  IBCNCH SEARCH LIST EXPAND  IBCNSP  

Entry Points

Name Comments DBIA/ICR reference
BLD(DFN,IBIIEN) ;EP
; Build the listman template body of the main Insurance Comment display
; Input: DFN - IEN of the patient
; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the
; multiple IEN of the selected patient policy
; ^TMP($J,"IBCNCHIX",CNT) - See GETCOMS
BLDONEC(VALMCNT,COMCNT) ; (Re)Build one comment into the listman display
; Called from BLD and after adding or editing a comment
; Input: VALMCNT - Current Line of the display being
; (re)built
; COMCNT - Comment Number
; ^TMP($J,"IBCNCHIX",COMCNT) - See GETONEC for details
; Output: VALMCNT - Updated Line of the display being
; (re)built
GETCOMS(DFN,IBIIEN) ; Retrieves the policy comments for the selected
; patient and policy in most recent date order
; Input: DFN - IEN of the patient
; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the
; multiple IEN of the selected patient policy
; Output: ^TMP($J,"IBCNCHIX",CNT) - A1^A2^A3^A4^A5^A6^A7^A8^A9^A10
; See GETONEC for detailed explanation
GETONEC(DFN,IBIIEN,COMIEN,CNT,CLEN,FULL,NOSET)
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
SEARCH(COMIN)
GETSTXT() ; Get the text to search for
; Input: None
; Returns: text to search for or "" if not entered
SEARCHC(DFN,IBIIEN,STEXT,FOUND) ; Search all the Patient Policy Comments
; Input: DFN - IEN of the Patient
; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the multiple
; IEN of the selected Patient Policy
; STEXT - Text to search for
; Output: FOUND - Array of Patient Policy Comments
; FOUND - A1
; FOUND(0,CTR) - A2
; FOUND(1,A2) - CTR
; Where: A1 - Number of comments where text was found
; A2 - IEN of the comment where text was found
; CTR- Counter to put sort comments by date
FOUNDT(DFN,IBIIEN,COMIEN,STEXT) ; Search the specified comment for the
; specified text
; Input: DFN - IEN of the Patient
; IBIIEN - ^DPT(DFN,.312,IBIIEN,0) Where IBIIEN is the multiple
; IEN of the selected Patient Policy
; COMIEN - IEN of the selected Patient Policy Comment
; STEXT - Text to search for
; Returns: 1 if the STEXT was found, 0 otherwise

External References

Name Field # of Occurrence
$$GET1^DIQ GETONEC+38, GETONEC+39, GETONEC+42, GETONEC+43, GETONEC+45, GETONEC+46, GETONEC+48, GETONEC+49, GETONEC+50, FOUNDT+11
, FOUNDT+13, FOUNDT+15, FOUNDT+17, FOUNDT+19, FOUNDT+21
^DIR GETSTXT+5
$$ASKYN^IBCNCH SEARCH+26
SEARCH^IBCNCH3 SEARCH+27
FULL^VALM1 SEARCH+10
PAUSE^VALM1 SEARCH+14, SEARCH+20
SET^VALM10 BLD+15, BLD+22, BLDONEC+13, BLDONEC+16, BLDONEC+19, BLDONEC+22, BLDONEC+26
$$FMTE^XLFDT GETONEC+41
$$UP^XLFSTR FOUNDT+10, FOUNDT+11, FOUNDT+13, FOUNDT+15, FOUNDT+17, FOUNDT+19, FOUNDT+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"No search text selected."
  • Line Location: SEARCH+13
Function Call: WRITE
  • Prompt: !!,*7,STEXT," not found in any Patient Policy Comments."
  • Line Location: SEARCH+19
Function Call: WRITE
  • Prompt: !!,STEXT," was found in ",FOUND," Patient Policy Comment(s)."
  • Line Location: SEARCH+23
Function Call: WRITE
  • Prompt: !,"The found text will be highlighted within each comment in the Expanded Entry"
  • Line Location: SEARCH+24
Function Call: WRITE
  • Prompt: !,"display.",!!
  • Line Location: SEARCH+25
Routine Call
  • DIR
  • Line Location:
    • GETSTXT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
2.342 GET1^DIQ
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] GETCOMS+10, GETCOMS+14, SEARCHC+15, SEARCHC+19
^TMP($J BLD+11, BLDONEC+10, GETONEC+55*

Label References

Name Line Occurrences
$$FOUNDT SEARCHC+21
$$GETSTXT SEARCH+11
$$SETL BLDONEC+9, BLDONEC+12, BLDONEC+15, BLDONEC+18, BLDONEC+21, BLDONEC+25
BLDONEC BLD+18
GETCOMS BLD+7
GETONEC GETCOMS+17
SEARCHC SEARCH+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CLEN GETONEC~, GETONEC+36*, GETONEC+40, GETONEC+51
CNT BLD+6~, BLD+8*, BLD+10, BLD+11*, BLD+12, BLD+13, BLD+18, GETCOMS+7~, GETCOMS+8*, GETCOMS+16*
, GETCOMS+17, GETONEC~, GETONEC+54, GETONEC+55, SEARCHC+12~, SEARCHC+13*, SEARCHC+22*, SEARCHC+23
COL SETL~, SETL+8
COMCNT BLDONEC~, BLDONEC+9, BLDONEC+10
COMDT GETCOMS+7~, GETCOMS+8*, GETCOMS+9, GETCOMS+10*, GETCOMS+11, GETCOMS+14, SEARCHC+12~, SEARCHC+13*, SEARCHC+14, SEARCHC+15*
, SEARCHC+16, SEARCHC+19
COMIEN GETCOMS+7~, GETCOMS+12*, GETCOMS+13, GETCOMS+14*, GETCOMS+15, GETCOMS+17, GETONEC~, GETONEC+37, GETONEC+53, SEARCHC+12~
, SEARCHC+17*, SEARCHC+18, SEARCHC+19*, SEARCHC+20, SEARCHC+21, SEARCHC+23, FOUNDT~, FOUNDT+9
COMIN SEARCH~
COMMENT GETONEC+33~, GETONEC+38*, GETONEC+40, GETONEC+51
DATA SETL~, SETL+8
DATALN BLDONEC+8~, BLDONEC+10*, BLDONEC+11, BLDONEC+14, BLDONEC+17, BLDONEC+20, BLDONEC+24
DATAOUT GETONEC+33~, GETONEC+41*, GETONEC+44*, GETONEC+45*, GETONEC+47*, GETONEC+48*, GETONEC+49*, GETONEC+50*, GETONEC+52*, GETONEC+53*
, GETONEC+54*, GETONEC+55, GETONEC+56
DFN BLD~, BLD+7, GETCOMS~, GETCOMS+10, GETCOMS+14, GETCOMS+17, GETONEC~, GETONEC+37, SEARCH+17, SEARCH+27
, SEARCHC~, SEARCHC+15, SEARCHC+19, SEARCHC+21, FOUNDT~, FOUNDT+9
DIR GETSTXT+3~
DIR("A" GETSTXT+4*
DIR(0 GETSTXT+4*
DIROUT GETSTXT+3~
DIRUT GETSTXT+3~
DTOUT GETSTXT+3~
DUOUT GETSTXT+3~
FOUND SEARCH+8~, SEARCH+17, SEARCH+18, SEARCH+23, SEARCH+27, SEARCHC~, SEARCHC+13*, SEARCHC+22*
FOUND(0 SEARCHC+23*
FOUND(1 SEARCHC+23*
FULL GETONEC~, GETONEC+34*, GETONEC+51
IBIIEN BLD~, BLD+7, GETCOMS~, GETCOMS+10, GETCOMS+14, GETCOMS+17, GETONEC~, GETONEC+37, SEARCH+17, SEARCH+27
, SEARCHC~, SEARCHC+15, SEARCHC+19, SEARCHC+21, FOUNDT~, FOUNDT+9
IENS GETONEC+33~, GETONEC+37*, GETONEC+38, GETONEC+39, GETONEC+42, GETONEC+45, GETONEC+46, GETONEC+48, GETONEC+49, GETONEC+50
, FOUNDT+8~, FOUNDT+9*, FOUNDT+11, FOUNDT+13, FOUNDT+15, FOUNDT+17, FOUNDT+19, FOUNDT+21
LABEL SETL~, SETL+8
LINE BLD+6~, BLD+8*, BLDONEC+8~, BLDONEC+9*, BLDONEC+12*, BLDONEC+13, BLDONEC+15*, BLDONEC+16, BLDONEC+18*, BLDONEC+19
, BLDONEC+21*, BLDONEC+22, BLDONEC+25*, BLDONEC+26, SETL~, SETL+8*, SETL+9
LN BLD+6~
LNG SETL~, SETL+8
NOSET GETONEC~, GETONEC+35*, GETONEC+55
STEXT SEARCH+8~, SEARCH+11*, SEARCH+12, SEARCH+17, SEARCH+19, SEARCH+23, SEARCH+27, SEARCHC~, SEARCHC+21, FOUNDT~
, FOUNDT+10*, FOUNDT+12, FOUNDT+14, FOUNDT+16, FOUNDT+18, FOUNDT+20, FOUNDT+22
>> VALMBCK SEARCH+9*
VALMCNT BLD+8*, BLD+14*, BLD+15, BLD+17*, BLD+18, BLD+20, BLD+21*, BLD+22, BLDONEC~, BLDONEC+13
, BLDONEC+16, BLDONEC+19, BLDONEC+22, BLDONEC+23*, BLDONEC+26
X GETSTXT+3~
XX BLD+6~, BLD+21*, BLD+22, BLDONEC+11*, BLDONEC+12, BLDONEC+14*, BLDONEC+15, BLDONEC+17*, BLDONEC+18, BLDONEC+20*
, BLDONEC+21, BLDONEC+24*, BLDONEC+25, GETONEC+33~, GETONEC+39*, GETONEC+41, GETONEC+42*, GETONEC+43, FOUNDT+8~, FOUNDT+11*
, FOUNDT+12, FOUNDT+13*, FOUNDT+14, FOUNDT+15*, FOUNDT+16, FOUNDT+17*, FOUNDT+18, FOUNDT+19*, FOUNDT+20, FOUNDT+21*
, FOUNDT+22
Y GETSTXT+3~, GETSTXT+6
ZZ GETONEC+33~, GETONEC+40*, GETONEC+41, GETONEC+43*, GETONEC+44, GETONEC+46*, GETONEC+47, GETONEC+51*, GETONEC+52
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