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

Package: Integrated Billing

Routine: IBCNSC3


Information

IBCNSC3 ;ALB/NLR - INACTIVATE AND REPOINT INS STUFF1 ; 20-APR-93

Source Information

Source file <IBCNSC3.m>

Entry Points

Name Comments DBIA/ICR reference
RPTASK ; -- ask if user wishes to repoint patients to active insurance company
RPTASKQ
COVD ; Adjust 'Covered by Insurance' prompt for repointed patients
VERIFY ; -- allow user to change mind about inactivating company
HDR ; -- print header
BUILD ; -- set list of patients in ^tmp array
SET ; -- store data to be printed in temp array

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: RPTASK+7
Function Call: WRITE
  • Prompt: !
  • Line Location: VERIFY+6
Function Call: WRITE
  • Prompt: !,?1,"PATIENTS WITH "_$S(+IBV=0:"ACTIVE",+IBV=1:"INACTIVATED")_" INSURANCE, "_$P(^DIC(36,IBCNS,0),U),?69,"PAGE ",IBPAG,?77,$$DAT1^IBOUTL(DT)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: $P(X,"^",4)
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: $P(X,"^",4)]""&($P(X,"^",5)]"")
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: $P($G(^DIC(5,+$P(X,"^",5),0)),"^")
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: $E($P(X,"^",6),1,5),$S($E($P(X,"^",6),6,9)]"":"-"_$E($P(X,"^",6),6,9),1:"")
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !?1,"PATIENT",?31,"PATIENT ID",?45,"IR?",?52,"EFF DATE",?63,"EXP DATE",?74,"SUBSCR ID",?95,"WHOSE INS",?106,"EMPLOYER",!
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: $TR($J(" ",IOM)," ","-")
  • Line Location: HDR+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^IBA(355.3 - [#355.3] Classic Fileman Calls
^IBT(356.2 - [#356.2] Classic Fileman Calls
^DIC(36 - [#36] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call