DGPFLMT ;ALB/RBS - PRF TRANSMISSION ERRORS LM SCREEN ; 4/27/05 12:00pm
Source file <DGPFLMT.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 |
Package | Total | Caller Graph |
---|---|---|
Registration | 2 | DGPF TRANSMISSION ERRORS DGPFLMT2 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;Main entry point for DGPF TRANSMISSION ERRORS option.
|
|
HDR | ;Header Code
|
|
INIT | ;Init variables and list array
|
|
BLD | ;Build HL7 Transmission Log "RJ" Rejected Status message list
|
|
HELP | ;Help Code
|
|
EXIT | ;Exit Code
|
|
EXPND | ;Expand Code
|
|
PROMPT() | ; ----- prompts before LM invoked
; Set local variables to be available throughout the LM actions ; I '$$PROMPT then quit the Option ; DGSORT("BY") = "N" ; DGSORT("FLAG") = "A" or variable_pointer^flagname ; DGSORT("STAT") = 1 - active assignments ; DGSORT("OWN") = 1 - OWNER SITE is from local facility |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DGARY | BLD+2!, BLD+7*, BLD+8, BLD+17, EXIT+4, EXIT+5! |
DGSORT | EN+6~ |
DGSORT("BY" | HDR+2, BLD+3*, BLD+17, PROMPT+10* |
DGSORT("FLAG" | HDR+6, PROMPT+17*, PROMPT+20, PROMPT+21* |
DGSORT("OWN" | PROMPT+25* |
DGSORT("STAT" | PROMPT+26* |
DGSRTBY | EN+6~, EN+7*, BLD+3*, PROMPT+10 |
U | HDR+8, PROMPT+16 |
>> VALMCNT | BLD+14*, BLD+17 |
VALMHDR | BLD+2! |
VALMHDR(1 | HDR+9*, HDR+10* |
VALMHDR(2 | HDR+4*, HDR+5* |
X | HDR+1~, HDR+3*, HDR+5, HDR+7*, HDR+8*, HDR+10, HELP+1~, HELP+2*, PROMPT+8~, PROMPT+16* , PROMPT+17, PROMPT+20, PROMPT+21* |
Y | HDR+1~, HDR+2*, HDR+3, HDR+6*, HDR+8, PROMPT+8~ |