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

Package: Integrated Billing

Routine: IBJPC1


Information

IBJPC1 ;ALB/FA - Site Parameter HCSR Screens, Nodes 63-66 ;03-JUN-2014

Source Information

Source file <IBJPC1.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA FileMan 6 ^DIC  UPDATE^DIE  ^DIK  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
List Manager 3 EN^VALM  ($$SETSTR,CLEAR,FULL,PAUSE)^VALM1  SET^VALM10  
Integrated Billing 2 ($$GETTOT,$$ISALL,ADDPYR1)^IBJPC3  $$SELEVENT^IBTRH1  
Kernel 2 $$UP^XLFSTR  DISP^XQORM1  

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

Package Total Caller Graph
Integrated Billing 18 IBJP HCSR ADM INSCO  IBJP HCSR ADM INSCO ADD  IBJP HCSR ADM INSCO DEL  IBJP HCSR ADM INSCO EDIT  IBJP HCSR APPT INSCO  IBJP HCSR APPT INSCO ADD  IBJP HCSR APPT INSCO DEL  IBJP HCSR APPT INSCO EDIT  
IBJP HCSR CLINIC ADD  IBJP HCSR CLINIC DEL  IBJP HCSR CLINICS  IBJP HCSR CLINICS EDIT  IBJP HCSR WARD ADD  IBJP HCSR WARD DEL  IBJP HCSR WARDS  IBJP HCSR WARDS EDIT  
IBJPC2  IBJPC3  

Entry Points

Name Comments DBIA/ICR reference
EN(WHICH) ;EP
; Main entry point for HCSR Site Parameters, nodes 63-66
; Input: WHICH - 1 - Using template IBJP HCSR CLINICS
; 2 - Using template IBJP HCSR WARDS
; 3 - Using template IBJP HCSR ADM INSCO
; 4 - Using template IBJP HCSR APPT INSCO
HDR(WHICH) ;EP
; Header code for HCSR Site Parameters, nodes 63-66
; Input: WHICH - 1 - Using template IBJP HCSR CLINICS
; 2 - Using template IBJP HCSR WARDS
; 3 - Using template IBJP HCSR ADM INSCO
; 4 - Using template IBJP HCSR APPT INSCO
INIT(WHICH) ;EP
; Initialize variables and list array
; Input: WHICH - 1 - Using template IBJP HCSR CLINICS
; 2 - Using template IBJP HCSR WARDS
; 3 - Using template IBJP HCSR ADM INSCO
; 4 - Using template IBJP HCSR APPT INSCO
; Output: ^TMP("IBJPC1",$J) - Body lines to display for specified template
BLD(WHICH) ; Build screen array, no variables required for input
; Input: WHICH - 1 - Using template IBJP HCSR CLINICS
; 2 - Using template IBJP HCSR WARDS
; 3 - Using template IBJP HCSR ADM INSCO
; 4 - Using template IBJP HCSR APPT INSCO
; Output: ^TMP("IBJPC1",$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 setting 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) ;EP
; Help code
; Input: WHICH - 1 - Using template IBJP HCSR CLINICS
; 2 - Using template IBJP HCSR WARDS
; 3 - Using template IBJP HCSR ADM INSCO
; 4 - Using template IBJP HCSR APPT INSCO
EXIT(WHICH) ;EP
; Exit code
; Input: WHICH - 1 - Using template IBJP HCSR CLINICS
; 2 - Using template IBJP HCSR WARDS
; 3 - Using template IBJP HCSR ADM INSCO
; 4 - Using template IBJP HCSR APPT INSCO
ADD(WHICH) ;EP
; Listman Protocol Action to add an entry to the specified Site Parameter node
; Input: WHICH - 1 - Adding to the Clinic Search inclusion list
; 2 - Adding to the Ward Search inclusion list
; 3 - Adding to the Admission Search inclusion list
; 4 - Adding to the Appointment Search inclusion list
DEL(WHICH) ;EP
; Listman Protocol Action to delete an entry from the specified Site Parameter
; node
; Input: WHICH - 1 - Deleting from the Clinic Search inclusion list
; 2 - Deleting from the Ward Search inclusion list
; 3 - Deleting from the Admission Search inclusion list
; 4 - Deleting from to the Appt Search exclusion list
WARNMSG ;EP
; Displays a warning message to the user when they modify site parameters
; Input: None
; Output: Warning message displayed
ENTSEL(NODE,IENS,WHICHF)
ADDBYEID(IEN,IENS)
LOCK(NODE)
UNLOCK(NODE) ;EP
; Unlocks the Site Parameter node that is being worked
; Input: NODE - Site Parameter node where the data resides

External References

Name Field # of Occurrence
^DIC ENTSEL+26
UPDATE^DIE ADD+49, ENTSEL+35
^DIK DEL+29
$$EXTERNAL^DILFD BLD+16, ADD+27, ADD+60, DEL+22
$$GET1^DIQ BLDLN+8, BLDLN+10, BLDLN+11, ADDBYEID+14
^DIR ADD+41, ADD+65, DEL+40, ADDBYEID+12
$$GETTOT^IBJPC3 BLD+36
$$ISALL^IBJPC3 BLD+33
ADDPYR1^IBJPC3 ENTSEL+36
$$SELEVENT^IBTRH1 DEL+16
EN^VALM EN+9
$$SETSTR^VALM1 BLDLN+6, BLDLN+7, BLDLN+9, BLDLN+12
CLEAR^VALM1 EXIT+7
FULL^VALM1 ADD+13, DEL+14
PAUSE^VALM1 LOCK+16
SET^VALM10 BLD+42
$$UP^XLFSTR ADD+28
DISP^XQORM1 HELP+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !!,"**Warning**"
  • Line Location: WARNMSG+4
Function Call: WRITE
  • Prompt: !,"Changing the value in CPAC/TRICARE/CHAMPVA parameters will affect the Health"
  • Line Location: WARNMSG+5
Function Call: WRITE
  • Prompt: !,"Care Services Review Worklist.",!!
  • Line Location: WARNMSG+6
Function Call: WRITE
  • Prompt: @IOF,"Someone else is editing the "_TEXT
  • Line Location: LOCK+14
Function Call: WRITE
  • Prompt: !,"Please Try again later"
  • Line Location: LOCK+15
Routine Call
  • DIC
  • Line Location:
    • ENTSEL+26
Routine Call
  • DIE
  • Line Location:
    • ADD+49
    • ENTSEL+35
Routine Call
  • DIR
  • Line Location:
    • ADD+41
    • ADD+65
    • DEL+40
    • ADDBYEID+12
Routine Call
  • VALM
  • Line Location:
    • EN+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(36 - [#36] GET1^DIQ
^DIC(5 - [#5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] ADDBYEID+18
^IBE(350.9 - [#350.9] BLD+12, BLD+14, DEL+21, ADDBYEID+20, LOCK+7, UNLOCK+3
^TMP("IBJPC1" INIT+7!, BLD+21*, EXIT+6!
^TMP($J INIT+7!, BLD+43*, EXIT+6!

Label References

Name Line Occurrences
$$BLDLN BLD+41
$$ENTSEL ADD+16
$$LOCK ADD+12, DEL+13
$$SETL BLD+20, BLD+31, BLD+32, BLD+34, BLD+37, BLD+38
ADDBYEID ENTSEL+29
BLD INIT+8
INIT ADD+67, DEL+42
UNLOCK ADD+18, ADD+52, DEL+41
WARNMSG ADD+14, DEL+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALLPYR BLD+7~, BLD+33*, BLD+34, BLD+35
CNT BLD+7~, BLD+10*, BLD+16*, BLD+18, ADD+8~, ADD+44*, ADD+46*, ADD+57, DEL+8~, DEL+26*
, DEL+28*, DEL+35
COL SETL~, SETL+8
CTR BLDLN~, BLDLN+6
DA ADD+6~, DEL+8~, DEL+26*, DEL+27*, ENTSEL+13~, ADDBYEID+5~, LOCK+6~
DA(1 DEL+26*, DEL+28
DATA SETL~, SETL+8
DIC ENTSEL+13~, ENTSEL+17*, ADDBYEID+5~
DIC("A" ENTSEL+19*
DIC("S" ENTSEL+24*
DIC(0 ENTSEL+18*
DIK ADD+6~, DEL+8~, DEL+28*
DIR ADD+6~, ADD+7~, DEL+8~, ENTSEL+13~, ADDBYEID+5~, LOCK+6~
DIR("?" ADDBYEID+8*
DIR("A" ADD+35*, ADD+38*, ADD+40*, ADD+56*, ADD+57*, ADD+61*, ADD+63*, ADD+64*, DEL+31*, DEL+32*
, DEL+35*, DEL+37*, DEL+38*, DEL+39*, ADDBYEID+10*
DIR("B" ADDBYEID+11*
DIR(0 ADD+35*, ADD+55*, DEL+30*, ADDBYEID+9*
DIROUT ADD+7~, DEL+8~, ENTSEL+13~, ADDBYEID+5~, LOCK+6~
DIRUT ADD+7~, DEL+8~, ENTSEL+13~, ADDBYEID+5~, LOCK+6~
DTOUT ADD+7~, DEL+8~, ENTSEL+13~, ADDBYEID+5~, LOCK+6~
DUOUT ADD+7~, DEL+8~, ENTSEL+13~, ADDBYEID+5~, LOCK+6~
ENTRIES BLD+7~, BLD+19
ENTRIES( BLD+18*, BLD+24, BLD+26, BLD+33, BLD+36, BLD+41, BLD+43
FDA ADD+7~, ENTSEL+13~, ENTSEL+32!
FDA("350.9" ADD+47*, ADD+48*, ENTSEL+33*, ENTSEL+34*
IEN BLDLN~, BLDLN+8, BLDLN+10, ADD+7~, ADD+25*, ADD+26*, ADD+27, ADD+44*, ADD+45*, ADD+47
, ADDBYEID~, ADDBYEID+14
IENARY ENTSEL+13~, ENTSEL+32!
IENARY(1 ENTSEL+36
IENS ADD+7~, ADD+16, ADD+54, ENTSEL~, ENTSEL+14!, ENTSEL+29, ENTSEL+40, ADDBYEID~
IENS( ADD+26, ADD+45, ADD+59, ADD+61*, ENTSEL+28*, ADDBYEID+21*
IENS("" ADD+19
INSM ADD+7~, ADD+31
INSM( ADD+29*, ADD+37, ADD+38
INSMC ADD+7~, ADD+25*, ADD+29*, ADD+32, ADD+33, ADD+34
IOF LOCK+14
IX ENTSEL+13~
LABEL SETL~, SETL+8
LINE BLD+7~, BLD+20*, BLD+21, BLD+31*, BLD+32*, BLD+34*, BLD+37*, BLD+38*, BLD+41*, BLD+42
, BLDLN+5~, BLDLN+6*, BLDLN+7*, BLDLN+9*, BLDLN+12*, BLDLN+13, SETL~, SETL+8*, SETL+9
LIST DEL+8~, DEL+34
LIST( DEL+23*, DEL+27, DEL+37
LNG SETL~, SETL+8
NAME BLD+7~, BLD+16*, BLD+17, BLD+18, BLD+22*, BLD+23, BLD+24*, BLD+26, BLD+32, BLD+33
, BLD+36, BLD+41, BLD+43, BLDLN~, BLDLN+7, ADD+8~, ADD+27*, ADD+28, ADD+29, ADD+60*
, ADD+61, DEL+8~, DEL+22*, DEL+23
NAMEIEN BLD+7~, BLD+14*, BLD+15, BLD+16, BLD+18
NAMEU ADD+8~, ADD+28*, ADD+29
NODE BLD+7~, BLD+9*, BLD+12, BLD+14, BLD+16, BLD+33, BLD+36, ADD+8~, ADD+9*, ADD+12
, ADD+16, ADD+18, ADD+20, ADD+27, ADD+47, ADD+48, ADD+52, ADD+60, DEL+9~, DEL+10*
, DEL+13, DEL+21, DEL+22, DEL+28, DEL+41, ENTSEL~, ENTSEL+16, ENTSEL+17, ENTSEL+22, ENTSEL+33
, ENTSEL+34, ENTSEL+36, ADDBYEID+20, LOCK~, LOCK+7, LOCK+9, LOCK+10, LOCK+11, LOCK+12, LOCK+13
, UNLOCK~, UNLOCK+3
NODE0 BLD+7~, BLD+14*, ADD+8~, DEL+9~, DEL+21*, DEL+22
PAYID ADDBYEID+5~, ADDBYEID+14*, ADDBYEID+15, ADDBYEID+18
SELSTR DEL+9~, DEL+16
SPAYIEN ADDBYEID+5~, ADDBYEID+16*, ADDBYEID+17, ADDBYEID+18*, ADDBYEID+19, ADDBYEID+20, ADDBYEID+21
STOP ENTSEL+13~, ENTSEL+15*, ENTSEL+25, ENTSEL+27*
STOP2 ENTSEL+13~
STR DEL+9~, DEL+16*, DEL+19, DEL+20, DEL+21, DEL+32, DEL+33, DEL+42
TEMPLATE EN+6~, EN+7*, EN+8*, EN+9
TEXT LOCK+6~, LOCK+9*, LOCK+10*, LOCK+11*, LOCK+12*, LOCK+13*, LOCK+14
TOTPYR BLD+7~, BLD+36*, BLD+37, BLD+38
TYPE ADD+8~, ADD+10*, ADD+17, ADD+20*, ADD+21*, ADD+57, ADD+68, DEL+9~, DEL+11*, DEL+32
, DEL+35, ENTSEL+13~, ENTSEL+16*, ENTSEL+19
>> VALMBCK ADD+11*, DEL+12*
>> VALMCNT BLD+8*, BLD+27*, BLD+31, BLD+41, BLD+42, BLD+43
>> VALMHDR(1 HDR+7*
>> VALMHDR(2 HDR+8*, HDR+9*, HDR+10*, HDR+11*
>> VALMSG ADD+17*, ADD+68*
WHICH EN~, EN+7, EN+8, HDR~, HDR+8, HDR+9, HDR+10, HDR+11, INIT~, INIT+8
, BLD~, BLD+9, BLD+30, HELP~, EXIT~, ADD~, ADD+9, ADD+10, ADD+16, ADD+24
, ADD+54, ADD+67, DEL~, DEL+10, DEL+11, DEL+42
WHICHF ENTSEL~, ENTSEL+29, ENTSEL+31
X HELP+6*, ADD+8~, DEL+9~, ENTSEL+13~, ADDBYEID+5~, LOCK+6~
XX BLDLN+5~, BLDLN+8*, BLDLN+9, BLDLN+10*, BLDLN+11*, BLDLN+12, ADD+8~, ADD+32*, ADD+33*, ADD+34*
, ADD+35, DEL+9~, ENTSEL+13~, ENTSEL+22*, ENTSEL+23*, ENTSEL+24, ADDBYEID+5~, ADDBYEID+6*, ADDBYEID+7*, ADDBYEID+8
Y ADD+8~, DEL+9~, ENTSEL+13~, ENTSEL+27, ENTSEL+28, ENTSEL+29, ENTSEL+33, ADDBYEID+5~, ADDBYEID+13, LOCK+6~
Z BLD+7~, BLD+10*, BLD+11, BLD+12*, BLD+13, BLD+14, BLD+18, BLD+25*, BLD+26*, BLD+33
, BLD+36, BLD+41, BLD+43, ADD+8~, ADD+36*, ADD+38*, ADD+55*, ADD+56*, ADD+57*, ADD+61*
, ADD+63*, DEL+9~, DEL+20*, DEL+21, DEL+30*, DEL+31*, DEL+32*, DEL+35*, DEL+37*, DEL+38*
, ENTSEL+13~
Z1 ADD+8~, ADD+36*, ADD+37*, ADD+38, ADD+58*, ADD+59*, ADD+60, ADD+61, DEL+9~, DEL+21*
, DEL+23, DEL+36*, DEL+37*
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