Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSJPRE44

Package: Inpatient Medications

Routine: PSJPRE44


Information

PSJPRE44 ; B'ham ISC/CML3 - PRINT OUT INPATIENT SITE FILE ;3/23/92 18:42

Source Information

Source file <PSJPRE44.m>

Call Graph

Call Graph Total: 6

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(59.4 - [#59.4] ENQ+2, PRT+1

Label References

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

Naked Globals

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

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All