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

Package: IHS Patient Merge

Routine: BPMCHK


Information

BPMCHK ;IHS/OIT/LJF - PROGRAMMER CHECK FOR PAT MERGE COMPLIANCE

Source Information

Source file <BPMCHK.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
IHS Patient Merge 1 $$READ^BPMU  

Entry Points

Name Comments DBIA/ICR reference
EN ;EP; loop through database and find possible files that need
; special merge routines
OKWP(SUBFILE) ; returns 1 if subfile already in special merge routine
KNOWNWP ;;
REGXREF(FILE,FIELD) ; return 1 if field has regular xref
TOPFILE(FILE) ;returns file and subfile names
VAR(FILE,FIELD) ; returns 1 if field is a variable pointer to files 2 or 9000001
KNOWNVP ;;
BUILD ;EP; builds array of findings
OKVP(FILE,FIELD) ; returns 1 if file/field comb already known
DISPLAY ; write findings to screen
PTR(FILE,FIELD) ; return 1 if this field in this file is a pointer to files 2 or 9000001

External References

Name Field # of Occurrence
$$READ^BPMU EN+8, EN+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This routine will build an array of files which might need special"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"merge routines due to their structure. This includes pointers without"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"regular cross-references, variable pointers to files 2 or 9000001, and"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"files DINUM'ed to files 2 or 9000001 with word-processing fields.",!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,"NONE FOUND"
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !!!,"DINUM'ED FILES WITH WORD-PROCESSING FIELDS WITHOUT A SPECIAL MERGE WRITTEN",!
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !,"FILE: ",FILE," (",$P(^DIC(FILE,0),U),") SUBFILE: ",SUBFILE," (",$P($P(^DD(SUBFILE,0),U)," SUB-FIELD"),")"
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !!!,"FILES WITH POINTERS BUT NO REGULAR CROSS-REFERENCES - WARNING ONLY",!
  • Line Location: DISPLAY+12
Function Call: WRITE
  • Prompt: !!!,"FILES WITH VARIABLE POINTERS & NOT ALREADY HANDLED BY PATIENT MERGE",!
  • Line Location: DISPLAY+13
Function Call: WRITE
  • Prompt: !,"FILE: ",FILE," (",$$TOPFILE(FILE),") FIELD: ",FIELD," (",$P(^DD(FILE,FIELD,0),U),")"
  • Line Location: DISPLAY+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( BUILD+4, BUILD+7, BUILD+8, BUILD+9, BUILD+10, BUILD+16, DISPLAY+6, DISPLAY+16, PTR+2, REGXREF+3
, REGXREF+4, VAR+1, VAR+2, VAR+3, TOPFILE+1, TOPFILE+3, TOPFILE+4, TOPFILE+5, TOPFILE+6
^DIC - [#1] DISPLAY+6, TOPFILE+1, TOPFILE+7
^TMP("BPMCHK" EN+14, BUILD+2!, BUILD+12*, BUILD+17*, BUILD+18*, DISPLAY+3, DISPLAY+4, DISPLAY+11, DISPLAY+15

Label References

Name Line Occurrences
$$OKVP BUILD+18
$$OKWP BUILD+11
$$PTR BUILD+10, BUILD+17
$$REGXREF BUILD+17
$$TOPFILE DISPLAY+16
$$VAR BUILD+18
BUILD EN+13
DISPLAY EN+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BPMWARN EN+10~, EN+12*, DISPLAY+10
CAT DISPLAY+1~, DISPLAY+9*, DISPLAY+10, DISPLAY+11, DISPLAY+12, DISPLAY+13, DISPLAY+15
FIELD BUILD+1~, BUILD+15*, BUILD+16*, BUILD+17, BUILD+18, DISPLAY+1~, DISPLAY+15*, DISPLAY+16, PTR~, PTR+2
, REGXREF~, REGXREF+3, REGXREF+4, VAR~, VAR+1, VAR+2, VAR+3, OKVP~, OKVP+4
FILE BUILD+1~, BUILD+4*, BUILD+7, BUILD+8, BUILD+9, BUILD+11, BUILD+12, BUILD+16, BUILD+17, BUILD+18
, DISPLAY+1~, DISPLAY+3*, DISPLAY+4, DISPLAY+6, DISPLAY+11*, DISPLAY+15, DISPLAY+16, PTR~, PTR+2, REGXREF~
, REGXREF+3, REGXREF+4, VAR~, VAR+1, VAR+2, VAR+3, OKVP~, OKVP+4, TOPFILE~, TOPFILE+1
, TOPFILE+3, TOPFILE+4, TOPFILE+5*, TOPFILE+6, TOPFILE+7
FIRST DISPLAY+1~, DISPLAY+2*, DISPLAY+5*, DISPLAY+9*, DISPLAY+12*, DISPLAY+13*
FOUND REGXREF+1~, REGXREF+2*, REGXREF+4*, REGXREF+5, OKVP+1~, OKVP+2*, OKVP+4*, OKVP+5, OKWP+1~, OKWP+2*
, OKWP+4*, OKWP+5
HELP EN+10~, EN+11*, EN+12
N OKVP+1~, OKVP+3*, OKWP+1~, OKWP+3*
NAME TOPFILE+2~, TOPFILE+3*, TOPFILE+6*, TOPFILE+7*, TOPFILE+8
NODE PTR+1~, PTR+2*, PTR+3, PTR+4, PTR+5, PTR+6
PARENT BUILD+1~, BUILD+9*, BUILD+10, BUILD+12
SUBFILE DISPLAY+1~, DISPLAY+4*, DISPLAY+6, OKWP~, OKWP+4
U BUILD+7, BUILD+8, BUILD+10, DISPLAY+6, DISPLAY+16, PTR+3, PTR+4, PTR+5, PTR+6, REGXREF+4
, VAR+1, TOPFILE+1, TOPFILE+3, TOPFILE+6, TOPFILE+7
XREF REGXREF+1~, REGXREF+3*, REGXREF+4

Marked Items

Name Field # of Occurrence
$T(KNOWNVP+N OKVP+3, OKVP+4
$T(KNOWNWP+N OKWP+3, OKWP+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All