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

Package: CMOP

Routine: PSXEDIT


Information

PSXEDIT ;BIR/HTW-CMOP Edit Routine for Outpatient Pharmacy ; [ 03/30/98 12:03 PM ]

Source Information

Source file <PSXEDIT.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 NOW^%DTC  ^DIE  
CMOP 1 TEST^PSXNEW  
Outpatient Pharmacy 1 EN1^PSONEW2  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSORXED  

Entry Points

Name Comments DBIA/ICR reference
PSXDIE ;
UNSUS ; If Rx is suspended and is not CMOP, ensure is not suspended as CMOP
DRUG
TRADE ; Did tradename change?
UNLOCK
SUS ; If Rx is suspended and checks out to be CMOP suspend as CMOP
ACT ; If no act node, make one .... determine last entry
EDITCK ; Called from PROCESS+9^PSORXED to prevent editing CMOP Rx's
GETCMOP ; Any CMOP nodes?
PSXDIEX ;
REFILL
CHECK ;

External References

Name Field # of Occurrence
NOW^%DTC SUS+9
^DIE REFILL+2, SUS+5, UNSUS+2
EN1^PSONEW2 UNLOCK
TEST^PSXNEW TRADE+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Now Editing Rx # ",$P(PSORXED("RX0"),"^")
  • Line Location: PSXDIE+3
Function Call: WRITE
  • Prompt: !,"ISSUE DATE: ",PSXIDT," (No editing)",!,"FILL DATE: ",PSXFDT," (No editing)"
  • Line Location: PSXDIE+12
Function Call: WRITE
  • Prompt: !,"DRUG: ",$P(^PSDRUG($P(^PSRX(PSORXED("IRXN"),0),"^",6),0),"^")," (No editing)"
  • Line Location: PSXDIE+13
Routine Call
  • DIE
  • Line Location:
    • REFILL+2
    • SUS+5
    • UNSUS+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] Classic Fileman Calls
^PS(52.5 - [#52.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PSXDIE+10, PSXDIE+11
^PS(52.5 - [#52.5] GETCMOP+9, GETCMOP+10, SUS+4!, UNSUS+3*
^PSDRUG - [#50] PSXDIE+7, PSXDIE+13
^PSDRUG("AQ" DRUG, TRADE+5
^PSRX - [#52] EDITCK+2, DRUG, GETCMOP+1, GETCMOP+2, GETCMOP+4, GETCMOP+12, GETCMOP+13, GETCMOP+14, PSXDIE+6, PSXDIE+10
, PSXDIE+11, PSXDIE+13, TRADE+1, TRADE+2*, TRADE+3*, TRADE+5, TRADE+6, TRADE+7, SUS+4, SUS+6
, SUS+8*, SUS+11*, UNSUS+3, ACT+1, ACT+2, ACT+3

Label References

Name Line Occurrences
ACT TRADE+1, SUS+3
PSXDIE UNLOCK+2
PSXDIEX DRUG+1, PSXDIE+1, REFILL+3, UNLOCK+1, TRADE+6, TRADE+8, SUS+3
UNLOCK REFILL+3

Naked Globals

Name Field # of Occurrence
^( GETCMOP+9, GETCMOP+12
^(0 GETCMOP+10, ACT+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SUS+11, SUS+12!
A TRADE+2, SUS+8, PSXDIEX+3!, ACT+3*
A1 TRADE+2, SUS+8, PSXDIEX+3!, ACT+3*
ACT PSXDIEX+3!
>> D1 CHECK+1
DA PSXDIE+5*, SUS+1~, SUS+5*, UNSUS+2*
DIC PSXDIE+4!
DIE PSXDIE+4!, PSXDIE+5*, REFILL+2!, SUS+5*!, UNSUS+2*!, PSXDIEX+3!
DR PSXDIE+4!, PSXDIE+14*, PSXDIE+15*, PSXDIE+16*, REFILL*, REFILL+2!, SUS+5*, UNSUS+2*, PSXDIEX+3!
DR(2 REFILL+1*
DRG UNLOCK!
DT TRADE+3
>> DTOUT REFILL+3
DUZ TRADE+3, SUS+11
MSG PSXDIE+4!, PSXDIE+7*, PSXDIE+8*, PSXDIE+15, REFILL+1, PSXDIEX+3!
PPL EDITCK+1~, SUS+3
>> PSOPAR PSXDIE+13, PSXDIE+15, PSXDIE+16
>> PSORXED UNLOCK
>> PSORXED("DFLG" PSXDIE+1*, UNLOCK+1
>> PSORXED("IRXN" EDITCK+2, PSXDIE+6, PSXDIE+13
>> PSORXED("QFLG" REFILL+3*, UNLOCK+1*, UNLOCK+2, UNLOCK+3*
>> PSORXED("RX0" PSXDIE+3
PSX GETCMOP+1*, GETCMOP+2, GETCMOP+4, PSXDIEX+1!
PSX( GETCMOP+5*, GETCMOP+12*, CHECK+1
PSX(0 GETCMOP+13*, PSXDIE+12, PSXDIE+14
PSX50 PSXDIE+6*, PSXDIE+7, PSXDIEX+1!
PSXA PSXDIEX+1!, ACT+2*, ACT+4!
PSXB TRADE+3, SUS+11, PSXDIEX+1!, ACT+2*
>> PSXEXIT REFILL+3
PSXFDT PSXDIE+11*, PSXDIE+12, PSXDIEX+2!
PSXFILL EDITCK+2*, GETCMOP+12*, GETCMOP+14, TRADE+6, TRADE+7, SUS+10*, SUS+11, PSXDIEX+2!
PSXFLAG GETCMOP+6*, GETCMOP+11*, PSXDIE+1, PSXDIEX+2!
PSXFLAGG GETCMOP+3*, PSXDIE+13, PSXDIE+15, PSXDIEX+3!
PSXFROM EDITCK+3*, TRADE+9*, PSXDIEX+1!
PSXHLD GETCMOP+7, PSXDIEX+3!
PSXIDT PSXDIE+10*, PSXDIE+12, PSXDIEX+1!
PSXM GETCMOP+14*, TRADE+8, PSXDIEX+2!
PSXM1 TRADE+7*, TRADE+8, PSXDIEX+2!
>> PSXOUT DRUG*
>> PSXPPL TRADE+10*
PSXREL PSXDIEX+1!
PSXREL1 PSXDIEX+3!
PSXRFL UNLOCK!
PSXRXF PSXDIEX+2!
PSXST GETCMOP+9*, GETCMOP+10, TRADE+8, SUS+3, SUS+4, SUS+5, UNSUS+1, UNSUS+2, UNSUS+3, PSXDIEX+1!
PSXST1 GETCMOP+10*, GETCMOP+11, GETCMOP+12, GETCMOP+13, PSXDIEX+1!
PSXSTAT GETCMOP+2*, GETCMOP+3, GETCMOP+5, GETCMOP+6, PSXDIEX+2!, PSXDIEX+3!
PSXSUSDT GETCMOP+10*, GETCMOP+12, PSXDIEX+2!
>> PSXSYS SUS+2
PSXTN EDITCK+2*, TRADE+1, TRADE+3, PSXDIEX+2!
PSXTN1 TRADE+1*, TRADE+8, PSXDIEX+1!
PSXYES DRUG*, DRUG+1, TRADE+5*, TRADE+8, PSXDIEX+3!
>> RFD REFILL
T SUS+6*, SUS+7, SUS+12!
T1 SUS+7*, SUS+11, SUS+12!
X REFILL+2!
>> Y PSXDIE+10*, PSXDIE+11*, REFILL+3, CHECK+1*
>> ZFILL GETCMOP+4*, GETCMOP+5
ZPPL PSXDIEX+3!
ZRX EDITCK+2*, DRUG, GETCMOP+1, GETCMOP+2, GETCMOP+4, GETCMOP+9, GETCMOP+12, GETCMOP+13, GETCMOP+14, PSXDIE+5
, PSXDIE+10, PSXDIE+11, TRADE+1, TRADE+2, TRADE+3, TRADE+5, TRADE+6, TRADE+7, TRADE+10, SUS+4
, SUS+6, SUS+8, SUS+11, UNSUS+3, PSXDIEX+1!, ACT+1, ACT+2, ACT+3
ZZ GETCMOP+12*, PSXDIEX+2!
ZZ1 PSXDIEX+3!
Info |  Source |  Call Graph |  Caller 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