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 |
