©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
SCDXPOV ;ALB/SCK - VISIT REPORT BY NPCDB TRANSMISSION STATUS ; 05 Oct 98 8:37 PM
Source file <SCDXPOV.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 4 | WRT^SCDXPOV1 ($$CHKELG,$$GETDATE,$$RPTOPT,$$SHWTOT,QUE)^SCDXPOV2 (VISIT,WRT)^SCDXPOV3 ECDT^SCDXUTL2 |
| Kernel | 2 | ^%ZIS ^%ZISC |
| Registration | 1 | $$SITE^VASITE |
| VA Fileman | 1 | ^%DT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BUILD(SCXB,SCXE) | ; Order through the encounters in the selected date range and process.
; Input: ; SCXB - Beginnging date (SCXBEG) ; SCXE - Ending date (SCXEND) |
|
| INIT(SDIV) | ; Build TMP globals for encounter status count
; Ignores any entry beginning with "DOM" or "ZZ" |
|
| EN | ; Main entry point for the visit report.
|
|
| END | ;
|
|
| START | ;
|
|
| EN1 | ||
| SCH(SCXCV) | ;Determine scheduled/unscheduled status for appointment type encounters
|
|
| 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 |
| 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 | Line Occurrences |
|---|---|
| $$SCH | GOTIT+27 |
| BUILD | START+6 |
| EN1 | EN1+2 |
| END | EN+19, EN1+1, EN1+6, EN1+7, EN1+8, EN1+9, START+8 |
| GOTIT | BUILD+14 |
| INIT | START+3, START+4, GOTIT+38 |
| 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! |