Routine: IBCSCE

Information

IBCSCE ;ALB/MRL,MJB - MCCR SCREEN EDITS ;07 JUN 88 14:35

Source file <IBCSCE.m>

Package	Total	Call Graph
Integrated Billing	7	^IBCCPT MCCR^IBCNSP2 ^IBCOPV DX^IBCSC4B ^IBCSC4D ^IBCSC5A ^IBCSC5B
VA Fileman	1	^DIE

Package	Total	Caller Graph
Integrated Billing	1	IBCSCP

Name	Comments	DBIA/ICR reference
TMPL
310	;;101;102;103;S Y="@31";@311;D INST^IBCU;111;K DIC("DR"),DLAYGO;@31;
61	;;.06;164;
62	;;155;S:X=0 Y=156;157;156;S:'$D(IBOX) Y="@62";153;@62;
63	;;151;152;
64	;;161;165;
65	;;D RCD^IBCU1;42;202;S:'X Y=201;203;201;I $P(^DGCR(399,DA,"U1"),"^",11)']"" S Y="@65";210;@65;
82	;;204;
83	;;205;
81	;;208;
86	;;163;
84	;;206;
85	;;207;
46	;;40;
44	;;S IBZ20=$P(^DGCR(399,DA,0),U,9);.09;D PRO^IBCSC4B;S IBASKCOD=1
45	;;41;
42	;;162;
43	;;I IBPTF S Y="@943";64;65;66;67;68;S Y="@43";@943;D DX^IBCSC4B;@43;
41	;;160;159;158;
UPDT
999	;;64;65;66;67;68;
ENQ
75	;;D RCD^IBCU1;42;202;S:'X Y=201;203;201;I $P(^DGCR(399,DA,"U1"),"^",11)']"" S Y="@75";210;@75;
74	;;S:$D(IBOUT) Y="@999";43;@999;K IBOUT;
73	;;151;152;
72	;;155;S:X=0 Y=156;157;156;S:'$D(IBOX) Y="@72";153;@72;
71	;;.06;164;
17	;;.18;
16	;;110;
EDIT
32	;;104;105;106;121;107;108;109
31	;;.07;S X=$P(^DGCR(399,DA,0),U,11);S Y="@"_$S(X']"":31,X="p":31,X="o":311,1:310);@310;D 1^IBCSCH1 S Y="@"_$S(IBADI=-1:31,'IBADI:312,1:313);@313;^2^DPT(^^D SET^IBCSCE;D UPDT^IBCSCE;@312;
56	;;40;
51	;;.03;
53	;;;;same as 74
52	;;64;S:X="" Y="@99";65;S:X="" Y="@99";66;S:X="" Y="@99";67;S:X="" Y="@99";68;@99;
55	;;41;
54	;;S IBZ20=$P(^DGCR(399,DA,0),U,9);.09;S IBASKCOD=1
LOOP

Name	Line Occurrences
Function Call: WRITE	Prompt: I Line Location: ENQ+2
Routine Call	DIE Line Location: TMPL+1

FileNo	Call Tags
^DGCR(399 - [#399]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	UPDT+1*
^DIC(36 - [#36]	UPDT
^DPT - [#2]	UPDT
^IBE(350.9 - [#350.9]	EDIT+3

Name	Field # of Occurrence
^(	UPDT+1
^(0	UPDT

Name	Field # of Occurrence
DA	EDIT+2, TMPL, ENQ!
>> DFN	UPDT
DGDRD	ENQ!
DGDRS	ENQ!
DGDRS1	ENQ!
DIE	TMPL*, TMPL+1!, ENQ!
DR	EDIT+2!, EDIT+3!, TMPL*, TMPL+1!, ENQ!
I	EDIT+2~, EDIT+3~
IBAIC	UPDT+1*, UPDT+2!
IBDD	UPDT*, UPDT+2!
IBDD(	UPDT*, UPDT+1
IBDR1	ENQ!
IBDR20	IBCSCE+6, IBCSCE+7, LOOP*, EDIT, EDIT+1, EDIT+2, EDIT+3, EDIT+4, EDIT+5, ENQ!
IBDRL	LOOP~*
IBDRLP	LOOP~*
IBI1	UPDT, UPDT+1, UPDT+2!
>> IBIFN	EDIT+2, TMPL, UPDT+1
>> IBPTF	EDIT+1
>> IBSR	TMPL
>> IBSR1	TMPL
>> Y	EDIT+2, TMPL