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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Routine: PSDORNP

Package: Controlled Substances

Routine: PSDORNP


Information

PSDORNP ;BIR/LTL-Nurse CS Order Entry Print Priority Order (cont'd) ; 17 Feb 95

Source Information

Source file <PSDORNP.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 ^DIE  Y^DIQ  ^DIWP  ^DIWW  
Kernel 3 HOME^%ZIS  ^%ZTLOAD  $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDORN1  

Entry Points

Name Comments DBIA/ICR reference
PRINT

External References

Name Field # of Occurrence
HOME^%ZIS PSDORNP+13
^%ZTLOAD PSDORNP+13
^DIE PRINT+12
Y^DIQ PSDORNP+11
^DIWP PRINT+9
^DIWW PRINT+10
$$FMTE^XLFDT PRINT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Pharmacy has not set up a priority order printer, you'll need to call."
  • Line Location: PSDORNP+11
Function Call: WRITE
  • Prompt: ?40,"Printing on ",Y,"..."
  • Line Location: PSDORNP+13
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y&(IOF]"")
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: "* PRIORITY CONT. SUBS. ORDER *"
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !!,"Date/Time Needed: ",$$FMTE^XLFDT($G(PSDT(9)),2)
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,"Location",?14,": ",NAOUN
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"Drug",?14,": ",!,PSDRN,!,"Quantity",?14,": ",PSDQTY
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,"Requested by",?14,": ",$P($G(^VA(200,PSDUZ,0)),"^")
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,"Worksheet #",?14,": ",PSDREC
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,"Comments:"
  • Line Location: PRINT+7
Routine Call
  • %ZIS
  • Line Location:
    • PSDORNP+13
Routine Call
  • DIE
  • Line Location:
    • PRINT+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSD(58.85 - [#58.85] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(58.8 PSDORNP+10
^PSD(58.8 - [#58.8] PSDORNP+10, PRINT+4, PRINT+8, PRINT+9
^UTILITY($J PRINT+8!
^VA(200 - [#200] PRINT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C PSDORNP+10*
DA PRINT+12*!
DIE PRINT+12*!
>> DIWF PRINT+9*
>> DIWL PRINT+9*
>> DIWR PRINT+9*
DR PRINT+12*!
IOF PRINT, PRINT+11
>> NAOU PRINT+8, PRINT+9
>> NAOUN PRINT+2
>> PSDA PRINT+8, PRINT+9
>> PSDQTY PRINT+3
>> PSDR PRINT+4, PRINT+8, PRINT+9
>> PSDREC PRINT+6, PRINT+12
>> PSDRN PRINT+3
>> PSDS PSDORNP+10, PRINT+4
>> PSDT(9 PRINT+1
>> PSDUZ PRINT+5
>> TEXT PRINT+8*, PRINT+9
U PSDORNP+10, PRINT+4
>> X PRINT+9*
Y PSDORNP+8~, PSDORNP+10*, PSDORNP+11, PSDORNP+12, PSDORNP+13
ZTDESC PSDORNP+8~, PSDORNP+9*
ZTDTH PSDORNP+8~, PSDORNP+10*
ZTIO PSDORNP+8~, PSDORNP+12*
>> ZTREQ PRINT+13*
ZTRTN PSDORNP+8~, PSDORNP+9*
ZTSAVE PSDORNP+8~
ZTSAVE("NAOU*" PSDORNP+12*
ZTSAVE("PSD*" PSDORNP+12*
ZTSAVE("REQD" PSDORNP+12*
ZTSK PSDORNP+8~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables |  All