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

Package: Integrated Billing

Routine: IBTRR1


Information

IBTRR1 ;ALB/ARH - CLAIMS TRACKING - ROI SPECIAL CONSENT ACTIONS ; 08-JAN-2013

Source Information

Source file <IBTRR1.m>

Entry Points

Name Comments DBIA/ICR reference
AA ; Protocol Action: Add an ROI Special Consent
EA ; Protocol Action: Edit an ROI Special Consent
RA ; Protocol Action: Revoke an ROI Special Consent
DA ; Protocol Action: Delete an ROI Special Consent
OP ; Protocol Action: Open ROI Screen - called from CT Editor IBTRE ROI CONSENT
ADD ; add a new ROI Special Consent entry, IBRFN set on exit (record incomplete)
EDIT ; edit an ROI Special Consent entry, IBRFN must be set on entry
REVOKE ; revoke an ROI entry, IBRFN must be defined
DELETE ; delete and ROI entry, IBRFN must be defined
SAVE ; save entry before editing
COMP ; compare before editing global with current global entry
UPDATE ; update last edited fields for entry
ROIDSP(IBRFN) ; display an ROI entry
ROIPAT(DFN,DATE) ; return Indicators of Conditions Active for Patient on Date (LM Patient List header)
; outputs alpha characters of sensitive conditions with active ROI
ROIEVT(IBTRN,SHRT) ; return ROI Consent and Indicators for a specific CT Event and Date (LM Event Detail)
; outputs CT entries ROI Consent and alpha characters of sensitive conditions with active ROI
;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"IB ROI EDIT Key Required to Add an ROI"
  • Line Location: AA+1
Function Call: WRITE
  • Prompt: !!,"IB ROI EDIT Key Required to Edit an ROI"
  • Line Location: EA+1
Function Call: WRITE
  • Prompt: !!,"IB ROI EDIT Key Required to Revoke an ROI"
  • Line Location: RA+1
Function Call: WRITE
  • Prompt: !!,"IB ROI EDIT Key Required to Delete an ROI"
  • Line Location: DA+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+1
Function Call: WRITE
  • Prompt: !!,"A New ROI Special Consent has been added for: ",$P($G(^DPT(+DFN,0)),U,1),!
  • Line Location: ADD+7
Function Call: WRITE
  • Prompt: " Not Deleted!"
  • Line Location: DELETE+5
Function Call: WRITE
  • Prompt: " Entry Deleted!"
  • Line Location: DELETE+7
Function Call: WRITE
  • Prompt: !!,IBDS,!,"ROI Special Consent for ",$P($G(^DPT(+$P(IBR0,U,2),0)),U,1),":"
  • Line Location: ROIDSP+5
Function Call: WRITE
  • Prompt: !!,$$EXPAND^IBTRE(356.26,.03,$P(IBR0,U,3)),?37,$$DATE^IBTRR($P(IBR0,U,4))," - ",$$DATE^IBTRR($P(IBR0,U,5))
  • Line Location: ROIDSP+6
Function Call: WRITE
  • Prompt: ?60,$S(+$$ACTIVE^IBTRR(IBRFN,DT):"ACTIVE",1:"INACTIVE"),?70,$S(+$P(IBR0,U,6):"REVOKED",1:"")
  • Line Location: ROIDSP+7
Function Call: WRITE
  • Prompt: !!,"Comment: ",IBR2
  • Line Location: ROIDSP+8
Function Call: WRITE
  • Prompt: !!,"Entered by: ",$E($$EXPAND^IBTRE(356.26,1.02,$P(IBR1,U,2)),1,21),?37,"Last Edited By: ",$E($$EXPAND^IBTRE(356.26,1.04,$P(IBR1,U,4)),1,21)
  • Line Location: ROIDSP+9
Function Call: WRITE
  • Prompt: !,"Date Entered: ",$$FMTE^XLFDT($P(IBR1,U,1)),?37,"Date Last Edited: ",$$FMTE^XLFDT($P(IBR1,U,3)),!,IBDS,!
  • Line Location: ROIDSP+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBT(356.26 - [#356.26] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call