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

Entry Points

Name Comments DBIA/ICR reference
EN ;
LOT
EXIT

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

FileMan Files Accessed Via FileMan Db Call

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