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 |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for IBT HCSR Response View
EN2 ;JWS;alternate entry point when IBTRIEN is selected from
; a response list view, so IBTRIEN is known
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.
HDR ; -- header code
INIT ; -- init variables and list array
INIT1 ;
INITQ
ASKPAT()
ASKEVT(IBTRIEN) ; Get the Appointment/Admission
ASKEVT1 ;
ASKEVTX
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.
COMPILE(IBTRNM,IBTRSPEC)
SETDATA ; -- Set up the data
BLD ; charges, as they would display on the bill
NODP ; No Response Pending for this selection.
SETDLN(DLN,SPEC) ; Add Display Line to ^TMP global.
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.
HELP ; -- help code
EXIT ; -- exit code
PRMARK(WHICH)

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
  • Formatting: !
  • Prompt: "Enter Selection: "
  • Variable: SEL
  • Timeout: DTIME
  • 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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call