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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: IBTRH3

Package: Integrated Billing

Routine: IBTRH3


Information

IBTRH3 ;ALB/VAD - IBT HCSR RESPONSE VIEW ;02-JUN-2014

Source Information

Source file <IBTRH3.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Integrated Billing 6 $$TAXGET^IBCEP81  $$FO^IBCNEUT1  PRMARK^IBTRH1  EN2^IBTRH2  GETINFO^IBTRH3A  $$SELEVENT^IBTRH5  
List Manager 3 EN^VALM  (CLEAR,FULL,PAUSE)^VALM1  (CLEAN,CNTRL)^VALM10  
Kernel 2 $$FMTE^XLFDT  ($$TAXIND,$$TAXORG)^XUSTAX  
VA FileMan 2 (,LIST)^DIC  $$GET1^DIQ  
Registration 1 DEM^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Integrated Billing 10 IBT HCSR RESPONSE EXPAND ENTRY  IBT HCSR RESPONSE IN PROGRESS EE REM  IBT HCSR RESPONSE IN PROGRESS EE SET  IBT HCSR RESPONSE VIEW  IBT HCSR VIEW PENDING RESPONSE  IBTRH3A  IBTRH3B  IBTRH5I  
IBTRH8A  IBTRHLO1  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
HELP ; -- help code
ASKEVTX
ASKPAT()
EN ; -- main entry point for IBT HCSR Response View
GTXNMY(VARPTR) ; API to obtain a Provider's Taxonomy Code and Person Class.
; INPUT: VARPTR is the variable pointer to the Provider.
; It can point to 1 of the 3 following globals:
; "ien;VA(200" points to the VA Individual Provider global
; "ien;DIC(4" points to the VA Institutional Provider global
; "ien;IBA(355.93" points to the non-VA Provider global
; where the ien is the internal identifier to the specified global.
HDR ; -- header code
GTLIST(IBTRIEN) ; Create list of Appointments/Admission Dates.
; This will create a ^TMP global that will look similar to the following:
; ^TMP("IBTRH3E",$J,"DILIST",0)="1^*^0^"
; ^TMP("IBTRH3E",$J,"DILIST",0,"MAP")=.07
; ^TMP("IBTRH3E",$J,"DILIST",I1,J)="JUN 19, 2014@11:00"
; ^TMP("IBTRH3E",$J,"DILIST",I2,J)=IBTRNO
; ^TMP("IBTRH3E",$J,"DILIST","ID",J,.07)=IBTEVNT
; where:
; I1 = The first cross-reference index which has the external event date values to display.
; I2 = The second cross-reference index which has the pointers to the IBT(356.22,...) Record no.
; J = Is just the internal counter of events for the selected patient.
; And ^IBT(356.22,"D",IBTRIEN,IBTEVNT,IBTRNO) is the actual Cross-reference record.
ASKEVT(IBTRIEN) ; Get the Appointment/Admission
ASKEVT1 ;
PRMARK(WHICH)
EN2 ;JWS;alternate entry point when IBTRIEN is selected from
; a response list view, so IBTRIEN is known
SETDLN(DLN,SPEC) ; Add Display Line to ^TMP global.
INIT ; -- init variables and list array
EN3 ;alternate entry point when IBTRIEN is selected from
; a response list view to display response pending entry,
; so IBTRIEN is known for the current entry and we need
; to figure out the pending response.
EXIT ; -- exit code
NODP ; No Response Pending for this selection.
INIT1 ;
BLD ; charges, as they would display on the bill
COMPILE(IBTRNM,IBTRSPEC)
INITQ
SETDATA ; -- Set up the data

External References

Name Field # of Occurrence
^DIC ASKPAT+8
LIST^DIC GTLIST+17
$$GET1^DIQ ASKEVT1+11, GTXNMY+19, PRMARK+8
$$TAXGET^IBCEP81 GTXNMY+16
$$FO^IBCNEUT1 ASKPAT+6
PRMARK^IBTRH1 PRMARK+7
EN2^IBTRH2 BLD+2
GETINFO^IBTRH3A BLD+3
$$SELEVENT^IBTRH5 EN2+5
DEM^VADPT HDR+3
EN^VALM EN+5, EN2+7, EN3+14
CLEAR^VALM1 EXIT+2
FULL^VALM1 NODP+1, HELP+1
PAUSE^VALM1 NODP+3, HELP+3
CLEAN^VALM10 EXIT+2
CNTRL^VALM10 SETDLN+3
$$FMTE^XLFDT ASKEVT1+8, ASKEVT1+10
$$TAXIND^XUSTAX GTXNMY+14
$$TAXORG^XUSTAX GTXNMY+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No HCSR Response data for this Patient.",!
  • Line Location: INIT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKPAT+4
Function Call: WRITE
  • Prompt: !!!,"Select Appt/Adm:",!
  • Line Location: ASKEVT1+2
Function Call: WRITE
  • Prompt: !?5,A1,". ",$S($P(XREQDATA,"^",4)="I":"Adm: ",1:"App: ")
  • Line Location: ASKEVT1+7
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P(^TMP("IBTRH3E",$J,"XLISTNO",A1),U,1))," "
  • Line Location: ASKEVT1+8
Function Call: WRITE
  • Prompt: $S($P(XREQDATA,"^",20)=1:"215:",1:"217:")
  • Line Location: ASKEVT1+9
Function Call: WRITE
  • Prompt: " ",$$FMTE^XLFDT($P($P(XREQDATA,U,15),"."))," "
  • Line Location: ASKEVT1+10
Function Call: WRITE
  • Prompt: $$GET1^DIQ(356.22,XIEN_",",103.01)
  • Line Location: ASKEVT1+11
Function Call: WRITE
  • Prompt: "AAA"
  • Line Location: ASKEVT1+12
Function Call: READ
  • Prompt: "Enter Selection: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: SEL
  • Line Location: ASKEVT1+13
Function Call: WRITE
  • Prompt: !?5,"INVALID SELECTION.",!
  • Line Location: ASKEVT1+14
Function Call: WRITE
  • Prompt: !!," No Response Pending to view."
  • Line Location: NODP+2
Function Call: WRITE
  • Prompt: !!,"This option displays the view of a Healthcare Services Review Response."
  • Line Location: HELP+2
Routine Call
  • VALM
  • Line Location:
    • EN+5
    • EN2+7
    • EN3+14
Routine Call
  • DIC
  • Line Location:
    • GTLIST+17
Routine Call
  • DIC
  • Line Location:
    • ASKPAT+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^IBT(356.22 - [#356.22] GET1^DIQ,  LIST^DIC
^USC(8932.1 - [#8932.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] INIT1+7
^IBT(356.22 - [#356.22] INIT+8, INIT+11, INIT1+4, ASKEVT1+6, ASKEVT1+11, ASKEVT1+12, SETDATA+3, SETDATA+5, SETDATA+6, SETDATA+8
, SETDATA+10, SETDATA+11, SETDATA+13, SETDATA+14, SETDATA+15, SETDATA+16, SETDATA+17, SETDATA+19, SETDATA+20, SETDATA+22
, SETDATA+24, SETDATA+25, SETDATA+39, SETDATA+40, SETDATA+42, SETDATA+44, SETDATA+45, SETDATA+47, SETDATA+48, SETDATA+51
, SETDATA+52, SETDATA+53, SETDATA+55, SETDATA+56, SETDATA+60, SETDATA+61, SETDATA+64, SETDATA+65, SETDATA+68, SETDATA+71
, SETDATA+74, SETDATA+75, SETDATA+76, SETDATA+77, SETDATA+78, SETDATA+79, SETDATA+81, SETDATA+82, SETDATA+83, SETDATA+85
, SETDATA+87, SETDATA+88, SETDATA+89, SETDATA+91, SETDATA+92, SETDATA+93
^TMP( INIT+2!, COMPILE+1!, SETDLN+2*
^TMP("IBTRH3" EXIT+1!
^TMP("IBTRH3E" ASKEVT1+4, ASKEVT1+5, ASKEVT1+8, ASKEVT1+15, ASKEVT1+16, GTLIST+15!, GTLIST+18, GTLIST+20, GTLIST+21*, GTLIST+23
, GTLIST+25, GTLIST+27*

Label References

Name Line Occurrences
$$ASKEVT INIT+15
$$ASKPAT INIT+10
$$GTLIST ASKEVT+2
ASKEVT1 ASKEVT1+14
ASKEVTX ASKEVT+2, ASKEVT1+13
BLD COMPILE+4
COMPILE INIT1+10
EN EN+6
INIT INIT+11
INIT1 INIT+8
INITQ INIT+10, INIT+16, INIT+17
NODP EN3+11, EN3+13, ASKEVT+2
SETDATA COMPILE+4

Naked Globals

Name Field # of Occurrence
^( ASKEVT1+4, GTLIST+21, GTLIST+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A GTLIST+13~, GTLIST+19*, GTLIST+20*, GTLIST+21, GTLIST+22*, GTLIST+23*, GTLIST+25, GTLIST+27
A1 ASKEVT+1~, ASKEVT1+1*, ASKEVT1+4*, ASKEVT1+7, ASKEVT1+8, ASKEVT1+9
A2 ASKEVT+1~, ASKEVT1+4*, ASKEVT1+5
B GTLIST+13~, GTLIST+21*, GTLIST+22*, GTLIST+24*, GTLIST+25*, GTLIST+27
CURIEN EN3+4~, EN3+5*
CURNODE0 EN3+4~, EN3+6*, EN3+11, EN3+12
DATA EN+1~, EN+6!, EN2+2~, EN3+8~
DATA(0 SETDATA+3*
DATA(1 SETDATA+6*
DATA(10 SETDATA+17*
DATA(101 SETDATA+82*, SETDATA+83*
DATA(103 SETDATA+85*
DATA(105 SETDATA+88*, SETDATA+89*
DATA(107 SETDATA+92*, SETDATA+93*
DATA(11 SETDATA+20*
DATA(12 SETDATA+33*, SETDATA+34*, SETDATA+35*, SETDATA+36*, SETDATA+37*
DATA(13 SETDATA+42*
DATA(14 SETDATA+45*
DATA(15 SETDATA+48*
DATA(16 SETDATA+52*, SETDATA+55*, SETDATA+60*, SETDATA+64*, SETDATA+68*, SETDATA+71*
DATA(17 SETDATA+74*
DATA(18 SETDATA+75*
DATA(19 SETDATA+76*
DATA(2 SETDATA+8*
DATA(20 SETDATA+77*
DATA(21 SETDATA+78*
DATA(22 SETDATA+79*
DATA(3 SETDATA+11*
DATA(4 SETDATA+13*
DATA(7 SETDATA+14*
DATA(8 SETDATA+15*
DATA(9 SETDATA+16*
DFN EN+2~, EN+6!, EN2+3~, EN3+9~, HDR+3, INIT1+5*, INIT1+7
DIC ASKPAT+2~, ASKPAT+7*
DIC("A" ASKPAT+6*
DIC("S" ASKPAT+5*
DIC(0 ASKPAT+5*
DLINE EN2+2~, EN2+5, EN3+8~
DLN SETDLN~, SETDLN+2
DTIME ASKEVT1+13
DTOUT ASKPAT+2~
DUOUT ASKPAT+2~
END SETDATA+27~, SETDATA+28*, SETDATA+29
>> I SETDATA+29*
>> IBFASTXT EN+6
IBOK EN+1~, EN+6!, EN2+2~, EN3+8~
IBPTNO EN+1~, EN+6, EN2+2~, EN3+8~, INIT+8*, INIT+10*, INIT+11, INIT+15, INIT1+1
IBTNO EN+6!
IBTRIEN EN+1~, EN+6!, EN2+2~, EN2+5*, EN2+6, EN3+5, EN3+8~, EN3+12*, EN3+13, INIT+8
, INIT+15*, INIT+16, INIT+17, INIT1+2, INIT1+4, ASKEVT~, ASKEVT+2, GTLIST~, BLD+2, BLD+3
, PRMARK+7, PRMARK+8
IBTRN EN+6!
IBTRNM EN+1~, EN+3*, EN2+2~, EN2+4*, EN3+8~, EN3+10*, INIT+2, INIT1+10, COMPILE~, COMPILE+1
, BLD+2, BLD+3, SETDLN+2
IBTRNO SETDATA+1~, SETDATA+2*, SETDATA+3, SETDATA+5, SETDATA+6, SETDATA+8, SETDATA+10, SETDATA+11, SETDATA+13, SETDATA+14
, SETDATA+15, SETDATA+16, SETDATA+17, SETDATA+19, SETDATA+20, SETDATA+22, SETDATA+24, SETDATA+25, SETDATA+39, SETDATA+40
, SETDATA+42, SETDATA+44, SETDATA+45, SETDATA+47, SETDATA+48, SETDATA+51, SETDATA+52, SETDATA+53, SETDATA+55, SETDATA+56
, SETDATA+60, SETDATA+61, SETDATA+64, SETDATA+65, SETDATA+68, SETDATA+71, SETDATA+74, SETDATA+75, SETDATA+76, SETDATA+77
, SETDATA+78, SETDATA+79, SETDATA+81, SETDATA+82, SETDATA+83, SETDATA+85, SETDATA+87, SETDATA+88, SETDATA+89, SETDATA+91
, SETDATA+92, SETDATA+93
IBTRSPEC EN+1~, EN+6!, EN2+2~, EN3+8~, INIT1+10, COMPILE~
IBTRSPEC("IBTEVENT" INIT1+2*, SETDATA+2
IBTRSPEC("IBTPATID" INIT1+1*
IEN312 EN+2~, EN+6!, EN2+3~, EN3+9~, INIT1+6*, INIT1+7
INSNODE0 EN+2~, EN+6!, EN2+3~, EN3+9~, INIT1+7*
>> IOINHI SETDLN+3
>> IOINORM SETDLN+3
MX ASKEVT+1~, ASKEVT1+1*, ASKEVT1+9*, ASKEVT1+14
NODE0 EN+2~, EN+6!, EN2+3~, EN3+6, EN3+9~, INIT1+4*, INIT1+5, INIT1+6
PC1 GTXNMY+11~, GTXNMY+13*, GTXNMY+14, GTXNMY+15, GTXNMY+16
PC2 GTXNMY+11~, GTXNMY+13*, GTXNMY+14, GTXNMY+15, GTXNMY+16
RESULTS GTXNMY+11~, GTXNMY+12*, GTXNMY+14*, GTXNMY+15*, GTXNMY+16*, GTXNMY+17, GTXNMY+18, GTXNMY+19
SAV SETDATA+27~, SETDATA+30, SETDATA+32*, SETDATA+33*, SETDATA+34
SEL ASKEVT+1~, ASKEVT1+13*, ASKEVT1+14, ASKEVT1+15
SPEC SETDLN~, SETDLN+3
SQ SETDATA+1~, SETDATA+6*, SETDATA+11*, SETDATA+20*, SETDATA+24*, SETDATA+25, SETDATA+45*, SETDATA+48*, SETDATA+82*, SETDATA+83*
, SETDATA+88*, SETDATA+89*, SETDATA+92*, SETDATA+93*
SQ1 SETDATA+1~, SETDATA+23~, SETDATA+33*, SETDATA+34*, SETDATA+35, SETDATA+36*, SETDATA+37, SETDATA+40*, SETDATA+41, SETDATA+42
, SETDATA+52*, SETDATA+53*, SETDATA+54, SETDATA+55, SETDATA+56, SETDATA+60, SETDATA+61, SETDATA+64, SETDATA+65, SETDATA+68
, SETDATA+71
SQ2 SETDATA+1~, SETDATA+42*, SETDATA+56*, SETDATA+57, SETDATA+58, SETDATA+60, SETDATA+61, SETDATA+64, SETDATA+65, SETDATA+68
, SETDATA+71
SQ3 SETDATA+1~, SETDATA+61*, SETDATA+62, SETDATA+64, SETDATA+65, SETDATA+68
SQ4 SETDATA+1~, SETDATA+65*, SETDATA+66, SETDATA+68
STATUS PRMARK+6~, PRMARK+8*, PRMARK+10, PRMARK+13
TAXNMY GTXNMY+11~, GTXNMY+12*, GTXNMY+17, GTXNMY+18*, GTXNMY+19*, GTXNMY+20
TEXT SETDATA+23~, SETDATA+25*, SETDATA+26, SETDATA+28, SETDATA+29, SETDATA+36
U EN3+11, EN3+12, HDR+3, INIT+8, INIT1+5, INIT1+6, ASKEVT1+8, ASKEVT1+10, ASKEVT1+15, GTLIST+18
, GTLIST+27, SETDATA+58, GTXNMY+17, GTXNMY+18, GTXNMY+19
VADM HDR+1~
VADM(1 HDR+3
VADM(2 HDR+3
VADM(3 HDR+3
VADM(4 HDR+3
>> VALMBCK NODP+3*, HELP+3*
VALMCNT EN+2~, EN+6!, EN2+3~, EN3+9~, BLD+1*, SETDLN+1*, SETDLN+2, SETDLN+3
>> VALMHDR(1 HDR+4*
>> VALMQUIT INIT+10*, INIT+16*, INIT+17*
>> VALMSG HDR+5*, PRMARK+10*, PRMARK+11*, PRMARK+13*, PRMARK+14*
VARPTR GTXNMY~, GTXNMY+13
WHICH PRMARK~, PRMARK+7, PRMARK+9
X ASKPAT+2~, GTLIST+13~, GTLIST+14*, GTLIST+28*, GTLIST+29, SETDATA+1~
X1 SETDATA+27~, SETDATA+29*, SETDATA+30, SETDATA+31*, SETDATA+32, SETDATA+33
XIEN ASKEVT+1~, ASKEVT1+5*, ASKEVT1+6, ASKEVT1+11, ASKEVT1+12
XREQ ASKEVT+1~, ASKEVT1+6*
XREQDATA ASKEVT+1~, ASKEVT1+6*, ASKEVT1+7, ASKEVT1+9, ASKEVT1+10
Y ASKPAT+2~, ASKPAT+9
YY ASKEVT+1~, ASKEVT+2*, ASKEVT1+13*, ASKEVT1+15*, ASKEVT1+16*, ASKEVT1+17*, ASKEVTX
Z HDR+1~, HDR+2*, HDR+3*, HDR+4, GTLIST+13~, GTLIST+22*, GTLIST+26*, GTLIST+27
Z1 GTLIST+13~, GTLIST+25*, GTLIST+27
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 |  Naked Globals |  Local Variables |  All