Routine: BCHEGP

Package	Total	Call Graph
VA Fileman	7	^DDS ^DIC FILE^DICN ^DIE ^DIK EN^DIQ ^DIR
IHS VA Utilities	4	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK EN^XBVK
IHS RPMS CHR System	3	^BCHEGP1 PRINT1^BCHUFPP ^BCHUIN
IHS Patient	1	KILL^AUPNPAT
Registration	1	TERM^VALM0

Package	Total	Caller Graph
IHS RPMS CHR System	2	BCH GROUP DATA ENTRY BCH GROUP PRINT FORMS

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	;
REPRINT	;EP - called from option
EDIT	;
EOJ	;
DELGRP	;
FORMID	;
START	;
INIT	; Write Header
EOP	;EP - End of page.
TEXT	;
PRINT	;
RXIT	;
GETDATA	; GET LOCATION OF ENCOUNTER

External References

Name	Field # of Occurrence
KILL^AUPNPAT	INIT+10, RXIT+3
^BCHEGP1	START+5
PRINT1^BCHUFPP	PRINT1+1
^BCHUIN	INIT+8
^DDS	EDIT+1
^DIC	REPRINT+7
FILE^DICN	GETDATA+3, FORMID+2
^DIE	GETDATA+8, FORMID+6
^DIK	DELGRP+2, DELGRP+3
EN^DIQ	EDIT+14, EDIT+15
^DIR	PRINT+1, GETDATA+10, EDIT+7, EDIT+16, EOP+5, DELGRP+3
TERM^VALM0	INIT+2
^XBDBQUE	PRINT+5
$$VAL^XBDIQ1	REPRINT+14
^XBFMK	INIT+1, EOJ+4, GETDATA+7, FORMID+3, FORMID+5, REPRINT+6, RXIT+2
EN^XBVK	EOJ+1, RXIT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Exiting group form entry" Line Location: START+4
Function Call: WRITE	Prompt: !! Line Location: PRINT+1
Function Call: WRITE	Prompt: !!!! Line Location: PRINT+7
Function Call: WRITE	Prompt: !?80-$L(BCHEGX)\2,BCHEGX Line Location: INIT+4
Function Call: WRITE	Prompt: !! Line Location: INIT+6
Function Call: WRITE	Prompt: ! Line Location: GETDATA+1
Function Call: WRITE	Prompt: !!,"error creating group entry." Line Location: GETDATA+5
Function Call: WRITE	Prompt: !!,"The form ID for this group form is ",$P(^BCHGROUP(BCHFID,0),U),".",!,"Please make a note of this. It will be needed if and when you need to ",!,"re-print forms.",!! Line Location: GETDATA+9
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: EDIT+2
Function Call: WRITE	Prompt: !!,"At least one POV is required!" Line Location: EDIT+3
Function Call: WRITE	Prompt: !!,"Not all required data elements have been entered." Line Location: EDIT+6
Function Call: WRITE	Prompt: !,"Deleting group definition..." Line Location: EDIT+6
Function Call: WRITE	Prompt: !!,"I am going to ask you to enter ",BCHNUM," patient names. I will then create a",!,"record in the CHR file for each patient. The record will contain the",!,"following information: ",! Line Location: EDIT+13
Function Call: WRITE	Prompt: !!,"Failure to create FORM ID. Notify programmer.",! Line Location: FORMID+3
Function Call: WRITE	Prompt: !,"The form ID for this group form is ",$P(^BCHGRP(BCHFID,0),U),".",!,"Please make a note of this. It will be needed if and when you need to ",!,"re-print forms.",! Line Location: FORMID+7
Function Call: WRITE	Prompt: !!,"This option should be used to print or re-print group encounter forms.",!!,"You must know the group ID form number or the date of the group visit." Line Location: REPRINT+3
Function Call: WRITE	Prompt: !!,"Only group forms entered after PCC Data Entry Patch 5 was installed",!,"are available for re-printing.",!! Line Location: REPRINT+4
Function Call: WRITE	Prompt: !!,"Please enter the group ID form or the date of the visit.",! Line Location: REPRINT+5
Function Call: WRITE	Prompt: !!,"No form selected" Line Location: REPRINT+8
Function Call: WRITE	Prompt: !!,"There are no visits to print.",! Line Location: REPRINT+11
Function Call: WRITE	Prompt: !,"The following visit forms will be printed: " Line Location: REPRINT+12
Routine Call	DIE Line Location: GETDATA+8 FORMID+6
Routine Call	DDS Line Location: EDIT+1
Routine Call	DIC Line Location: REPRINT+7
Routine Call	DIR Line Location: PRINT+1 GETDATA+10 EDIT+7 EDIT+16 EOP+5 DELGRP+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BCHGROUP - [#90002.97]	Classic Fileman Calls
^BCHRGAS - [#90002.98]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BCHGROUP - [#90002.97]	PRINT1+1, GETDATA+9, EDIT+4, EDIT+11, REPRINT+10
^BCHGRP(	FORMID+7
^BCHRGAS - [#90002.98]	EDIT+5
^BCHRGAS("AD"	EDIT+3, EDIT+5, EDIT+15, DELGRP+2
^TMP("BCHEGP"	INIT+9!

Label References

Name	Line Occurrences
DELGRP	EDIT+6
EDIT	EDIT+6
EOJ	START+4
GETDATA	START+3
INIT	START+1
PRINT	REPRINT+15
RXIT	REPRINT+1, REPRINT+8, REPRINT+11, REPRINT+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+3!
%DT	EOJ+3!
%W	EOJ+3!
%Y	EOJ+3!
AUPNDAYS	EOJ+2!
AUPNDOB	EOJ+2!
AUPNDOD	EOJ+2!
AUPNPAT	EOJ+2!
AUPNSEX	EOJ+2!
>> BCHDATE	FORMID+2
BCHEGJ	INIT+4*, INIT+5!
>> BCHEGP("FORMS"	REPRINT+10*, REPRINT+11, REPRINT+13
BCHEGX	INIT+4*, INIT+5!
>> BCHFID	PRINT1+1, GETDATA+6, GETDATA+8, GETDATA+9, EDIT+1, EDIT+3, EDIT+4, EDIT+5, EDIT+11, EDIT+14 , EDIT+15, FORMID+4, FORMID+6, FORMID+7, REPRINT+9*, REPRINT+10, DELGRP+2, DELGRP+3
>> BCHNUM	EDIT+11*, EDIT+13
BCHQUIT	START+2!, START+4, PRINT1+1, INIT+7, GETDATA+5, EDIT+2, EDIT+10, EDIT+17, EDIT+18, FORMID+3 , DELGRP+3*
>> BCHR	PRINT1+1*
BCHX	EDIT+15, DELGRP+1~, DELGRP+2
>> C	EDIT+3, EDIT+4, EDIT+5*, EDIT+6
D0	FORMID+2!
DA	EOJ+3!, GETDATA+8!, EDIT+1, EDIT+7!, EDIT+14, EDIT+15, EDIT+16!, FORMID+6!, DELGRP+2, DELGRP+3*!
DD	GETDATA+3!, FORMID+2!, FORMID+3!
>> DDSFILE	EDIT+1*
DFOUT	EOP+4!
DI	EOJ+3!
DIADD	INIT+1!, EOJ+4!, GETDATA+3, GETDATA+4!, FORMID+2, FORMID+3!, FORMID+5!
DIC	EOJ+3!, GETDATA+3, GETDATA+4!, EDIT+14!, EDIT+15!, EDIT+16!, FORMID+2!, REPRINT+7*
DIC("DR"	FORMID+2*
DIC(0	GETDATA+3, FORMID+2, REPRINT+7*
DIE	EOJ+3!, GETDATA+8!, FORMID+6!
DIG	EOJ+3!
DIH	EOJ+3!
DIK	DELGRP+2, DELGRP+3!
DIMSG	EDIT+2!
DIPGM	EOJ+3!
DIR	PRINT+1!, EOJ+3!, GETDATA+10!, EDIT+7!, EDIT+16!, EOP+3~, DELGRP+3!
DIR("A"	PRINT+1, GETDATA+10, EDIT+7, EDIT+16, EOP+5*
DIR("B"	PRINT+1, EDIT+7, EDIT+16*
DIR(0	PRINT+1, GETDATA+10, EDIT+7, EDIT+16, EOP+5, DELGRP+3
DIRUT	PRINT+1, PRINT+2, EOJ+3!, EDIT+8, EDIT+16!, EDIT+17, EOP+4!
DIU	EOJ+3!
DIV	EOJ+3!
DIW	EOJ+3!
DLAYGO	INIT+1!, EOJ+4!, GETDATA+3, GETDATA+4!, FORMID+2, FORMID+3!, FORMID+5!
DLOUT	EOP+4!
DO	GETDATA+3!, FORMID+2!
DQ	EOJ+3!
DR	EOJ+3!, GETDATA+8!, EDIT+1, EDIT+14, EDIT+15, FORMID+3!, FORMID+6*!
DT	FORMID+2
DTOUT	EOJ+3!, EDIT+16!, EOP+4!
DUOUT	PRINT+1, EOJ+3!, EDIT+16!, EOP+4!
DUZ	FORMID+2
IO("S"	EOP+2
IOF	INIT+3, REPRINT+2
IOST	EOP+1
>> IOT	EOP+2
U	GETDATA+9, EDIT+4, EDIT+5, EDIT+11, FORMID+7
X	EOJ+3!, GETDATA+3, EDIT+4, EDIT+5, EDIT+16!, FORMID+2, REPRINT+10, REPRINT+13, REPRINT+14
X1	EOJ+3!
X2	EOJ+3!
>> XBNS	PRINT+4*
>> XBRC	PRINT+4*
>> XBRP	PRINT+4*
>> XBRX	PRINT+4*
Y	PRINT+3, EOJ+3!, GETDATA+5, GETDATA+6, EDIT+5, EDIT+6, EDIT+8, EDIT+16!, EDIT+18, FORMID+2 , FORMID+4, REPRINT+8, REPRINT+9
>> Z	GETDATA+8, FORMID+6
>> ZTQUEUED	EOP+2
ZTSAVE	EOJ+3!

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHEGP

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items