Routine: PSJIPST

Package	Total	Call Graph
Inpatient Medications	4	(ENPL,START)^PSJIPST1 (ACTPK,ENPVNV)^PSJIPST2 111^PSJIPST3 ^PSJIPSTA
Kernel	2	^%ZTLOAD MES^XPDUTL
VA FileMan	2	(C,NOW,YX)^%DTC ^DIE
MailMan	1	^XMD
Registration	1	$$SITE^VASITE

Entry Points

Name	Comments	DBIA/ICR reference
UPF	; update package file, if necessary .... took this code out
DONE	;
VIRGIN	; Queue process to mark all drugs as UD items (Virgin install only).
SNMM	;
ENUPO	; update options when conversions done ; get list of Pick List options IENs, these will not be enabled until ; the end of the pick list conversion
PURG	; Place PURGE options as OUT OF ORDER ; take this out later!!!!!!! keeps users from using the purge options

Name	Field # of Occurrence
C^%DTC	DONE+16
NOW^%DTC	PSJIPST+4, PSJIPST+8, DONE+13, DONE+16
YX^%DTC	PSJIPST+4, DONE+13, SNMM+1
^%ZTLOAD	VIRGIN+1
^DIE	ENUPO+15, ENUPO+17, PURG+3
ENPL^PSJIPST1	DONE+8
START^PSJIPST1	PSJIPST+12
ACTPK^PSJIPST2	ENUPO+20
ENPVNV^PSJIPST2	DONE+10
111^PSJIPST3	PSJIPST+15
^PSJIPSTA	PSJIPST+9
$$SITE^VASITE	SNMM+3
^XMD	SNMM+5
MES^XPDUTL	PSJIPST+3, PSJIPST+4, DONE+12, DONE+13, VIRGIN+2, VIRGIN+3, ENUPO+13, ENUPO+16

FileNo	Call Tags
^ORD(101 - [#101]	Classic Fileman Calls
^DIC(19 - [#19]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	ENUPO+3, ENUPO+4, ENUPO+5, ENUPO+6, ENUPO+7, ENUPO+8, ENUPO+9, ENUPO+10, ENUPO+11, ENUPO+12 , ENUPO+14, PURG+3
^ORD(101 - [#101]	ENUPO+17
^PS(55 - [#55]	DONE+1*
^PS(59.7 - [#59.7]	PSJIPST+8, PSJIPST+12, PSJIPST+15, DONE+8, DONE+10, DONE+13, ENUPO+20
^XTMP("PSJ NEW PERSON"	DONE+17*

Name	Field # of Occurrence
>> %	PSJIPST+8, DONE+13
>> %H	SNMM+1*
DA	ENUPO+15, ENUPO+17, ENUPO+22!, PURG+3*
DIE	ENUPO+15, ENUPO+17, ENUPO+22!, PURG+3*!
DIFROM	SNMM+5~
DR	ENUPO+15, ENUPO+17, ENUPO+22!, PURG+3*
DUZ	DONE+13, SNMM+1
IEN	PURG+2~, PURG+3*
NAME	PURG+2~, PURG+3*
PSG	SNMM+1~
PSG(1	SNMM+2*
PSG(2	SNMM+3*
PSG(3	SNMM+4*
>> PSGINITF	PSJIPST+7
PSJDATE1	DONE+15~, DONE+16*, DONE+17
PSJDATE2	DONE+15~, DONE+16*, DONE+17
>> PSJIPSTF	PSJIPST+4*
>> PSJMESSG	PSJIPST+4, DONE+13, VIRGIN+2*
PSJOPLIS	ENUPO+3, ENUPO+4, ENUPO+5, ENUPO+6, ENUPO+7, ENUPO+8, ENUPO+9, ENUPO+10, ENUPO+11, ENUPO+12 , ENUPO+15, ENUPO+22!
Q1	ENUPO+14, ENUPO+17, ENUPO+22!
Q2	ENUPO+14, ENUPO+15, ENUPO+17, ENUPO+22!
SITE	SNMM+5!
U	PSJIPST+12, PSJIPST+15, DONE+8, DONE+10, ENUPO+20
X	DONE+1*, DONE+16, ENUPO+22!
>> X1	DONE+16*
>> X2	DONE+16*
>> XMDUZ	SNMM+1*
>> XMSUB	SNMM+1*
>> XMTEXT	SNMM+1*
XMY	SNMM+1~
XMY("MIMS,M@ISC-BIRM.DOMAIN.EXT"	SNMM+1*
>> XPDQUES("POS1"	PSJIPST+8
Y	PSJIPST+4, DONE+13*, SNMM+4, ENUPO+22!
>> ZTDESC	VIRGIN+1*
>> ZTDTH	VIRGIN+1*
>> ZTIO	VIRGIN+1*
>> ZTRTN	VIRGIN+1*
ZTSAVE	VIRGIN+1!
ZTSK	VIRGIN+1!, VIRGIN+2, VIRGIN+3

Name	Field # of Occurrence
$T(PSJIPST+1	DONE+1, DONE+13, SNMM+1, SNMM+3