Routine: BDGICF1

Entry Points

Name	Comments	DBIA/ICR reference
PRINT	;EP; entry point to print
ONE	; print one worksheet

Name	Field # of Occurrence
^%ZISC	PRINT+14
$$READ^BDGF	BDGICF1+12, BDGICF1+24
ZIS^BDGF	BDGICF1+28
$$HRCN^BDGF2	ONE+15
$$HRCND^BDGF2	ONE+15
$$DIV^BSDU	PRINT+4
$$GET1^DIQ	PRINT+4, PRINT+8, PRINT+10, PRINT+11, ONE+5, ONE+6, ONE+17, ONE+22, ONE+23, ONE+28 , ONE+29, ONE+30, ONE+35, ONE+36
$$FMADD^XLFDT	PRINT+4
$$FMTE^XLFDT	ONE+19

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?19,"DEFICIENCY WORKSHEET DELINQUENT CHART" Line Location: ONE+7
Function Call: WRITE	Prompt: !!,?30,"DEFICIENCY WORKSHEET" Line Location: ONE+8
Function Call: WRITE	Prompt: !?(80-$L(TYPE)/2),TYPE Line Location: ONE+11
Function Call: WRITE	Prompt: !!,"Chart #: ",$$HRCND^BDGF2($$HRCN^BDGF2(DFN,DUZ(2))) Line Location: ONE+15
Function Call: WRITE	Prompt: ?20,$S(TYPE="DAY SURGERY":"Surgery on ",1:"Discharged on ") Line Location: ONE+16
Function Call: WRITE	Prompt: $P($$GET1^DIQ(9009016.1,IEN,$S(TYPE["DAY":".05",1:".02")),"@") Line Location: ONE+17
Function Call: WRITE	Prompt: ?50,"Date Printed: ",$$FMTE^XLFDT(DT),! Line Location: ONE+19
Function Call: WRITE	Prompt: !,"Chart Coded On: ",X," by ",$$GET1^DIQ(9009016.1,IEN,.22),! Line Location: ONE+23
Function Call: WRITE	Prompt: !!,NAME,?35 Line Location: ONE+34
Function Call: WRITE	Prompt: $$GET1^DIQ(9009016.11,PRV_","_IEN,.02) Line Location: ONE+35
Function Call: WRITE	Prompt: !,?40,X Line Location: ONE+36
Function Call: WRITE	Prompt: !,?35 Line Location: ONE+37
Function Call: WRITE	Prompt: @IOF Line Location: ONE+39

Name	Line Occurrences (* Changed, ! Killed)
^BDGIC - [#9009016.1]	PRINT+9, ONE+4, ONE+26, ONE+27

Name	Line Occurrences
ONE	PRINT+12

Name	Field # of Occurrence
ARRAY	ONE+3~
ARRAY(	ONE+30*, ONE+32, ONE+33
BDGDELQ	PRINT+4~*, ONE+7
BDGPAT	BDGICF1+9~, BDGICF1+19!, BDGICF1+20, BDGICF1+25
BDGPAT(	BDGICF1+24*, PRINT+7
BDGT	BDGICF1+9~, BDGICF1+12*, BDGICF1+16, BDGICF1+17, PRINT+10, PRINT+11
DATE	ONE+3~, ONE+6*, ONE+7
DFN	ONE+3~, ONE+4*, ONE+15
DT	PRINT+4, ONE+19
DUZ(2	ONE+15
FIRST	ONE+3~, ONE+32*, ONE+34
IEN	PRINT+6~, PRINT+7*, PRINT+8, PRINT+9, PRINT+10, PRINT+11, ONE+4, ONE+5, ONE+6, ONE+17 , ONE+22, ONE+23, ONE+26, ONE+27, ONE+28, ONE+29, ONE+35, ONE+36
IO	PRINT+1
IOF	ONE+39
>> NAME	ONE+32*, ONE+33, ONE+34
PROMPT	BDGICF1+9~, BDGICF1+20*, BDGICF1+24
PRV	ONE+3~, ONE+26, ONE+27, ONE+30, ONE+33, ONE+35, ONE+36
PRVN	ONE+3~, ONE+27*, ONE+28, ONE+29, ONE+30
SCREEN	BDGICF1+14~, BDGICF1+16, BDGICF1+17*, BDGICF1+24
TYPE	ONE+3~, ONE+5*, ONE+6, ONE+11, ONE+16, ONE+17
X	ONE+3~, ONE+22, ONE+23, ONE+36
>> Y	BDGICF1+19, BDGICF1+24