Routine: PSJPRE42

Package	Total	Call Graph
VA Fileman	6	^DIC DO^DIC1 YN^DICN ^DIE IX1^DIK ^DIR
Inpatient Medications	1	ENKV^PSGSETU

Entry Points

Name	Comments	DBIA/ICR reference
ENDH(X)	; device help
IS	;
ENDL	; device look-up
WH	;
WS	;
DONE	;
BWL	; build ward list
ENWE	;

External References

Name	Field # of Occurrence
^DIC	IS+1, WS+1, ENWE+1, ENDL+2, ENDH+2
DO^DIC1	ENDL+2, ENDH+2
YN^DICN	PSJPRE42+7, IS+6
^DIE	ENWE+1
IX1^DIK	WS+1
^DIR	IS+4
ENKV^PSGSETU	DONE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?18,"MOVE SITE PARAMETERS TO WARD PARAMETER FILE" Line Location: PSJPRE42+3
Function Call: WRITE	Prompt: !!?2,"This option is designed to allow you to seed the Inpatient Ward Parameter file",!,"with data from the Inpatient Site Parameter file. After the ward list is built,",!,"select the Inpatient site from which you want to move data. Then" Line Location: PSJPRE42+4
Function Call: WRITE	Prompt: " select the",!,"ward(s) which you want to seed with the site data. The data from the selected",!,"Inpatient site will then be moved to each ward selected.",!!,"BUILDING the ward list..." Line Location: PSJPRE42+5
Function Call: WRITE	Prompt: !!,"The data move has already been completed.",!,"Would you like to edit any of the entries in the Ward Parameter file" Line Location: PSJPRE42+7
Function Call: WRITE	Prompt: !!?2,"Enter 'YES' to edit the Ward Parameter file. Enter 'NO' to exit this option." Line Location: PSJPRE42+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 wards" Line Location: IS+6
Function Call: WRITE	Prompt: !!?2,"Enter 'YES' to edit the Ward Parameter file. Enter 'NO' to exit this option." Line Location: IS+6
Function Call: WRITE	Prompt: !!?2,"Select the ward(s) to which you want to move the data from the selected",!,"Inpatient site. Choose, by number, from the following wards:" 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: WS+1
Function Call: WRITE	Prompt: "." Line Location: WS+1
Routine Call	DIE Line Location: ENWE+1
Routine Call	DIC Line Location: IS+1 WS+1 ENWE+1 ENDL+2 ENDH+2
Routine Call	DIR Line Location: IS+4

FileNo	Call Tags
^%ZIS(1 - [#3.5]	Classic Fileman Calls
^PS(59.4 - [#59.4]	Classic Fileman Calls
^PS(59.6 - [#59.6]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	BWL+2
^PS(59.6 - [#59.6]	BWL+2, WS+1*

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PSJPRE42+7, PSJPRE42+8, IS+6, IS+7
DA	WS+1, ENWE+1!, ENDL+1~, ENDH+1~
DIC	IS+1, WS+1, ENWE+1!, ENDL+1~, ENDL+2, ENDH+1~, ENDH+2*
DIC(0	IS+1, WS+1, ENWE+1, ENDL+2, ENDH+2*
DIE	ENWE+1!*, ENDL+1~, ENDH+1~
>> DIK	WS+1*
>> DIR("?"	IS+4*
>> DIR("A"	IS+4*
>> DIR(0	IS+4*
DIX	ENDL+1~
>> DLAYGO	WS+1*
DO	ENDL+1~, ENDH+1~
DR	ENWE+1!*, ENDL+1~, ENDH+1~
DZ	ENDH+1~
IOF	PSJPRE42+3
IS	IS+2*, DONE+1!
ISND	IS+2, WS+1, DONE+1!
PSG	PSJPRE42+7, PSJPRE42+8, IS+4, IS+6, BWL+1!, BWL+2, WH+2, DONE+1!
PSG(	BWL+2*, WH+2, WS+1
>> Q	IS+2, BWL+1, BWL+2, WH+2
Q1	IS+5*, DONE+1!
Q2	IS+5*, DONE+1!
X	IS+5, BWL+2, WS+1, ENDL+2!, ENDL+3, ENDH~
Y	IS+1, IS+2, IS+4, WS+1~, ENWE+1, ENDL+2
Y(	IS+5
Y(0	IS+2, ENDL+3

Customize PDF page

Package: Inpatient Medications

Routine: PSJPRE42

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
BWL	PSJPRE42+6, IS+6
DONE	PSJPRE42+8, IS+1, IS+7
ENWE	PSJPRE42+8, IS+7
IS	IS+4, IS+6
WS	IS+5