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

Package: IHS Patient Merge

Routine: BPMPTR


Information

BPMPTR ;IHS/PHXAO/AEF - FIND POINTERS TO FILE ENTRY

Source Information

Source file <BPMPTR.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 NOW^%DTC  EN^DDIOL  ^DIC  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
IHS VA Utilities 1 ^XBKVAR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Patient Merge 1 BPM PRINT POINTERS  

Entry Points

Name Comments DBIA/ICR reference
WRITE(VAL,L,TCNT,FILE,PAGE,OUT) ;
LOOP(GR,VAL,FILE,L,TXT,TCNT,CNT,PAGE,OUT) ;
EN ;EP -- MAIN ENTRY POINT
QUE(ZTRTN,ZTSAVE,ZTDESC) ;
L(GR,LVL,L) ;
FILE(FILE) ;
FIND(FILE,VAL) ;EP
LVL(FILE,PFILE,PFLD,LVL,TXT) ;
NP(X) ;----- PUT QUOTES AROUND ALPHA NODE
L2 ;
HDR(FILE,VAL,PAGE,OUT) ;
NOW() ;
L1 ;
PTR(FILE,VAL,PFILE,PFLD,TCNT,CNT,PAGE,OUT) ;
DESC ;----- ROUTINE DESCRIPTION
VAL(VAL) ;
DQ ;EP -- QUEUED JOB ENTRY POINT

External References

Name Field # of Occurrence
NOW^%DTC NOW+4
^%ZIS QUE+5
HOME^%ZIS EN+5
^%ZISC DQ+12
^%ZTLOAD QUE+10
EN^DDIOL DESC+14
^DIC FILE+11
^DIR VAL+9, HDR+7
^XBKVAR EN+4, DQ+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,TCNT," POINTERS FOUND"
  • Line Location: FIND+21
Function Call: WRITE
  • Prompt: !!,CNT_".",?5,TXT
  • Line Location: LOOP+15
Function Call: WRITE
  • Prompt: !?5,"<FILE CORRUPTED!!!>"
  • Line Location: LOOP+17
Function Call: WRITE
  • Prompt: !
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: " "_DUZ2
  • Line Location: WRITE+8
Function Call: WRITE
  • Prompt: " "_$P(L(X),U,4)
  • Line Location: WRITE+14
Function Call: WRITE
  • Prompt: " "_VAL
  • Line Location: WRITE+16
Function Call: WRITE
  • Prompt: !!?5,"<<< MISSING DATA IN '^DD("_UP_","_"""SB"""_","_SFILE_",0)' NODE! >>>"
  • Line Location: LVL+32
Function Call: WRITE
  • Prompt: !,"Task #",$G(TASK)," queued"
  • Line Location: QUE+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,"Pointers to IEN #"_VAL_" in the "_$P(^DIC(FILE,0),U)_" file #"_FILE
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !?49,$$NOW
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: " PAGE ",PAGE
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+19
Routine Call
  • %ZIS
  • Line Location:
    • EN+5
Routine Call
  • DIC
  • Line Location:
    • FILE+11
Routine Call
  • DIR
  • Line Location:
    • VAL+9
    • HDR+7
Routine Call
  • %ZIS
  • Line Location:
    • QUE+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC - [#1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( FIND+16, FIND+18, LVL+21, LVL+25, LVL+28, LVL+30, LVL+34, LVL+44
^DD("DD" NOW+6
^DIC - [#1] PTR+14, L2+12, HDR+14

Label References

Name Line Occurrences
$$NOW HDR+15
$$NP LVL+22, LVL+36
@( QUE+12
DESC EN+7
FILE EN+9
FIND DQ+10
HDR FIND+9, LOOP+13, WRITE+6, WRITE+12
L PTR+15
L1 LOOP+26
L2 L1+2, L2+6, L2+14
LOOP PTR+16
LVL PTR+12
PTR FIND+19
QUE EN+21
VAL EN+13
WRITE L2+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NOW+3~, NOW+7
%H NOW+3~
%I NOW+3~
%ZIS QUE+3~, QUE+4*
CNT FIND+4~, FIND+12*, FIND+19, PTR~, PTR+16, LOOP~, LOOP+12*, LOOP+15, LVL+16~, LVL+20*
, LVL+27*, LVL+35, LVL+36, LVL+40, LVL+43*, LVL+44, LVL+45
D LOOP+10~
D( L2+5*, L2+6, L2+7
DIC FILE+3~, FILE+6*
DIC("?" FILE+10*
DIC("A" FILE+8*
DIC("B" FILE+9*
DIC(0 FILE+7*
DIR VAL+3~, HDR+3~, HDR+8!
DIR("?" VAL+8*
DIR("A" VAL+7*
DIR(0 VAL+6*, HDR+6*
DIRUT VAL+3~, VAL+10, HDR+3~
DT NOW+5
DTOUT FILE+3~, FILE+12, VAL+3~, VAL+10, HDR+3~
DUOUT FILE+3~, FILE+12, VAL+3~, VAL+10, HDR+3~
DUZ(2 LOOP+27
DUZ2 PTR+10~, LOOP+21*, LOOP+22, LOOP+23*, LOOP+25, LOOP+27*, WRITE+5, WRITE+8
FILE EN+2~, EN+9, EN+10*, EN+11, DQ+8, DQ+10, DQ+11!, FIND~, FIND+9, FIND+16
, FIND+18, FIND+19, PTR~, PTR+12, PTR+16, LOOP~, LOOP+13, L2+12, L2+13, WRITE~
, WRITE+6, WRITE+12, LVL~, FILE~, FILE+5*, FILE+13*, HDR~, HDR+14
FLD LVL+16~, LVL+30*, LVL+31, LVL+34
GBL LOOP+10~, L2+4*, L2+5, L2+9*, L2+10
GBLD LOOP+10~, LOOP+20*, LOOP+22*, LOOP+23, LOOP+25*
GR PTR+10~, PTR+13*, PTR+14*, PTR+15, PTR+16, LOOP~, LOOP+16, LOOP+19, LOOP+20, LOOP+25
, L~, L+21, L+23, L+26*, L+27
I DESC+14~*, LVL+16~, LVL+38*, LVL+39*, LVL+40, LVL+41, HDR+3~, HDR+18*
IO QUE+3~
IO("Q" QUE+7, QUE+8!
IOF HDR+13
IOM QUE+9, HDR+18
ION QUE+9
IOSL LOOP+13, WRITE+6, WRITE+12, QUE+9
IOST QUE+9, HDR+5
L PTR+10~, PTR+15, PTR+16, LOOP~, L1+1*, L1+2*, L2+2, L2+4, L2+5, L2+6*
, L2+7, L2+8, L2+9, L2+13, WRITE~, L~, L+17*, L+18*, L+19, L+20
, L+24*, L+25*, L+26, L+27, L+28
L( L1+2, L2+4, L2+6*, L2+7*, L2+8, L2+9, WRITE+11, WRITE+14, L+20*, L+25
, L+26, L+27*
L(0 LOOP+24*, L2+9, L2+10, L+21*, L+23*
LASTL L+15~, L+28*
LVL PTR+10~, PTR+12, PTR+15, LVL~, LVL+17!, L~
LVL( PTR+13, LVL+35*, LVL+36*, LVL+39, LVL+40*, LVL+41, LVL+44*, LVL+45, L+18, L+19
, L+20
LVL(0 LVL+21*, LVL+22*, L+21
LVL(9999 PTR+13
N LVL+16~, NP+5~, NP+7*, NP+8, NP+9*, NP+10
OUT FIND+4~, FIND+7*, FIND+9, FIND+10, FIND+16, FIND+18, FIND+19, PTR~, PTR+16, LOOP~
, LOOP+13, LOOP+14, LOOP+23, L1+2, L2+3, L2+13, WRITE~, WRITE+6, WRITE+7, WRITE+9
, WRITE+11, WRITE+12, WRITE+13, WRITE+15, HDR~, HDR+9*, HDR+10
PAGE FIND+4~, FIND+6*, FIND+9, FIND+19, PTR~, PTR+16, LOOP~, LOOP+13, L2+13, WRITE~
, WRITE+6, WRITE+12, HDR~, HDR+5, HDR+12*, HDR+16
PFILE FIND+4~, FIND+15*, FIND+16*, FIND+18, FIND+19, PTR~, PTR+12, LVL~, LVL+21, LVL+23
PFLD FIND+4~, FIND+17*, FIND+18*, FIND+19, PTR~, PTR+12, LVL~, LVL+21
POP QUE+3~, QUE+6
PVAL LOOP+10~, L2+10*, L2+11, L2+12, L2+13
SFILE LVL+16~, LVL+23*, LVL+25, LVL+28, LVL+29, LVL+30, LVL+32, LVL+33*, LVL+35, LVL+37*
, LVL+44
SS LVL+16~, LVL+34*, LVL+35
>> TASK QUE+11
TCNT FIND+4~, FIND+13*, FIND+19, FIND+21, PTR~, PTR+16, LOOP~, L2+13, WRITE~, WRITE+17*
TITLE EN+2~
TXT PTR+10~, PTR+12, PTR+16, LOOP~, LOOP+15, LVL~, LVL+19*, LVL+42*, LVL+45*
U PTR+13, LOOP+24, L2+4, L2+6, L2+7, L2+9, L2+10, L2+12, WRITE+14, LVL+21
, LVL+22, LVL+28, LVL+34, LVL+35, LVL+36, LVL+40, LVL+41, LVL+44, LVL+45, L+20
, L+21, L+23, L+26, L+27, HDR+14
UP LVL+16~, LVL+24, LVL+25*, LVL+26, LVL+30, LVL+32, LVL+33, LVL+34, LVL+35, LVL+37
VAL EN+2~, EN+13, EN+14*, EN+15, DQ+9, DQ+10, DQ+11!, FIND~, FIND+9, FIND+19
, PTR~, PTR+16, LOOP~, LOOP+13, L2+11, WRITE~, WRITE+6, WRITE+12, WRITE+16, VAL~
, VAL+5*, VAL+11*, HDR~, HDR+14
X DESC+14~*, WRITE+3~, WRITE+10*, WRITE+11*, WRITE+14, LVL+16~, LVL+28*, LVL+29*, LVL+35, LVL+41*
, LVL+42, FILE+3~, VAL+3~, HDR+3~, NP~, NP+6, NOW+3~
Y FILE+3~, FILE+12, FILE+13, VAL+3~, VAL+10, VAL+11, HDR+3~, HDR+9, NP+5~, NP+6*
, NP+7, NP+10*, NP+11, NOW+5*, NOW+7
ZTDESC EN+2~, EN+18*, EN+21, QUE~
ZTIO QUE+3~, QUE+9*
ZTRTN EN+2~, EN+17*, EN+21, QUE~, QUE+12
ZTSAVE EN+2~, EN+21, QUE~
ZTSAVE("FILE" EN+19*
ZTSAVE("VAL" EN+20*
ZTSK QUE+3~, QUE+11

Marked Items

Name Field # of Occurrence
$T(DESC+I DESC+14
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