Routine: PSGFILD0

Information

PSGFILD0 ;BIR/CML3-SON OF VARIOUS FILES' UPKEEP ; 15 May 98 / 9:25 AM

Call Graph

Call Graph Total: 6

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 6

Package	Total	Caller Graph
Inpatient Medications	6	PSJ AC SET-UP PSJ IWP EDIT PSJ OAOPT PSJ SEUP PSJ UEUP ^PS(59.6

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
ENOSD	; one-time stop date check
ENPDE	; edit primary drug
ENALU	; application look-up
ENAQ	; application query

External References

Name	Field # of Occurrence
^DIC	ENDTE+2, ENSUEP+1, ENIWPE+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
ENWAI^PSGFILD1	ENSWT+3
ENCV^PSGSETU	ENOAOPT+3, ENUUEP+1
ENKV^PSGSETU	ENSUEP+5, ENUUEP+1, ENIWPE+3

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 ENALU+1 ENAQ+1
Routine Call	DIE Line Location: ENOAOPT+2 ENSUEP+1 ENUUEP+1 ENIWPE+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^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

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

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!, ENOSD+3, 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!, ENALU+1~, ENAQ+1~*
DIC("A"	ENSUEP+1, ENIWPE+1
DIC(0	ENDTE+2, SW+1, SW1+1, ENSUEP+1, ENIWPE+1, ENALU+1, ENAQ+1*
DIE	ENDTE+2~, ENOAOPT+2, ENSUEP+1, ENUUEP+1, ENIWPE+1, ENALU+1~, ENAQ+1~
>> DINUM	SW+1, SW1+1
DIX	ENALU+1~
>> DLAYGO	ENSUEP+1, ENIWPE+1
DO	SW+1!, SW1+1!, ENALU+1~, ENAQ+1~
DR	ENOAOPT+2!, ENSUEP+1!, ENUUEP+1!, ENIWPE+1!, 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!
LAYGO	ENSUEP+1!
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
PSJWD	ENOSD+1~, ENOSD+3*, ENOSD+4, ENOSD+5
>> Q	ENSWT+5*
R	ENSUEP+3, ENSUEP+4, ENSUEP+5!, ENUUEP+3, ENUUEP+4
X	ENDTE+1!, ENDTE+2!, ENDTE+3, ENSWT+5, SW+1, SW1+1, ENSUEP+2, ENSUEP+3, ENSUEP+4, ENUUEP+2* , ENUUEP+3, ENUUEP+4, ENOSD+2!, ENOSD+4!, ENOSD+5!, ENALU+1!, ENALU+2!, ENAQ+1*
>> Y	ENDTE+2, ENDTE+3, ENSUEP+1, ENIWPE+1, ENALU+1
>> Y(0	ENSUEP+1, ENALU+2

Customize PDF page

Package: Inpatient Medications