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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCNSC2

Package: Integrated Billing

Routine: IBCNSC2


Information

IBCNSC2 ;ALB/NLR - INACTIVATE AND REPOINT INS STUFF ; 20-APR-93

Source Information

Source file <IBCNSC2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Integrated Billing 3 (BUILD,COVD,HDR,RPTASK,VERIFY)^IBCNSC3  ($$DAT1,PAUSE)^IBOUTL  $$EXPAND^IBTRE  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
List Manager 1 PAUSE^VALM1  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Integrated Billing 1 IBCNSC1  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; -- main flow control
MAINQ
START ; -- activate or inactivate insurance co. if necessary
STARTQ
AP ; -- ask if user wishes to print patients with inactivated insurance
PRINT ; -- print list of patients covered by inactivated insurance company
APQ

External References

Name Field # of Occurrence
^%ZIS AP+7
HOME^%ZIS AP+8
^%ZISC APQ+1
^%ZTLOAD AP+8
^DIR START+11, AP+3
BUILD^IBCNSC3 PRINT+2
COVD^IBCNSC3 AP+3, AP+7
HDR^IBCNSC3 PRINT+3, PRINT+6
RPTASK^IBCNSC3 MAIN+5
VERIFY^IBCNSC3 START+12
$$DAT1^IBOUTL PRINT+7
PAUSE^IBOUTL PRINT+6
$$EXPAND^IBTRE PRINT+7
PAUSE^VALM1 START+21, PRINT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"Please note that Insurance Reviews have been conducted with this company!!",!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!,"THERE "_$S(IBC=0:"ARE NO PATIENTS",IBC=1:"IS ONE PATIENT",IBC>20:"ARE MORE THAN 20 PATIENTS",1:"ARE "_IBC_" PATIENTS")_" COVERED BY THIS "_$S(+IBV=0:"(ACTIVE)",1:"(INACTIVE)")_" INSURANCE COMPANY...."
  • Line Location: START+20
Function Call: WRITE
  • Prompt: !!,"*** You will need a 132 column printer for this report. ***",!
  • Line Location: AP+6
Routine Call
  • %ZIS
  • Line Location:
    • AP+7
Routine Call
  • %ZIS
  • Line Location:
    • AP+8
Routine Call
  • DIR
  • Line Location:
    • START+11
    • AP+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] START+3, START+16*
^DPT("AB" START+19
^IBT(356.2 - [#356.2] START+2
^TMP($J PRINT+4, PRINT+5, PRINT+9!

Label References

Name Line Occurrences
AP MAIN+4
APQ AP+3, AP+7
MAINQ MAIN+3, MAIN+4
START MAIN+3
STARTQ START+11, START+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS AP+7*
DFN MAINQ!, START+19*, PRINT+4*, PRINT+5
DIR START+11!, AP+3!
DIR("?" START+8*, START+9*, START+10*
DIR("A" START+7*, AP+2*
DIR("B" START+6*, AP+2*
DIR(0 START+7*, AP+2*
DIROUT MAINQ!
DIRUT MAINQ!, START+11, AP+3
DTOUT MAINQ!
DUOUT MAINQ!
IBA START+4*, START+7, STARTQ!
IBB START+4*, START+5*, START+7, STARTQ!
IBC MAINQ!, START+19*, START+20, START+21, AP+2
>> IBCNS START+2, START+3, START+16, START+19
IBCOV MAINQ!, START+16*, AP+3, AP+7
>> IBD PRINT+4*, PRINT+5
IBIND APQ+2!
IBN MAINQ!, START+3*, START+7
IBNA PRINT+4*, PRINT+5, PRINT+7, APQ+2!
IBNO APQ+2!
IBPAG APQ+2!
IBQUIT MAIN+2*, MAIN+3, MAIN+4, MAINQ!, START+11*, START+12, START+21*, AP+3*, AP+7*, PRINT+4
>> IBST PRINT+5*, PRINT+7
IBV MAIN+5, MAINQ!, START+3*, START+4, START+5, START+12, START+13*, START+16, START+20, PRINT+8
IBV1 MAINQ!, START+3*, START+16
IBVER MAINQ!, START+4*, START+12*, START+13
IBWI APQ+2!
IO AP+9
IO("Q" AP+8!
IOSL PRINT+6
IOST PRINT+8
>> POP AP+7
U START+3, START+16
VA APQ+2!
VAERR APQ+2!
VAOA APQ+2!
>> Y START+12, START+13, AP+3
>> ZTDESC AP+8*
>> ZTQUEUED APQ
>> ZTREQ APQ*
>> ZTRTN AP+8*
>> ZTSAVE("IB*" AP+8*
ZTSK AP+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All