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

Package: Referred Care Information System

Routine: BMCMINI


Information

BMCMINI ; IHS/PHXAO/TMJ - MINI ADD A NEW REFERRAL ;

Source Information

Source file <BMCMINI.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Referred Care Information System 6 ($$REFN,EOP,HDR,PARMSET,PAUSE)^BMC  ENMM^BMCBULL  (DDS,DIC,DIE,FILE)^BMCFMC  ^BMCKILL  PROC^BMCMOD  ^BMCREF  
VA Fileman 3 DD^%DT  ^DIK  ^DIR  
IHS Patient 1 ($$DOD,$$MCD,$$MCR,$$PI)^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
PATIENT ; GET PATIENT
EDIT ; EDIT REFERRAL RECORD JUST ADDED
EOJ ; END OF JOB
DXPX ; GET PROVIDIONAL DIAGNOSES/PROCEDURES IF WANTED
NUMBER ; GENERATE REFERRAL NUMBER
COMMENTS ; GET COMMENTS
START ;
ADD ; ADD NEW REFERRAL RECORD
PATIENT2 ; ASK FOR PATIENT UNTIL USER SELECTS OR QUITS
STATIC ; STORE STATIC DATA
DX ; GET PROVISIONAL DIAGNOSES
DATE ; GET DATE OF REFERRAL
MAIN ;
PX ; GET PROVISIONAL PROCEDURES
DELETE ; DELETE REFERRAL JUST ADDED BECAUSE OPERATOR DIDN'T FINISH

External References

Name Field # of Occurrence
DD^%DT DX+3
$$DOD^AUPNPAT PATIENT2+6
$$MCD^AUPNPAT STATIC+25
$$MCR^AUPNPAT STATIC+24
$$PI^AUPNPAT STATIC+26
$$REFN^BMC NUMBER+2, DX+2
EOP^BMC NUMBER+4, ADD+4, STATIC+36
HDR^BMC START+2
PARMSET^BMC START+1
PAUSE^BMC DELETE+3
ENMM^BMCBULL STATIC+32, STATIC+33, STATIC+34, STATIC+35
DDS^BMCFMC EDIT+2
DIC^BMCFMC PATIENT2+2
DIE^BMCFMC DX+13, PX+9, COMMENTS+8, COMMENTS+11, STATIC+29
FILE^BMCFMC ADD+3
^BMCKILL EOJ+1
PROC^BMCMOD DXPX+4
^BMCREF EDIT+5
^DIK DELETE+2
^DIR PATIENT2+8, DATE+2, DX+7, PX+3, COMMENTS+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This patient is deceased."
  • Line Location: PATIENT2+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PATIENT2+9
Function Call: WRITE
  • Prompt: !,"Error generating new referral number. Notify programmer.",!
  • Line Location: NUMBER+4
Function Call: WRITE
  • Prompt: !,"Error creating REFERRAL.",!,"Notify programmer.",!
  • Line Location: ADD+4
Function Call: WRITE
  • Prompt: !!,"REFERRAL number : ",BMCRNUMB,!
  • Line Location: ADD+5
Function Call: WRITE
  • Prompt: !!,"INCOMPLETE REFERRAL BEING DELETED!",!!
  • Line Location: DELETE+1
Function Call: WRITE
  • Prompt: !?5,"Referral #: ",$$REFN^BMC
  • Line Location: DX+2
Function Call: WRITE
  • Prompt: !?5,"Referral Date: "
  • Line Location: DX+3
Function Call: WRITE
  • Prompt: Y
  • Line Location: DX+3
Function Call: WRITE
  • Prompt: ?40,"Patient Name: ",$P(^DPT(BMCDFN,0),U)
  • Line Location: DX+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: DX+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PX+1
Function Call: WRITE
  • Prompt: !
  • Line Location: COMMENTS+1
Function Call: WRITE
  • Prompt: !,"Storing static fields....",!
  • Line Location: STATIC+1
Function Call: WRITE
  • Prompt: !,"Entry of Referral ",$P(^BMCREF(BMCRIEN,0),U,2)," is complete.",!
  • Line Location: STATIC+30
Routine Call
  • DIR
  • Line Location:
    • PATIENT2+8
    • DATE+2
    • DX+7
    • PX+3
    • COMMENTS+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^BMCREF - [#90001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] STATIC+11, STATIC+15
^AUTTLOC - [#9999999.06] STATIC+13
^AUTTTRI - [#9999999.03] STATIC+17
^AUTTVNDR - [#9999999.11] STATIC+20, STATIC+21
^BMCREF - [#90001] DX+3, STATIC+3, STATIC+30
^DD(90001 NUMBER+3
^DIC(4 - [#4] STATIC+12
^DPT - [#2] PATIENT2+4, DX+4, STATIC+4

Label References

Name Line Occurrences
ADD MAIN+10
DATE MAIN+6
DELETE EDIT+3
DX DXPX+2
DXPX EDIT+7
EDIT MAIN+12
EOJ START+3
MAIN START+2
NUMBER MAIN+8
PATIENT MAIN+4
PATIENT2 PATIENT+1
STATIC EDIT+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % STATIC+9*, STATIC+10, STATIC+11, STATIC+12, STATIC+13, STATIC+18*, STATIC+19, STATIC+20, STATIC+21, STATIC+23*
, STATIC+24, STATIC+25, STATIC+26
>> APCDOVRR MAIN+3*
>> BMCCHSA STATIC+32
BMCDFN PATIENT+1, PATIENT2+4*, PATIENT2+6!, ADD+2, DX+4, STATIC+4, STATIC+11, STATIC+15, STATIC+24, STATIC+25
, STATIC+26
BMCDX DX+15, DX+16!
>> BMCDXPR DXPX+1
>> BMCDXT DX+11*
>> BMCHOUSA STATIC+35
>> BMCIHSA STATIC+33
BMCLOOK MAIN+2*, DX+10*, DX+14!, PX+6*, PX+10!, COMMENTS+6*, COMMENTS+9!
>> BMCMODE MAIN+2*
>> BMCOTHRA STATIC+34
>> BMCPARM START+1
BMCPX PX+11, PX+12!
>> BMCPXT PX+7*
>> BMCQ START+2, MAIN+1*, MAIN+5, MAIN+7, MAIN+9, MAIN+11, PATIENT+1, PATIENT2+1*, PATIENT2+5*, DATE+1*
, DATE+4*, DATE+14*, NUMBER+1*, NUMBER+6*, ADD+1*, ADD+8*, EDIT+3*, DX+9*, DX+15*, DX+18*
, PX+5*, PX+11*, PX+14*, COMMENTS+5*, COMMENTS+13*
>> BMCRDATE DATE+3*, ADD+2
>> BMCREC STATIC+3*, STATIC+9, STATIC+18, STATIC+23
>> BMCREC("PAT N AME" , PATIENT2+4*, PATIENT2+6!
>> BMCREC("REF D ATE" , DATE+3*
>> BMCRIEN ADD+7*, EDIT+1, EDIT+4, DELETE+2, DX+3, DX+12, PX+8, COMMENTS+7, COMMENTS+10, STATIC+3
, STATIC+28, STATIC+30
>> BMCRNUMB NUMBER+5*, ADD+2, ADD+5
>> BMCRTYPE STATIC+32, STATIC+33, STATIC+34, STATIC+35
DA PATIENT2+8!, DATE+2!, EDIT+1*, DELETE+2*, DX+12*, PX+8*, COMMENTS+7*, COMMENTS+10*, STATIC+28*
>> DDSCHANG EDIT+3
>> DDSFILE EDIT+1*
>> DDSPARM EDIT+1*
>> DIC PATIENT2+2*, ADD+2*
>> DIC("DR" ADD+2*
>> DIC(0 PATIENT2+2*, ADD+2*
>> DIE DX+12*, PX+8*, COMMENTS+7*, COMMENTS+10*, STATIC+28*
>> DIK DELETE+2*
DIR PATIENT2+8!, DATE+2!, DX+7!, PX+3!, COMMENTS+3!
DIR("?" DX+6*, PX+2*, COMMENTS+2*
DIR("A" PATIENT2+8*, DX+6*, PX+2*, COMMENTS+2*
DIR("B" PATIENT2+8*, DATE+2*, DX+6*, PX+2*, COMMENTS+2*
DIR(0 PATIENT2+8*, DATE+2*, DX+6*, PX+2*, COMMENTS+2*
>> DIRUT DATE+2, DX+8, PX+4, COMMENTS+4
>> DLAYGO ADD+2*
>> DR EDIT+1*, DX+12*, PX+8*, COMMENTS+7*, COMMENTS+10*, STATIC+5*, STATIC+6*, STATIC+7*, STATIC+8*, STATIC+11*
, STATIC+12*, STATIC+13*, STATIC+16*, STATIC+17*, STATIC+20*, STATIC+21*, STATIC+24*, STATIC+25*, STATIC+26*
DT ADD+2
DUZ ADD+2
IOF DX+1
U PATIENT2+4, NUMBER+3, DX+3, DX+4, STATIC+5, STATIC+6, STATIC+7, STATIC+8, STATIC+9, STATIC+11
, STATIC+12, STATIC+13, STATIC+16, STATIC+17, STATIC+18, STATIC+20, STATIC+21, STATIC+23, STATIC+30
>> X NUMBER+2*, NUMBER+4, NUMBER+5, ADD+2*
>> Y PATIENT2+3, PATIENT2+4, PATIENT2+6, DATE+3, ADD+4, ADD+7, EDIT+4*, DX+3*, DX+9, PX+5
, COMMENTS+5, STATIC+4*, STATIC+5, STATIC+6, STATIC+7, STATIC+8, STATIC+15*, STATIC+16, STATIC+17
>> Y(0 DATE+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All