IBTRH3 ;ALB/VAD - IBT HCSR RESPONSE VIEW ;02-JUN-2014
Source file <IBTRH3.m>
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) |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
^IBT(356.22 - [#356.22] | GET1^DIQ, LIST^DIC |
^USC(8932.1 - [#8932.1] | GET1^DIQ |