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: BCHEGP1

Package: IHS RPMS CHR System

Routine: BCHEGP1


Information

BCHEGP1 ; IHS/CMI/LAB - GROUP FORM DATA ENTRY CREATE RECORD ;

Source Information

Source file <BCHEGP1.m>

Call Graph

Call Graph Total: 8

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  

Caller Graph

Caller Graph Total: 1

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
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