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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
National Drug File 1 $$VAGN^PSNAPIS  
Pharmacy Data Management 1 KMES^PSSPOIM1  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Data Management 1 PSS ORDERABLE ITEM REPORT  

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

External References

Name Field # of Occurrence
^%ZIS QUE
^%ZISC END
^%ZTLOAD QUE+3
^DIR PSSPOIKA+2, PSSPOIKA+6
$$VAGN^PSNAPIS NDIS+3
KMES^PSSPOIM1 PSSPOIKA+9

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
Routine Call
  • %ZIS
  • Line Location:
    • QUE
Routine Call
  • DIR
  • Line Location:
    • PSSPOIKA+2
    • PSSPOIKA+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] DIS+2
^PS(50.7 - [#50.7] DIS+1, DIS+2, ADD, SOL
^PS(52.6 - [#52.6] ADD, ADD+1, NADD+1, NADD+2, NADD+3
^PS(52.7 - [#52.7] SOL, SOL+1, NSOL+1, NSOL+2
^PS(59.7 - [#59.7] PSSPOIKA+2
^PSDRUG - [#50] DIS+6, NDIS+2, NDIS+3, NDIS+5, NADD+3
^PSDRUG("ASP" DIS+1, DIS+5
^PSDRUG("B" NDIS+2
^TMP("PSS" NDIS!, NADD+1*, NSOL+1*, FINAL+1

Label References

Name Line Occurrences
ADD DIS+1
DHEAD DIS, DIS+3, DIS+6, ADD+1, SOL+1
END PSSPOIKA+6, QUE, DIS+7, FINAL+2
FINAL NDIS+6
NADD NDIS+2
NASH FINAL, FINAL+1
NDHEAD NDIS+1, NDIS+5, NADD+3, NSOL+2
NSOL NDIS+2
QUE QUE+1
SOL DIS+1

Naked Globals

Name Field # of Occurrence
^(0 DIS+2, SOL+1, NSOL+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS QUE!*
%ZIS("B" QUE*
AA END!, NADD+1*, FINAL+1*
BB END!, NSOL+1*
CC END!, NDIS+2*
>> DA NDIS+3*
DIR PSSPOIKA+2!, PSSPOIKA+4!, PSSPOIKA+6!
DIR("A" PSSPOIKA+2*, PSSPOIKA+4*, PSSPOIKA+5*
DIR(0 PSSPOIKA+2*, PSSPOIKA+4*
DOSE END!, DIS+2*, DIS+4, DHEAD+1, DHEAD+2
DTOUT PSSPOIKA+6, END!
DUOUT PSSPOIKA+6, END!
EE END!, SOL*, SOL+1, NDIS+2*, NDIS+3, NDIS+5, NADD+1, NSOL+1
GFLAG END!, DIS*, DIS+6*, ADD+1*, SOL+1*, DHEAD+2, DHEAD+3*
IO("Q" QUE+3!
IOF DIS+7, DHEAD, NDIS+6, FINAL+2, NASH, NDHEAD
IOP QUE!
IOSL DIS+3, DIS+6, ADD+1, SOL+1, NDIS+5, NADD+3, NSOL+2, FINAL+1
IOST QUE+1
KK END!
LIN END!, DIS*, DIS+4, DHEAD, NDIS+1*, NDIS+2, NASH, NDHEAD
LL END!, DIS+5*, DIS+6
MM END!, DIS+1*
NDNODE END!, NDIS+3*, NDIS+4
NME END!, DIS+2*, DIS+4, DHEAD+1, DHEAD+2
NN END!, DIS+1*
PAGE END!, DIS*, DHEAD*, NDIS+1*, FINAL*, NASH*, NDHEAD*
>> POP QUE
PSDIS END!, NADD+2*, NADD+3
PSPOI END!, ADD*, SOL*, NADD+1*, NSOL+1*
PSREP PSSPOIKA+7*, QUE+3, END!
PSSITE PSSPOIKA+2*!, PSSPOIKA+4!
REA END!, NDIS+3*, NDIS+4*, NDIS+5
RR END!, ADD*, ADD+1, FINAL+1*
SS END!, NADD+1*, NADD+2, NADD+3
TT END!, DIS+1*, DIS+2, DIS+4, DIS+5, ADD, SOL, DHEAD+1, DHEAD+2
VV END!
WW END!
>> X NDIS+3*, NDIS+4
Y PSSPOIKA+6, PSSPOIKA+7, END!
ZFG END!, DIS*, DIS+3*, DIS+4*, DHEAD+1
ZFLAG END!
>> ZTDESC QUE+3*
>> ZTQUEUED END
>> ZTREQ END*
>> ZTRTN QUE+3*
ZTSK QUE!
ZZ END!, NSOL+1*, NSOL+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All