PXRMP4I1 ; SLC/PKR - PXRM*2.0*4 init routine. ;06/28/2006
Source file <PXRMP4I1.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 4 | $$FIND1^DIC ($$GET1,FILE)^DID (,FILE,UPDATE)^DIE $$GET1^DIQ |
Clinical Reminders | 2 | SENODE^PXRMENOD AWRITE^PXRMUTIL |
Kernel | 1 | BMES^XPDUTL |
Name | Comments | DBIA/ICR reference |
---|---|---|
SNEXTIP | ;Set the INCLUDE DECEASED PATIENTS and INCLUDE TEST PATIENTS
|
|
RENAME(FILENUM,OLDNAME,NEWNAME) | ;Rename entry OLDNAME to NEWNAME in
|
|
REPROTS | ;Rename the Extract protocols.
|
|
CLEAN(FILENUM,NAME) | ;Clean entry NAME in file number FILENUM.
|
|
SLABENOD | ;Make sure the enodes are set correctly for lab findings.
|
|
REOPTS | ;Rename the Extract options.
|
|
RELTEMP | ;Rename the Extract list templates.
|
|
GECDIA | ;
|
|
SYN0 | ;
|
Name | Field # of Occurrence |
---|---|
$$FIND1^DIC | CLEAN+2, RENAME+3 |
$$GET1^DID | CLEAN+4 |
FILE^DID | CLEAN+9 |
^DIE | RENAME+7 |
FILE^DIE | CLEAN+23 |
UPDATE^DIE | CLEAN+26 |
$$GET1^DIQ | CLEAN+13 |
SENODE^PXRMENOD | SLABENOD+12, SLABENOD+23 |
AWRITE^PXRMUTIL | CLEAN+24, CLEAN+28 |
BMES^XPDUTL | CLEAN+22, GECDIA+2, RELTEMP+2, REOPTS+2, REPROTS+2, SLABENOD+2 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUTTHF - [#9999999.64] | GECDIA+10*, GECDIA+15*, GECDIA+20*, SYN0+1* |
^AUTTHF("B" | GECDIA+9, GECDIA+12, GECDIA+14, GECDIA+17, GECDIA+19, GECDIA+22, GECDIA+25, GECDIA+27, GECDIA+29, GECDIA+33 , GECDIA+35, GECDIA+39, GECDIA+41, GECDIA+43, GECDIA+45, GECDIA+47, GECDIA+49, GECDIA+51, GECDIA+53, GECDIA+55 |
^PXD(811.9 - [#811.9] | SLABENOD+4, SLABENOD+5, SLABENOD+6!, SLABENOD+8, SLABENOD+9 |
^PXRM(810.2 - [#810.2] | SNEXTIP+4, SNEXTIP+6, SNEXTIP+7* |
^PXRMD(811.5 - [#811.5] | SLABENOD+15, SLABENOD+16, SLABENOD+17!, SLABENOD+19, SLABENOD+20 |
Name | Line Occurrences |
---|---|
CLEAN | RELTEMP+13, RELTEMP+14, RELTEMP+15, RELTEMP+16, RELTEMP+17, RELTEMP+18, RELTEMP+19, REOPTS+9, REOPTS+10, REOPTS+11 , REOPTS+12, REOPTS+13, REPROTS+29 |
RENAME | RELTEMP+12, REOPTS+8, REPROTS+28 |
SYN0 | GECDIA+12, GECDIA+17, GECDIA+22, GECDIA+25, GECDIA+27, GECDIA+29, GECDIA+33, GECDIA+35, GECDIA+39, GECDIA+41 , GECDIA+43, GECDIA+45, GECDIA+47, GECDIA+49, GECDIA+51, GECDIA+53, GECDIA+55 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | RENAME+2~, RENAME+3*, RENAME+4, SLABENOD+1~, SLABENOD+11*, SLABENOD+12, SLABENOD+22*, SLABENOD+23 |
DA(1 | SLABENOD+11*, SLABENOD+22* |
DFDA | CLEAN+1~ |
DFDA( | CLEAN+8* |
DIE | RENAME+2~, RENAME+5* |
DR | RENAME+2~, RENAME+6* |
ENTRY | CLEAN+1~, CLEAN+6*, CLEAN+17, CLEAN+27 |
FDAIEN | CLEAN+1~ |
FDAIEN(1 | CLEAN+14* |
>> FHIEN | GECDIA+4*, GECDIA+9*, GECDIA+10, GECDIA+12*, GECDIA+14*, GECDIA+15, GECDIA+17*, GECDIA+19*, GECDIA+20, GECDIA+22* , GECDIA+25*, GECDIA+27*, GECDIA+29*, GECDIA+33*, GECDIA+35*, GECDIA+39*, GECDIA+41*, GECDIA+43*, GECDIA+45*, GECDIA+47* , GECDIA+49*, GECDIA+51*, GECDIA+53*, GECDIA+55*, SYN0+1 |
FI | SLABENOD+1~, SLABENOD+7*, SLABENOD+8*, SLABENOD+9, SLABENOD+11, SLABENOD+18*, SLABENOD+19*, SLABENOD+20, SLABENOD+22 |
FIELD | CLEAN+1~, CLEAN+12*, CLEAN+13 |
FILENUM | CLEAN~, CLEAN+2, CLEAN+4, CLEAN+8, CLEAN+9, CLEAN+13, CLEAN+21, RENAME~, RENAME+3, RENAME+5 |
GBL | CLEAN+1~, CLEAN+4*, CLEAN+5, CLEAN+6 |
HFIEN | GECDIA+3~ |
IEN | CLEAN+1~, CLEAN+2*, CLEAN+3, CLEAN+6, CLEAN+7, CLEAN+14, CLEAN+21, SLABENOD+1~, SLABENOD+3*, SLABENOD+4* , SLABENOD+5, SLABENOD+6, SLABENOD+8, SLABENOD+9, SLABENOD+11, SLABENOD+14*, SLABENOD+15*, SLABENOD+16, SLABENOD+17, SLABENOD+19 , SLABENOD+20, SLABENOD+22, SNEXTIP+2~, SNEXTIP+4*, SNEXTIP+6, SNEXTIP+7 |
IENS | CLEAN+1~, CLEAN+7*, CLEAN+8, CLEAN+13 |
IND | CLEAN+1~, CLEAN+10*, CLEAN+11*, CLEAN+12, CLEAN+16*, RELTEMP+1~, RELTEMP+11*, RELTEMP+12, RELTEMP+13, REOPTS+1~ , REOPTS+7*, REOPTS+8, REOPTS+9, REPROTS+1~, REPROTS+27*, REPROTS+28, REPROTS+29 |
LOCK | CLEAN+1~, CLEAN+15*, CLEAN+16, CLEAN+18*, CLEAN+19 |
MSG | CLEAN+1~, CLEAN+24, CLEAN+25!, CLEAN+28 |
NAME | CLEAN~, CLEAN+2, SNEXTIP+2~, SNEXTIP+3*, SNEXTIP+4 |
NEWNAME | RENAME~, RELTEMP+1~, REOPTS+1~, REPROTS+1~ |
NEWNAME( | RELTEMP+4*, RELTEMP+5*, RELTEMP+6*, RELTEMP+7*, RELTEMP+8*, RELTEMP+9*, RELTEMP+10*, RELTEMP+12, RELTEMP+13, REOPTS+4* , REOPTS+5*, REOPTS+6*, REOPTS+8, REOPTS+9, REPROTS+4*, REPROTS+5*, REPROTS+6*, REPROTS+7*, REPROTS+8*, REPROTS+9* , REPROTS+10*, REPROTS+11*, REPROTS+12*, REPROTS+13*, REPROTS+14*, REPROTS+15*, REPROTS+16*, REPROTS+17*, REPROTS+18*, REPROTS+19* , REPROTS+20*, REPROTS+21*, REPROTS+22*, REPROTS+23*, REPROTS+24*, REPROTS+25*, REPROTS+26*, REPROTS+28, REPROTS+29 |
NUM | RELTEMP+1~, RELTEMP+3*, RELTEMP+4*, RELTEMP+5*, RELTEMP+6*, RELTEMP+7*, RELTEMP+8*, RELTEMP+9*, RELTEMP+10*, RELTEMP+11 , REOPTS+1~, REOPTS+3*, REOPTS+4*, REOPTS+5*, REOPTS+6*, REOPTS+7, REPROTS+1~, REPROTS+3*, REPROTS+4*, REPROTS+5* , REPROTS+6*, REPROTS+7*, REPROTS+8*, REPROTS+9*, REPROTS+10*, REPROTS+11*, REPROTS+12*, REPROTS+13*, REPROTS+14*, REPROTS+15* , REPROTS+16*, REPROTS+17*, REPROTS+18*, REPROTS+19*, REPROTS+20*, REPROTS+21*, REPROTS+22*, REPROTS+23*, REPROTS+24*, REPROTS+25* , REPROTS+26*, REPROTS+27 |
OLDNAME | RENAME~, RENAME+3, RELTEMP+1~, REOPTS+1~, REPROTS+1~ |
OLDNAME( | RELTEMP+4*, RELTEMP+5*, RELTEMP+6*, RELTEMP+7*, RELTEMP+8*, RELTEMP+9*, RELTEMP+10*, RELTEMP+12, REOPTS+4*, REOPTS+5* , REOPTS+6*, REOPTS+8, REPROTS+4*, REPROTS+5*, REPROTS+6*, REPROTS+7*, REPROTS+8*, REPROTS+9*, REPROTS+10*, REPROTS+11* , REPROTS+12*, REPROTS+13*, REPROTS+14*, REPROTS+15*, REPROTS+16*, REPROTS+17*, REPROTS+18*, REPROTS+19*, REPROTS+20*, REPROTS+21* , REPROTS+22*, REPROTS+23*, REPROTS+24*, REPROTS+25*, REPROTS+26*, REPROTS+28 |
REQLIST | CLEAN+1~ |
REQLIST("REQU | IRED IDENTIFIERS" , CLEAN+11, CLEAN+12 |
SEQ | SNEXTIP+2~, SNEXTIP+5*, SNEXTIP+6*, SNEXTIP+7 |
SFDA | CLEAN+1~ |
SFDA( | CLEAN+13* |
SYN0 | GECDIA+3~, GECDIA+6*, SYN0+1 |
SYN1 | GECDIA+3~, GECDIA+5*, GECDIA+10, GECDIA+15, GECDIA+20 |
TEXT | CLEAN+20~, CLEAN+21*, CLEAN+22 |
U | SLABENOD+9, SLABENOD+20, SNEXTIP+7 |
X | SLABENOD+1~, SLABENOD+9*, SLABENOD+10, SLABENOD+12, SLABENOD+20*, SLABENOD+21, SLABENOD+23 |