Routine: BCHEGP1

Package	Total	Call Graph
VA Fileman	6	^DDS ^DIC (FILE,YN)^DICN ^DIE ^DIK ^DIR
IHS RPMS CHR System	1	PROTOCOL^BCHUADD1
IHS VA Utilities	1	^XBFMK

Package	Total	Caller Graph
IHS RPMS CHR System	1	BCHEGP

Entry Points

Name	Comments	DBIA/ICR reference
DEL	;
PAUSE	;
PROCESS	;
EDIT	;
START1	;
GETPAT	;
GETMEAS	;
EDITR	;
START	;EP - called from BCHLEGP
GENREC	;create CHR record
POV	;create pov records
NOREG	;
ERROR	;
EXIT	;clean up and exit
SOAP	;

External References

Name	Field # of Occurrence
PROTOCOL^BCHUADD1	EDITR+4
^DDS	GETMEAS+6, EDIT+2
^DIC	GETPAT+26, NOREG+8, EDITR+8
FILE^DICN	GENREC+12, POV+8
YN^DICN	GETPAT+28
^DIE	NOREG+19, NOREG+26, GENREC+15, EDIT+10, EDIT+17
^DIK	DEL+1
^DIR	GETPAT+23, NOREG+4, NOREG+23, EDITR+1, GETMEAS+3, ERROR+4, PAUSE+1
^XBFMK	GENREC+2, GENREC+13, POV+4, POV+10, EDITR+7, EDITR+10, GETMEAS+7, GETMEAS+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GETPAT+1
Function Call: WRITE	Prompt: !!?15,"**** P A T I E N T I N F O R M A T I O N ****",!! Line Location: GETPAT+3
Function Call: WRITE	Prompt: !,"If this encounter involved a particular patient, please enter the patient's",!,"chart # or name now. If this is not a single patient encounter,",!,"but a group encounter, simply HIT the RETURN key to continue.",! Line Location: GETPAT+4
Function Call: WRITE	Prompt: !,"Please enter the patient information now.",! Line Location: GETPAT+5
Function Call: WRITE	Prompt: !,"So far you have entered ",BCHHIT," patient records out of a total of ",BCHNUM,".",! Line Location: GETPAT+20
Function Call: WRITE	Prompt: "You have entered records for: " Line Location: GETPAT+21
Function Call: WRITE	Prompt: !! Line Location: GETPAT+21
Function Call: WRITE	Prompt: !?5,$P($G(^BCHR(X,11)),U) Line Location: GETPAT+22
Function Call: WRITE	Prompt: !!,"No patient entered!! - Required",! Line Location: GETPAT+24
Function Call: WRITE	Prompt: !,"No patient entered!! - Required." Line Location: GETPAT+25
Function Call: WRITE	Prompt: !!,"Try again.",! Line Location: GETPAT+28
Function Call: WRITE	Prompt: !,"That patient cannot be found in the Registration database." Line Location: NOREG+3
Function Call: WRITE	Prompt: ! Line Location: NOREG+4
Function Call: WRITE	Prompt: !,"Exiting..." Line Location: NOREG+5
Function Call: WRITE	Prompt: !!,"Please select a patient from the Non-Registered Patient Database",!,"or enter a new Non-Registered Patient.",! Line Location: NOREG+7
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: NOREG+13
Function Call: WRITE	Prompt: !!,"A patient is Required" Line Location: NOREG+15
Function Call: WRITE	Prompt: !!,"Creating new record for ",$S(DFN:$P(^DPT(DFN,0),U),1:$P(^BCHRPAT(BCHNRPAT,0),U,1)),"." Line Location: GENREC+5
Function Call: WRITE	Prompt: !!,"Creating CHR record." Line Location: GENREC+6
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"ERROR generating CHR record!! Deleting Record.",! Line Location: GENREC+13
Function Call: WRITE	Prompt: !!,"Creating pov record failed.!! Notify PROGRAMMER!",!! Line Location: POV+9
Function Call: WRITE	Prompt: !!,"adding visit to group file entry failed. Notify supervisor." Line Location: EDITR+9
Function Call: WRITE	Prompt: ! Line Location: GETMEAS+2
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: GETMEAS+7
Function Call: WRITE	Prompt: ! Line Location: EDIT+1
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: EDIT+4
Function Call: WRITE	Prompt: !,"error updating pov's with patient, NOTIFY PROGRAMMER" Line Location: EDIT+12
Function Call: WRITE	Prompt: !,"error updating educ's with patient, NOTIFY PROGRAMMER" Line Location: EDIT+19
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"You have NOT completed entry of all of the ",BCHNUM," patients!!" Line Location: ERROR+1
Function Call: WRITE	Prompt: !,"This means that you MUST enter each of the remaining visits individually,",!,"using ",($P(^BCHGROUP(BCHFID,0),U,11)\BCHNUM)," minutes activity time for each patient.",!!! Line Location: ERROR+2
Function Call: WRITE	Prompt: !,"Record deleted." Line Location: DEL+2
Routine Call	DIE Line Location: NOREG+19 NOREG+26 GENREC+15 EDIT+10 EDIT+17
Routine Call	DDS Line Location: GETMEAS+6 EDIT+2
Routine Call	DIC Line Location: GETPAT+26 NOREG+8 EDITR+8
Routine Call	DIR Line Location: GETPAT+23 NOREG+4 NOREG+23 EDITR+1 GETMEAS+3 ERROR+4 PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^BCHR - [#90002]	Classic Fileman Calls
^BCHRPROB - [#90002.01]	Classic Fileman Calls
^BCHRPED - [#90002.02]	Classic Fileman Calls
^BCHRPAT - [#90002.11]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BCHGROUP - [#90002.97]	GETPAT+22, GENREC+7, GENREC+8, ERROR+2
^BCHR - [#90002]	GETPAT+22, GETMEAS+1, EDIT+5
^BCHRGAS - [#90002.98]	POV+3
^BCHRGAS("AD"	POV+2
^BCHRPAT - [#90002.11]	GENREC+5
^BCHRPED("AD"	EDIT+15
^BCHRPROB("AD"	EDIT+8
^DD(90002.97	EDITR+8
^DPT - [#2]	GENREC+5

Label References

Name	Line Occurrences
EDIT	EDITR+2
ERROR	START1+2
EXIT	START1+3
GENREC	GETPAT+30, NOREG+27
GETMEAS	SOAP+2
GETPAT	PROCESS+2, GETPAT+24, GETPAT+28, NOREG+6, NOREG+15
NOREG	GETPAT+27
PAUSE	DEL+3
PROCESS	START1+1
START1	START1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	GETPAT+28*
>> APCDOVRR	GENREC+3*
BCHAGAIN	NOREG+2!
>> BCHEV("TYPE"	GENREC+1*
>> BCHFID	GETPAT+22, GENREC+7, GENREC+8, POV+2, EDITR+8, ERROR+2
>> BCHG0	GENREC+8, GENREC+9, GENREC+11, POV+3, POV+5, POV+6, POV+7
BCHHIT	START+1, START1+1, START1+2, GETPAT+20, GETPAT+21, GENREC+11, EDITR+5, EXIT+2!
>> BCHLEGPI	START1+1*
>> BCHNAME	GETPAT+26*
>> BCHNRPAT	PROCESS+1, NOREG+16, NOREG+19, NOREG+26, GENREC+5, GENREC+15
>> BCHNUM	START1+1, START1+2, GETPAT+20, POV+5, ERROR+1, ERROR+2
>> BCHOVRR	GENREC+4, POV+1
>> BCHPAT	EDIT+5*, EDIT+6, EDIT+9, EDIT+16
>> BCHPOVM	POV+5*, POV+7
>> BCHQUIT	START+1, START1+1, GETPAT+25, NOREG+5, GETMEAS+7, EDIT+4*
>> BCHR	GENREC+14*, GENREC+15, POV+7, EDITR+8, GETMEAS+1, GETMEAS+6, EDIT+2, EDIT+5, EDIT+8, EDIT+15 , DEL+1
>> BCHSTOP	START1+2, ERROR+5, ERROR+6, ERROR+7*
>> BCHUABFO	GETMEAS+3
BCHX	POV+2, POV+3, EDIT+8, EDIT+9, EDIT+15*, EDIT+16, EXIT+2!
D	EXIT+3!
D0	GENREC+7!, GENREC+12!, POV+6!, EXIT+1!, EXIT+3!
DA	NOREG+19!, NOREG+23!, NOREG+26!, GENREC+7!, GENREC+15!, POV+6!, GETMEAS+6, EDIT+2, EDIT+3!, EDIT+9 , EDIT+11!, EDIT+16, EDIT+18!, EXIT+1!, EXIT+3!, DEL+1!
DA(1	EDITR+8*
DD	GENREC+7!, POV+6!
DDSFILE	GETMEAS+6, EDIT+2, EDIT+3!
>> DFN	PROCESS+1, GETPAT+6, GETPAT+29, NOREG+1, GENREC+5, GENREC+9, POV+7, GETMEAS+1
DI	EXIT+1!
DIADD	GENREC+7, GENREC+12!, POV+6, POV+8!, EDITR+7!, EDITR+10!
DIC	GETPAT+26!, NOREG+8!, GENREC+7!, GENREC+12!, POV+6!, POV+8!, EDITR+8*, EDIT+3!, EXIT+1!, EXIT+3!
DIC("DR"	GENREC+9, GENREC+10, GENREC+11, POV+7
DIC("P"	EDITR+8*
DIC(0	GETPAT+26, NOREG+8, GENREC+7, POV+6, EDITR+8*
DIE	NOREG+19!, NOREG+26!, GENREC+12!, GENREC+15!, POV+8!, EDIT+3!, EDIT+9, EDIT+11!, EDIT+16*, EDIT+18!
DIK	DEL+1*!
DIMSG	GETMEAS+7!, EDIT+4!
DIR	GETPAT+23!, NOREG+4!, NOREG+23!, EDITR+1!, GETMEAS+3!, EXIT+3!, ERROR+4!, PAUSE+1!
DIR("?"	GETPAT+8, GETPAT+9, GETPAT+10, GETPAT+11, GETPAT+12, GETPAT+13, GETPAT+14, GETPAT+15, GETPAT+16, GETPAT+17 , GETPAT+18, GETPAT+19
DIR("A"	GETPAT+7, NOREG+4, NOREG+23, EDITR+1, GETMEAS+3, ERROR+4, PAUSE+1*
DIR("B"	NOREG+4, NOREG+23, EDITR+1, GETMEAS+3, ERROR+4*
DIR(0	GETPAT+7, NOREG+4, NOREG+23, EDITR+1, GETMEAS+3, ERROR+4, PAUSE+1*
>> DIRUT	GETPAT+23, GETPAT+25, NOREG+4, NOREG+5, NOREG+25, EDITR+1, GETMEAS+3, GETMEAS+4, ERROR+4, ERROR+5 , PAUSE+1
DITC	EDIT+9, EDIT+11!, EDIT+16, EDIT+18!
DIU	EDIT+11!, EDIT+18!, EXIT+1!
DIV	EDIT+11!, EDIT+18!
DIW	EDIT+11!, EDIT+18!
DIY	EDIT+11!, EDIT+18!
DIZ	EXIT+3!
DLAYGO	GENREC+7, GENREC+12!, POV+6, POV+8!, EDITR+7!, EDITR+10!
DO	GENREC+7!, POV+6!, POV+8!, EXIT+1!, EXIT+3!
DR	NOREG+19!, NOREG+26!, GENREC+7!, GENREC+12!, GENREC+15!, POV+6!, POV+8!, GETMEAS+6, EDIT+2, EDIT+3! , EDIT+9, EDIT+11!, EDIT+16*, EDIT+18!, EXIT+1!, EXIT+3!
DT	GENREC+10
>> DUOUT	GETPAT+23, NOREG+4, EDITR+1, GETMEAS+3, ERROR+4, PAUSE+1
DUZ	GENREC+10
U	GETPAT+22, NOREG+17, GENREC+5, GENREC+7, GENREC+9, GENREC+11, POV+5, POV+6, POV+7, EDITR+8 , EDIT+5, ERROR+2
X	GETPAT+22, GETPAT+26, GENREC+7, GENREC+12!, POV+6, POV+8!, EDITR+8*, EXIT+1!, EXIT+3!
Y	GETPAT+24, GETPAT+26, GETPAT+27, GETPAT+29, NOREG+6, NOREG+15, NOREG+16, NOREG+17, NOREG+24, GENREC+13 , GENREC+14, POV+9, EDITR+2, EDITR+9, GETMEAS+5, EDIT+12, EDIT+19, EXIT+1!, EXIT+3!, ERROR+6

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHEGP1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: