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

Package: Integrated Billing

Routine: IBJPS6


Information

IBJPS6 ;ALB/WCJ - IB Site Parameters, Administrative Contractors ; 27-AUG-2015

Source Information

Source file <IBJPS6.m>

Entry Points

Name Comments DBIA/ICR reference
EN(WHICH) ; -- main entry point for IBJP ALT PRIM PAYER ID TYP
; Input: WHICH - 1 - Using template IBJP ADMIN CONTRACTOR MED
; 2 - Using template IBJP ADMIN CONTRACTOR COM
HDR(WHICH) ; -- header code
; Input: WHICH - 1 - Using template IBJP ADMIN CONTRACTOR MED
; 2 - Using template IBJP ADMIN CONTRACTOR COM
INIT(WHICH) ; Initialize variables and list array
; Input: WHICH - 1 - Using template IBJP ADMIN CONTRACTOR MED
; 2 - Using template IBJP ADMIN CONTRACTOR COM
; Output: ^TMP("IBJPS6",$J) - Body lines to display for specified template
BLD(WHICH) ; Build screen array, no variables required for input
; Input: WHICH - 1 - Using template IBJP ADMIN CONTRACTOR MED
; 2 - Using template IBJP ADMIN CONTRACTOR COM
; Output: ^TMP("IBJPS6",$J) - Body lines to display for specified template
BLDLN(CTR,NAME,IEN) ; Builds a line to display and insurance
; Input: CTR - Current Line Counter
; NAME - Insurance Company Name
; IEN - IEN of the insurance to be displayed
; Output: LINE - Formatted for settng into the list 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(WHICH) ; -- help code
; Input: WHICH - 1 - Using template IBJP ADMIN CONTRACTOR MED
; 2 - Using template IBJP ADMIN CONTRACTOR COM
EXIT(WHICH) ; Exit code
; Input: WHICH - 1 - Using template IBJP ADMIN CONTRACTOR MED
; 2 - Using template IBJP ADMIN CONTRACTOR COM
EXPND ; -- expand code
ADD(WHICH) ; Listman Protocol Action to add an entry to the specified Site Parameter node
; Input: WHICH - 1 - Using template IBJP ADMIN CONTRACTOR MED
; 2 - Using template IBJP ADMIN CONTRACTOR COM
DEL(WHICH) ; Listman Protocol Action to delete an entry from the specified Site Parameter node
; Input: WHICH - 1 - Using template IBJP ADMIN CONTRACTOR MED
; 2 - Using template IBJP ADMIN CONTRACTOR COM
ENTSEL(NODE,IENS,WHICHF)
LOCK(NODE)
UNLOCK(NODE) ;EP
; Unlocks the Site Parameter node that is being worked
; Input: NODE - Site Parameter node where the data resides
SELEVENT(FULL,PROMPT,DLINE,MULT,WLIST)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: $E($G(TARGET("DILIST",1,1)),$L(IBSAVEX)+1,99)
  • Line Location: ENTSEL+31
Function Call: WRITE
  • Prompt: !,I,?3,TARGET("DILIST",1,I)
  • Line Location: ENTSEL+42
Function Call: WRITE
  • Prompt: @IOF,"Someone else is editing the "_TEXT
  • Line Location: LOCK+11
Function Call: WRITE
  • Prompt: !,"Please Try again later"
  • Line Location: LOCK+12
Function Call: WRITE
  • Prompt: !,*7,">>>> Only single entry selection is allowed"
  • Line Location: SELEVENT+24

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.98 - [#355.98] FIND^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call