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 |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSJR0103

Package: Inpatient Medications

Routine: PSJR0103


Information

PSJR0103 ;BIR/JLC-PRINT ORDERS WITH 'BAD' SCHEDULES ;07-JUN-04

Source Information

Source file <PSJR0103.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 DD^%DT  NOW^%DTC  $$GET1^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJU NSS REPORT  

Entry Points

Name Comments DBIA/ICR reference
EN
HDR
DAN
START ;
HDRD
SELDEV ;*** Ask for device type for report to output to ***
EXIT ;
HDRN
NSS

External References

Name Field # of Occurrence
DD^%DT START+1
NOW^%DTC START+1
^%ZIS SELDEV+3, SELDEV+10
^%ZISC EXIT+4
^%ZTLOAD SELDEV+10
$$GET1^DIQ NSS+7, NSS+10, NSS+16, DAN+8, DAN+11, DAN+16
^DIR EN+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Nothing on file."
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: "Enter S to sort the list of orders by Schedule or P to sort by Patient"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SELDEV+2
Function Call: WRITE
  • Prompt: !,"** No device selected **"
  • Line Location: SELDEV+3
Function Call: WRITE
  • Prompt: PSJSCHD,?24,$P(^DPT(PSJPDFN,0),"^"),?51,$$GET1^DIQ(200,$P(DRUG,"^"),.01),?78,PSJORD,"U",?86,$P(^PS(50.7,$P(DRUG,"^",2),0),"^"),?118,$P(DRUG,"^",3),!
  • Line Location: NSS+7
Function Call: WRITE
  • Prompt: PSJSCHD,?24,$P(^DPT(PSJPDFN,0),"^"),"V",?51,$$GET1^DIQ(200,$P(DRUG,"^"),.01),?78,PSJORD,"V",?86,$S($P(DRUG,"^",2)="A":$P(^PS(52.6,$P(DRUG,"^",3),0),"^"),1:$P(^PS(52.7,$P(DRUG,"^",3),0),"^")),?118,$P(DRUG,"^",4),!
  • Line Location: NSS+10
Function Call: WRITE
  • Prompt: $P(^DPT(PSJPDFN,0),"^"),?28,$$GET1^DIQ(200,$P(A,"^",2),.01),?57,$P(A,"^"),?78,PSJORD
  • Line Location: NSS+16
Function Call: WRITE
  • Prompt: "U",?86,$P(^PS(50.7,$P(DRUG,"^"),0),"^"),?118,$P(DRUG,"^",2),!
  • Line Location: NSS+17
Function Call: WRITE
  • Prompt: "V",?86,$S($P(DRUG,"^")="A":$P(^PS(52.6,$P(DRUG,"^",2),0),"^"),1:$P(^PS(52.7,$P(DRUG,"^",2),0),"^")),?118,$P(DRUG,"^",3),!
  • Line Location: NSS+18
Function Call: WRITE
  • Prompt: PSJSCHD,?24,$P(^DPT(PSJPDFN,0),"^"),?51,$$GET1^DIQ(200,$P(DRUG,"^"),.01),?78,PSJORD,"U",?86,$P(^PS(50.7,$P(DRUG,"^",2),0),"^"),?118,$P(DRUG,"^",3),!
  • Line Location: DAN+8
Function Call: WRITE
  • Prompt: PSJSCHD,?24,$P(^DPT(PSJPDFN,0),"^"),?51,$$GET1^DIQ(200,$P(DRUG,"^"),.01),?78,PSJORD,"V",?86,$S($P(DRUG,"^",2)="A":$P(^PS(52.6,$P(DRUG,"^",3),0),"^"),1:$P(^PS(52.7,$P(DRUG,"^",3),0),"^")),?118,$P(DRUG,"^",4),!
  • Line Location: DAN+11
Function Call: WRITE
  • Prompt: $P(^DPT(PSJPDFN,0),"^"),?28,$$GET1^DIQ(200,$P(A,"^",2),.01),?57,$P(A,"^"),?78,PSJORD
  • Line Location: DAN+16
Function Call: WRITE
  • Prompt: "U",?86,$P(^PS(50.7,$P(DRUG,"^"),0),"^"),?118,$P(DRUG,"^",2),!
  • Line Location: DAN+17
Function Call: WRITE
  • Prompt: "V",?86,$S($P(DRUG,"^")="A":$P(^PS(52.6,$P(DRUG,"^",2),0),"^"),1:$P(^PS(52.7,$P(DRUG,"^",2),0),"^")),?118,$P(DRUG,"^",3),!
  • Line Location: DAN+18
Function Call: WRITE
  • Prompt: ?55,"Non-Standard Schedules",!!
  • Line Location: HDRN+0
Function Call: WRITE
  • Prompt: "Schedule",?24,"Patient",?51,"Provider",?78,"Order",?86,"OI/Additive/Sol",?118,"Dos/Str/Vol",!!
  • Line Location: HDRN+0
Function Call: WRITE
  • Prompt: "Patient",?28,"Provider",?57,"Schedule",?78,"Order",?86,"OI/Additive/Sol",?118,"Dos/Str/Vol",!!
  • Line Location: HDRN+1
Function Call: WRITE
  • Prompt: ?54,"Dangerous Abbreviations",!!
  • Line Location: HDRD+0
Function Call: WRITE
  • Prompt: "Schedule",?24,"Patient",?51,"Provider",?78,"Order",?86,"OI/Additive/Sol",?118,"Dos/Str/Vol",!!
  • Line Location: HDRD+0
Function Call: WRITE
  • Prompt: "Patient",?28,"Provider",?57,"Schedule",?78,"Order",?86,"OI/Additive/Sol",?118,"Dos/Str/Vol",!!
  • Line Location: HDRD+1
Function Call: WRITE
  • Prompt: PSJDATE,?47,"Inpatient Medications Schedule Issues",?120,"PAGE: ",PSJPAG,!!
  • Line Location: HDR+1
Routine Call
  • DIR
  • Line Location:
    • EN+2
Routine Call
  • %ZIS
  • Line Location:
    • SELDEV+3
    • SELDEV+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] NSS+7, NSS+10, NSS+16, DAN+8, DAN+11, DAN+16
^PS(50.7 - [#50.7] NSS+7, NSS+17, DAN+8, DAN+17
^PS(52.6 - [#52.6] NSS+10, NSS+18, DAN+11, DAN+18
^PS(52.7 - [#52.7] NSS+10, NSS+18, DAN+11, DAN+18
^TMP("PSJR0103" START+1!, NSS+6*, NSS+9*, NSS+13, NSS+15, DAN!, DAN+7*, DAN+10*, DAN+13, DAN+15
^XTMP("PSJSC" EN, NSS+1, NSS+3, NSS+5, NSS+8, DAN+2, DAN+4, DAN+6, DAN+9

Label References

Name Line Occurrences
DAN NSS+11
EN EN+3
EXIT EN+4, SELDEV+3, SELDEV+5, DAN+12
HDR NSS+7, NSS+10, NSS+16, HDRN, HDRD
HDRD DAN, DAN+8, DAN+11, DAN+16
HDRN NSS

Naked Globals

Name Field # of Occurrence
^( NSS+5, NSS+8, NSS+15, DAN+6, DAN+9, DAN+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% START+1, EXIT+1!
%H EXIT+1!
%I EXIT+1!
%ZIS SELDEV+1!, SELDEV+2*, SELDEV+9*, EXIT+1!
%ZIS("A" SELDEV+2*
%ZIS("B" SELDEV+2*
>> A NSS+15*, NSS+16, DAN+15*, DAN+16
DIR EN+1!
DIR("?" EN+2*
DIR("A" EN+1*
DIR("B" EN+1*
DIR(0 EN+1*
>> DRUG NSS+5*, NSS+6, NSS+7, NSS+8*, NSS+9, NSS+10, NSS+16*, NSS+17, NSS+18, DAN+6*
, DAN+7, DAN+8, DAN+9*, DAN+10, DAN+11, DAN+16*, DAN+17, DAN+18
IO START+1
IO("Q" SELDEV+1!, SELDEV+4, SELDEV+5, SELDEV+8!
IOF EXIT+2, HDR
ION SELDEV+9
IOP SELDEV+1!, SELDEV+9*, EXIT+4*
IOSL NSS+7, NSS+10, NSS+16, DAN+8, DAN+11, DAN+16
IOST EXIT+2
POP SELDEV+1!, SELDEV+3
>> PSGIO SELDEV+9*
>> PSJDATE START+1*, HDR+1
>> PSJORD NSS+4*, NSS+5*, NSS+6, NSS+7, NSS+8*, NSS+9, NSS+10, NSS+14*, NSS+15*, NSS+16
, DAN+5*, DAN+6*, DAN+7, DAN+8, DAN+9*, DAN+10, DAN+11, DAN+14*, DAN+15*, DAN+16
>> PSJPAG START+1*, HDR*, HDR+1
>> PSJPDFN NSS+2*, NSS+3*, NSS+5, NSS+6, NSS+7, NSS+8, NSS+9, NSS+10, NSS+12*, NSS+13*
, NSS+15, NSS+16, DAN+3*, DAN+4*, DAN+6, DAN+7, DAN+8, DAN+9, DAN+10, DAN+11
, DAN+12*, DAN+13*, DAN+15, DAN+16
>> PSJSCHD NSS*, NSS+1*, NSS+3, NSS+5, NSS+6, NSS+7, NSS+8, NSS+9, NSS+10, DAN+1*
, DAN+2*, DAN+4, DAN+6, DAN+7, DAN+8, DAN+9, DAN+10, DAN+11
>> PSJSORT EN+5*, NSS+6, NSS+9, NSS+11, DAN+7, DAN+10, DAN+12, HDRN, HDRD
>> TYP NSS+14*, NSS+15, NSS+17, DAN+14*, DAN+15, DAN+17
>> XDESC SELDEV+6*, SELDEV+9
>> Y EN+3*, EN+4, EN+5, START+1*
ZTDESC SELDEV+9*, EXIT+1!
ZTDTH SELDEV+8!, SELDEV+9*, EXIT+1!
ZTIO SELDEV+9*, EXIT+1!
>> ZTQUEUED EXIT+3
>> ZTREQ EXIT+3*
ZTRTN SELDEV+7*, EXIT+1!
ZTSAVE SELDEV+8!, EXIT+1!
ZTSAVE("PSJSORT" SELDEV+9*
ZTSK SELDEV+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All