SCDXSUP ;RENO/KEITH ALB/SCK - Consistency checker for Ambulatory Care Reporting Project (ACRP); 02/26/97
Source file <SCDXSUP.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 | 1 | SCDX AMBCAR XMIT CHECK |
Name | Comments | DBIA/ICR reference |
---|---|---|
CQ | ;Queue re-calculation of OUTPATIENT ENCOUNTER checkout status
|
|
CQ1 | ||
CQAPI(SCBG,SCED,SCPFLG) | ; API entry point for re-calculation of OUTPATIENT ENCOUNTER checkout status
; INPUT: ; SCBG - Beginning date, if passed in, use it ; SCED - Ending date, if passed in, use it ; SCPFLG - Print Report flag ; 1 - Print report ; 0 - Do not print report |
|
CALC | ;Update Checkout Status
|
|
CRTX | ;
|
|
NEXT1 | ;
|
|
EXIT | ;
|
|
EVAL(SC0,OEIN,SDT) | ;Evaluate checkout status
; ** If the encounter appt. status is CHECKED OUT, and the check out process is ; completed, but there is no entry for the encounter in the Transmitted ; Outpatient Encounter file, then process the encounter into the Transmitted ; Outpatient Encounter File, #409.73 |
|
HDR | ; Header
|
|
PRT(SC0) | ;Print appointment
|
|
ASKDT(TXT) | ; Enter beginning date for searching outpatient encounter file
|
|
NEWPAGE() | ; Check device and display prompt for terminals
|
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 |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^SCE - [#409.68] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | PRT+3 |
^SC - [#44] | EVAL+23, EVAL+30, PRT+6 |
^SCE - [#409.68] | CALC+10 |
^SCE("B" | CALC+8, CALC+9, CALC+14! |
^SD(409.73 - [#409.73] | EVAL+22, EVAL+33 |
^TMP("SCMSC" | CALC+4!, CRTX+3, CRTX+7, CRTX+8, CRTX+9, NEXT1+6, NEXT1+10, NEXT1+11, NEXT1+12, EXIT+2! , EVAL+27*, EVAL+36* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%ZIS | CQ1+6~, CQ1+7*, CQ1+8, EXIT+1! |
>> DA | EVAL+24*, EVAL+31* |
DIE | EVAL+24*, EVAL+25!, EVAL+31*, EVAL+32! |
DIR | ASKDT+4!, NEWPAGE+1~ |
DIR("?" | ASKDT+2* |
DIR("A" | ASKDT+1* |
DIR("B" | ASKDT+3* |
DIR(0 | ASKDT+1*, NEWPAGE+4* |
DIRUT | ASKDT+5, ASKDT+6! |
DR | EVAL+24*, EVAL+25!, EVAL+31*, EVAL+32! |
IOF | NEXT1+4, HDR+1, NEWPAGE+5 |
IOM | CALC+20, HDR+2, HDR+4, PRT+6 |
IOSL | CRTX+11, NEXT1+14, PRT+2 |
IOST | NEXT1+4, NEWPAGE+2 |
OEIN | CALC+2~, CALC+9*, CALC+10, CALC+14, CALC+15, CRTX+8*, CRTX+9, NEXT1+11*, NEXT1+12, EVAL~ , EVAL+22, EVAL+24, EVAL+26, EVAL+27, EVAL+31, EVAL+33, EVAL+35, EVAL+36 |
PAGE | CALC+24*, NEXT1+3*, EXIT+1!, HDR+1, HDR+4, HDR+7* |
SC0 | EVAL~, EVAL+22, EVAL+23, EVAL+27, EVAL+29, EVAL+30, EVAL+36, PRT~, PRT+3, PRT+5 , PRT+6 |
SCABRT | CALC+2~, CRTX+7, CRTX+8, NEXT1+2, NEXT1+10, NEXT1+11, PRT+2, NEWPAGE+4*, NEWPAGE+5 |
SCBDT | CQ+19~, CQ+20*, CQ+21, CQ1+2, CQAPI+8*, CALC+7, CALC+22*, EXIT+1!, HDR+3 |
SCBG | CQAPI~, CQAPI+8 |
SCCT | CALC+2~, CALC+24*, CRTX+6*, CRTX+12, NEXT1+9*, NEXT1+14, PRT+3* |
SCDT | CALC+2~, CALC+7*, CALC+8*, CALC+9, CALC+14, CALC+15, CRTX+6*, CRTX+7*, CRTX+8, CRTX+9 , NEXT1+9*, NEXT1+10*, NEXT1+11, NEXT1+12 |
SCE0 | CALC+2~, CALC+10*, CALC+13, CALC+15, CRTX+9*, NEXT1+12* |
SCED | CQAPI~, CQAPI+9 |
SCEDT | CQ+19~, CQ1*, CQ1+1, CQ1+2, CQAPI+9*, CALC+8, CALC+23*, EXIT+1!, HDR+3 |
SCHD | CRTX+1*, NEXT1+1*, EXIT+1!, HDR+2 |
SCLINE | CALC+2~, CALC+20*, HDR+2, HDR+6 |
SCOK | NEWPAGE+1~, NEWPAGE+5*, NEWPAGE+6 |
SCPFLG | CQ+19~, CQ1+5*, CQAPI~, CALC+17 |
SCPNOW | CALC+2~, CALC+21*, HDR+4 |
SCPT0 | EXIT+1!, PRT+3*, PRT+4 |
SCTOE | EVAL+21~, EVAL+26*, EVAL+27, EVAL+33*, EVAL+34, EVAL+35*, EVAL+36 |
SDT | EVAL~, EVAL+27, EVAL+36 |
TXT | ASKDT~, ASKDT+1 |
U | CALC+15, EVAL+22, EVAL+23, EVAL+29, EVAL+30, PRT+3, PRT+4, PRT+5, PRT+6 |
>> X | NEXT1+2* |
>> Y | ASKDT+5*, ASKDT+7, NEWPAGE+4 |
ZTSAVE | CQ1+6~, CQ1+8 |
ZTSAVE("SCBDT" | CQ1+7* |
ZTSAVE("SCEDT" | CQ1+7* |
ZTSAVE("SCPFLG" | CQ1+7* |