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

Package: Integrated Billing

Routine: IBCSC10B


Information

IBCSC10B ;BP/YMG - ADD/ENTER PATIENT REASON FOR VISIT DATA ;10/15/2008

Source Information

Source file <IBCSC10B.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
EN1 ;
DISP ; display PRV diagnoses
DISPEX(IBIFN) ; display existing PRV diagnoses for a bill
CHKPRV() ; check how many PRVs are not populated (out of 3)
PRVFLD(DXIEN) ; returns the field number that contains DXIEN
; if DXIEN="", returns the first empty PRV field number
; if no match found (or no empty fields), returns 0
ERR ; display error message
NEWDX(IBX) ; select PRV diagnosis to add to bill
; IBX - max. number of PRV diagnoses available
NEWDX1
NEWDXE
ADD(DXIEN) ; add single PRV diagnosis with file 80 ien DXIEN to the bill
ADDNEW ; add selected PRV diagnoses to the bill
ASKDX() ; enter extra PRV diagnosis
; returns dx ien in file 80 ^ dx code
AD ;
EDIT(DXIEN) ; edit/delete PRV diagnosis
DELALL(IBIFN) ; ask/delete all PRV diagnoses on the bill

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"===================Pt. Reason for Visit Diagnosis Screen ====================",!
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !,?13,"No available Pt. Reason for Visit Diagnoses found."
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !!,?5,"------ Existing Pt. Reason for Visit Diagnoses for Bill -------",!
  • Line Location: DISPEX+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPEX+8
Function Call: WRITE
  • Prompt: !,?6,"You may add a maximum of 3 PRV diagnoses to a claim."
  • Line Location: ERR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWDX+4
Function Call: WRITE
  • Prompt: !!,*7,"The Diagnosis code is inactive for the date of service ("_IBDTTX_").",!
  • Line Location: AD+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DELALL+1
Function Call: WRITE
  • Prompt: " .... deleted"
  • Line Location: DELALL+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399 - [#399] Classic Fileman Calls
^AUPNVSIT - [#9000010] FIND^DIC,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call