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

Package: Integrated Billing

Routine: IBCNCH2


Information

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

Source Information

Source file <IBCNCH2.m>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
2.342 GET1^DIQ
^VA(200 - [#200] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call