Routine: IBJPC1

Information

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

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 19

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
Kernel	1	^ORD(101

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

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

Customize PDF page

Package: Integrated Billing