SCDXPOV ;ALB/SCK - VISIT REPORT BY NPCDB TRANSMISSION STATUS ; 05 Oct 98 8:37 PM
Source file <SCDXPOV.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 | SCDXPOV3 SD VISIT REPORT |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Main entry point for the visit report.
|
|
EN1 | ||
START | ;
|
|
END | ;
|
|
BUILD(SCXB,SCXE) | ; Order through the encounters in the selected date range and process.
; Input: ; SCXB - Beginnging date (SCXBEG) ; SCXE - Ending date (SCXEND) |
|
GOTIT(SCXOE) | ; Process line of data in the OUTPATIENT ENCOUNTER FILE
; Input: ; SCXOE - IEN of entry in the OUTPATIENT ENCOUNTER File, #409.73 ; Variables ; SCX - 0 node of the OUTPATIENT ENCOUNTER entry ; SCX1 - 0 node of the TRANSMITTED OUTPATIENT ENCOUNTER entry ; SCX2 - 1 node of the TRANSMITTED OUTPATIENT ENCOUNTER entry ; SCXI - IEN of the associated entry (SCX) in the TRANSMITTED OUTPATIENT ENCOUNTER File ; SCXEL - Eligibility of the encounter ; SCXCV - Originating process for the encounter ; SCXCP - 1 if appt. type is C&P, 0 if not ; SCXDV - Division where the encounter took place ; SCXACK - Acknowledgement status of TRANSMITTED OUTPATIENT ENCOUNTER entry ; 0 - No information ; 1 - Waiting Transmission ; 2 - Transmitted ; 3 - Acknowledged |
|
SCH(SCXCV) | ;Determine scheduled/unscheduled status for appointment type encounters
|
|
INIT(SDIV) | ; Build TMP globals for encounter status count
; Ignores any entry beginning with "DOM" or "ZZ" |
Name | Field # of Occurrence |
---|---|
^%DT | GOTIT+35 |
^%ZIS | EN1+8 |
^%ZISC | END+1 |
WRT^SCDXPOV1 | START+7 |
$$CHKELG^SCDXPOV2 | INIT+15 |
$$GETDATE^SCDXPOV2 | EN+18, EN1 |
$$RPTOPT^SCDXPOV2 | EN1+6 |
$$SHWTOT^SCDXPOV2 | EN1+7 |
QUE^SCDXPOV2 | EN1+9 |
VISIT^SCDXPOV3 | GOTIT+68 |
WRT^SCDXPOV3 | START+9 |
ECDT^SCDXUTL2 | GOTIT+35 |
$$SITE^VASITE | EN1+5, START+2, START+3, GOTIT+29, GOTIT+36 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(40.8 - [#40.8] | START+3 |
^DIC(4 - [#4] | EN1+5 |
^DIC(8 - [#8] | GOTIT+26, GOTIT+51, GOTIT+55, GOTIT+68, INIT+13, INIT+14, INIT+16, INIT+19 |
^DPT - [#2] | SCH+3 |
^SCE - [#409.68] | BUILD+14, GOTIT+21 |
^SCE("B" | BUILD+12, BUILD+14 |
^SD(409.73 - [#409.73] | GOTIT+20, GOTIT+22, GOTIT+23 |
^TMP("SCDXPOV" | EN+16!, END+2!, GOTIT+38, GOTIT+49, GOTIT+52*, GOTIT+53*, GOTIT+56*, GOTIT+57*, GOTIT+59, GOTIT+60* , GOTIT+61*, GOTIT+63, GOTIT+64*, GOTIT+65*, INIT+17*, INIT+18*, INIT+20*, INIT+21*, INIT+24*, INIT+25* , INIT+27*, INIT+28* |
^TMP("SCDXV" | EN+16!, END+2! |
Name | Field # of Occurrence |
---|---|
^("DIV" | EN1+5 |
^(1 | GOTIT+23 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> %ZIS | EN1+8* |
IO("Q" | EN1+9 |
LL | INIT+10~, INIT+23*, INIT+24, INIT+25 |
>> POP | EN1+8 |
SCDIV | EN+14~, START+2*, START+3*, START+4 |
SCHDIV | EN+14~, START+3* |
SCX | GOTIT+18~, GOTIT+21*, GOTIT+25, GOTIT+27, GOTIT+28, GOTIT+29, GOTIT+36, GOTIT+68, SCH+3 |
SCX1 | GOTIT+18~, GOTIT+23*, GOTIT+42, GOTIT+43, GOTIT+44 |
SCX2 | GOTIT+18~, GOTIT+23*, GOTIT+42, GOTIT+43, GOTIT+44 |
SCXABRT | EN+14~, START+1*, START+8 |
SCXACK | GOTIT+18~, GOTIT+40*, GOTIT+42*, GOTIT+43*, GOTIT+44*, GOTIT+46, GOTIT+52, GOTIT+53, GOTIT+56, GOTIT+57 , GOTIT+60, GOTIT+61, GOTIT+64, GOTIT+65 |
SCXAP | SCH+3~*, SCH+4, SCH+5 |
SCXB | BUILD~, BUILD+11 |
SCXBEG | EN+14~, EN+18*, EN+19, EN1+2, EN1+5, START+2, START+3, START+6, GOTIT+29 |
SCXCP | GOTIT+18~, GOTIT+28*, GOTIT+63, GOTIT+68 |
SCXCV | GOTIT+18~, GOTIT+27*, GOTIT+59, GOTIT+60, GOTIT+61, GOTIT+68, SCH~, SCH+2, SCH+4 |
SCXDV | GOTIT+18~, GOTIT+29*, GOTIT+34, GOTIT+36*, GOTIT+37, GOTIT+38, GOTIT+49, GOTIT+52, GOTIT+56, GOTIT+59 , GOTIT+60, GOTIT+63, GOTIT+64 |
SCXE | BUILD~, BUILD+12 |
SCXEL | GOTIT+18~, GOTIT+25*, GOTIT+26, GOTIT+51, GOTIT+52, GOTIT+53, GOTIT+55, GOTIT+56, GOTIT+57, GOTIT+68 |
SCXELG | INIT+10~, INIT+11*, INIT+13*, INIT+14, INIT+15, INIT+16, INIT+17, INIT+18, INIT+19, INIT+20 , INIT+21 |
SCXEND | EN+14~, EN1*, EN1+1, EN1+2, EN1+4*, START+6 |
SCXI | GOTIT+18~, GOTIT+22*, GOTIT+23, GOTIT+35 |
SCXMD | EN+14~, EN1+5*, EN1+7, START+3, START+4 |
SCXN | INIT+10~, INIT+14* |
SCXOE | BUILD+9~, BUILD+13*, BUILD+14*, GOTIT~, GOTIT+20, GOTIT+21, GOTIT+22, SCH+4 |
SCXOPT | EN+14~, EN1+6*, EN1+7, START+7, START+9 |
SCXTFLG | EN+14~, EN1+7* |
SDIV | INIT~, INIT+17, INIT+20, INIT+24, INIT+27 |
SDT | BUILD+9~, BUILD+11*, BUILD+12*, BUILD+14 |
U | START+2, START+3, GOTIT+25, GOTIT+27, GOTIT+28, GOTIT+29, GOTIT+36, GOTIT+42, GOTIT+43, GOTIT+44 , GOTIT+51, GOTIT+52, GOTIT+53, GOTIT+55, GOTIT+56, GOTIT+57, GOTIT+60, GOTIT+61, GOTIT+64, GOTIT+65 , GOTIT+68, SCH+3, SCH+4, SCH+5, INIT+16, INIT+19 |
>> X | GOTIT+35* |
>> Y | GOTIT+36 |
ZTDESCR | END+2! |
ZTQUEUED | END+1, END+2! |
ZTRTN | END+2! |
ZTSAVE | END+2! |
ZTSK | END+2! |