IBCNSM ;ALB/AAS - INSURANCE MANAGEMENT, LIST MANAGER INIT ROUTINE ; 30-NOV-2021
Source file <IBCNSM.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;
|
|
| ENQ | ||
| INIT | ; -- set up inital variables
|
|
| INITQ | ||
| PAT | ; -- select patient you are working with
|
|
| BLD | ; -- build list of bills
|
|
| BLDQ | ;
|
|
| SET(X) | ; -- set arrays
|
|
| HDR | ; -- screen header for initial screen
|
|
| FNL | ; -- exit and clean up
|
|
| YN(X,Y) | ; -- convert 1 or 0 to yes/no/unknown
|
|
| COB(X) | ; -- convert COB value to "UNK", "P", "S" or "T"
|
|
| CP | ; -- change patient
|
|
| CPQ | ||
| PCI | ||
| FASTEXIT | ;just sets a flag signaling system should be exited
|
| Name | Field # of Occurrence |
|---|---|
| ^DIC | PAT+2 |
| DT^DICRW | EN+1 |
| $$GET1^DIQ | BLD+36, BLD+37, BLD+38, BLD+64 |
| ^DIR | INIT+5, FASTEXIT+3 |
| $$BUFFER^IBCNBU1 | HDR+5 |
| $$GRP^IBCNS | BLD+28 |
| ALL^IBCNS1 | BLD+8, BLD+9 |
| $$PLCOV^IBCNSU3 | BLD+20 |
| POL^IBCNSU41 | BLD+7 |
| $$DAT1^IBOUTL | BLD+29, BLD+30, BLD+43 |
| PID^VADPT | HDR+1 |
| EN^VALM | EN+3, INIT+8 |
| $$SETFLD^VALM1 | BLD+24, BLD+25, BLD+26, BLD+27, BLD+28, BLD+29, BLD+30, BLD+31, BLD+40, BLD+42 , BLD+43, BLD+44, BLD+45, BLD+47 |
| FULL^VALM1 | CP+2, FASTEXIT+2 |
| CLEAN^VALM10 | FNL+3 |
| $$FMTE^XLFDT | BLD+55, BLD+60, BLD+66, HDR+3 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls, GET1^DIQ |
| ^IBE(355.1 - [#355.1] | GET1^DIQ |
| ^IBA(355.3 - [#355.3] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(36 - [#36] | BLD+25 |
| ^DPT - [#2] | HDR+3 |
| ^IBA(354 - [#354] | BLD+58 |
| ^IBA(355.3 - [#355.3] | BLD+17 |
| ^IBE(355.1 - [#355.1] | BLD+31 |
| ^TMP("IBNSM" | INIT+2!, BLD+1!, BLD+52, BLD+53*, BLD+54*, BLD+55*, BLD+60*, BLD+66*, SET+1*, SET+2* , FNL+1! |
| ^TMP("IBNSMDX" | INIT+2!, BLD+1!, SET+3*, FNL+1! |
| ^VA(200 - [#200] | BLD+42 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | ENQ!, INIT+7*, PAT+3*, BLD+7, BLD+8, BLD+9, BLD+58, BLD+64, SET+3, HDR+3 , HDR+5, CP+3, CP+4* |
| >> DIC | PAT+2* |
| >> DIC(0 | PAT+2* |
| DIR | INIT+5!, FASTEXIT+3!, FASTEXIT+5! |
| DIR("A" | INIT+4*, FASTEXIT+3* |
| DIR("B" | FASTEXIT+3* |
| DIR(0 | INIT+4*, FASTEXIT+3* |
| >> DIRUT | INIT+5, FASTEXIT+4 |
| DPTNOFZY | PAT+1~* |
| I | BLD+2~ |
| IB3551IEN | BLD+35~, BLD+36*, BLD+37, BLD+38 |
| IBCDFND | BLD+2~, BLD+14*, BLD+16, BLD+25, BLD+26, BLD+27, BLD+28, BLD+29, BLD+30, BLD+36 , BLD+47, SET+3 |
| IBCDFND1 | BLD+2~, BLD+15*, BLD+42, BLD+43 |
| >> IBCNS | INIT+8* |
| IBCNT | BLD+2~, BLD+3*, BLD+22*, BLD+24, BLD+53*, BLD+59*, BLD+60, BLD+65*, BLD+66, SET+2 , SET+3 |
| IBCPOLD | BLD+2~, BLD+17*, BLD+31, BLD+44, BLD+45 |
| IBDFN | CP+3*, CP+4, CPQ! |
| IBDOD | BLD+2~, BLD+64*, BLD+66 |
| IBFASTXT | FNL+2!, FASTEXIT+4* |
| >> IBFILE | BLD+3*, SET+3 |
| IBGRP | BLD+2~, BLD+48! |
| IBHOLD | BLD+2~, BLD+27*, BLD+48! |
| IBINS | BLD+2~, BLD+6!* |
| IBINS( | BLD+11, BLD+14, BLD+15 |
| IBINS(0 | BLD+11 |
| >> IBN | BLD+3* |
| >> IBNCPIVD | BLD+8, BLD+9, BLD+20, BLD+55 |
| IBPL | BLD+2~, BLD+16*, BLD+17, BLD+20 |
| >> IBTYP | INIT+7*, INIT+8* |
| IBTYPA | BLD+35~, BLD+38*, BLD+39 |
| IBTYPN | BLD+35~, BLD+37*, BLD+39 |
| IBTYPO | BLD+35~, BLD+39*, BLD+40 |
| >> IBY | INIT+6*, INIT+7, INIT+8 |
| J | BLD+2~ |
| K | BLD+2~, BLD+11*, BLD+14, BLD+15, SET+3 |
| U | INIT+1*, BLD+16, BLD+31, BLD+42 |
| >> VA("BID" | HDR+3 |
| >> VALMBCK | CP+7*, PCI*, FASTEXIT+1* |
| >> VALMBG | INIT+1*, CP+7* |
| >> VALMCNT | INIT+1*, BLD+3*, BLD+53*, SET+1*, SET+2, SET+3 |
| VALMEVL | EN+2! |
| >> VALMHDR(1 | HDR+3* |
| >> VALMHDR(2 | HDR+4*, HDR+5* |
| VALMQUIT | INIT+5*, INIT+8*, PAT+2*, CP+1~, CP+4 |
| X | BLD+23*, BLD+24*, BLD+25*, BLD+26*, BLD+27*, BLD+28*, BLD+29*, BLD+30*, BLD+31*, BLD+40* , BLD+42*, BLD+43*, BLD+44*, BLD+45*, BLD+47*, BLD+49, BLD+58*, BLD+60, SET~, SET+1 , YN~, YN+1, COB~, COB+1 |
| XQORS | EN+2! |
| Y | INIT+6, PAT+2, PAT+3, YN~, YN+1, FASTEXIT+4 |