Routine: PSJPRE43

Package	Total	Call Graph
VA Fileman	4	^DIC YN^DICN ^DIE ^DIR
Inpatient Medications	1	ENKV^PSGSETU

Entry Points

Name	Comments	DBIA/ICR reference
DONE	;
IS	;
BWL	; build ward list
ENWE	;
WH	;

External References

Name	Field # of Occurrence
^DIC	IS+1, ENWE+1
YN^DICN	PSJPRE43+7, IS+7
^DIE	ENWE+1
^DIR	IS+4
ENKV^PSGSETU	DONE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?18,"MOVE PICK LIST PARAMETERS TO WARD GROUP FILE" Line Location: PSJPRE43+3
Function Call: WRITE	Prompt: !!?2,"This option is designed to allow you to seed the Inpatient Ward Group file",!,"with the PICK LIST data from the Inpatient Site Parameter file. After the ward",!,"group list is built, select the Inpatient site from which you want to" Line Location: PSJPRE43+4
Function Call: WRITE	Prompt: " move the",!,"pick list data. Then select the ward group(s) which you want to seed with the",!,"pick list data. The pick list data from the selected Inpatient site will then",!,"be moved to each ward group selected." Line Location: PSJPRE43+5
Function Call: WRITE	Prompt: !!,"BUILDING the ward group list..." Line Location: PSJPRE43+6
Function Call: WRITE	Prompt: !!,"The data move has already been completed.",!,"Would you like to edit any of the entries in the Ward Group file" Line Location: PSJPRE43+7
Function Call: WRITE	Prompt: !!?2,"Enter 'YES' to edit the Ward Parameter file. Enter 'NO' to exit this option." Line Location: PSJPRE43+7
Function Call: WRITE	Prompt: !!,"Working..." Line Location: IS+5
Function Call: WRITE	Prompt: !!,"The data move has been completed to all wards.",!,"Would you like to edit any of the ward groups" Line Location: IS+7
Function Call: WRITE	Prompt: !!?2,"Enter 'YES' to edit the Ward Parameter file. Enter 'NO' to exit this option." Line Location: IS+7
Function Call: WRITE	Prompt: !,"Working..." Line Location: IS+9
Function Call: WRITE	Prompt: !!?2,"Select the ward group(s) to which you want to move the pick list data from",!,"the selected Inpatient site. Choose, by number, from the following ward",!,"groups:" Line Location: WH+1
Function Call: WRITE	Prompt: !,$J(Q,3),". ",$P(PSG(Q),"^",2) Line Location: WH+2
Function Call: WRITE	Prompt: ?26,$J(Q,3),". ",$P(PSG(Q),"^",2) Line Location: WH+2
Function Call: WRITE	Prompt: ?26,$J(Q,3),". ",$P(PSG(Q),"^",2) Line Location: WH+2
Function Call: WRITE	Prompt: ! Line Location: ENWE+1
Routine Call	DIE Line Location: ENWE+1
Routine Call	DIC Line Location: IS+1 ENWE+1
Routine Call	DIR Line Location: IS+4

FileNo	Call Tags
^PS(57.5 - [#57.5]	Classic Fileman Calls
^PS(59.4 - [#59.4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PS(57.5 - [#57.5]	IS+6*, BWL+2
^PS(59.4 - [#59.4]	IS+2

Name	Field # of Occurrence
^(	BWL+2
^(5	BWL+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PSJPRE43+7, PSJPRE43+8, IS+7, IS+8
>> DA	ENWE+1*
DIC	IS+1!, ENWE+1
DIC("S"	IS+1, ENWE+1
DIC(0	IS+1, ENWE+1
>> DIE	ENWE+1*
>> DIR("?"	IS+4*
>> DIR("A"	IS+4*
>> DIR(0	IS+4*
>> DR	ENWE+1*
IOF	PSJPRE43+3
IS	IS+2*, DONE+1!
ISND	IS+2*, IS+6, DONE+1!
PSG	PSJPRE43+7, PSJPRE43+8, IS+4, IS+7, BWL+1!, BWL+2, WH+2, DONE+1!
PSG(	IS+6, BWL+2*, WH+2
>> Q	BWL+1, BWL+2, WH+2*
Q1	IS+6*, DONE+1!
Q2	IS+6*, DONE+1!
>> X	IS+6, BWL+2
>> Y	IS+1, IS+2, IS+4, ENWE+1
>> Y(	IS+6

Customize PDF page

Package: Inpatient Medications

Routine: PSJPRE43

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
BWL	PSJPRE43+6, IS+7
DONE	PSJPRE43+8, IS+1, IS+8
ENWE	PSJPRE43+8, IS+8
IS	IS+4, IS+7