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

Package: Integrated Billing

Routine: IBCNSM5


Information

IBCNSM5 ;ALB/NLR - INSURANCE MANAGEMENT WORKSHEET ; 23-JUL-93

Source Information

Source file <IBCNSM5.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Integrated Billing 8 $$GRP^IBCNS  $$ZND^IBCNS1  EN^IBCNSM  ($$DOL,BL1)^IBCNSM6  BL2^IBCNSM7  (BL3,BL4)^IBCNSM8  (BL5,BL6,BL7)^IBCNSM9  $$DAT1^IBOUTL  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$HTE^XLFDT  
VA FileMan 2 $$GET1^DIQ  ^DIR  
List Manager 1 (FULL,PAUSE)^VALM1  
Registration 1 (DEM,PID)^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 IBCNSM1  IBCNSM9  

Entry Points

Name Comments DBIA/ICR reference
WPPC ; -- print insurance management worksheet, insurance coverage
DQ ;
WPPCQ
PR ; -- set variables needed for file navigation, print insurance worksheet or coverage
PRQ
GETEN1 ; -- find IEN of most recent policy
GETEN1Q
SETVAR ; -- set variables needed for file navigation
DEV ; -- ask for device
R1Q
PRINT ; -- print insurance management worksheet/insurance coverage
HDR ; -- print header
GETEN2 ; -- get IEN of next-to-most-recent entry (Print Coverage)
PR1Q
ASK ; -- if Print Coverage and no benefit years for selected policy, ask if user wants worksheet
ASKQ ;

External References

Name Field # of Occurrence
^%ZIS DEV+3
HOME^%ZIS DEV+4
^%ZISC WPPCQ+1
^%ZTLOAD DEV+4
$$GET1^DIQ SETVAR+11
^DIR WPPC+7, ASK+5
$$GRP^IBCNS SETVAR+16
$$ZND^IBCNS1 SETVAR+4
EN^IBCNSM %
$$DOL^IBCNSM6 HDR+9, HDR+11
BL1^IBCNSM6 PRINT+4
BL2^IBCNSM7 PRINT+4
BL3^IBCNSM8 PRINT+4
BL4^IBCNSM8 PRINT+4
BL5^IBCNSM9 PRINT+4
BL6^IBCNSM9 PRINT+4
BL7^IBCNSM9 PRINT+4
$$DAT1^IBOUTL HDR+10
DEM^VADPT HDR+7
PID^VADPT PRINT+2
FULL^VALM1 WPPC+3, DEV+5
PAUSE^VALM1 DQ+5, HDR+2, ASK+7
$$HTE^XLFDT DQ+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: WPPC+7
Function Call: WRITE
  • Prompt: !!,"MOST RECENT ENTRY IS "_$$DAT1^IBOUTL(IBYR)_". ENTRY CANNOT BE MORE THAN A YEAR OLD.",!!,"YOU MAY PRINT ENTRY UNDER 'PC'.",!!
  • Line Location: GETEN1+12
Function Call: WRITE
  • Prompt: !!,"*** You will need a 132 column printer for this report. ***",!
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !,$S($G(IBLINE):"INSURANCE MANAGEMENT WORKSHEET",1:"INSURANCE COVERAGE FOR "_$S($G(IBPIB1):"CURRENT ENTRY",1:"NEXT-MOST-CURRENT ENTRY")),?(IOM-30),IBHDT," PAGE ",IBPAG
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","_")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,VADM(1),?34,"PT ID: "_VA("PID"),?79,"DOB: "_$P(VADM(3),"^",2)
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,$E($P($G(^DIC(36,+IBCDFND,0)),"^"),1,28),?31," GROUP #: ",$$DOL^IBCNSM6(355.3,2.02,$P(IBCPOLD,"^",4),$G(IBLINE))
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: ?74,"For YEAR: "_$S($G(IBCAB):$$DAT1^IBOUTL(IBYR),1:"______________")
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !?30,"Ins. Type: ",$$DOL^IBCNSM6(355.1,.01,$P($G(^IBE(355.1,+$P(IBCPOLD,"^",9),0)),"^"),$G(IBLINE))
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+4
Routine Call
  • DIR
  • Line Location:
    • WPPC+7
    • ASK+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.3 - [#355.3] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] SETVAR+7, SETVAR+8, HDR+9
^DPT - [#2] SETVAR+5, SETVAR+6
^IBA(355.3 - [#355.3] SETVAR+11
^IBA(355.4 - [#355.4] GETEN1+6, GETEN1+9, SETVAR+18, SETVAR+19, SETVAR+20, SETVAR+21, SETVAR+22, GETEN2+2, GETEN2+4
^IBA(355.5 - [#355.5] SETVAR+13, SETVAR+14, SETVAR+15
^IBE(355.1 - [#355.1] HDR+11

Label References

Name Line Occurrences
ASK GETEN1+7
ASKQ ASK+5, ASK+6
DEV WPPC+12
GETEN1 WPPC+11
GETEN1Q GETEN1+7
GETEN2 DQ+3
HDR PRINT+3
PR DQ+2, DQ+4
PR1Q GETEN2+2
PRINT PR+3
R1Q DEV+3
SETVAR PR+2
WPPCQ WPPC+2, WPPC+11, WPPC+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+3*
>> DFN SETVAR+4, SETVAR+5, SETVAR+6, SETVAR+12, SETVAR+13
DIR WPPC+7~, ASK+5!
DIR("A" ASK+3*
DIR("B" ASK+3*
DIR(0 WPPC+7*, ASK+3*
DIROUT WPPC+7~
>> DIRUT WPPC+11, DQ+5, GETEN1+7, HDR+2, ASK+5
DT WPPC+11, GETEN1+6, GETEN1+8
DTOUT WPPC+7~
DUOUT WPPC+7~
>> FILE SETVAR+12*
IBCAB WPPC+9~, GETEN1+9*, SETVAR+18, SETVAR+19, SETVAR+20, SETVAR+21, SETVAR+22, HDR+10, GETEN2+4*
>> IBCABD SETVAR+18*
>> IBCABD2 SETVAR+19*
>> IBCABD3 SETVAR+20*
>> IBCABD4 SETVAR+21*
>> IBCABD5 SETVAR+22*
>> IBCBU SETVAR+13*, SETVAR+14, SETVAR+15
>> IBCBUD SETVAR+14*
>> IBCBUD1 SETVAR+15*
>> IBCDFN SETVAR+9*, SETVAR+13
>> IBCDFND SETVAR+4*, SETVAR+7, SETVAR+8, SETVAR+9, HDR+9
>> IBCDFND1 SETVAR+5*
>> IBCDFND2 SETVAR+6*
>> IBCDFNDA SETVAR+7*
>> IBCDFNDB SETVAR+8*
>> IBCGN SETVAR+16*
>> IBCNS SETVAR+4*, SETVAR+9*
IBCPOL WPPC+2, WPPCQ+2!, GETEN1+6, GETEN1+9, SETVAR+9*, SETVAR+11, SETVAR+13, SETVAR+16, GETEN2+2, GETEN2+4
>> IBCPOLD SETVAR+11*, HDR+9, HDR+11
>> IBCY DQ+3, DQ+4, ASK+6*
>> IBHDT DQ+1*, HDR+5
>> IBLINE WPPC+11, GETEN1+7, GETEN1+8, HDR+5, HDR+9, HDR+11, ASK+6*
IBPAG WPPC+9~, DQ+1*, DQ+5, HDR+2, HDR+3, HDR+4*, HDR+5
>> IBPAT SETVAR+17*
IBPIB1 WPPC+9~, WPPC+10*, WPPCQ+2!, HDR+5, GETEN2+5*
>> IBPPOL SETVAR+4, SETVAR+5, SETVAR+6, SETVAR+9
IBQUIT WPPC+9~, WPPC+13, DQ+5*, DEV+3*, DEV+4*, HDR+2*, ASK+5*
IBW WPPC+9~, WPPC+10*, WPPC+11, WPPCQ+2!, GETEN1+7, ASK+6*, ASK+7*
IBYR WPPC+11, DQ+4, WPPCQ+2!, GETEN1+6*, GETEN1+7, GETEN1+8*, GETEN1+9, SETVAR+13, HDR+10, GETEN2+2*
, GETEN2+3*, GETEN2+4
IO DEV+6
IO("Q" DEV+4!
IOF HDR+3
IOM HDR+5, HDR+6
IOST DQ+5, DEV+5, HDR+2, HDR+3
>> POP DEV+3
U SETVAR+11
>> VA("PID" HDR+8
>> VADM(1 HDR+8
>> VADM(3 HDR+8
>> Y ASK+6
>> ZTDESC DEV+4*
>> ZTQUEUED WPPCQ
>> ZTREQ WPPCQ*
>> ZTRTN DEV+4*
>> ZTSAVE("DFN" DEV+4*
>> ZTSAVE("IB*" DEV+4*
ZTSK DEV+4!
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