Routine: PSSFIL

Package	Total	Call Graph
VA FileMan	4	^DIC DO^DIC1 (FILE,YN)^DICN ^DIE
Inpatient Medications	2	ENWAI^PSGFILD1 (ENCV,ENKV)^PSGSETU

Entry Points

Name	Comments	DBIA/ICR reference
ENDTE	; default team edit
ENOAOPT	; order action on patient transfer
ENSWT	; set-up discontinue on all ward transfers
SW	;
SW1	;
SWTH	;
ENSUEP	; supervisor edit of user parameters
ENUUEP	;
ENIWPE	; edit inpatient ward parameters
ENPDE	; edit primary drug
ENALU	; application look-up
ENAQ	; application query

External References

Name	Field # of Occurrence
^DIC	ENDTE+2, ENSUEP+1, ENIWPE+1, ENPDE+1, ENALU+1, ENAQ+1
DO^DIC1	ENALU+1, ENAQ+1
FILE^DICN	SW+1, SW1+1
YN^DICN	ENSWT+1, ENSWT+4
^DIE	ENOAOPT+2, ENSUEP+1, ENUUEP+1, ENIWPE+1, ENPDE+1
ENWAI^PSGFILD1	ENSWT+3
ENCV^PSGSETU	ENOAOPT+3, ENUUEP+1
ENKV^PSGSETU	ENSUEP+5, ENUUEP+1, ENIWPE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO TEAMS ENTERED TO CHOOSE FROM!" Line Location: ENDTE+1
Function Call: WRITE	Prompt: !!,"Do you want the instructions for auto-discontinue set-up" Line Location: ENSWT+1
Function Call: WRITE	Prompt: !!,"Do you want the package to set-up all of your wards for auto-discontinue" Line Location: ENSWT+4
Function Call: WRITE	Prompt: !,PSGW(PSGX),"..." Line Location: ENSWT+7
Function Call: WRITE	Prompt: "." Line Location: SW1+1
Function Call: WRITE	Prompt: !?2,"Enter ""YES"" to have the package set-up all of your wards for auto-discontinue",!,"for you. Enter ""NO"" if you prefer to set-up the wards individually. Enter ""^""",!,"to abort the set-up." Line Location: SWTH+1
Function Call: WRITE	Prompt: !!?2,"If you answer YES, you will still be able to add, edit and delete individual",!,"wards.",!!?2,"PLEASE NOTE that this is not a flag for the package, but a one-time action.",!,"If you add new wards to your WARD LOCATION file, you will" Line Location: SWTH+2
Function Call: WRITE	Prompt: " need to add those",!,"wards here." Line Location: SWTH+3
Function Call: WRITE	Prompt: ! Line Location: ENSUEP+1
Function Call: READ	Variable: W Timeout: X Line Location: ENSUEP+4
Function Call: WRITE	Prompt: " and a " Condition for execution: X Line Location: ENSUEP+4
Function Call: WRITE	Prompt: "PROVIDER." Line Location: ENSUEP+4
Function Call: WRITE	Prompt: !!,"PLEASE NOTE: Any changes made will not take effect for the corresponding users",!,"until those users completely exit and re-enter the system." Line Location: ENSUEP+5
Function Call: WRITE	Prompt: ! Line Location: ENUUEP+1
Function Call: READ	Variable: W Timeout: X Line Location: ENUUEP+4
Function Call: WRITE	Prompt: " and a " Condition for execution: X Line Location: ENUUEP+4
Function Call: WRITE	Prompt: "PROVIDER." Line Location: ENUUEP+4
Function Call: WRITE	Prompt: !!,"PLEASE NOTE: Any changes made take effect immediately." Line Location: ENUUEP+5
Function Call: WRITE	Prompt: ! Line Location: ENIWPE+1
Routine Call	DIC Line Location: ENDTE+2 ENSUEP+1 ENIWPE+1 ENPDE+1 ENALU+1 ENAQ+1
Routine Call	DIE Line Location: ENOAOPT+2 ENSUEP+1 ENUUEP+1 ENIWPE+1 ENPDE+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(50.3 - [#50.3]	Classic Fileman Calls
^PS(50.35 - [#50.35]	Classic Fileman Calls
^PS(53.45 - [#53.45]	Classic Fileman Calls
^PS(59.6 - [#59.6]	Classic Fileman Calls
^PS(59.7 - [#59.7]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ENOAOPT+3, ENSWT+1, ENSUEP+5, ENUUEP+1, ENIWPE+2
^DIC(42 - [#42]	ENSWT+5
^PS(50.3 - [#50.3]	ENALU+2
^PS(57.7 - [#57.7]	ENDTE+1
^PS(59.7 - [#59.7]	ENSWT+6, ENSWT+7, SW+1
^TMP("OR"	ENIWPE+2!
^VA(200 - [#200]	ENSUEP+3, ENUUEP+3
^XUSEC("PSJ "	ENSUEP+2, ENUUEP+2
^XUTL("OR"	ENUUEP+1!

Label References

Name	Line Occurrences
ENSWT	ENOAOPT+1
SW	ENSWT+7
SW1	ENSWT+7
SWTH	ENSWT+4

Naked Globals

Name	Field # of Occurrence
^(	ENSWT+5
^(0	ENSWT+5, ENSWT+6, SW+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ENOAOPT+1!, ENSWT+1, ENSWT+3, ENSWT+4, ENSWT+5, ENSWT+8*
DA	ENDTE+1, ENDTE+2, ENOAOPT+2!, SW+1!, SW1+1!, ENSUEP+1!, ENUUEP+1!, ENIWPE+1!, ENPDE+1!*, ENPDE+2! , ENALU+1~, ENAQ+1~
DA(1	SW+1, SW1+1, ENALU+1
DA(2	SW1+1*
DD	SW+1!, SW1+1!
DIC	ENDTE+2~, SW+1!, SW1+1!, ENSUEP+1!, ENIWPE+1!, ENPDE+1!, ENPDE+2!, ENALU+1~, ENAQ+1~
DIC("A"	ENSUEP+1, ENIWPE+1, ENPDE+1*
DIC(0	ENDTE+2, SW+1, SW1+1, ENSUEP+1, ENIWPE+1, ENPDE+1, ENALU+1, ENAQ+1
DIE	ENDTE+2~, ENOAOPT+2, ENSUEP+1, ENUUEP+1, ENIWPE+1, ENPDE+1*, ENPDE+2!, ENALU+1~, ENAQ+1~
>> DINUM	SW+1, SW1+1
DIX	ENALU+1~
DLAYGO	ENSUEP+1!, ENIWPE+1, ENPDE+1*, ENPDE+2!
DO	SW+1!, SW1+1!, ENALU+1~, ENAQ+1~
DR	ENOAOPT+2!, ENSUEP+1!, ENUUEP+1!, ENIWPE+1!, ENPDE+1!*, ENPDE+2!, ENALU+1~, ENAQ+1~
DT	ENSUEP+3, ENUUEP+3
DUZ	ENUUEP+2, ENUUEP+3
DZ	ENAQ+1~
IU	ENSUEP+1*, ENSUEP+2, ENSUEP+3, ENSUEP+5!
PSGS0XT	ENPDE+2!
PSGS0Y	ENPDE+2!
PSGW	ENSWT+5!*, ENSWT+8!
PSGW(	ENSWT+5*, ENSWT+7
PSGX	ENSWT+7*, ENSWT+8!, SW+1, SW1+1
PSGY	ENSWT+7*, ENSWT+8!, SW1+1
PSJ	ENSUEP+5!, ENALU+1~*, ENALU+2
>> PSJPRE4	ENALU+1
>> PSJSYSP	ENUUEP+1
>> Q	ENSWT+5*
R	ENSUEP+3, ENSUEP+4, ENSUEP+5!, ENUUEP+3, ENUUEP+4
X	ENDTE+1!, ENDTE+2!, ENDTE+3, ENOAOPT+3, ENSWT+1, ENSWT+5, SW+1, SW1+1, ENSUEP+2, ENSUEP+3 , ENSUEP+4, ENSUEP+5, ENUUEP+1, ENUUEP+2, ENUUEP+3, ENUUEP+4, ENIWPE+2, ENPDE+2!, ENALU+1!, ENALU+2! , ENAQ+1*
Y	ENDTE+2, ENDTE+3, ENSUEP+1, ENIWPE+1, ENPDE+1, ENPDE+2!, ENALU+1
Y(0	ENSUEP+1, ENALU+2

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSFIL

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: