Routine: BCHEGR

Information

BCHEGR ; IHS/CMI/LAB - GROUP ENTRY 08 Nov 2011 3:34 PM ;

Call Graph

Call Graph Total: 20

Package	Total	Call Graph
VA Fileman	7	EN^DDIOL ^DDS ^DIC FILE^DICN ^DIE ^DIK ^DIR
IHS RPMS CHR System	4	(DISP,DISP2,DUP,GATHER,PRTEF)^BCHEGR1 GETPAT^BCHEGR2 DIRX^BCHUADD GETPROV^BCHUAR
Registration	4	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2
IHS VA Utilities	3	$$VAL^XBDIQ1 ^XBFMK EN^XBVK
IHS Patient	1	KILL^AUPNPAT
Kernel	1	DISP^XQORM1

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS RPMS CHR System	2	BCH GROUP ENTRY W/DEFINITION BCHEGR1

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;EP - called from protocol
DATES	;
HDR	; -- header code
EOJ	;
SET51	;
EXPND	; -- expand code
EDITR	;
DONE	;
SIGN1
GETPATSE	;
HELP	;
POV	;create pov records
CTR(X,Y)	;EP - Center
INIT	;
ADDREC	;EP
GETPATSA	;
DEL	;
EN	;
EDITGRP	;EP
GETMEAS	;
EDITDEF	;
START	;
DUP	;EP -
FMD	;
PAUSE	;
FMA	;
ADDREC1	;EP
ADDREC2	;
EDIT	;
DELGRP	;EP - called from protocol
GATHER	;
GETPATS1	;
EXIT	;EP - clean up and exit
GETPATS	;
SENS	;check for sensitive patients
PRTEF	;EP
ADDGRP	;

External References

Name	Field # of Occurrence
KILL^AUPNPAT	DONE+3
DISP^BCHEGR1	DISP+1
DISP2^BCHEGR1	EDITGRP+17
DUP^BCHEGR1	DUP+1
GATHER^BCHEGR1	GATHER+1
PRTEF^BCHEGR1	PRTEF+1
GETPAT^BCHEGR2	FMA+1
DIRX^BCHUADD	EOJ+4
GETPROV^BCHUAR	DATES+7
EN^DDIOL	GETPATS1+1
^DDS	EDITGRP+2, GETMEAS+6, EDIT+2
^DIC	EDITR+8
FILE^DICN	ADDGRP+6, ADDREC2+11, POV+8
^DIE	EDIT+10, SET51+4
^DIK	EDITGRP+9, DELGRP+2, DELGRP+3, DEL+1
^DIR	DATES+12, DATES+14, ADDGRP+3, EDITGRP+10, EDITGRP+19, EDITR+1, GETMEAS+3, PAUSE+1, GETPATS1+4, GETPATSE+5 , GETPATSE+9, FMD+6
EN^VALM	EN+3
TERM^VALM0	EXIT+1
CLEAR^VALM1	EN+4
FULL^VALM1	DATES+20, EDITDEF+1, EDITDEF+10, ADDGRP+1, ADDREC+1
EN^VALM2	EDITDEF+5
$$VAL^XBDIQ1	SENS+4, GETPATSA+5, FMD+5
^XBFMK	DONE+2, ADDGRP+7, ADDGRP+9, EDITGRP+15, ADDREC2+4, ADDREC2+12, POV+4, POV+10, EDITR+7, EDITR+10 , GETMEAS+7, GETMEAS+8
EN^XBVK	DONE+1
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You will be presented with a list of group definitions for the" Line Location: DATES+1
Function Call: WRITE	Prompt: !,"CHR you select for the date range you select. You will then" Line Location: DATES+2
Function Call: WRITE	Prompt: !,"be able to select one of the group definitions which will be " Line Location: DATES+3
Function Call: WRITE	Prompt: !,"duplicated and used as a template for the group data you are " Line Location: DATES+4
Function Call: WRITE	Prompt: !,"about to enter.",! Line Location: DATES+5
Function Call: WRITE	Prompt: !,"Please enter the date range for displaying Group definitions." Line Location: DATES+10
Function Call: WRITE	Prompt: ! Line Location: DATES+11
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: DATES+17
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"This action should be used to edit a group definition only. If visits have" Line Location: EDITDEF+2
Function Call: WRITE	Prompt: !,"already been entered for this group, you will not be able to edit the group" Line Location: EDITDEF+3
Function Call: WRITE	Prompt: !,"definition.",! Line Location: EDITDEF+4
Function Call: WRITE	Prompt: !,"No records selected." Line Location: EDITDEF+6
Function Call: WRITE	Prompt: !,"No record selected." Line Location: EDITDEF+7
Function Call: WRITE	Prompt: !,"Not a valid GROUP." Line Location: EDITDEF+9
Function Call: WRITE	Prompt: !!,"This group already has visits created. You must use the REVIEW/EDIT",!,"GROUP VISITS to modify visits within this group." Line Location: EDITDEF+11
Function Call: WRITE	Prompt: !!,"This Group's Notes have been signed. You cannot edit the Group.",! Line Location: EDITDEF+12
Function Call: WRITE	Prompt: !,"date not entered." Line Location: ADDGRP+4
Function Call: WRITE	Prompt: !!,"entry of new group failed." Line Location: ADDGRP+7
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: EDITGRP+3
Function Call: WRITE	Prompt: !!,"Group must have CHR defined." Line Location: EDITGRP+6
Function Call: WRITE	Prompt: !!,"Group must have at least one POV defined." Line Location: EDITGRP+8
Function Call: WRITE	Prompt: !!,"deleting group definition." Line Location: EDITGRP+9
Function Call: WRITE	Prompt: !!,"You have added the following group definition, please review it carefully",!,"before you proceed to add/update the patients in the group.",! Line Location: EDITGRP+16
Function Call: WRITE	Prompt: !!! Line Location: SENS+2
Function Call: WRITE	Prompt: !,"You will be prompted to confirm the list of patients who were in the" Line Location: SENS+3
Function Call: WRITE	Prompt: !,$$VAL^XBDIQ1(90002.67,BCHNG,.03)," group on ",$$VAL^XBDIQ1(90002.67,BCHNG,.01),".",! Line Location: SENS+4
Function Call: WRITE	Prompt: !!,"Adding records for each individual patient in this group.",! Line Location: ADDREC+3
Function Call: WRITE	Prompt: !!,"Creating new record for ",$S(DFN:$P(^DPT(DFN,0),U),1:$P(^BCHRPAT(BCHNRPAT,0),U,1)),"." Line Location: ADDREC2+5
Function Call: WRITE	Prompt: !!,"Creating CHR record." Line Location: ADDREC2+6
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"ERROR generating CHR record!! Deleting Record.",! Line Location: ADDREC2+12
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: !,"Record deleted." Line Location: DEL+2
Function Call: WRITE	Prompt: !!,"The following patients are currently assigned to this group:" Line Location: GETPATSA+2
Function Call: WRITE	Prompt: !,"You entered ",C," Patient Names. Is this the total number of patients" Line Location: GETPATSE+4
Function Call: WRITE	Prompt: !!,"The following patients are currently assigned to this group:" Line Location: FMD+2
Routine Call	VALM Line Location: EN+3
Routine Call	DIE Line Location: EDIT+10 SET51+4
Routine Call	DDS Line Location: EDITGRP+2 GETMEAS+6 EDIT+2
Routine Call	DIC Line Location: EDITR+8
Routine Call	DIR Line Location: DATES+12 DATES+14 ADDGRP+3 EDITGRP+10 EDITGRP+19 EDITR+1 GETMEAS+3 PAUSE+1 GETPATS1+4 GETPATSE+5 GETPATSE+9 FMD+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BCHR - [#90002]	Classic Fileman Calls
^BCHRPROB - [#90002.01]	Classic Fileman Calls
^BCHGRPD - [#90002.67]	Classic Fileman Calls
^BCHGRPDA - [#90002.68]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BCHGRPD - [#90002.67]	EDITDEF+9, EDITDEF+11, EDITDEF+12, EDITDEF+13, EDITGRP+6, ADDREC+4, ADDREC+5, ADDREC1+3, ADDREC2+1, ADDREC2+7 , GETPATS+2, SET51+1!, SET51+2, SET51+3
^BCHGRPDA - [#90002.68]	POV+3
^BCHGRPDA("AD"	EDITGRP+8, DELGRP+2, POV+2
^BCHR - [#90002]	GETMEAS+1, EDIT+5
^BCHRPAT - [#90002.11]	ADDREC2+5
^BCHRPROB("AD"	EDIT+8
^DD(90002.67	EDITR+8
^DPT - [#2]	ADDREC2+5
^TMP($J	EN+1!, EDITDEF+8

Label References

Name	Line Occurrences
@(	GETPATS1+8
ADDREC	SENS+8
ADDREC1	ADDREC+5
DATES	DATES+16
DELGRP	EDITGRP+21, GETPATSE+7
DONE	START+2, DATES+8, DATES+21
EDIT	EDITR+2
EDITGRP	EDITDEF+14, EDITGRP+9, EDITGRP+22
EN	DATES+20
EXIT	EDITDEF+6, EDITDEF+7, EDITDEF+9, EDITDEF+11, EDITDEF+12, ADDGRP+4, ADDGRP+7, EDITGRP+3, EDITGRP+9, EDITGRP+20 , EDITGRP+21, SENS+9, SIGN1, GETPATSE+7
GATHER	EN+2, INIT+1, EXIT+3
GETMEAS	POV+11
GETPATS	SENS+6
GETPATS1	GETPATSA+1
GETPATSA	GETPATS1+9, GETPATSE+12
GETPATSE	GETPATS1+5, GETPATS1+6, GETPATSE+7
HDR	EXIT+5
PAUSE	EDITDEF+9, EDITDEF+11, EDITDEF+12, ADDGRP+4, EDITGRP+3, EDITGRP+9, EDITGRP+20, EDITGRP+21, SIGN1, DEL+3
SET51	GETPATSE+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCDOVRR	EDITGRP+1, ADDREC2+2
BCHC	EOJ+2!, GETPATSA+3, GETPATSA+4, GETPATSA+5, FMD+3, FMD+4, FMD+5, FMD+6
BCHD	EOJ+2!
>> BCHDATE	EDITDEF+13, ADDGRP+5, ADDGRP+6
BCHDELQ	ADDREC+5!
BCHDONE	EOJ+2!, GETPATS1+6*
BCHDR	EOJ+1!
>> BCHE	EDITGRP+9, EDITGRP+12
BCHERROR	EOJ+1!
BCHEV	EOJ+2!
BCHEV("TYPE"	ADDREC2+3*
BCHF	EOJ+1!
BCHG	EDITDEF+9!, EOJ+2!
BCHG0	ADDREC2+1, ADDREC2+8, ADDREC2+10, POV+3, POV+5, POV+6, POV+7, EOJ+2!
BCHGRPX	EOJ+1!
BCHHIT	ADDREC+5, ADDREC1+1, ADDREC2+10, EDITR+5*, EOJ+6!
BCHLINE	INIT+2, EXIT+4, EOJ+2!
BCHMUM	EOJ+2!
BCHN	EOJ+2!
BCHNAME	EOJ+1!
BCHNG	EDITDEF+8, EDITDEF+9!, EDITDEF+11, EDITDEF+12, EDITDEF+13, ADDGRP+8, EDITGRP+2, EDITGRP+6, EDITGRP+8, EDITGRP+9 , SENS+4, DELGRP+2, DELGRP+3, ADDREC+4, ADDREC+5, ADDREC1+3, ADDREC2+1, ADDREC2+7, POV+2, EDITR+8 , EOJ+2!, GETPATS+2, SET51+1, SET51+2, SET51+3, SET51+4
BCHNGX	ADDREC+5*, ADDREC1+3, EOJ+2!
BCHNRPAT	ADDREC1+2, ADDREC1+5, ADDREC2+5, ADDREC2+8, EOJ+2!
>> BCHNUM	ADDREC+4*, POV+5
>> BCHOVRR	ADDREC2+2, POV+1
>> BCHP	GETPATSA+3, GETPATSA+5, FMD+3, FMD+5
BCHPAT	SENS+1!, EDIT+5*, EDIT+6, EDIT+9
BCHPATS	EOJ+2!, GETPATS+1!, GETPATSA+1
BCHPATS(	GETPATS+2, GETPATSA+3, GETPATSE+2, FMD+3, FMD+9!, FMA+2, SET51+2
BCHPNP	EOJ+1!
BCHPOVM	POV+5*, POV+7, EOJ+2!
BCHPROB	EOJ+2!
>> BCHPROV	DATES+6*, DATES+8, ADDGRP+6
>> BCHPT	FMA+2
BCHPTSV	EOJ+1!
>> BCHPTT	FMA+2
BCHQ	SENS+5, SENS+7, EOJ+2!, GETPATSE+7, GETPATSE+10, GETPATSE+11
BCHQUIT	EDITGRP+3, GETMEAS+7, EDIT+4*, EOJ+1!
BCHR	ADDREC2+13*, POV+7, EDITR+8, GETMEAS+1, GETMEAS+6, EDIT+2, EDIT+5, EDIT+8, EOJ+1!, EOJ+2! , DEL+1
BCHR0	EOJ+1!
BCHRBD	DATES+9!, DATES+12*, DATES+16
BCHRDEL	EOJ+1!
BCHRED	DATES+9!, DATES+14*, DATES+16
>> BCHUABFO	GETMEAS+3
BCHV	EOJ+1!
BCHVDLT	EOJ+1!
BCHX	DELGRP+1~, DELGRP+2, POV+2, POV+3, EDIT+8*, EDIT+9, EOJ+1!, EOJ+2!, EOJ+6!
BCHY	EOJ+2!, GETPATSE+6*
BCMP	EOJ+2!
C	EDITGRP+7~, GETPATSE+1, GETPATSE+3, GETPATSE+4, FMD+9, SET51+2, SET51+3, SET51+4
D	EOJ+7!
D0	ADDREC2+7!, ADDREC2+11!, POV+6!, EOJ+5!, EOJ+7!
DA	ADDGRP+3!, EDITGRP+2, EDITGRP+9, EDITGRP+10!, EDITGRP+19!, DELGRP+2, DELGRP+3, ADDREC2+7!, POV+6!, GETMEAS+6* , EDIT+2, EDIT+3!, EDIT+9, EDIT+11!, EOJ+5!, EOJ+7!, DEL+1!, GETPATS1+4!, GETPATSE+5!, GETPATSE+9! , FMD+6!, SET51+4!
DA(1	EDITR+8*
DD	ADDGRP+6!, ADDREC2+7!, POV+6!
DDSFILE	EDITGRP+2, GETMEAS+6, EDIT+2*, EDIT+3!
DFN	ADDREC1+2, ADDREC1+4, ADDREC2+5, ADDREC2+8, POV+7, GETMEAS+1, EOJ+1!, EOJ+3!
DI	EOJ+5!
DIADD	ADDGRP+6, ADDGRP+7!, ADDGRP+9!, ADDREC2+7, ADDREC2+11!, POV+6*, POV+8!, EDITR+7!, EDITR+10!
DIC	ADDGRP+6, ADDREC2+7!, ADDREC2+11!, POV+6!, POV+8!, EDITR+8, EDIT+3!, EOJ+5!, EOJ+7!
DIC("DR"	ADDGRP+6, ADDREC2+8, ADDREC2+9, ADDREC2+10, POV+7*
DIC("P"	EDITR+8*
DIC(0	ADDGRP+6, ADDREC2+7, POV+6, EDITR+8
DIE	ADDREC2+11!, POV+8!, EDIT+3!, EDIT+9, EDIT+11!, SET51+4!
DIK	EDITGRP+9, DELGRP+2, DELGRP+3, DEL+1!
DIMSG	EDITGRP+3!, GETMEAS+7!, EDIT+4!
DIR	DATES+11!, DATES+13!, ADDGRP+3!, EDITGRP+10!, EDITGRP+19!, ADDREC+2!, EDITR+1!, GETMEAS+3!, EOJ+7!, PAUSE+1! , GETPATS1+2!, GETPATS1+4!, GETPATSE+5!, GETPATSE+9!, FMD+6!
DIR("A"	DATES+11, DATES+13, ADDGRP+3, EDITGRP+10, EDITGRP+18, EDITR+1, GETMEAS+3, PAUSE+1, GETPATS1+4, GETPATSE+5 , GETPATSE+9, FMD+6
DIR("B"	EDITGRP+10, EDITGRP+19, EDITR+1, GETMEAS+3, GETPATS1+4, GETPATSE+5, GETPATSE+9*
DIR(0	DATES+11, DATES+13, ADDGRP+3, EDITGRP+10, EDITGRP+18, EDITR+1, GETMEAS+3, PAUSE+1, GETPATS1+3, GETPATSE+5 , GETPATSE+9, FMD+6
>> DIRUT	ADDGRP+4, EDITGRP+11, EDITGRP+20, EDITR+1, GETMEAS+3, GETMEAS+4, PAUSE+1*, GETPATS1+5, GETPATSE+7, GETPATSE+10 , FMD+7
DITC	EDIT+9*, EDIT+11!
DIU	EDIT+11!, EOJ+5!
DIV	EDIT+11!
DIW	EDIT+11!
DIY	EDIT+11!
DIZ	EOJ+7!
DLAYGO	ADDGRP+6, ADDGRP+7!, ADDGRP+9!, ADDREC2+7, ADDREC2+11!, POV+6*, POV+8!, EDITR+7!, EDITR+10!
DO	ADDGRP+6!, ADDREC2+7!, POV+6!, POV+8!, EOJ+5!, EOJ+7!
DR	EDITGRP+2, ADDREC2+7!, ADDREC2+11!, POV+6!, POV+8!, GETMEAS+6, EDIT+2, EDIT+3!, EDIT+9, EDIT+11! , EOJ+5!, EOJ+7!, SET51+4*!
DT	ADDGRP+3, ADDGRP+6, ADDREC2+9
>> DUOUT	EDITR+1, GETMEAS+3, PAUSE+1
DUZ	ADDGRP+6, ADDREC2+9
>> E	EDITGRP+5, EDITGRP+6, EDITGRP+8*, EDITGRP+9
G	EDITGRP+7~
IOF	START+1
IOM	CTR+1
R	EDITDEF+7*!, EDITDEF+8, EDITDEF+9!
R1	EDITDEF+9!
U	EDITDEF+12, EDITDEF+13, EDITGRP+6, ADDREC+4, ADDREC1+3, ADDREC2+5, ADDREC2+7, ADDREC2+8, ADDREC2+10, POV+5 , POV+6, POV+7, EDITR+8, EDIT+5, GETPATS+2
>> VALMBCK	EXIT+2*
>> VALMCNT	INIT+2, EXIT+4
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+3*
VALMY	EDITDEF+6, EDITDEF+7!
VALMY(0	EDITDEF+7
X	CTR~, CTR+1, HDR+2, HDR+3, HELP+1, ADDGRP+6, EDITGRP+7~, ADDREC1+3, ADDREC1+4, ADDREC1+5 , ADDREC2+7, ADDREC2+11!, POV+6, POV+8!, EDITR+8, EOJ+5!, EOJ+7!, GETPATS+2, GETPATSE+1, GETPATSE+2 , FMD+9, SET51+2
X1	ADDREC+6!
XQORNOD	EDITDEF+7!
XQORNOD(0	EDITDEF+5
Y	DATES+12, DATES+14, CTR~, CTR+1, ADDGRP+5, ADDGRP+7, ADDGRP+8, EDITGRP+12, EDITGRP+21, EDITGRP+22 , ADDREC2+12, ADDREC2+13, POV+9, EDITR+2, EDITR+9, GETMEAS+5, EDIT+12, EOJ+5!, EOJ+7!, GETPATS1+6 , GETPATS1+7, GETPATS1+8, GETPATSE+1, GETPATSE+6, GETPATSE+11, GETPATSE+12, FMD+8, FMD+9

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHEGR

Information

Source Information

Call Graph

Call Graph Total: 20

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: