Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSJIPST

Package: Inpatient Medications

Routine: PSJIPST


Information

PSJIPST ;BIR/CML3-POST INIT DRIVER ;11 DEC 97 / 3:11 PM

Source Information

Source file <PSJIPST.m>

Call Graph

Call Graph Total: 10

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
SNMM ;
UPF ; update package file, if necessary .... took this code out
VIRGIN ; Queue process to mark all drugs as UD items (Virgin install only).
DONE ;
PURG ; Place PURGE options as OUT OF ORDER
; take this out later!!!!!!! keeps users from using the purge options
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

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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*

Label References

Name Line Occurrences
ENUPO DONE+11
PURG ENUPO+21
SNMM DONE+11
VIRGIN PSJIPST+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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@DOMAIN.NAME" 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

Marked Items

Name Field # of Occurrence
$T(PSJIPST+1 DONE+1, DONE+13, SNMM+1, SNMM+3
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All