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  | All
Print Page as PDF
Routine: IBMHPMPY3

Package: Integrated Billing

Routine: IBMHPMPY3


Information

IBMHPMPY3 ;EDE/WCJ-Multi-site maintain IB MH VISIT TRACKING FILE (#351.83) - (aka PushMi-PullYu); 22-OCT-23

Source Information

Source file <IBMHPMPY3.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Integrated Billing 4 ($$DFN,$$ICN)^IBARXMU  SITE^IBAUTL  $$TFL^IBMHPMPY1  ($$ADD,$$UPDATE)^IBMHPMPY2  
VA FileMan 3 ^%DT  (,FIND)^DIC  $$GET1^DIQ  
RPC Broker 2 (EN1,RPCCHK)^XWB2HL7  (CLEAR,RTNDATA)^XWBDRPC  
List Manager 1 PAUSE^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBMH MULTI FAC COPAY PULL REQ  

Entry Points

Name Comments DBIA/ICR reference
AWAY
PULL ; This will be called from a menu option.
; ask the patient and if selected, initiate the pull
AGAIN
GETPAT(IBDFN) ; Select a patient.
; Return 0 - no patient selected
; Return 1 - patient selected
; IBDFN will be the patient's IEN in file 2
PATIENTPULL(IBDFN,IBERR) ; This does a lot of the same stuff the push does only for a specific veteran.
; IBDFN - which patient
; IBERR - return array of results
PARSEPULL(IBPD,IBDFN,ERR) ; parse the record being pulled from the originating site
; IBPD is a packed data array
; "IEN^.01I^.01^C2^.03I^.04I^.05^.06I^.07I^1.01I^C9"
; "ien at originating site^dfn at originating site^patient name^originating site^event date^status^bill #^reason^unique id^update^full icn"
; "2^7229593^LASTNAME,FIRSTNAME MIDDLE^529^3190814^2^442-K902Z6L^^^99999999999v999999"
; IBDFN is the patient that we asked for
; ERR is returned even if it's not an ERROR so kind of a misnomer.
DISPLAYRES(IBDFN,IBPULLRESULTS) ; display results
WRITE(DATA,CNT) ;

External References

Name Field # of Occurrence
^%DT PARSEPULL+36
^DIC GETPAT+7
FIND^DIC PARSEPULL+41
$$GET1^DIQ PARSEPULL+38
$$DFN^IBARXMU PARSEPULL+17
$$ICN^IBARXMU PATIENTPULL+10
SITE^IBAUTL PATIENTPULL+9
$$TFL^IBMHPMPY1 PATIENTPULL+12
$$ADD^IBMHPMPY2 PARSEPULL+64
$$UPDATE^IBMHPMPY2 PARSEPULL+49
PAUSE^VALM1 WRITE+3
EN1^XWB2HL7 PATIENTPULL+20
RPCCHK^XWB2HL7 PATIENTPULL+32
CLEAR^XWBDRPC PATIENTPULL+48
RTNDATA^XWBDRPC PATIENTPULL+40

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Now sending query to ",$P(IBTFL(IBX),"^",2)," ..."
  • Line Location: PATIENTPULL+18
Function Call: WRITE
  • Prompt: !,"Query to site "_+IBTFL(IBX)_" completed."
  • Line Location: PATIENTPULL+39
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISPLAYRES+16
Function Call: WRITE
  • Prompt: !,DATA
  • Line Location: WRITE+2
Routine Call
  • DIC
  • Line Location:
    • GETPAT+7
Routine Call
  • DIC
  • Line Location:
    • PARSEPULL+41

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  GET1^DIQ
^IBMH(351.83 - [#351.83] FIND^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PARSEPULL+52, PARSEPULL+67
^TMP("DILIST" PARSEPULL+44, PARSEPULL+46, PARSEPULL+59, PARSEPULL+63
^TMP("IBMHPMPY" PATIENTPULL+4!
^TMP($J PATIENTPULL+46, PATIENTPULL+47!

Label References

Name Line Occurrences
$$GETPAT AGAIN
$$WRITE DISPLAYRES+12, DISPLAYRES+15
AGAIN AGAIN+7
AWAY IBMHPMPY3+9
DISPLAYRES AGAIN+4
PARSEPULL DISPLAYRES+10
PATIENTPULL AGAIN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARR DISPLAYRES+1~, DISPLAYRES+2*, DISPLAYRES+3*, DISPLAYRES+4, DISPLAYRES+5, DISPLAYRES+6, DISPLAYRES+7, DISPLAYRES+9, DISPLAYRES+13
CNT WRITE~, WRITE+3, WRITE+4*
DATA WRITE~, WRITE+2
DIC GETPAT+5~, GETPAT+7*
DIC(0 GETPAT+7*
DIROUT WRITE+1~
DIRUT WRITE+1~, WRITE+5
DPTNOFZY GETPAT+6~*
ERR PARSEPULL~
ERR(1 PARSEPULL+17*, PARSEPULL+26*, PARSEPULL+48*, PARSEPULL+53*, PARSEPULL+55*, PARSEPULL+60*, PARSEPULL+68*, PARSEPULL+70*
ERR(2 PARSEPULL+54*, PARSEPULL+69*
I DISPLAYRES+12~*
IBADDED PARSEPULL+13~, PARSEPULL+64*, PARSEPULL+65
IBBN PARSEPULL+13~, PARSEPULL+30*, PARSEPULL+48, PARSEPULL+49, PARSEPULL+64
IBC PATIENTPULL+6~, PATIENTPULL+32*
IBCNT DISPLAYRES+1~, DISPLAYRES+2*, DISPLAYRES+12, DISPLAYRES+15
IBDADDHERE PARSEPULL+13~, PARSEPULL+38*
IBDADDRS PARSEPULL+13~, PARSEPULL+37*
IBDATA PARSEPULL+45~, PARSEPULL+46*, PARSEPULL+47, PARSEPULL+48, DISPLAYRES+1~, DISPLAYRES+13*, DISPLAYRES+14*, DISPLAYRES+15
IBDFN PULL+3~, AGAIN, AGAIN+2, AGAIN+4, AGAIN+6!, GETPAT~, GETPAT+7*, PATIENTPULL~, PATIENTPULL+10, PATIENTPULL+12
, PARSEPULL~, PARSEPULL+17, PARSEPULL+38, PARSEPULL+64, DISPLAYRES~, DISPLAYRES+10
IBED PARSEPULL+13~, PARSEPULL+28*, PARSEPULL+52, PARSEPULL+64, PARSEPULL+67
IBEG PARSEPULL+13~, PARSEPULL+32*
IBERR PATIENTPULL~, PATIENTPULL+7*, PATIENTPULL+11*, PATIENTPULL+13*, PATIENTPULL+24*, PATIENTPULL+35*, PATIENTPULL+42*, PATIENTPULL+43, PATIENTPULL+45*, PATIENTPULL+46
, DISPLAYRES+8~, DISPLAYRES+10
IBERR( PATIENTPULL+11*, PATIENTPULL+13*, PATIENTPULL+24*, PATIENTPULL+35*, PATIENTPULL+43*, PATIENTPULL+46*, DISPLAYRES+12
IBERR(1 DISPLAYRES+11
IBFAC PATIENTPULL+6~
IBH PATIENTPULL+6~, PATIENTPULL+19~, PATIENTPULL+20
IBH(0 PATIENTPULL+22, PATIENTPULL+25
IBHERE PATIENTPULL+6~, PATIENTPULL+38!, PATIENTPULL+40, PATIENTPULL+41, PATIENTPULL+43
IBICN PATIENTPULL+6~, PATIENTPULL+10*, PATIENTPULL+11, PATIENTPULL+20, PARSEPULL+13~, PARSEPULL+16*, PARSEPULL+17
IBIEN PARSEPULL+10~, PARSEPULL+23*, PARSEPULL+24
IBIEN351P82 PARSEPULL+45~, PARSEPULL+47*, PARSEPULL+49
IBMAX DISPLAYRES+1~, DISPLAYRES+2*
IBOS PARSEPULL+10~, PARSEPULL+22*, PARSEPULL+24, PARSEPULL+64
IBOUT DISPLAYRES+1~, DISPLAYRES+2*, DISPLAYRES+3, DISPLAYRES+12*, DISPLAYRES+15*
IBPD PARSEPULL~, PARSEPULL+16, PARSEPULL+20, PARSEPULL+22, PARSEPULL+23, PARSEPULL+28, PARSEPULL+29, PARSEPULL+30, PARSEPULL+31, PARSEPULL+32
, PARSEPULL+35
IBPULLDATA DISPLAYRES+8~, DISPLAYRES+9*, DISPLAYRES+10
IBPULLRESULTS PULL+3~, AGAIN+2, AGAIN+4, AGAIN+6!, DISPLAYRES~
IBR PATIENTPULL+6~, PATIENTPULL+31~, PATIENTPULL+32, PATIENTPULL+38!
IBR(0 PATIENTPULL+32, PATIENTPULL+35, PATIENTPULL+37
IBRETURN PARSEPULL+10~, PARSEPULL+49, PARSEPULL+54, PARSEPULL+64, PARSEPULL+69
IBRS PARSEPULL+13~, PARSEPULL+31*, PARSEPULL+48, PARSEPULL+49, PARSEPULL+64
IBSITE PATIENTPULL+6~, PATIENTPULL+12, PATIENTPULL+20
IBST PARSEPULL+13~, PARSEPULL+29*, PARSEPULL+48, PARSEPULL+49, PARSEPULL+64
IBT PATIENTPULL+6~, PATIENTPULL+12*, PATIENTPULL+13
IBTFL PATIENTPULL+6~, PATIENTPULL+12
IBTFL( PATIENTPULL+17, PATIENTPULL+18, PATIENTPULL+20, PATIENTPULL+23*, PATIENTPULL+24, PATIENTPULL+25*, PATIENTPULL+28, PATIENTPULL+32, PATIENTPULL+35, PATIENTPULL+39
, PATIENTPULL+40, PATIENTPULL+43, PATIENTPULL+46, PATIENTPULL+48
IBUID PARSEPULL+10~, PARSEPULL+20*, PARSEPULL+21, PARSEPULL+24*, PARSEPULL+26, PARSEPULL+41, PARSEPULL+53, PARSEPULL+60, PARSEPULL+64, PARSEPULL+68
IBUPDATED PARSEPULL+13~, PARSEPULL+49*, PARSEPULL+50
IBX PATIENTPULL+6~, PATIENTPULL+17*, PATIENTPULL+18, PATIENTPULL+20, PATIENTPULL+23, PATIENTPULL+24, PATIENTPULL+25, PATIENTPULL+28*, PATIENTPULL+32, PATIENTPULL+35
, PATIENTPULL+39, PATIENTPULL+40, PATIENTPULL+43, PATIENTPULL+46, PATIENTPULL+48
IBZ PATIENTPULL+6~, PATIENTPULL+48
U PATIENTPULL+32, PARSEPULL+16, PARSEPULL+20, PARSEPULL+22, PARSEPULL+23, PARSEPULL+28, PARSEPULL+29, PARSEPULL+30, PARSEPULL+31, PARSEPULL+32
, PARSEPULL+35, PARSEPULL+48, PARSEPULL+54, PARSEPULL+69, DISPLAYRES+11, DISPLAYRES+12, DISPLAYRES+14
X GETPAT+5~, PARSEPULL+34~, PARSEPULL+35*
Y GETPAT+5~, GETPAT+7, GETPAT+8, PARSEPULL+37, PARSEPULL+51~, PARSEPULL+52*, PARSEPULL+53, PARSEPULL+66~, PARSEPULL+67*, PARSEPULL+68
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  | All