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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSXLKUP

Package: CMOP

Routine: PSXLKUP


Information

PSXLKUP ;BIR/BAB,HTW-Prescription Inquiry for Host Facility ;MAR 1,2002@16:11:17

Source Information

Source file <PSXLKUP.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 ^DIC  $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
EN ;
EXIT
LOT

External References

Name Field # of Occurrence
^DIC EN+1, EN+5
$$GET1^DIQ EN+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?2,"TRANSMITTED :"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: Y
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: ?40,"RECEIVED : "
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: Y
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,?40,"TO VENDOR : "
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: Y
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: ?25,"CONTROLLED SUBSTANCE"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !?2,"REC'D FROM VENDOR : ",Y
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,?2,$S(IND=0:"ORIGINAL",IND>0:"REFILL #"_IND,1:"")
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: ?18,"DRUG ID : ",$P(Y(0),"^",4),?40,"QTY : ",$P(Y(0),"^",13),?55,"COST : ",$P(Y(0),"^",11)
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,?2,"RX STATUS : ",$S(ST=1:"RELEASED",ST=2:"RETURNED",ST=3:"PROCESSED",ST=4:"REJECTED",ST=5:"RECEIVED",1:"UNKNOWN")
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: ?30,$S($P(Y(0),U,2)=1:"COMPLETED",$P(Y(0),U,2)=2:"CANCELED",1:"UNKNOWN")_" "_Y_" "_$S(TYP=1:"AUTOMATED",TYP=2:"MANUAL",1:"")
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !,?5,"CANCELLATION REASON : ",$P(Y(0),U,3)
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !!,?2,"NDC : ",$S($P(Y(0),U,5)]"":$P(Y(0),U,5),1:"")
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: ?30,"BY EMPLOYEE : ",$$GET1^DIQ(200,$P(Y(0),U,6),.01)
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !!,?2,"PROCESSED DT/TM : "
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: Y
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: ?50,"QUERY ID # ",QRY
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !!," RELEASE TYPE: ",$S(RELTYPE=2:"MANUAL",RELTYPE=1:"AUTOMATED",1:"UNKNOWN")
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !!," REMOTE ERROR CONDITION: "
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: $S(RER=1:"Release date already exists.",RER=2:"Rx entry missing.",RER=3:"Fill mismatch.",RER=4:"Transmission number mismatch.",RER=5:"No CMOP event multiple.",RER=6:"Fill does not exist",1:"UNKNOWN")
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: !,?10,"LOT # : ",LOT,?30,"EXP DATE : ",Y
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: !!," CARRIER: "_$P($G(^PSX(552.4,DA(1),1,DA,2)),"^",5),?25,"PACKAGE ID "_$P($G(^PSX(552.4,DA(1),1,DA,2)),"^",6)
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: !!," DATE SHIPPED: "
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: Y
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: !,?10,"LOT # : ",LOT,?30,"EXP DATE : ",Y
  • Line Location: LOT+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: EXIT+2
Routine Call
  • DIC
  • Line Location:
    • EN+1
    • EN+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+2, EN+3, EN+4, EN+7, EN+12, EN+17, EN+26, EN+28, LOT
^PSX(552.1 EN+2, EN+3, EN+4
^PSX(552.4 EN+2, EN+12, EN+20, EN+22, EN+25, EN+26, EN+27, EN+28, LOT
^PSX(553.1 EN+7

Label References

Name Line Occurrences
EN EXIT+2
EXIT EN+5, EN+11, EN+29

Naked Globals

Name Field # of Occurrence
^(0 EN+26, LOT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BAT EN+2*, EN+3, EN+4, EXIT!
DA EN+5*, EN+12, EN+20, EN+22, EN+25, EN+26, EN+27, EN+28, LOT, EXIT!
DA(1 EN+5*, EN+12, EN+20, EN+22, EN+25, EN+26, EN+27, EN+28, LOT
DIC EN+1*!, EN+5*!, EXIT!
DIC("A" EN+1*, EN+5*
DIC(0 EN+1*, EN+5*
DTOUT EN+1, EN+5, EXIT+1!
DUOUT EXIT+1!
IND EN+9*!, EXIT!
LOT EN+26*, LOT*, EXIT!
PSX EN+25*, EN+26, LOT, EXIT!
QDT EXIT!
QRY EN+7*, EN+8, EN+19, EXIT!
QRYN EN+7*, EXIT!
REF EN+1*, EN+2, EN+5, EXIT!
RELTYPE EN+20*, EXIT+1!
REMOERR EXIT+1!
RER EN+22*, EN+23, EN+24, EXIT+1!
ST EN+11*, EXIT!
TYP EN+12*, EN+13, EXIT!
U EN+2, EN+3, EN+4, EN+7, EN+11, EN+12, EN+13, EN+14, EN+15, EN+16
, EN+17, EN+18, EN+26, LOT
X EXIT!
Y EN+1, EN+2*, EN+3*, EN+4*, EN+5, EN+7*, EN+8, EN+12*, EN+13, EN+17*
, EN+26*, EN+28*, LOT*, EXIT!
Y(0 EN+6, EN+7, EN+9, EN+10, EN+11, EN+12, EN+13, EN+14, EN+15, EN+16
, EN+17, EN+18
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All