Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call