TIUP146 ;SLC/RMO - Post-Install for TIU*1*146 ;9/9/02@09:51:20
Source file <TIUP146.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 2 | (,$$S)^%ZTLOAD ($$FMADD,$$NOW)^XLFDT |
Text Integration Utility | 1 | MAIL^TIUP146P |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN1 | ;Entry point to identify documents pointing to a different patient's
|
|
EN | ;Entry point to queue a job to identify documents linked to a
|
|
SETXTMP(TIUDA,TIUVSIT) | ;Set ^XTMP for entries processed
; Input -- TIUDA TIU Document file (#8925) IEN ; TIUVSIT VIsit file (#9000010) IEN ; Output -- Set ^XTMP("TIUP146","EX",TIUDA)=TIUVSIT |
|
ENDBI | ;Entry point to remove documents pointing to a visit of IEN=1
|
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 |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVSIT - [#9000010] | EN1+28 |
^TIU(8925 - [#8925] | EN1+22 |
^XTMP("TIUP146" | EN1+7, EN1+8, EN1+11!, EN1+13*, EN1+14*, EN1+15*, EN1+16*, EN1+17!, EN1+18*, EN1+29* , EN1+32*, EN1+38*, EN1+39*, EN1+43*, SETXTMP+4*, SETXTMP+5*, ENDBI+5, ENDBI+7! |
Name | Line Occurrences |
---|---|
SETXTMP | EN1+28 |
Name | Field # of Occurrence |
---|---|
^( | EN1+22, ENDBI+5 |
^(0 | EN1+22, EN1+28 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
C | ENDBI+2~, ENDBI+4*, ENDBI+6, ENDBI+8*, ENDBI+9 |
DT | EN1+13 |
TIUD0 | EN1+4~, EN1+22*, EN1+24, EN1+25 |
TIUDA | EN1+4~, EN1+21*, EN1+22*, EN1+28, EN1+32, SETXTMP~, SETXTMP+4, ENDBI+2~, ENDBI+4*, ENDBI+5* , ENDBI+7 |
TIUDFN | EN1+4~, EN1+24*, EN1+28 |
TIURSTDA | EN1+4~, EN1+8*, EN1+21, EN1+44! |
TIUVSIT | EN1+4~, EN1+25*, EN1+28, SETXTMP~, SETXTMP+4 |
U | EN1+13, EN1+24, EN1+25, EN1+28 |
ZTDESC | EN+2~, EN+10* |
ZTIO | EN+2~, EN+9* |
ZTRTN | EN+2~, EN+9* |
ZTSAVE | EN+2~ |
ZTSAVE("DUZ" | EN+9* |
ZTSK | EN+2~, EN+12, EN+15 |
>> ZTSTOP | EN1+22, EN1+35*, EN1+38, EN1+43 |