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
Print Page as PDF
Routine: PSSPOIKA

Package: Pharmacy Data Management

Routine: PSSPOIKA


Information

PSSPOIKA ;BIR/RTR-Orderable Item reports ;09/01/98

Source Information

Source file <PSSPOIKA.m>

Entry Points

Name Comments DBIA/ICR reference
QUE
END
MATCH ; drugs that are matche
DIS
ADD
SOL
DHEAD
NOT ;not matched
NDIS
NADD ;
NSOL ;
FINAL
NASH
NDHEAD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"Orderable Item Auto-Create has not been completed yet!",!
  • Line Location: PSSPOIKA+2
Function Call: WRITE
  • Prompt: $C(7),!!!,"** WARNING ** THIS REPORT MAY BE VERY LONG ** WARNING **"
  • Line Location: PSSPOIKA+8
Function Call: WRITE
  • Prompt: !!,"This report must be QUEUED to a printer!"
  • Line Location: PSSPOIKA+10
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: $C(7),!?5,"This report must be QUEUED to a printer, enter Q at Device prompt!",!
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: !?2,"("_LL_")",?9,"Dispense Drug -> ",$P($G(^PSDRUG(LL,0)),"^")
  • Line Location: DIS+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DIS+7
Function Call: WRITE
  • Prompt: !,?2,"("_RR_")",?9,"Additive -> ",$P(^PS(52.6,RR,0),"^")
  • Line Location: ADD+1
Function Call: WRITE
  • Prompt: !,?2,"("_EE_")",?9,"Solution -> ",$P(^PS(52.7,EE,0),"^")," ",$P($G(^(0)),"^",3)
  • Line Location: SOL+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DHEAD+0
Function Call: WRITE
  • Prompt: !?5,"ORDERABLE ITEM - DISPENSE DRUG (MATCHED REPORT)",?68,"PAGE: ",PAGE,!,LIN
  • Line Location: DHEAD+0
Function Call: WRITE
  • Prompt: !!,"("_TT_") "_NME," ",DOSE
  • Line Location: DHEAD+1
Function Call: WRITE
  • Prompt: !!,"("_TT_") "_NME," ",DOSE," cont."
  • Line Location: DHEAD+2
Function Call: WRITE
  • Prompt: !,LIN
  • Line Location: NDIS+2
Function Call: WRITE
  • Prompt: !,"("_EE_") "_$P($G(^PSDRUG(EE,0)),"^")," ",$G(REA)
  • Line Location: NDIS+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NDIS+6
Function Call: WRITE
  • Prompt: !,?2,"("_SS_") "_$P($G(^PS(52.6,SS,0)),"^")," -> ",$S(PSDIS:$P($G(^PSDRUG(PSDIS,0)),"^"),1:"(not matched to a Dispense Drug)")," (A)"
  • Line Location: NADD+3
Function Call: WRITE
  • Prompt: !,?2,"("_ZZ_") "_$P($G(^PS(52.7,ZZ,0)),"^")," ",$P($G(^(0)),"^",3)_" (S)"
  • Line Location: NSOL+2
Function Call: WRITE
  • Prompt: !,"("_RR_")",?9,AA," ("_$G(^TMP("PSS",$J,AA,RR))_")"," (Not matched to a dispense drug)"
  • Line Location: FINAL+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FINAL+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NASH+0
Function Call: WRITE
  • Prompt: !?5,"ADDITIVES/SOLUTIONS NOT MATCHED TO AN ORDERABLE ITEM",?68,"PAGE: ",PAGE,!,LIN
  • Line Location: NASH+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NDHEAD+0
Function Call: WRITE
  • Prompt: !?5,"DISPENSE DRUGS (NOT MATCHED TO ORDERABLE ITEM)",?68,"PAGE: ",PAGE,!,LIN
  • Line Location: NDHEAD+0
Info |  Source |  Entry Points |  Interaction Calls