IBCNERP1 ;DAOU/BHS - IBCNE USER IF eIV RESPONSE REPORT ; 03-JUN-2002
Source file <IBCNERP1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(IPRF) | ; Main entry pt
; Init vars |
|
| R05 | ||
| R10 | ;D DTRANGE I STOP G:$$STOP EXIT G R05
|
|
| R20 | ||
| R30 | ||
| R40 | ||
| R45 | ; I $G(IPRF)=1 D DTEXP I STOP G:$$STOP EXIT G R40
|
|
| R50 | ;D SORT I STOP G:$$STOP EXIT G R45
|
|
| R60 | ||
| R100 | ;D DEVICE(IBCNERTN,.IBCNESPC,IBOUT) I STOP Q:+$G(IBFRB)&($G(IBOUT)="E") G:$$STOP EXIT G:$G(IBCNESPC("TRCN"))'="" R05 G R50
|
|
| EXIT | ; Exit pt
|
|
| COMPILE(IBCNERTN,IBCNESPC,IBOUT) | ;
; Entry point called from EN^XUTMDEVQ in either direct or queued mode. ; Input params: ; IBCNERTN = Routine name for ^TMP($J,... ; IBCNESPC = Array passed by ref of the report params |
|
| COMPILX | ; COMPILE exit pt
|
|
| STOP() | ; Determine if user wants to exit out of the whole option
; Init vars |
|
| STOPX | ; STOP exit pt
|
|
| DTRANGE | ; Determine start and end dates for date range param
; Init vars |
|
| DTRANG1 | ||
| DTRANGX | ; DTRANGE exit pt
|
|
| PYRSEL | ; Select one payer or ALL - File #365.12
; Init vars |
|
| PYRSELX | ; PYRSEL exit pt
|
|
| PTSEL | ; Select one patient or ALL - File #2
; Init vars |
|
| PTSELX | ; PTSEL exit pt
|
|
| TYPE | ; Prompt to select to display All or Most Recent Responses for
; Patient/Payer combos ; Init vars |
|
| TYPEX | ; TYPE exit pt
|
|
| DTEXP | ; Prompt for oldest expiration date to pull for.
; Init Vars |
|
| DTEXPX | ; DTEXP Exit
|
|
| SORT | ; Prompt to allow users to sort the report by Payer(default) or
; Patient ; Init vars |
|
| SORTX | ; SORT exit pt
|
|
| RTYPE | ; Prompt to allow users to report by date range or Trace #
; Init vars |
|
| RTYPEX | ; RTYPE exit pt
|
|
| DEVICE(IBCNERTN,IBCNESPC,IBOUT) | ; Device Handler and possible TaskManager calls
|
|
| DEVICEX | ; DEVICE exit pt
|
|
| OUT() | ; Prompt to allow users to select output format
|
| 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: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| ^IBCN(365 - [#365] | Classic Fileman Calls |
| ^IBE(365.12 - [#365.12] | Classic Fileman Calls |
