SCRPI01 ;ALB/SCK - IEMM REPORT OF INCOMPLETE ENCOUNTERS ; 2/2/97
Source file <SCRPI01.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 |
---|---|---|
Scheduling | 2 | SCENI IEMM ERROR REPORT SCRPI01A |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Main entry point for report of incomplete encounters report
; Variables ; SDTXT - String array for initial message display ; SDDT - date Range, Begin^End ; SDSEL1,2 - Selection methods Line Tag ; SDOK - Flag, 1 - Ok to continu, 0 - Quit |
|
ENQ | ||
RPT | ; Build report, then call print
|
|
EXIT | ;
|
|
SELCT(S1,SCT) | ; Set selection criteria
; Input ; S1 - Previous selection method ; SCT - first or second selection method |
|
CLN | ; Clinic selection o/m/a
|
|
PAT | ; Patient selection o/m/a
|
|
ERR | ; Error selection o/m/a
|
|
DSS | ; Clinic Stop code selection o/m/a
|
|
BLD | ; Search for incomplete encounters and build TMP global
; Variables ; SDEND - End date of date range ; SDOE - Encounter IEN ; SDOEDT - Encounter date ; SDCNT - Entry count |
|
BLD1(SDE,SDX) | ; If error passes checks, add to sorted TMP global
; Input ; SDE - Pointer to #409.75 ; SDX - Pointer to #409.73 |
|
SELMTHD(SEL) | ; Returns 'external' version of selection method
|
|
HLP | ; '??' help for the selection criteria.
|
|
MSG2 | ;
|
|
MSG | ;
|
|
OPTIONS | ; Selection methods
|
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 |
|
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 |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DIC(40.7 - [#40.7] | Classic Fileman Calls |
^SD(409.76 - [#409.76] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(40.8 - [#40.8] | BLD1+42 |
^DPT - [#2] | BLD1+42 |
^SC - [#44] | BLD1+42 |
^SCE - [#409.68] | BLD1+27, BLD1+28 |
^SD(409.74 - [#409.74] | BLD1+24, BLD1+25 |
^SD(409.75 - [#409.75] | BLD+10, BLD+11, BLD+12, BLD1+34, BLD1+39 |
^TMP("SCRPI ERR" | RPT+1!, EXIT+1!, BLD1+42* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CNT | SELCT+14~, SELCT+16* |
>> DIC | ERR+2*, DSS+2* |
DIR | EN+13!, SELCT+23! |
DIR("?" | SELCT+21* |
DIR("??" | SELCT+22* |
DIR("A" | SELCT+20* |
DIR(0 | EN+13*, SELCT+20* |
>> IOP | EN+26* |
NDX | EN+7~, EN+10* |
S1 | SELCT~, SELCT+17 |
SCEN | BLD1+15~ |
SCEN("CLINIC" | BLD1+32, BLD1+37, BLD1+42 |
SCEN("DELIEN" | BLD1+24, BLD1+25 |
SCEN("DFN" | BLD1+33, BLD1+38, BLD1+42 |
SCEN("ENCOUNTER" | BLD1+42 |
SCEN("SDOIEN" | BLD1+27, BLD1+28 |
SCT | SELCT~, SELCT+20 |
SCTEXT | SELCT+14~, SELCT+16*, SELCT+17, SELCT+18 |
SDCDE | BLD1+15~, BLD1+25*, BLD1+28*, BLD1+35, BLD1+40 |
SDCNT | BLD+7~, BLD+9*, BLD1+17* |
SDDEL | BLD1+15~, BLD1+21*, BLD1+42 |
SDDT | EN+7~, EN+19, BLD+9 |
SDE | BLD1~, BLD1+34, BLD1+39, BLD1+42 |
SDEND | BLD+7~, BLD+9*, BLD+10 |
SDIV | BLD1+15~, BLD1+24*, BLD1+27*, BLD1+30, BLD1+42 |
SDOE | BLD+7~ |
SDOEDT | BLD+7~, BLD+9*, BLD+10*, BLD+11, BLD+12 |
SDOK | EN+7~, EN+21, EN+22, CLN+5*, PAT+5*, ERR+5*, DSS+5* |
SDRSLT | BLD1+15~, BLD1+19*, BLD1+20, BLD1+21, BLD1+23 |
SDSEL1 | EN+7~, EN+17*, EN+18, EN+21, BLD1+32, BLD1+33, BLD1+34, BLD1+35 |
SDSEL2 | EN+7~, EN+18*, EN+22, BLD1+37, BLD1+38, BLD1+39, BLD1+40 |
SDTXT | EN+7~, EN+10*, EN+11 |
SDX | BLD1~, BLD1+42 |
>> SDXER | BLD+12* |
>> SDXMT | BLD+11*, BLD+12, BLD1+19 |
SEL | SELMTHD~, SELMTHD+1 |
U | BLD+9, BLD1+24, BLD1+25, BLD1+27, BLD1+28, BLD1+34, BLD1+39, BLD1+42 |
VAUDS | EN+7~, BLD1+35, BLD1+40 |
VAUDS( | BLD1+35, BLD1+40 |
VAUER | EN+7~, BLD1+34, BLD1+39 |
VAUER( | BLD1+34, BLD1+39 |
VAUTC | EN+7~, BLD1+32, BLD1+37 |
VAUTC( | BLD1+32, BLD1+37 |
VAUTD | EN+7~, BLD1+30 |
VAUTD( | BLD1+30 |
VAUTN | EN+7~, BLD1+33, BLD1+38 |
VAUTN( | BLD1+33, BLD1+38 |
VAUTNI | EN+7~, CLN+2*, PAT+2*, ERR+2*, DSS+2* |
VAUTSTR | EN+7~, ERR+2*, DSS+2* |
VAUTVB | EN+7~, ERR+2*, DSS+2* |
X | EN+24*, EN+25, SELCT+14~, SELCT+15*, SELCT+18*, SELCT+20 |
>> Y | EN+13, SELCT+24, CLN+5, PAT+5, ERR+5 |
>> ZTQUEUED | BLD1+17 |
ZTSAVE | EN+7~, EN+28 |
ZTSAVE( | EN+25* |
Name | Field # of Occurrence |
---|---|
$T(MSG+NDX | EN+10 |
$T(OPTIONS+CNT | SELCT+16 |