HBHCUTL1 ; LR VAMC(IRMS)/MJT-HBHC Utility module, Entry points: ENDRPT, END132, FORMMSG, BIRTHYR, SEXRACE, HOSP ;2/5/98 15:19
Source file <HBHCUTL1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ENDRPT | ; Print end of report message
|
|
END132 | ; Print end of report message for 132 column report
|
|
FORMMSG | ; Process Form 3/4/5/7 Transmit Status fields
|
|
EXIT | ; Exit FORMMSG module
|
|
SETNODE | ; Set node in ^HBHC(634.4) (Form 6 Corrections file)
|
|
BIRTHYR | ; Birth year field display during Evaluation/Admission Data Entry
|
|
SEXRACE | ; Sex & Race fields display during Evaluation/Admission Data Entry
|
|
MASMSG | ; MAS message for BIRTHYR & SEX modules
|
|
HOSP | ; Obtain Hospital Number from ^DIC(4 (Institution file); set HBHCHOSP variable
; Newing Y to prevent undef in calling routines since DIQ1 call is apparently killing Y |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | SETNODE+3, BIRTHYR+1, SEXRACE+1 |
^HBHC( | FORMMSG+8, FORMMSG+10, FORMMSG+12!, FORMMSG+13*, FORMMSG+14!*, FORMMSG+15!*, FORMMSG+16, SETNODE+3 |
^HBHC(631.9 - [#631.9] | FORMMSG+2, FORMMSG+3, HOSP+5 |
^HBHC(634.4 - [#634.4] | SETNODE+2*, SETNODE+9* |
^UTILITY("DIQ1" | HOSP+4!, HOSP+6, HOSP+8! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | FORMMSG+4*, FORMMSG+5, FORMMSG+6, FORMMSG+11 |
DA | HOSP+4!, HOSP+5*, HOSP+6, HOSP+8! |
DIC | HOSP+4!, HOSP+5*, HOSP+8! |
DILOCKTM | FORMMSG+8, EXIT+1!, SETNODE+2 |
DR | HOSP+4!, HOSP+5*, HOSP+6, HOSP+8! |
DUZ | FORMMSG+13 |
HBHC3XMT | FORMMSG+15*, EXIT+1! |
HBHC5XMT | FORMMSG+14*, EXIT+1! |
HBHCADDT | EXIT+1!, SETNODE+4*, SETNODE+8 |
>> HBHCDFN | FORMMSG+8, FORMMSG+10, FORMMSG+12, FORMMSG+13, FORMMSG+14, FORMMSG+15, FORMMSG+16, SETNODE+3 |
>> HBHCDPT | SETNODE+3, BIRTHYR+1, SEXRACE+1 |
HBHCDPT0 | EXIT+1!, SETNODE+3*, SETNODE+6, SETNODE+8, BIRTHYR+1*, BIRTHYR+2, SEXRACE+1*, SEXRACE+8! |
HBHCDSDT | EXIT+1!, SETNODE+5*, SETNODE+8 |
HBHCFILE | FORMMSG+7*, FORMMSG+8, FORMMSG+10, FORMMSG+12, FORMMSG+13, FORMMSG+14, FORMMSG+15, FORMMSG+16, EXIT+1!, SETNODE+3 |
>> HBHCFORM | FORMMSG+6, FORMMSG+7, FORMMSG+9, FORMMSG+10, FORMMSG+14, FORMMSG+15, FORMMSG+17 |
HBHCHOSP | EXIT+1!, SETNODE+8, HOSP+6*, HOSP+7* |
HBHCINFO | EXIT+1!, SETNODE+3*, SETNODE+4, SETNODE+5 |
HBHCLNTH | EXIT+1!, SETNODE+1*, SETNODE+6 |
HBHCNAME | EXIT+1!, SETNODE+6*, SETNODE+8 |
HBHCNDX1 | EXIT+1!, SETNODE+2*, SETNODE+9 |
>> HBHCNHSP | FORMMSG+3* |
HBHCNODE | FORMMSG+7*, FORMMSG+8, FORMMSG+10, FORMMSG+13, FORMMSG+14, FORMMSG+15, FORMMSG+16, EXIT+1! |
HBHCNOW | FORMMSG+11*, FORMMSG+13, EXIT+1! |
HBHCPC1 | FORMMSG+7*, FORMMSG+13, EXIT+1! |
HBHCPC2 | FORMMSG+7*, FORMMSG+13, EXIT+1! |
HBHCPC3 | FORMMSG+9*, FORMMSG+13, EXIT+1! |
>> HBHCPRCT | FORMMSG+5* |
HBHCREC | EXIT+1!, SETNODE+8*, SETNODE+9 |
HBHCS136 | EXIT+1!, SETNODE+1*, SETNODE+8 |
HBHCSEX | SEXRACE+1*, SEXRACE+2, SEXRACE+8! |
HBHCSP4 | EXIT+1!, SETNODE+1*, HOSP+3*, HOSP+7 |
HBHCSP8 | EXIT+1!, SETNODE+1*, SETNODE+4, SETNODE+5 |
HBHCSTAT | FORMMSG+10*, FORMMSG+12, EXIT+1! |
HBHCXREF | FORMMSG+9*, FORMMSG+12, FORMMSG+13, EXIT+1! |
U | FORMMSG+2, FORMMSG+3, FORMMSG+10, FORMMSG+13, FORMMSG+14, FORMMSG+15, SETNODE+2, SETNODE+4, SETNODE+5, SETNODE+6 , SETNODE+8, BIRTHYR+2, SEXRACE+1, HOSP+5 |
Y | FORMMSG+6*, HOSP+2~ |