Routine: BCHUADD1

Package	Total	Call Graph
VA Fileman	4	^DIC YN^DICN ^DIE ^DIR
IHS RPMS CHR System	2	(DIRX,EXITMSG,GETRECD)^BCHUADD 2^BCHUEDT
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	EN^XQOR

Package	Total	Caller Graph
IHS RPMS CHR System	7	BCH UPDATE NON REG PAT BCH10P6 BCHEGP1 BCHHL7F BCHPCCBL BCHUADD BCHUEDT
IHS Support HL7 Interfaces	1	BHLBCH1

Entry Points

Name	Comments	DBIA/ICR reference
E	;do you wish to edit? if not, delete, if yes, go back to edit
EDIT	;
UPNONREG	;EP
GETPAT	;EP
RECCHECK	;EP
NOREG	;
SETARRAY	;set up array for pcc protocol call
ASK	;
PROTOCOL	;PEP - announce chr record has been added

External References

Name	Field # of Occurrence
DIRX^BCHUADD	GETPAT+26
EXITMSG^BCHUADD	EDIT+1
GETRECD^BCHUADD	E+6
2^BCHUEDT	EDIT+2
^DIC	GETPAT+22, NOREG+6, UPNONREG+2
YN^DICN	GETPAT+25
^DIE	GETPAT+27, NOREG+17, NOREG+24, NOREG+26, UPNONREG+12
^DIR	GETPAT+19, NOREG+2, NOREG+21, ASK+1, E+2
$$VAL^XBDIQ1	RECCHECK+12, RECCHECK+13, RECCHECK+14
EN^XQOR	PROTOCOL+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) 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+1
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 or an Non-Patient encounter, simply HIT the" Line Location: GETPAT+2
Function Call: WRITE	Prompt: !,"ENTER key to exit back and Enter N for All Other Activities.",! Line Location: GETPAT+3
Function Call: WRITE	Prompt: !,"Please enter the patient information now.",! Line Location: GETPAT+4
Function Call: WRITE	Prompt: !!,"No Patient entered. Required " Line Location: GETPAT+20
Function Call: WRITE	Prompt: !,"No patient entered!! - Required." Line Location: GETPAT+21
Function Call: WRITE	Prompt: !!,"No Patient entered. If this is not a patient related encounter use the ",!,"'All Other Activities option'.",! Line Location: GETPAT+23
Function Call: WRITE	Prompt: !!,"Try again.",! Line Location: GETPAT+25
Function Call: WRITE	Prompt: !!,"PATIENT NOT VALID! TRY AGAIN" Line Location: GETPAT+28
Function Call: WRITE	Prompt: !,"That patient cannot be found in the Registration database." Line Location: NOREG+1
Function Call: WRITE	Prompt: ! Line Location: NOREG+2
Function Call: WRITE	Prompt: !,"Exiting..." Line Location: NOREG+3
Function Call: WRITE	Prompt: !!,"Please select a patient from the Non-Registered Patient Database",!,"or enter a new Non-Registered Patient.",! Line Location: NOREG+5
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: NOREG+11
Function Call: WRITE	Prompt: !!,"A patient is Required" Line Location: NOREG+13
Function Call: WRITE	Prompt: !,"PROGRAM Missing! " Line Location: RECCHECK+3
Function Call: WRITE	Prompt: !,"PROVIDER/CHR Missing! " Line Location: RECCHECK+4
Function Call: WRITE	Prompt: !,"ACTIVITY LOCATION Missing! " Line Location: RECCHECK+5
Function Call: WRITE	Prompt: !,"TRAVEL TIME Missing!" Line Location: RECCHECK+6
Function Call: WRITE	Prompt: !,"# SERVED Missing!" Line Location: RECCHECK+7
Function Call: WRITE	Prompt: !,"At least one ASSESSMENT/POV is Required and is Missing! " Line Location: RECCHECK+8
Function Call: WRITE	Prompt: !,"Assessment Problem code Missing!" Line Location: RECCHECK+11
Function Call: WRITE	Prompt: !,"Service Code for Assessment ",$$VAL^XBDIQ1(90002.01,X,.01)," is Missing!" Line Location: RECCHECK+12
Function Call: WRITE	Prompt: !,"Service Minutes for Assessment ",$$VAL^XBDIQ1(90002.01,X,.01)," is Missing!" Line Location: RECCHECK+13
Function Call: WRITE	Prompt: !,"Narrative for Assessment ",$$VAL^XBDIQ1(90002.01,X,.01)," is Missing!" Line Location: RECCHECK+14
Function Call: WRITE	Prompt: !,"REFERRED TO CHR BY is Missing and is Required! " Line Location: RECCHECK+18
Function Call: WRITE	Prompt: !,"REFERRED BY CHR TO is Missing and is Required! " Line Location: RECCHECK+19
Function Call: WRITE	Prompt: !!,"Please select a patient from the Non-Registered Patient Database",!,"or enter a new Non-Registered Patient.",! Line Location: UPNONREG+1
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: UPNONREG+7
Function Call: WRITE	Prompt: !!,"Please review and update if necessary this non-registered patient's data:" Line Location: UPNONREG+11
Routine Call	DIE Line Location: GETPAT+27 NOREG+17 NOREG+24 NOREG+26 UPNONREG+12
Routine Call	DIC Line Location: GETPAT+22 NOREG+6 UPNONREG+2
Routine Call	DIR Line Location: GETPAT+19 NOREG+2 NOREG+21 ASK+1 E+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BCHR - [#90002]	RECCHECK+2, RECCHECK+15, RECCHECK+16, RECCHECK+17, RECCHECK+18, RECCHECK+19, SETARRAY+4, SETARRAY+5, SETARRAY+6
^BCHRPED - [#90002.02]	SETARRAY+15, SETARRAY+16, SETARRAY+17
^BCHRPED("AD"	SETARRAY+14
^BCHRPROB - [#90002.01]	RECCHECK+11, RECCHECK+12, RECCHECK+13, RECCHECK+14, SETARRAY+9, SETARRAY+10, SETARRAY+11, SETARRAY+12, SETARRAY+13
^BCHRPROB("AD"	RECCHECK+8, RECCHECK+10, SETARRAY+8
^BCHSITE - [#90002.31]	SETARRAY+2
^BCHTACTL - [#90002.56]	SETARRAY+7
^BCHTPROB - [#90002.53]	SETARRAY+13
^BCHTSERV - [#90002.54]	SETARRAY+13
^DIC(9.4 - [#9.4]	SETARRAY+1
^ORD(101 - [#101]	PROTOCOL+3

Label References

Name	Line Occurrences
ASK	GETPAT+20, GETPAT+21, NOREG+13
E	RECCHECK+15, RECCHECK+16, RECCHECK+17
EDIT	E+4
GETPAT	GETPAT+25, GETPAT+28, NOREG+4, ASK+4
NOREG	GETPAT+24
RECCHECK	E+7, EDIT+3
SETARRAY	PROTOCOL+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	GETPAT+25*
BCHERROR	RECCHECK+1!, RECCHECK+3, RECCHECK+4, RECCHECK+5, RECCHECK+6, RECCHECK+7, RECCHECK+8, RECCHECK+11, RECCHECK+12, RECCHECK+13* , RECCHECK+14, RECCHECK+18, RECCHECK+19*, E+1
BCHEV	PROTOCOL+5!
BCHEV("ACTLOC"	SETARRAY+7*
BCHEV("CHR IE	N" , SETARRAY+3*
BCHEV("DATA0"	SETARRAY+4*, SETARRAY+7
BCHEV("DATA12"	SETARRAY+5*
BCHEV("DATA13"	SETARRAY+6*
BCHEV("EDUC"	SETARRAY+17*
BCHEV("PKG"	SETARRAY+1*
BCHEV("POV"	SETARRAY+13*
BCHEV("SITE"	SETARRAY+2*
>> BCHF	GETPAT+26*
>> BCHNAME	GETPAT+22*, NOREG+6
>> BCHNRPAT	NOREG+14, NOREG+17, NOREG+24, NOREG+26, UPNONREG+10, UPNONREG+12
BCHOKAY	RECCHECK+1!
>> BCHPKG	SETARRAY+1*
>> BCHQUIT	NOREG+3, ASK+2, ASK+3*
>> BCHR	GETPAT+27, NOREG+26, RECCHECK+2, RECCHECK+8, RECCHECK+10, RECCHECK+15, RECCHECK+16, RECCHECK+17, RECCHECK+18, RECCHECK+19 , SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+8, SETARRAY+14
>> BCHR0	RECCHECK+2*, RECCHECK+3, RECCHECK+4, RECCHECK+5, RECCHECK+6, RECCHECK+7
>> BCHRWDEL	EDIT+1*
>> BCHUEDT	E+4
>> BCHV	GETPAT+26*
C	SETARRAY+8, SETARRAY+13, SETARRAY+14, SETARRAY+17, SETARRAY+18!
DA	GETPAT+27!, NOREG+17!, NOREG+21!, NOREG+24!, NOREG+26!, E+2!, UPNONREG+12*!
>> DFN	GETPAT+5, GETPAT+26, GETPAT+27
DIC	GETPAT+22!, NOREG+6!, UPNONREG+2*!, UPNONREG+9!
DIC("B"	NOREG+6*
DIC(0	GETPAT+22, NOREG+6, UPNONREG+2*
DIE	GETPAT+27!, NOREG+17!, NOREG+24!, NOREG+26!, UPNONREG+12*!
DIR	GETPAT+19!, NOREG+2!, NOREG+21!, ASK+1!, E+2!
DIR("?"	GETPAT+7, GETPAT+8, GETPAT+9, GETPAT+10, GETPAT+11, GETPAT+12, GETPAT+13, GETPAT+14, GETPAT+15, GETPAT+16 , GETPAT+17, GETPAT+18
DIR("A"	GETPAT+6, NOREG+2, NOREG+21, ASK+1, E+2*
DIR("B"	NOREG+2, NOREG+21, ASK+1, E+2
DIR(0	GETPAT+6, NOREG+2, NOREG+21, ASK+1, E+2*
>> DIRUT	GETPAT+19, GETPAT+21, NOREG+2, NOREG+3, NOREG+23, ASK+1*, ASK+2, E+3
DR	GETPAT+27!, NOREG+17!, NOREG+24!, NOREG+26!, UPNONREG+12*!
>> DUOUT	GETPAT+19, NOREG+2, ASK+1
DUZ(2	SETARRAY+2
IOF	GETPAT+1
U	NOREG+15, RECCHECK+3, RECCHECK+4, RECCHECK+5, RECCHECK+6, RECCHECK+7, RECCHECK+11, RECCHECK+12, RECCHECK+13, RECCHECK+14 , RECCHECK+15, RECCHECK+16, RECCHECK+17, SETARRAY+7, SETARRAY+10, SETARRAY+11, SETARRAY+12, SETARRAY+13, SETARRAY+16
X	GETPAT+20, GETPAT+22, RECCHECK+9~, RECCHECK+10, RECCHECK+11, RECCHECK+12, RECCHECK+13, RECCHECK+14, PROTOCOL+3, SETARRAY+8 , SETARRAY+9, SETARRAY+10, SETARRAY+11, SETARRAY+12, SETARRAY+13, SETARRAY+14*, SETARRAY+15, SETARRAY+16, SETARRAY+17, SETARRAY+18!
Y	GETPAT+22, GETPAT+24, GETPAT+26, GETPAT+28!, NOREG+4, NOREG+13, NOREG+14, NOREG+15, NOREG+22, ASK+3 , RECCHECK+9~, E+5, EDIT+1, UPNONREG+9!, UPNONREG+10

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHUADD1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: