Routine: BDGICR1

Information

BDGICR1 ; IHS/ANMC/LJF - INCOMPLETE CHART BY PATIENT ; [ 08/20/2004 11:45 AM ]

Source Information

Source file <BDGICR1.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Kernel	3	^%ZISC $$REPEAT^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	2	($$BROWSE,$$CONF,$$NUMDATE,$$READ,INIT,MSG,PRTKL,ZIS)^BDGF $$HRCNT^BDGF2
IHS VA Utilities	1	ENP^XBDIQ1
VA Fileman	1	$$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
SET(DATA,NUM)	; puts display line into list template array
SELECT()	; ask user to choose selected charts
EN	; -- main entry point for BDG IC CHARTS BY PATIENT
HDR	; -- header code
SRV(IEN)	; returns service
SP(N)	; -- SUBRTN to pad N number of spaces
WRD(IEN)	; returns ds type or ward
FIND(SUB,OBS)	; find all inpatient entries for date range ; SUB=subscript depending on visit type ; OBS=1 if looking for observation patients; optional ;IHS/ITSC/LJF 8/9/2004 PATCH #1001
EXPND	; -- expand code
CHOICE	;;
HDG	; heading for paper report
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
INIT	; -- init variables and list array
EXIT	; -- exit code
PRINT	; print report to paper
CODE(IEN,NUM)	; returns ready to code date and date coded ; NUM=1 for ready to code; =2 for date coded
DATES(IEN,NUM)	; return dates for entry ; NUM=1 for visit date, =2 for discharge date
HELP	; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+10
$$BROWSE^BDGF	BDGICR1+35
$$CONF^BDGF	HDR+2, HDG+2
$$NUMDATE^BDGF	DATES+3, DATES+5, CODE+3, CODE+4
$$READ^BDGF	BDGICR1+10, BDGICR1+14, BDGICR1+16, BDGICR1+28, BDGICR1+32, BDGICR1+33, SELECT+4
INIT^BDGF	PRINT+2
MSG^BDGF	INIT+1
PRTKL^BDGF	PRINT+10
ZIS^BDGF	BDGICR1+40
$$HRCNT^BDGF2	FIND+27
$$GET1^DIQ	INIT+20, INIT+21, INIT+25, INIT+32, INIT+38, INIT+39, INIT+40, INIT+41, INIT+45, INIT+49 , INIT+50, FIND+8, FIND+24, FIND+25, DATES+3, DATES+4, DATES+5, WRD+2, WRD+7, WRD+9 , SRV+1, CODE+3, CODE+4
EN^VALM	EN+3
TERM^VALM0	EN+2
CLEAR^VALM1	EN+2, EN+4
ENP^XBDIQ1	FIND+11
$$REPEAT^XLFSTR	HDG+13, HDG+16, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,BDGLN Line Location: PRINT+9
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: !,BDGUSR,?11,"***",$$CONF^BDGF,"***" Line Location: HDG+2
Function Call: WRITE	Prompt: !,BDGDATE,?25,"Incomplete Charts by Patient",?70,"Page: ",BDGPG Line Location: HDG+3
Function Call: WRITE	Prompt: !,BDGTIME,?(80-$L(X)\2),X Line Location: HDG+10
Function Call: WRITE	Prompt: !,?(80-$L(BDGDTS)\2),BDGDTS Line Location: HDG+12
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+13
Function Call: WRITE	Prompt: !?2,"Patient",?23,"HRCN",?30,"Admt/Dsch",?45,"Ward/Srv",?60 Line Location: HDG+14
Function Call: WRITE	Prompt: "Ready/Coded",?81,"Insurance/Unresolved Deficiencies & Comments" Line Location: HDG+15
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+16
Function Call: WRITE	Prompt: !! Line Location: SELECT+2
Routine Call	VALM Line Location: EN+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DGPM - [#405]	GET1^DIQ
^DIC(45.7 - [#45.7]	GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ
^BDGIC - [#9009016.1]	GET1^DIQ
9009016.11	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BDGIC - [#9009016.1]	INIT+36, INIT+37, FIND+5, FIND+6
^DGPM("AVISIT"	WRD+8
^TMP("BDGICR1"	INIT+2!, INIT+69, SET+2*, EXIT+1!, PRINT+6, PRINT+8
^TMP("BDGICR1A"	INIT+2!, INIT+16, INIT+17, INIT+70!, FIND+29*

Label References

Name	Line Occurrences
$$CODE	INIT+24, INIT+31
$$DATES	INIT+22, INIT+29
$$PAD	INIT+20, INIT+22, INIT+23, INIT+24, INIT+25, INIT+30, INIT+31, INIT+32, INIT+41, INIT+42 , INIT+63, INIT+66, SP+1
$$SELECT	BDGICR1+23
$$SP	HDR+2, HDR+9, HDR+11, INIT+29, INIT+40, INIT+62, INIT+63, INIT+66
$$SRV	INIT+30
$$WRD	INIT+23
EN	BDGICR1+35
EXIT	PRINT+10
FIND	INIT+9, INIT+10
HDG	PRINT+3, PRINT+7
INIT	EN+1
PRINT	EN+1
SET	INIT+26, INIT+33, INIT+42, INIT+54, INIT+59, INIT+60, INIT+61, INIT+62, INIT+63, INIT+65 , INIT+66, INIT+69

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRAY	SELECT+1~, SELECT+4
ARRAY(	SELECT+3*
BDGBD	BDGICR1+7~, BDGICR1+14*, BDGICR1+15, BDGICR1+19, INIT+7, FIND+4
BDGCNT	INIT+6~, INIT+58, INIT+59, FIND+30*
>> BDGDATE	HDG+3
BDGDEF	BDGICR1+31~, BDGICR1+32*, INIT+45, INIT+60
BDGDEF(	INIT+45*, INIT+63
BDGDEF(0	INIT+62
>> BDGDTS	BDGICR1+19, BDGICR1+20, HDR+11, HDG+12
BDGED	BDGICR1+7~, BDGICR1+16*, BDGICR1+17, BDGICR1+20, INIT+7, FIND+4
BDGLN	PRINT+1~, PRINT+8*, PRINT+9
BDGPG	PRINT+1~, HDG+1*, HDG+3
BDGPRT	EN+1*, INIT+1, EXIT+1!
BDGRTC	BDGICR1+31~, BDGICR1+33*, INIT+48, INIT+64
BDGRTC(	INIT+66
BDGRTC("CODED"	INIT+49*
BDGRTC("NOT R	EADY" , INIT+51*
BDGRTC("READY	TO CODE" , INIT+50*
BDGSEL	BDGICR1+7~, BDGICR1+23*, FIND+13, FIND+14, FIND+15, FIND+16, FIND+17, FIND+18, FIND+19
BDGSRT	BDGICR1+7~, BDGICR1+28*, FIND+24, FIND+25, FIND+27
>> BDGTIME	HDG+10
BDGTYP	BDGICR1+7~, BDGICR1+10*, BDGICR1+13, BDGICR1+27, HDR+6, INIT+9, INIT+10, FIND+24, FIND+25, HDG+7
>> BDGUSR	HDG+2
BDGX	PRINT+1~, PRINT+6*, PRINT+8
CA	WRD+1~
D	PAD~, PAD+2
DATA	FIND+11!, SET~, SET+2
DATA(	FIND+12, FIND+13, FIND+14, FIND+15, FIND+16, FIND+17, FIND+18, FIND+19
DATE	INIT+6~, INIT+7, FIND+3~, FIND+4, FIND+5*, FIND+6, WRD+1~
DEFAULT	BDGICR1+7~, BDGICR1+13*, BDGICR1+14, BDGICR1+16
END	INIT+6~, INIT+7, FIND+3~, FIND+4, FIND+5
I	INIT+66, SELECT+1~, SELECT+3
IEN	INIT+14~, INIT+17, INIT+20, INIT+21, INIT+22, INIT+23, INIT+24, INIT+25, INIT+29, INIT+30 , INIT+31, INIT+32, INIT+36, INIT+37, INIT+38, INIT+39, INIT+41, INIT+45, INIT+49, INIT+50 , FIND+3~, FIND+6, FIND+8, FIND+11, FIND+24, FIND+29, DATES~, DATES+3, DATES+4, WRD~ , WRD+2, WRD+7, SRV~, SRV+1, CODE~, CODE+3, CODE+4
IEN2	INIT+14~, INIT+37*, INIT+38, INIT+39, INIT+41, INIT+45
IO	PRINT+2
IOF	HDG+1
IOSL	PRINT+7
IOST	EN+1
L	PAD~, PAD+2
LINE	INIT+14~, INIT+20, INIT+21, INIT+22, INIT+23, INIT+24, INIT+25, INIT+26, INIT+29, INIT+30 , INIT+31, INIT+32, INIT+33, INIT+40, INIT+41, INIT+42
N	SP~, SP+1
NAME	INIT+14~
NUM	DATES~, DATES+3, CODE~, CODE+3, SET~, SET+1*, SET+2
OBS	FIND~, FIND+8
PAT	WRD+1~
PRV	INIT+14~, INIT+36*, INIT+37, INIT+40
SORT	INIT+14~, INIT+15, INIT+16, INIT+17, FIND+3~, FIND+24, FIND+25, FIND+27*, FIND+29
SUB	FIND~, FIND+5, FIND+6
TYPE	WRD+1~, WRD+2*, WRD+4
U	BDGICR1+23, BDGICR1+32, BDGICR1+33
>> V	WRD+7*, WRD+8
VALMCNT	EN+2~, INIT+3*, INIT+26, INIT+33, INIT+42, INIT+54, INIT+59, INIT+60, INIT+61, INIT+62 , INIT+63, INIT+65, INIT+66, INIT+69
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+9*
>> VALMHDR(3	HDR+11*
X	BDGICR1+27, BDGICR1+28, HDR+1~, HDR+6, HDR+8, HDR+9, INIT+45, INIT+63, DATES+2~, DATES+4 , DATES+5, WRD+1~, WRD+8, WRD+9, CODE+2~, HELP+1, HDG+7~, HDG+9, HDG+10
Y	CODE+2~, SELECT+1~, SELECT+4*, SELECT+5

Name	Field # of Occurrence
$T(CHOICE+BDGSEL	HDR+8, HDG+9
$T(CHOICE+I	SELECT+3

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGICR1

Call Graph Total: 10