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 |  Marked Items |  All
Print Page as PDF
Routine: BCHEGP

Package: IHS RPMS CHR System

Routine: BCHEGP


Information

BCHEGP ; IHS/CMI/LAB - group preventive services group form ;

Source Information

Source file <BCHEGP.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA Fileman 7 ^DDS  ^DIC  FILE^DICN  ^DIE  ^DIK  EN^DIQ  ^DIR  
IHS VA Utilities 4 ^XBDBQUE  $$VAL^XBDIQ1  ^XBFMK  EN^XBVK  
IHS RPMS CHR System 3 ^BCHEGP1  PRINT1^BCHUFPP  ^BCHUIN  
IHS Patient 1 KILL^AUPNPAT  
Registration 1 TERM^VALM0  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS RPMS CHR System 2 BCH GROUP DATA ENTRY  BCH GROUP PRINT FORMS  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;
REPRINT ;EP - called from option
EDIT ;
EOJ ;
DELGRP ;
FORMID ;
START ;
INIT ; Write Header
EOP ;EP - End of page.
TEXT ;
PRINT ;
RXIT ;
GETDATA ; GET LOCATION OF ENCOUNTER

External References

Name Field # of Occurrence
KILL^AUPNPAT INIT+10, RXIT+3
^BCHEGP1 START+5
PRINT1^BCHUFPP PRINT1+1
^BCHUIN INIT+8
^DDS EDIT+1
^DIC REPRINT+7
FILE^DICN GETDATA+3, FORMID+2
^DIE GETDATA+8, FORMID+6
^DIK DELGRP+2, DELGRP+3
EN^DIQ EDIT+14, EDIT+15
^DIR PRINT+1, GETDATA+10, EDIT+7, EDIT+16, EOP+5, DELGRP+3
TERM^VALM0 INIT+2
^XBDBQUE PRINT+5
$$VAL^XBDIQ1 REPRINT+14
^XBFMK INIT+1, EOJ+4, GETDATA+7, FORMID+3, FORMID+5, REPRINT+6, RXIT+2
EN^XBVK EOJ+1, RXIT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Exiting group form entry"
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !?80-$L(BCHEGX)\2,BCHEGX
  • Line Location: INIT+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: INIT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDATA+1
Function Call: WRITE
  • Prompt: !!,"error creating group entry."
  • Line Location: GETDATA+5
Function Call: WRITE
  • Prompt: !!,"The form ID for this group form is ",$P(^BCHGROUP(BCHFID,0),U),".",!,"Please make a note of this. It will be needed if and when you need to ",!,"re-print forms.",!!
  • Line Location: GETDATA+9
Function Call: WRITE
  • Prompt: !!,"ERROR IN SCREENMAN FORM!! ***NOTIFY PROGRAMMER***"
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !!,"At least one POV is required!"
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !!,"Not all required data elements have been entered."
  • Line Location: EDIT+6
Function Call: WRITE
  • Prompt: !,"Deleting group definition..."
  • Line Location: EDIT+6
Function Call: WRITE
  • Prompt: !!,"I am going to ask you to enter ",BCHNUM," patient names. I will then create a",!,"record in the CHR file for each patient. The record will contain the",!,"following information: ",!
  • Line Location: EDIT+13
Function Call: WRITE
  • Prompt: !!,"Failure to create FORM ID. Notify programmer.",!
  • Line Location: FORMID+3
Function Call: WRITE
  • Prompt: !,"The form ID for this group form is ",$P(^BCHGRP(BCHFID,0),U),".",!,"Please make a note of this. It will be needed if and when you need to ",!,"re-print forms.",!
  • Line Location: FORMID+7
Function Call: WRITE
  • Prompt: !!,"This option should be used to print or re-print group encounter forms.",!!,"You must know the group ID form number or the date of the group visit."
  • Line Location: REPRINT+3
Function Call: WRITE
  • Prompt: !!,"Only group forms entered after PCC Data Entry Patch 5 was installed",!,"are available for re-printing.",!!
  • Line Location: REPRINT+4
Function Call: WRITE
  • Prompt: !!,"Please enter the group ID form or the date of the visit.",!
  • Line Location: REPRINT+5
Function Call: WRITE
  • Prompt: !!,"No form selected"
  • Line Location: REPRINT+8
Function Call: WRITE
  • Prompt: !!,"There are no visits to print.",!
  • Line Location: REPRINT+11
Function Call: WRITE
  • Prompt: !,"The following visit forms will be printed: "
  • Line Location: REPRINT+12
Routine Call
  • DIE
  • Line Location:
    • GETDATA+8
    • FORMID+6
Routine Call
  • DDS
  • Line Location:
    • EDIT+1
Routine Call
  • DIC
  • Line Location:
    • REPRINT+7
Routine Call
  • DIR
  • Line Location:
    • PRINT+1
    • GETDATA+10
    • EDIT+7
    • EDIT+16
    • EOP+5
    • DELGRP+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BCHGROUP - [#90002.97] Classic Fileman Calls
^BCHRGAS - [#90002.98] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BCHGROUP - [#90002.97] PRINT1+1, GETDATA+9, EDIT+4, EDIT+11, REPRINT+10
^BCHGRP( FORMID+7
^BCHRGAS - [#90002.98] EDIT+5
^BCHRGAS("AD" EDIT+3, EDIT+5, EDIT+15, DELGRP+2
^TMP("BCHEGP" INIT+9!

Label References

Name Line Occurrences
DELGRP EDIT+6
EDIT EDIT+6
EOJ START+4
GETDATA START+3
INIT START+1
PRINT REPRINT+15
RXIT REPRINT+1, REPRINT+8, REPRINT+11, REPRINT+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EOJ+3!
%DT EOJ+3!
%W EOJ+3!
%Y EOJ+3!
AUPNDAYS EOJ+2!
AUPNDOB EOJ+2!
AUPNDOD EOJ+2!
AUPNPAT EOJ+2!
AUPNSEX EOJ+2!
>> BCHDATE FORMID+2
BCHEGJ INIT+4*, INIT+5!
>> BCHEGP("FORMS" REPRINT+10*, REPRINT+11, REPRINT+13
BCHEGX INIT+4*, INIT+5!
>> BCHFID PRINT1+1, GETDATA+6*, GETDATA+8, GETDATA+9, EDIT+1, EDIT+3, EDIT+4, EDIT+5, EDIT+11, EDIT+14
, EDIT+15, FORMID+4*, FORMID+6, FORMID+7, REPRINT+9*, REPRINT+10, DELGRP+2, DELGRP+3
>> BCHNUM EDIT+11*, EDIT+13
BCHQUIT START+2!, START+4, PRINT1+1, INIT+7*, GETDATA+5*, EDIT+2*, EDIT+10, EDIT+17*, EDIT+18*, FORMID+3*
, DELGRP+3*
>> BCHR PRINT1+1*
BCHX EDIT+15*, DELGRP+1~, DELGRP+2*
>> C EDIT+3*, EDIT+4*, EDIT+5*, EDIT+6
D0 FORMID+2!
DA EOJ+3!, GETDATA+8*!, EDIT+1*, EDIT+7!, EDIT+14*, EDIT+15*, EDIT+16!, FORMID+6*!, DELGRP+2*, DELGRP+3*!
DD GETDATA+3!, FORMID+2!, FORMID+3!
>> DDSFILE EDIT+1*
DFOUT EOP+4!
DI EOJ+3!
DIADD INIT+1!, EOJ+4!, GETDATA+3*, GETDATA+4!, FORMID+2*, FORMID+3!, FORMID+5!
DIC EOJ+3!, GETDATA+3*, GETDATA+4!, EDIT+14*!, EDIT+15*!, EDIT+16!, FORMID+2!*, REPRINT+7*
DIC("DR" FORMID+2*
DIC(0 GETDATA+3*, FORMID+2*, REPRINT+7*
DIE EOJ+3!, GETDATA+8*!, FORMID+6*!
DIG EOJ+3!
DIH EOJ+3!
DIK DELGRP+2*, DELGRP+3*!
DIMSG EDIT+2!
DIPGM EOJ+3!
DIR PRINT+1!, EOJ+3!, GETDATA+10!, EDIT+7!, EDIT+16!, EOP+3~, DELGRP+3!
DIR("A" PRINT+1*, GETDATA+10*, EDIT+7*, EDIT+16*, EOP+5*
DIR("B" PRINT+1*, EDIT+7*, EDIT+16*
DIR(0 PRINT+1*, GETDATA+10*, EDIT+7*, EDIT+16*, EOP+5*, DELGRP+3*
DIRUT PRINT+1*, PRINT+2, EOJ+3!, EDIT+8, EDIT+16!*, EDIT+17, EOP+4!
DIU EOJ+3!
DIV EOJ+3!
DIW EOJ+3!
DLAYGO INIT+1!, EOJ+4!, GETDATA+3*, GETDATA+4!, FORMID+2*, FORMID+3!, FORMID+5!
DLOUT EOP+4!
DO GETDATA+3!, FORMID+2!
DQ EOJ+3!
DR EOJ+3!, GETDATA+8*!, EDIT+1*, EDIT+14*, EDIT+15*, FORMID+3!, FORMID+6*!
DT FORMID+2
DTOUT EOJ+3!, EDIT+16!, EOP+4!
DUOUT PRINT+1, EOJ+3!, EDIT+16!, EOP+4!
DUZ FORMID+2
IO("S" EOP+2
IOF INIT+3, REPRINT+2
IOST EOP+1
>> IOT EOP+2
U GETDATA+9, EDIT+4, EDIT+5, EDIT+11, FORMID+7
X EOJ+3!, GETDATA+3*, EDIT+4*, EDIT+5*, EDIT+16!, FORMID+2*, REPRINT+10*, REPRINT+13*, REPRINT+14
X1 EOJ+3!
X2 EOJ+3!
>> XBNS PRINT+4*
>> XBRC PRINT+4*
>> XBRP PRINT+4*
>> XBRX PRINT+4*
Y PRINT+3, EOJ+3!, GETDATA+5, GETDATA+6, EDIT+5*, EDIT+6, EDIT+8*, EDIT+16!, EDIT+18, FORMID+2
, FORMID+4, REPRINT+8, REPRINT+9
>> Z GETDATA+8*, FORMID+6*
>> ZTQUEUED EOP+2
ZTSAVE EOJ+3!

Marked Items

Name Field # of Occurrence
$T(TEXT+BCHEGJ INIT+4
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 |  Marked Items |  All