Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BPMHRCN

Package: IHS Patient Merge

Routine: BPMHRCN


Information

BPMHRCN ; IHS/TUCSON/JCM - DISPLAYS CHART NUMBERS FROM PATIENT FILE ;

Source Information

Source file <BPMHRCN.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
CHART2 ;prints second patient's chart numbers
CHARTS ; Displays chart numbers and facilities for patients
EOJ ;
CHART2X ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** HEALTH RECORD NO."
  • Line Location: CHARTS+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: BPMLKI
  • Line Location: CHARTS+4
Function Call: WRITE
  • Prompt: ?23," ",$J($P(^AUTTLOC(BPMLKF,0),U,7),4)," ",$P(^AUPNPAT(Y,41,BPMLKF,0),U,2)
  • Line Location: CHARTS+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CHARTS+5
Function Call: WRITE
  • Prompt: ?49
  • Line Location: CHART2+3
Function Call: WRITE
  • Prompt: " ",$J($P(^AUTTLOC(BPMLKFF,0),U,7),4)," ",$P(^AUPNPAT(Y(2),41,BPMLKFF,0),U,2)
  • Line Location: CHART2+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] CHARTS+4, CHARTS+5, CHART2+1, CHART2+2, CHART2+3
^AUTTLOC - [#9999999.06] CHARTS+4, CHART2+3

Label References

Name Line Occurrences
CHART2 CHARTS+4, CHARTS+5
CHART2X CHART2+1
CHARTS START+1
EOJ START+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BPM EOJ+1!
BPMLKF CHARTS+3*, CHARTS+4*, EOJ+1!
BPMLKFF CHARTS+3*, CHARTS+5, CHART2+2*, CHART2+3, EOJ+1!
BPMLKI CHARTS+3*, CHARTS+4*, CHARTS+5, CHART2+1, EOJ+1!
BPMLKII CHARTS+5*, CHART2+1, EOJ+1!
U CHARTS+4, CHARTS+5, CHART2+1, CHART2+3
>> XDRMCD CHARTS+2
>> XDRMCD2 CHARTS+2
Y CHARTS+2*, CHARTS+4, EOJ+1!
Y(2 CHARTS+2*, CHARTS+4, CHARTS+5, CHART2+1, CHART2+2, CHART2+3
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All