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

Package: Inpatient Medications

Routine: PSGPEN


Information

PSGPEN ;BIR/CML3 - FIND DEFAULT FOR PRE-EXCHANGE NEEDS ;15 May 2019 16:15:59

Source Information

Source file <PSGPEN.m>

Entry Points

Name Comments DBIA/ICR reference
EN(PSGPENO) ;
UPDD ;
DONE ;
NCE ;
GF ;
DD ;
DH ;
PSGPENWS ;
WH ;
WDH ;
PADE(PSJPWD,PSGP,PSGORD)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The dispense drug",$S(PSJPADE>1:"s",1:"")," for this order ",$S(PSJPADE>1:"are",1:"is a")," PADE item",$S(PSJPADE>1:"s",1:""),"."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!,"The dispense drug",$S(PSJPADE>1:"s",1:"")," for this order ",$S(PSJPADE>1:"are",1:"is a")," WARD STOCK/PADE item",$S(PSJPADE>1:"s",1:""),"."
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,"The dispense drug",$E("s",$P(PSGPENWS,"^",2))," for this order ",$S($P(PSGPENWS,"^",2):"are",1:"is a")," WARD STOCK item",$E("s",$P(PSGPENWS,"^",2)),"."
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!,"...updating dispense drug(s)..."
  • Line Location: UPDD+1
Function Call: WRITE
  • Prompt: !!,"The next cart exchange is ",$$ENDTC^PSGMI(PSGPLF),!
  • Line Location: NCE+1
Function Call: WRITE
  • Prompt: !,"...",DRG,?45,"U/D: ",UD,"..."
  • Line Location: DD+2
Function Call: WRITE
  • Prompt: !!?2,"Enter a number from 0 to 9999, 0 decimal digits."
  • Line Location: DH+1
Function Call: WRITE
  • Prompt: !!?2,"Enter the number of DOSES needed for this order until the next cart exchange.",!,"This will be the number of times the order will be administered to the patient",!,"from the start of the order until the next cart exchange."
  • Line Location: DH+2
Function Call: WRITE
  • Prompt: !!?2,"PLEASE NOTE that this is DOSES, and NOT UNITS. The doses entered will be",!,"converted to units for each dispense drug of this order, as each dispense drug",!,"may have different units per dose."
  • Line Location: DH+3
Function Call: WRITE
  • Prompt: !,"This dispense drug is a WARD STOCK item."
  • Line Location: PSGPENWS+1
Function Call: WRITE
  • Prompt: !,"Would you like to:",!?3,"1 - Enter 0 (no) doses needed for this dispense drug.",!?3,"2 - Enter ",PSGDA," doses needed for this dispense drug.",!?3,"3 - Enter another amount as the doses needed for this dispense drug."
  • Line Location: PSGPENWS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PSGPENWS+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: WH+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X+$L(Q2)>78
  • Line Location: WH+2
Function Call: WRITE
  • Prompt: Q2," "
  • Line Location: WH+2
Function Call: WRITE
  • Prompt: !?3,"1 to enter 0 (no) pre-exchange doses for this dispense drug.",!?3,"2 to enter ",PSGDA," doses for this dispense drug.",!?3,"3 to enter another amount for this dispense drug."
  • Line Location: WH+3
Function Call: WRITE
  • Prompt: !!?2,"Enter a number from 0 to 9999, 0 decimal digits. If you enter an '^' to exit",!,"NO pre-exchange doses will be entered for this dispense drug."
  • Line Location: WDH+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(59.6 - [#59.6] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call