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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BMCFPIN

Package: Referred Care Information System

Routine: BMCFPIN


Information

BMCFPIN ; IHS/ITSC/FCJ - PRINT IN-HOUSE REFERRAL FORM ;

Source Information

Source file <BMCFPIN.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Referred Care Information System 2 WP^BMCFDR  $$AVDOS^BMCRLU  
DRG Grouper 1 $$ICDDX^ICDEX  
IHS Patient 1 $$HRN^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
PRIORITY ;
HEAD ;
REFFROM ;
D ;
HEAD1 ;
REFTO ;
PERTMED ;
DEMO ;Demographic Data
L ;
REFTYP ;REFERRAL TYPE
DATE ;
S ;
HEAD2 ;
PURPOSE ;
W ;
WP ;
PRINT ;
FLUP ;FOLLOW UP INFO
ADDINFO ;
ADDMED ;

External References

Name Field # of Occurrence
$$HRN^AUPNPAT DEMO+5
WP^BMCFDR WP+1
$$AVDOS^BMCRLU DATE+3, PURPOSE+13
^DIR HEAD+2
$$ICDDX^ICDEX PURPOSE+14
$$VAL^XBDIQ1 PRINT+5, REFTYP+4, REFTO+2, REFTO+3, REFTO+4, REFTO+5, REFTO+6, DATE+2, DATE+4, DATE+5
, PURPOSE+1, PURPOSE+20, ADDMED+2, PRIORITY+2, PRIORITY+3, REFFROM+2, DEMO+3, DEMO+4, ADDINFO+3, ADDINFO+4
, ADDINFO+5, ADDINFO+6, ADDINFO+7, ADDINFO+8, ADDINFO+9, ADDINFO+10, ADDINFO+11, ADDINFO+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," Please select an IN-HOUSE Referral"
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFTYP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: REFTYP+3
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFTYP+4
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFTO+2
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFTO+3
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFTO+4
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFTO+5
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: REFTO+6
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: DATE+5
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PURPOSE+3
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PURPOSE+4
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PURPOSE+5
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PERTMED+1
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: ADDMED+2
Function Call: WRITE
  • Prompt: "Follow up visit MUST be approved by an IHS physcian.",!,"Please provide additional Notes: ",!!!!
  • Line Location: FLUP+2
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PRIORITY+2
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PRIORITY+3
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: PRIORITY+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRIORITY+5
Function Call: WRITE
  • Prompt: "_"
  • Line Location: PRIORITY+5
Function Call: WRITE
  • Prompt: ?45,"____________________"
  • Line Location: PRIORITY+6
Function Call: WRITE
  • Prompt: !,"SIGNATURE",?45,"DATE"
  • Line Location: PRIORITY+7
Function Call: WRITE
  • Prompt: "Referring Facility: ",$$VAL^XBDIQ1(9999999.06,DUZ(2),.01)
  • Line Location: REFFROM+2
Function Call: WRITE
  • Prompt: !,"Referring Provider: "
  • Line Location: REFFROM+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: REFFROM+4
Function Call: WRITE
  • Prompt: "_"
  • Line Location: REFFROM+4
Function Call: WRITE
  • Prompt: ?45,"____________________"
  • Line Location: REFFROM+5
Function Call: WRITE
  • Prompt: !,"SIGNATURE",?45,"DATE",!
  • Line Location: REFFROM+6
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: DEMO+2
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: DEMO+3
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: DEMO+4
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: DEMO+5
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: ADDINFO+2
Function Call: WRITE
  • Prompt: !,"PCC VISIT FORM: ",$$VAL^XBDIQ1(90001,BMCREF,401)
  • Line Location: ADDINFO+3
Function Call: WRITE
  • Prompt: ?28,"SPECIALTY CLINIC NOTES: ",$$VAL^XBDIQ1(90001,BMCREF,402)
  • Line Location: ADDINFO+4
Function Call: WRITE
  • Prompt: ?55,"PRENATAL RECORD/S: ",$$VAL^XBDIQ1(90001,BMCREF,403)
  • Line Location: ADDINFO+5
Function Call: WRITE
  • Prompt: !,"FACE SHEET: ",$$VAL^XBDIQ1(90001,BMCREF,405)
  • Line Location: ADDINFO+6
Function Call: WRITE
  • Prompt: ?28,"HEALTH SUMMARY: ",$$VAL^XBDIQ1(90001,BMCREF,406)
  • Line Location: ADDINFO+7
Function Call: WRITE
  • Prompt: ?55,"MOST RECENT EKG: ",$$VAL^XBDIQ1(90001,BMCREF,407)
  • Line Location: ADDINFO+8
Function Call: WRITE
  • Prompt: !,"HISTORY AND PHYSICAL: ",$$VAL^XBDIQ1(90001,BMCREF,408)
  • Line Location: ADDINFO+9
Function Call: WRITE
  • Prompt: ?28,"E-RAY/REPORT: ",$$VAL^XBDIQ1(90001,BMCREF,409)
  • Line Location: ADDINFO+10
Function Call: WRITE
  • Prompt: ?55,"MOST RECENT LAB REPORT: ",$$VAL^XBDIQ1(90001,BMCREF,412)
  • Line Location: ADDINFO+11
Function Call: WRITE
  • Prompt: !?32,"E-RAY FILM: ",$$VAL^XBDIQ1(90001,BMCREF,410)
  • Line Location: ADDINFO+12
Function Call: WRITE
  • Prompt: !,"ADDITIONAL DOCUMENTS: "
  • Line Location: ADDINFO+13
Function Call: WRITE
  • Prompt: !
  • Line Location: W+5
Function Call: WRITE
  • Prompt: ?(IOM-$L(X)/2),X
  • Line Location: W+6
Function Call: WRITE
  • Prompt: ?%,X
  • Line Location: W+7
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: L+1
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: D+1
Function Call: WRITE
  • Prompt: Q:BMCQUIT
  • Line Location: S+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HEAD2+2
Function Call: WRITE
  • Prompt: !,?(IOM-20),"Page ",BMCPG
  • Line Location: HEAD2+2
Routine Call
  • DIR
  • Line Location:
    • HEAD+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BMCCOM - [#90001.03] PERTMED+4
^BMCCOM("AD" PERTMED+3
^BMCDX - [#90001.01] PURPOSE+14
^BMCDX("AD" PURPOSE+7, PURPOSE+9
^BMCPX("AD" PURPOSE+16, PURPOSE+18
^BMCREF - [#90001] PRINT+2, DATE+5

Label References

Name Line Occurrences
@( PRINT+3
DATE PRINT+6
HEAD PERTMED+8, ADDINFO+16, W+4
L REFTYP+1, REFTO+1, DATE+1, DATE+6, PURPOSE+21, ADDMED+1, FLUP+1, PRIORITY+1, REFFROM+1, ADDINFO+1
PURPOSE PRINT+6
REFTO PRINT+6
REFTYP PRINT+6
W REFTYP+2, REFTYP+4, REFTO+2, REFTO+3, REFTO+4, REFTO+5, REFTO+6, DATE+2, DATE+3, DATE+4
, DATE+5, PURPOSE+3, PURPOSE+4, PURPOSE+5, PERTMED+1, ADDMED+2, PRIORITY+2, PRIORITY+3, PRIORITY+4, DEMO+2
, DEMO+3, DEMO+4, DEMO+5, ADDINFO+2, L+1, D+1, S+1
WP PERTMED+6, ADDINFO+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% W+2~, W+3*, W+7*
>> BMCCMT PERTMED+2*, PERTMED+3*, PERTMED+4, PERTMED+5
>> BMCDA PERTMED+5*, ADDINFO+14*
>> BMCDFN PRINT+2*
>> BMCDOS PURPOSE+13*, PURPOSE+14
>> BMCFILE PERTMED+5*, ADDINFO+14*
BMCIOM PERTMED+5*, PERTMED+6!, ADDINFO+14*!
>> BMCNODE PERTMED+5*, ADDINFO+14*
>> BMCPG PRINT+2*, HEAD2+1*, HEAD2+2*
>> BMCQUIT PRINT+4*, PRINT+5*, REFTYP+2, REFTYP+4, REFTO+2, REFTO+3, REFTO+4, REFTO+5, REFTO+6, DATE+2
, DATE+3, DATE+4, DATE+5, PURPOSE+3, PURPOSE+4, PURPOSE+5, PERTMED+1, PERTMED+7, PERTMED+8, ADDMED+2
, PRIORITY+2, PRIORITY+3, PRIORITY+4, DEMO+1, DEMO+2, DEMO+3, DEMO+4, DEMO+5, ADDINFO+2, ADDINFO+15
, ADDINFO+16, W+4, L+1, D+1, S+1, HEAD+2*
>> BMCR0 PRINT+2*, DATE+3, DEMO+4, DEMO+5
>> BMCREF PRINT+2, PRINT+5, REFTYP+4, REFTO+2, DATE+2, DATE+3, DATE+4, DATE+5, PURPOSE+1, PURPOSE+7
, PURPOSE+9, PURPOSE+16, PURPOSE+18, PERTMED+3, ADDMED+2, PRIORITY+2, PRIORITY+3, DEMO+3, ADDINFO+3, ADDINFO+4
, ADDINFO+5, ADDINFO+6, ADDINFO+7, ADDINFO+8, ADDINFO+9, ADDINFO+10, ADDINFO+11, ADDINFO+12, ADDINFO+14
>> BMCRIEN PURPOSE+13
>> BMCWP( PERTMED+7, PERTMED+9, ADDINFO+15, ADDINFO+17
>> BMCX PURPOSE+3*, PURPOSE+4, PURPOSE+9*, PURPOSE+14, PURPOSE+18*, PURPOSE+20
C REFTYP+2*, REFTYP+4*, REFTO+2*, REFTO+3*, REFTO+4*, REFTO+5*, REFTO+6*, DATE+2*, DATE+3*, DATE+4*
, DATE+5*, PURPOSE+3*, PURPOSE+4*, PURPOSE+5*, PERTMED+1*, ADDMED+2*, PRIORITY+2*, PRIORITY+3*, PRIORITY+4*, DEMO+2*
, DEMO+3*, DEMO+4*, DEMO+5*, ADDINFO+2*, W+6, L+1*, D+1*, S+1*, HEAD+1~
DIR HEAD+2!
DIR(0 HEAD+2*
>> DTOUT HEAD+2
DUZ(2 REFTO+3, REFTO+4, REFTO+5, REFTO+6, REFFROM+2, DEMO+5
>> I PRIORITY+5*, REFFROM+4*, W+5*
IO HEAD+2
IO(0 HEAD+2
IOF HEAD1+1, HEAD2+2
IOM PURPOSE+2, PURPOSE+3, PURPOSE+4, W+6, L+1, D+1, S+1, HEAD2+2
IOSL PERTMED+8, ADDINFO+16, W+4
IOST PRINT+3, HEAD+2
N REFTYP+2*, REFTYP+4*, REFTO+2*, REFTO+3*, REFTO+4*, REFTO+5*, REFTO+6*, DATE+2*, DATE+3*, DATE+4*
, DATE+5*, PURPOSE+3*, PURPOSE+4*, PURPOSE+5*, PERTMED+1*, ADDMED+2*, PRIORITY+2*, PRIORITY+3*, PRIORITY+4*, DEMO+2*
, DEMO+3*, DEMO+4*, DEMO+5*, ADDINFO+2*, W+5, L+1*, D+1*, S+1*, HEAD+1~
T REFTYP+2*, REFTYP+4*, REFTO+2*, REFTO+3*, REFTO+4*, REFTO+5*, REFTO+6*, DATE+2*, DATE+3*, DATE+4*
, DATE+5*, PURPOSE+3*, PURPOSE+4*, PURPOSE+5*, PERTMED+1*, ADDMED+2*, PRIORITY+2*, PRIORITY+3*, PRIORITY+4*, DEMO+2*
, DEMO+3*, DEMO+4*, DEMO+5*, ADDINFO+2*, W+7, L+1*, D+1*, S+1*, HEAD+1~
U PRINT+2, DATE+3, DATE+5, PURPOSE+14, PERTMED+4, DEMO+4, DEMO+5
X REFTYP+2*, REFTYP+4*, REFTO+2*, REFTO+3*, REFTO+4*, REFTO+5*, REFTO+6*, DATE+2*, DATE+3*, DATE+4*
, DATE+5*, PURPOSE+1*, PURPOSE+2, PURPOSE+3*, PURPOSE+4*, PURPOSE+9*, PURPOSE+10*, PURPOSE+18*, PURPOSE+19*, PERTMED+1*
, ADDMED+2*, PRIORITY+2*, PRIORITY+3*, PRIORITY+4*, DEMO+2*, DEMO+3*, DEMO+4*, DEMO+5*, ADDINFO+2*, W+1
, W+3, W+6, W+7, L+1*, D+1*, S+1*, HEAD+1~
Y PERTMED+7*, PERTMED+9, ADDINFO+15*, ADDINFO+17, HEAD+1~, HEAD+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All