IBCNSM ;ALB/AAS - INSURANCE MANAGEMENT, LIST MANAGER INIT ROUTINE ; 30-NOV-2021
Source file <IBCNSM.m>
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
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls, GET1^DIQ |
^IBE(355.1 - [#355.1] | GET1^DIQ |
^IBA(355.3 - [#355.3] | GET1^DIQ |