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: PSGOER0

Package: Inpatient Medications

Routine: PSGOER0


Information

PSGOER0 ;BIR/CML - EDIT FIELDS FOR RENEWAL ;Jul 26, 2017@18:04:02

Source Information

Source file <PSGOER0.m>

Entry Points

Name Comments DBIA/ICR reference
DATE(PSGP,PSGORD,PSGDT) ;
10 ;
O25 ;
D25
25
W25
1 ; provider
A1 ;
A2
OC55 ;
CHKDD ;
106 ; nature of order
DONE ;
FF ; "^" to another field

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No active Orderable Item was found.",!
  • Line Location: DATE+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 25+0
Function Call: WRITE
  • Prompt: X="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: 25+0
Function Call: WRITE
  • Prompt: " "_PSGFDN
  • Line Location: 25+1
Function Call: WRITE
  • Prompt: " ...dose limit..."
  • Line Location: 25+4
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** WARNING! THE STOP DATE ENTERED IS IN THE PAST! ***",!
  • Line Location: W25+0
Function Call: WRITE
  • Prompt: $C(7),!!?3,"*** The STOP date must be AFTER the START date. ***"
  • Line Location: W25+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A1+2
Function Call: WRITE
  • Prompt: X="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: A1+2
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A1+3
Function Call: WRITE
  • Prompt: !,"Provider not authorized to prescribe medications in Federal Schedule "_PSJDEA_".",!,"Please contact the provider.",!
  • Line Location: A1+16
Function Call: WRITE
  • Prompt: " "_$$PRDEA^XUSER(PSGPR)
  • Line Location: A1+17
Function Call: WRITE
  • Prompt: " ",$P(^VA(200,PSGPR,"PS"),"^",3)
  • Line Location: A1+17
Function Call: WRITE
  • Prompt: " "_PDEA
  • Line Location: A1+18
Function Call: WRITE
  • Prompt: !
  • Line Location: A2+1
Function Call: WRITE
  • Prompt: !!,"This order's dispense drug is invalid, a pharmacist must renew this order."
  • Line Location: CHKDD+4
Function Call: WRITE
  • Prompt: !!,"THE DISPENSE DRUG IS MISSING FROM THIS ORDER."
  • Line Location: CHKDD+6

FileMan Files Accessed Via FileMan Db Call

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