Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BCHUADD1

Package: IHS RPMS CHR System

Routine: BCHUADD1


Information

BCHUADD1 ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED ;

Source Information

Source file <BCHUADD1.m>

Call Graph

Call Graph Total: 8

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  

Caller Graph

Caller Graph Total: 8

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All