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

Package: Referred Care Information System

Routine: BMCMOD


Information

BMCMOD ; IHS/PHXAO/TMJ - MODIFY A REFERRAL 1 OF 2 ; [ 08/22/2006 11:07 AM ]

Source Information

Source file <BMCMOD.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Referred Care Information System 12 (HDR,PARMCHK,PAUSE)^BMC  COMMENTS^BMCADD1  GETSNO^BMCADD3  PALRT1^BMCALERT  DENR^BMCCHSE  (DDS,DIC,DIE,DIK)^BMCFMC  ^BMCKILL  ENMM^BMCMM  
(ADDDX,ADDPX)^BMCMOD1  ^BMCPCCL  ^BMCREF  $$AVDOS^BMCRLU  
IHS VA Utilities 2 ($$VAL,$$VALI)^XBDIQ1  ^XBFMK  
Kernel 1 $$NOW^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 15

Package Total Caller Graph
Referred Care Information System 15 BMC BUSINESS OFFICE COM SUP  BMC BUSINESS OFFICE COMMENTS  BMC CASE REVIEW COMMENTS  BMC DSCH COMMENTS/LTR REC  BMC EDIT CHS DATA  BMC MED HX COMMENTS  BMC MODIFY CLOSED REFERRAL  BMC MODIFY CURRENT REFERRAL  
BMC MODIFY REFERRAL  BMCADD1  BMCADDS  BMCAPI  BMCCLO  BMCMINI  BMCMODS  

Entry Points

Name Comments DBIA/ICR reference
DATES ; MODIFY DATE FIELDS
BUSINESS ; EDIT BUSINESS OFFICE COMMENTS
EOJ ; END OF JOB
COST ;MODIFY COST FIELDS
DX ; EP - EDIT DIAGNOSES EDIT DIAGNOSES
MINIMOD ; REFERRAL MINI MODIFICATION FORM
80 ;EP FROM 2ND REF AND FR MED HX MENU OPTION
REF ;IHS/ITSC/FCJ ADD 13TH OPTION TO ALLOW SELECTING OTHER REF FOR PATIENT
VREF ;EP FR BMCMODS;BMC*4.0*8 NEW MODULE TO UPDATE SNOMED IN V REF FILE
PCCL ; PCC LINK
DSCHARGE ; EDIT DISCHARGE NOTES
1 ; LABEL FOR @DO
3 ; LABEL FOR @DO
2 ; LABEL FOR @DO
5 ; LABEL FOR @DO
4 ; LABEL FOR @DO
7 ; LABEL FOR @DO
6 ; LABEL FOR @DO
9 ; LABEL FOR @DO
8 ; LABEL FOR @DO
12 ; LABEL FOR @DO
A ;add a new XXX
E ;edit an existing XXX
D ;delete XXX
ASK2 ;IHS/ITSC/FCJ MODIFED TO NOT ALLOW EDITING OR DELETING OF BO COMMENTS
SCREEN ;Display ONLY CLOSED Referrals
START ;
CHS ;Enter CHS Data with Screenman
SNO ;EP FROM BMCMODS;BMC*4.0*9 NEW MODULE TO ADD SNOMED FOR SITES W/O PCC
ASK ;EP
ALLDATA ; MODIFY ALL REFERRAL DATA
ER
11 ; LABEL FOR @DO
10 ; LABEL FOR @DO
13 ;LABEL FOR @DO
MAIN ;
15 ;IHS/ITSC/FCJ ADD 15TH OPT TO ALLOW SENDING MAILMAN MESSAGE TO PRIM
14 ;IHS/ITSC/FCJ ADD 14TH OPT TO ALLOW SENDING MAILMAN MESSAGE
17 ;EP BMCMODS;BMC 4.0*8 5.8.13 IHS/OIT/FCJ ADDED OPTION TO UPDATE STATUS TO A1-APPROVED
16 ;BMC*4.0*3 10.1.2007 IHS/ITSC/FCJ ADD 16TH OPT TO ALLOW TO PRIM AND REF PROVIDER ONLY
ADDLDOC ; EDIT LIST OF ADDITIONAL DOCUMENTATION TO BE INCLUDED WITH REFERRAL
TYPE ; EP - Get type of data to edit
VREFP ;BMC*4.0*8 NEW MODULE TO UPDATE PROV IN V REF FILE
COMMENTS ; EDIT COMMENTS CASE REVIEW
ALERT ;Mail Bulletin Alerts
PURPOSE ; EDIT PURPOSE OF REFERRAL
FACTOR ;CHS ELIG FACTORS
REFERRAL ; GET REFERRAL TO MODIFY
PROC ; EP - EDIT PROCEDURES
GETREF ;Screens out closed Referrals

External References

Name Field # of Occurrence
HDR^BMC START+2
PARMCHK^BMC START+1
PAUSE^BMC 17+5
COMMENTS^BMCADD1 A+3
GETSNO^BMCADD3 MAIN+9
PALRT1^BMCALERT 16+11
DENR^BMCCHSE CHS+3
DDS^BMCFMC CHS+2, 1+4, 2+5, 2+15, 3+2, 4+2, 8+2, 11+2, 12+2
DIC^BMCFMC GETREF+5, SCREEN+4
DIE^BMCFMC 7+5, 10+6, 17+18, E+8, A+7, VREF+3, VREFP+3, SNO+4
DIK^BMCFMC D+11
^BMCKILL EOJ+2
ENMM^BMCMM 14+7, 15+2
ADDDX^BMCMOD1 A+4
ADDPX^BMCMOD1 A+5
^BMCPCCL PCCL+1
^BMCREF 1+9, 2+7
$$AVDOS^BMCRLU MAIN+4
^DIR CHS+5, TYPE+6, 16+3, 16+9, 17+14, ASK2+17, E+2, D+2, D+8
$$VAL^XBDIQ1 17+4, 17+9
$$VALI^XBDIQ1 PCCL+1
^XBFMK EOJ+3
$$NOW^XLFDT VREF+2, VREFP+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GETREF+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SCREEN+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: 14+1
Function Call: WRITE
  • Prompt: !
  • Line Location: 16+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: 17+6
Function Call: WRITE
  • Prompt: !,"Parameters have not been set up to send messages for this type of Referral."
  • Line Location: ER+0
Function Call: WRITE
  • Prompt: !!,"You may add a new "_BMCTERM,!
  • Line Location: ASK2+4
Function Call: WRITE
  • Prompt: !!,"You may edit one of the existing "_BMCTERM_" or add a new one",!
  • Line Location: ASK2+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK2+11
Function Call: WRITE
  • Prompt: !
  • Line Location: E+2
Function Call: WRITE
  • Prompt: !!,"Invalid choice."
  • Line Location: E+6
Function Call: WRITE
  • Prompt: !!,"ERROR ENCOUNTERED IN EDITING A "_BMCTERM
  • Line Location: E+9
Function Call: WRITE
  • Prompt: !!,"Adding a NEW "_BMCTERM_"...",!
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !!,"NO "_BMCTERM_" ADDED!"
  • Line Location: A+8
Function Call: WRITE
  • Prompt: !!,"Invalid choice."
  • Line Location: D+6
Function Call: WRITE
  • Prompt: !,"Okay, not deleted."
  • Line Location: D+10
Function Call: WRITE
  • Prompt: !,BMCTERM_" DELETED"
  • Line Location: D+11
Routine Call
  • DIR
  • Line Location:
    • CHS+5
    • TYPE+6
    • 16+3
    • 16+9
    • 17+14
    • ASK2+17
    • E+2
    • D+2
    • D+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVREF - [#9000010.59] Classic Fileman Calls
^BMCREF - [#90001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] 16+1
^AUPNVREF - [#9000010.59] VREF+1, VREFP+1
^BMCREF - [#90001] MAIN+4, 1+3, 2+4, 16+1, 17+3, VREFP+1, VREFP+2, SNO+1

Label References

Name Line Occurrences
80 1+7
@( MAIN+10, TYPE+10, 2+8, 80+5, ASK2+7, ASK2+20, E+1, D+1
ASK 5+4, 6+3, 7+3, 80+3, 9+4, 10+4, 12+5
ASK2 ASK+2
CHS MAIN+11
EOJ START+3
GETREF REFERRAL+2, REFERRAL+3
MAIN START+2
PCCL MAIN+14
REFERRAL MAIN+2
SCREEN REFERRAL+1
SNO 1+6, 2+10
TYPE MAIN+13
VREF 1+5, 2+9
VREFP 1+5, 2+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCDOVRR 5+1*
>> BMCATEMP 5+2*, 6+1*, 7+1*, 80+1*, 9+2*, 10+2*, 12+3*, A+6
>> BMCC E+2, E+5*, E+6, E+7, D+2, D+5*, D+6, D+11
>> BMCCHSE MAIN+11, MAIN+12, REFERRAL+3, GETREF+1
>> BMCCLOSE REFERRAL+1, REFERRAL+2, ASK+1, ASK2+21
>> BMCCTYP 5+3*, 6+2*, 7+2*, 80+2*, 9+3*, 10+3*, 12+4*, ASK2+4, ASK2+9, ASK2+12
>> BMCDF ASK+1*, ASK2+12*, ASK2+16, ASK2+21*
>> BMCDFN 16+1
>> BMCDOS MAIN+4*
>> BMCDTYPE MAIN+10, MAIN+15, TYPE+1*, TYPE+9*, TYPE+10, TYPE+11, 80+4
>> BMCETEMP 5+2*, 6+1*, 7+1*, 80+1*, 9+2*, 10+2*, 12+3*, E+7
>> BMCG 5+2*, 6+1*, 7+1*, 80+1*, 9+2*, 10+2*, 12+3*, E+7, D+11
BMCLOOK A+1*, A+9!
>> BMCMODE MAIN+1*, 2+1*, 2+11*, ASK2+16
>> BMCNONE ASK2+6*, ASK2+9*, ASK2+12
>> BMCPARM START+1
>> BMCPPRV 16+1*, 16+7, 16+10
>> BMCQ START+2, MAIN+1*, MAIN+3, MAIN+13, MAIN+15*, GETREF+2*, GETREF+8*, SCREEN+1*, SCREEN+7*, TYPE+1*
, TYPE+12*, ASK+2, ASK2+1*, ASK2+22*
>> BMCRDX( E+6, E+7, D+6, D+11
>> BMCREC("PAT N AME" , 13+1
>> BMCRHDR 16+1*
>> BMCRIEN MAIN+4, GETREF+7*, SCREEN+6*, CHS+1, 1+3, 1+8, 2+4, 2+6, 2+14, 3+1
, 4+1, 7+4, 8+1, 10+5, 11+1, 12+1, 16+1, 17+3, 17+4, 17+9
, 17+17, A+6, PCCL+1, VREFP+1, VREFP+2, SNO+1, SNO+3
>> BMCRIO CHS+1, CHS+3, 3+1
>> BMCRPRV 16+1*, 16+5, 16+7
>> BMCRSTAT 1+5, 2+9
BMCRTY GETREF+1*, EOJ+1!
>> BMCSCOD VREF+1, VREF+2, SNO+1, SNO+2
>> BMCSTAT 17+1*, 17+16*, 17+17
>> BMCSUP ASK2+4, ASK2+9
>> BMCTERM 5+2*, 6+1*, 7+1*, 80+1*, 9+2*, 10+2*, 12+3*, ASK2+4, ASK2+5, ASK2+12
, ASK2+13, E+9, A+2, A+8, D+8, D+11
>> BMCTMP 2+1*, 2+11
>> BMCV 5+2*, 6+1*, 7+1*, 80+1*, 9+2*, 10+2*, 12+3*, ASK2+7, E+1, A+3
, A+4, A+5, D+1
>> BMCVREF 1+5, 2+9, VREF+1, VREF+2, VREFP+1, VREFP+2
DA CHS+1*, TYPE+6!, 1+3*, 2+4*, 2+14*, 3+1*, 4+1*, 7+4*, 8+1*, 10+5*
, 11+1*, 12+1*, 17+17*, E+7*, A+6*, D+11*, VREF+2*, VREFP+2*, VREFP+4!, SNO+3*
, SNO+5!
>> DDSFILE CHS+1*, 1+3*, 2+4*, 2+14*, 3+1*, 4+1*, 8+1*, 11+1*, 12+1*
>> DDSPARM CHS+1*, 1+3*, 2+4*, 2+14*, 3+1*, 4+1*, 8+1*, 12+1*
>> DIC GETREF+4*, SCREEN+3*
>> DIC("A" GETREF+4*, SCREEN+3*
>> DIC("B" 13+1*
>> DIC("S" GETREF+4*, SCREEN+3*
>> DIC(0 GETREF+4*, SCREEN+3*
DIE 7+4*, 10+5*, 17+17*, E+7*, A+6*, VREF+2*, VREFP+2*, VREFP+4!, SNO+3*, SNO+5!
>> DIK D+11*
DIR CHS+5!, TYPE+6!, 16+3!, 16+9!, 17+2!, 17+14!, ASK2+17!, E+2!, D+2!, D+8!
DIR("?" 17+7*
DIR("A" CHS+4*, TYPE+6*, 16+2*, 16+8*, 17+8*, 17+9*, 17+10*, 17+11*, 17+12*, 17+13*
, ASK2+16*, E+2*, D+2*, D+8*
DIR("B" CHS+4*, TYPE+6*, 16+2*, 16+8*, ASK2+16*, D+8*
DIR(0 CHS+4*, TYPE+3*, TYPE+5*, 16+2*, 16+8*, 17+7*, ASK2+12*, ASK2+13*, ASK2+14*, E+2*
, D+2*, D+8*
>> DIRUT TYPE+7, 2+8, 80+5, ASK2+18, E+2*, E+3, D+2*, D+3, D+8*, D+9
DR CHS+1*, 1+3*, 2+4*, 2+14*, 3+1*, 4+1*, 7+4*, 8+1*, 10+5*, 11+1*
, 12+1*, 17+17*, E+7*, A+6*, VREF+2*, VREFP+2*, VREFP+4!, SNO+2*, SNO+5!
>> DUOUT 16+3, 16+9, E+2, D+2, D+8
IOF 14+1, ASK2+2
U MAIN+4, 1+3, 2+4, 16+1, 17+3, VREF+1, VREFP+1, VREFP+2, SNO+1
X 2+8*, 80+5*, 17+15, VREFP+4!, SNO+5!
XQA 16+4~, 16+11
XQA( 16+5*, 16+10*
>> Y GETREF+6, GETREF+7, SCREEN+5, SCREEN+6, CHS+3, TYPE+8, TYPE+9, 1+8*, 2+6*, 16+5
, 16+9, 17+16, ASK2+19, ASK2+20, E+4, E+5, E+9, A+8, D+4, D+5
, D+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