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 |