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: IBTRH5H

Package: Integrated Billing

Routine: IBTRH5H


Information

IBTRH5H ;ALB/FA - HCSR Create 278 Request ;14-OCT-2014

Source Information

Source file <IBTRH5H.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 2 UPDATE^DIE  $$GET1^DIQ  
Kernel 1 ($$FMDIFF,$$NOW)^XLFDT  
Registration 1 INP^VADPT  

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: 2

Package Total Caller Graph
Integrated Billing 2 IBTRH5D  IBTRH5I  

Entry Points

Name Comments DBIA/ICR reference
NHOME() ;EP
; Screen for the 'Nursing Home Residential Status' Dictionary field (356.2216/2.08)
; to exclude 'DA' for a Professional Service Line and 'MJ' for an Institutional
; Service Line. Always exclude 'F2"
; Input: DA(1) - IEN of the 356.22 entry being edited
; DA - IEN of the Service Line multiple being edited
; Y - Internal Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise
UNITS() ;EP
; Screen for the 'Unit or Basis For Measurement' Dictionary field (356.2216/1.1)
; to exclude 'DA' for a Professional Service Line and 'MJ' for an Institutional
; Service Line. Always exclude 'F2"
; Input: DA(1) - IEN of the 356.22 entry being edited
; DA - IEN of the Service Line multiple being edited
; Y - Internal Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise
JUMPERR(INDENT)
ONEPD(IBTRIEN) ;EP
; Called from Input Template: IB ADD/EDIT 278
; Attempts to an Attending Physician Provider Data multiple into 356.22 for
; entries with a Inpatient/Outpatient Status of 'I'
; Only called if there are currently no Provider Data multiples
; Input: IBTRIEN - IEN of the selected entry
; Output: Attending Physician Provider Data multiple is filed into 356.2213
; (Potentially)
; Returns: 1 if one or more lines were added, 0 otherwise
ADMDFN(EVDT,DFN) ; Checks to see if the specified event date is for
; an admission, a scheduled admission or neither
; Input: EVDT - Fileman date/time of the admission being searched for
; DFN - IEN of the patient of the admission being searched for
; Returns: IEN of the found Attending Physician or "" if not found
DXTYPE() ;EP
; Called from within Input template IB ADD/EDIT 278
; Screens Diagnosis Type values based upon the Diagnosis multiple being
; added/edit
; Called from field: 356.223/.01
; Input: DA(1) - IEN of the 356.22 entry being edited
; DA - IEN of the diagnosis multiple being edited
; Y - Internal Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise
HCSDFC() ;EP
; Called from within Input template IB ADD/EDIT 278
; Dictionary Screen for Health Care Services Delivery Frequency Code
; fields 4.07, 2216/5.07
; Input: Y - Internal Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise
HCSDQQ() ;EP
; Called from within Input template IB ADD/EDIT 278
; Dictionary Screen for Health Care Services Delivery Quantity Qualifier
; fields 4.01, 2216/5.01
; Input: Y - Internal Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise
PROVTYPE() ;EP
; Called from within Input template IB ADD/EDIT 278
; Dictionary Screen for allowable Provider Types.
; Called from field screens 356.2213/.01
; NOTE: Duplicate entries are allowed
; Input: X - External Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise
SPROVTYP() ;EP
; Called from within Input template IB ADD/EDIT 278
; Dictionary Screen for allowable Provider Types for Service Lines.
; Called from field screens 356.22168/.01
; NOTE: Duplicate entries are allowed
; Input: X - External Value of the user response
; Returns: 1 - Data input by the user is valid, 0 otherwise

External References

Name Field # of Occurrence
UPDATE^DIE ONEPD+24
$$GET1^DIQ UNITS+9, ONEPD+12, ONEPD+13, ONEPD+14, ADMDFN+21
INP^VADPT ADMDFN+12
$$FMDIFF^XLFDT DXTYPE+12
$$NOW^XLFDT ADMDFN+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,$S(INDENT:$J(SPACES,INDENT),1:"")
  • Line Location: JUMPERR+6
Function Call: WRITE
  • Prompt: "^Field jumping is not allowed from this prompt",!
  • Line Location: JUMPERR+7
Routine Call
  • DIE
  • Line Location:
    • ONEPD+24

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBT(356.22 - [#356.22] GET1^DIQ
356.2216 GET1^DIQ
^DGS(41.1 - [#41.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGS(41.1 - [#41.1] ADMDFN+18, ADMDFN+20
^IBE(365.016 - [#365.016] HCSDQQ+10
^IBE(365.025 - [#365.025] HCSDFC+9
^IBT(356.22 - [#356.22] ONEPD+10, DXTYPE+16, DXTYPE+19, DXTYPE+20, DXTYPE+24

Label References

Name Line Occurrences
$$ADMDFN ONEPD+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CDE HCSDQQ+6~, HCSDQQ+9*, HCSDQQ+10, PROVTYPE+8~, PROVTYPE+10*, PROVTYPE+11, SPROVTYP+8~, SPROVTYP+10*, SPROVTYP+11
CNT DXTYPE+9~, DXTYPE+22*, DXTYPE+26*, DXTYPE+27
>> DA UNITS+9, DXTYPE+19, DXTYPE+23, DXTYPE+27
>> DA(1 UNITS+9, DXTYPE+16, DXTYPE+19, DXTYPE+20, DXTYPE+24
DFN ONEPD+9~, ONEPD+13*, ONEPD+15, ADMDFN~, ADMDFN+20
DT DXTYPE+12
DTDIFF DXTYPE+9~, DXTYPE+12*, DXTYPE+13, DXTYPE+14
EVDT ONEPD+9~, ONEPD+14*, ONEPD+15, ADMDFN~, ADMDFN+10, ADMDFN+11, ADMDFN+18
FDA ONEPD+9~, ONEPD+20!
FDA( ONEPD+21*, ONEPD+22*, ONEPD+23*
FOUND ADMDFN+5~, ADMDFN+7*, ADMDFN+17, ADMDFN+20*, ADMDFN+21
IBTRIEN ONEPD~, ONEPD+10, ONEPD+12, ONEPD+13, ONEPD+14, ONEPD+21, ONEPD+22, ONEPD+23
ICDDT DXTYPE+9~, DXTYPE+11*, DXTYPE+12
IEN ONEPD+9~, ADMDFN+16*, ADMDFN+17, ADMDFN+18*, ADMDFN+19, ADMDFN+20, ADMDFN+21, HCSDFC+8~, HCSDFC+9*, HCSDFC+10
, HCSDQQ+6~, HCSDQQ+10*, HCSDQQ+11
IENS HCSDQQ+6~, PROVTYPE+8~, SPROVTYP+8~
IENS( HCSDQQ+11*, HCSDQQ+12, PROVTYPE+11*, PROVTYPE+12, SPROVTYP+11*, SPROVTYP+12
INDENT JUMPERR~, JUMPERR+4*, JUMPERR+6
IX DXTYPE+9~, DXTYPE+22*, DXTYPE+23, DXTYPE+24*, DXTYPE+25, DXTYPE+27
PROV ONEPD+9~, ONEPD+15*, ONEPD+16, ONEPD+19*, ONEPD+23, ADMDFN+5~, ADMDFN+7*, ADMDFN+10, ADMDFN+13*, ADMDFN+21*
, ADMDFN+22
RETURN DXTYPE+9~, DXTYPE+29, DXTYPE+30*, DXTYPE+31*
SLTYPE UNITS+8~, UNITS+9*, UNITS+10, UNITS+11
SPACES JUMPERR+3~, JUMPERR+5*, JUMPERR+6
TDFN ADMDFN+5~
VAIN ADMDFN+5~
VAIN(11 ADMDFN+13
VAINDT ADMDFN+5~, ADMDFN+11*
WHICH DXTYPE+9~, DXTYPE+18*, DXTYPE+20*, DXTYPE+21, DXTYPE+27*, DXTYPE+28, DXTYPE+29
>> X PROVTYPE+12, SPROVTYP+12
XX ADMDFN+5~, ADMDFN+7*, ADMDFN+10
>> Y NHOME+8, UNITS+10, UNITS+11, DXTYPE+13, DXTYPE+14, DXTYPE+16, DXTYPE+30, DXTYPE+34, HCSDFC+10, HCSDQQ+12
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