Routine: PSJPRE44

Package	Total	Call Graph
Inpatient Medications	2	ENKV^PSGSETU ENTSK^PSGTI
Kernel	2	(,HOME)^%ZIS ^%ZISC
VA Fileman	2	NOW^%DTC ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
NP	;
ENQ	;
DONE	;
PRT	;

External References

Name	Field # of Occurrence
NOW^%DTC	ENQ+1
^%ZIS	PSJPRE44+7
HOME^%ZIS	PSJPRE44+7
^%ZISC	ENQ+3
^DIR	PRT+12
ENKV^PSGSETU	DONE+1
ENTSK^PSGTI	PSJPRE44+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?30,"INPATIENT SITE PRINT" Line Location: PSJPRE44+3
Function Call: WRITE	Prompt: !!?2,"This option will print all of the information contained in each of the entries",!,"in your Inpatient Site file, to assist you in your decisions in moving data",!,"from the Inpatient Site file to the Inpatient Ward Parameter file and " Line Location: PSJPRE44+4
Function Call: WRITE	Prompt: !,"the Ward Group file.",!!?2,"Although this can be printed to your screen, it is highly recommended that",!,"you send this print to a printer so that you can have a hard copy readily",!,"available when using the data move options.",! Line Location: PSJPRE44+5
Function Call: WRITE	Prompt: !?3,"...print ",$S($D(ZTSK):"",1:"NOT "),"sent..." Line Location: PSJPRE44+8
Function Call: WRITE	Prompt: @IOF,!!,PDT,?28,"INPATIENT SITE FILE PRINT",?71,"Page: 1" Line Location: ENQ+1
Function Call: WRITE	Prompt: !!?80-$L(X)/2,X Line Location: ENQ+3
Function Call: WRITE	Prompt: @IOF Condition for execution: CML Line Location: ENQ+3
Function Call: WRITE	Prompt: !!,"-------------------------------------------------------------------------------",!,"Site: ",$S($P(ND,"^")]"":$P(ND,"^"),1:Q) Line Location: PRT+2
Function Call: WRITE	Prompt: !?4,"Days until stop date/time: ",$P(ND,"^",3),?47,"Order entry process: ",$S($P(ND,"^",21)="1":"WARD",$P(ND,"^",21)="1":"ABBREVIATED",1:"REGULAR") Line Location: PRT+3
Function Call: WRITE	Prompt: !?1,"Same stop date on all orders: ",$S($P(ND,"^",4):"YES",1:"NO"),?41,"'SELF MED' in order entry: ",$S($P(ND,"^",24):"YES",1:"NO") Line Location: PRT+4
Function Call: WRITE	Prompt: !?1,"Time of day that orders stop: ",$P(ND,"^",7),?49,"Auto nurse verify: ",$S($P(ND,"^",15):"YES",1:"NO") Line Location: PRT+5
Function Call: WRITE	Prompt: !?3,"Start time for 24 hour MAR: ",$P(ND,"^",8),?44,"Auto pharmacist verify: ",$S($P(ND,"^",17):"YES",1:"NO") Line Location: PRT+6
Function Call: WRITE	Prompt: !?9,"Days new labels last: ",$P(ND,"^",11),?44,"Pre-exchange envelopes: ",$S($P(ND,"^",27):"YES",1:"NO") Line Location: PRT+7
Function Call: WRITE	Prompt: !?1,"Print profile in order entry: ",$S($P(ND,"^",30):"YES",1:"NO") Line Location: PRT+8
Function Call: WRITE	Prompt: !,"PICK LIST:",!?6,"Room/bed sort: ",$S($P(PL,"^"):"BED-ROOM",1:"ROOM-BED"),?55,"Form feed/patient: ",$S($P(PL,"^",4):"YES",1:"NO") Line Location: PRT+9
Function Call: WRITE	Prompt: !?5,"Omit ward sort: ",$S($P(PL,"^",2):"YES - DO NOT SORT BY WARD",1:"NO - SORT BY WARD"),?58,"Form feed/ward: ",$S($P(PL,"^",5):"YES",1:"NO") Line Location: PRT+10
Function Call: WRITE	Prompt: !?1,"Omit room-bed sort: ",$S($P(PL,"^",3):"YES - DO NOT SORT BY ROOM-BED",1:"NO - SORT BY ROOM-BED"),?54,"Lines on form feed: ",$S($P(PL,"^",6):"YES",1:"NO") Line Location: PRT+11
Function Call: WRITE	Prompt: ! Line Location: PRT+12
Function Call: WRITE	Prompt: @IOF,!,PDT,?30,"INPATIENT SITE FILE PRINT",?72-$L(PG),"Page: ",PG,! Line Location: NP+1
Routine Call	%ZIS Line Location: PSJPRE44+7
Routine Call	DIR Line Location: PRT+12
Routine Call	%ZIS Line Location: PSJPRE44+7

Name	Field # of Occurrence
^(	ENQ+2
^(5	ENQ+2, PRT+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ENQ+1
%ZIS	PSJPRE44+7!*
%ZIS("A"	PSJPRE44+7*
%ZIS("B"	PSJPRE44+7*
CML	ENQ+1*, ENQ+3, DONE+1!, PRT+2, PRT+3, PRT+4, PRT+5, PRT+6, PRT+7, PRT+8 , PRT+9, PRT+10, PRT+11, PRT+12
CNT	ENQ+1, ENQ+3, DONE+1!, PRT+1
DIR	PRT+12!
DIR(0	PRT+12*
>> DIRUT	PRT+12
IO	ENQ+1
IO("Q"	PSJPRE44+7!, PSJPRE44+8
IO(0	ENQ+1
IOF	PSJPRE44+3, ENQ+1, ENQ+3, NP+1
IOP	PSJPRE44+7!
IOSL	PRT+2, PRT+3, PRT+4, PRT+5, PRT+6, PRT+7, PRT+8, PRT+9, PRT+10, PRT+11
IOST	ENQ+1
ND	ENQ+1, ENQ+2, ENQ+3, DONE+1!, PRT+1, PRT+2, PRT+3, PRT+4, PRT+5, PRT+6 , PRT+7, PRT+8, PRT+12*
PDT	ENQ+1*, DONE+1!, NP+1
PG	ENQ+1, DONE+1!, NP+1
PL	DONE+1!, PRT+1*, PRT+9, PRT+10, PRT+11
>> POP	PSJPRE44+7
PSGTIR	PSJPRE44+8*, DONE+1!
>> Q	ENQ+2*, PRT+1, PRT+2
>> X	ENQ+3*, PRT+12
>> ZTDTH	PSJPRE44+8*
>> ZTRTN	PSJPRE44+8*
ZTSAVE	PSJPRE44+8!
ZTSAVE("PSGTIR"	PSJPRE44+8*
>> ZTSK	PSJPRE44+8

Customize PDF page

Package: Inpatient Medications

Routine: PSJPRE44

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
DONE	PSJPRE44+7, PSJPRE44+8
NP	PRT+2, PRT+3, PRT+4, PRT+5, PRT+6, PRT+7, PRT+8, PRT+9, PRT+10, PRT+11
PRT	ENQ+2