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

Package: Outpatient Pharmacy

Routine: PSOCMOPB


Information

PSOCMOPB ;BIR/HTW-CMOP Release/Edit Utility ; 6/17/97 [ 12/15/97 2:11 PM ]

Source Information

Source file <PSOCMOPB.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 5 NOW^%DTC  FILE^DICN  ^DIK  $$GET1^DIQ  ^DIR  
Outpatient Pharmacy 1 ($$RXRLDT,$$STATUS)^PSOBPSUT  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Outpatient Pharmacy 4 PSOCSRL  PSODISP  PSODISPS  PSORXED1  
IHS Changes To Pharmacy 1 APSPAUTO  

Entry Points

Name Comments DBIA/ICR reference
OREL(RXP) ; Called from PSODISP to check for CMOP during manual Release
; IF ePharmacy Rx and it was returned to Stock, allow release
LAST ; Find last event, Find last fill
HELP ; QTY HELP
CS(RXP)
EQTY2 ;
QTY ;Check quantity
RREL1 ; No release of fills unless cancelled
SUS ; From SUP^PSORXED1 If suspense date edited to future date resuspend
EQTY ;W !,"Y=",Y
RREL(RXP,RFL) ; This for Release Refills PSODISP
; IF ePharmacy Rx and it was returned to Stock, allow release
D1 ;

External References

Name Field # of Occurrence
NOW^%DTC SUS+8
FILE^DICN SUS+4
^DIK SUS+1
$$GET1^DIQ OREL+2, RREL+2
^DIR EQTY+3, EQTY2+4
$$RXRLDT^PSOBPSUT OREL+2, RREL+2
$$STATUS^PSOBPSUT OREL+2, RREL+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"RX# "_$P(RX0,"^")_" HAS BEEN SUSPENDED FOR CMOP UNTIL "_$E(SD,4,5)_"-"_$E(SD,6,7)_"-"_$E(SD,2,3)_".",!
  • Line Location: SUS+9
Function Call: WRITE
  • Prompt: $C(7)," Sorry no ^ jumping allowed"
  • Line Location: EQTY+4
Function Call: WRITE
  • Prompt: $C(7)," Sorry no ^ jumping allowed"
  • Line Location: EQTY2+5
Function Call: WRITE
  • Prompt: !!,"This is a CMOP drug. The quantity may not contain alpha characters (i.e.; ML) or more than two decimal places (i.e.; .01)."
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"Enter a whole number between 0 and 99999999 inclusive. The total entry cannot exceed 11 characters."
  • Line Location: HELP+2
Routine Call
  • DIR
  • Line Location:
    • EQTY+3
    • EQTY2+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.5 - [#52.5] SUS+5!
^PSDRUG - [#50] EQTY+1, EQTY2+2
^PSDRUG("AQ" EQTY+1, EQTY2+2
^PSRX - [#52] LAST+1, SUS+1, SUS+3, SUS+5, SUS+6, SUS+7*, SUS+8*, EQTY+1, EQTY+2, EQTY2+1
, EQTY2+3, EQTY2+9*

Label References

Name Line Occurrences
D1 OREL+2, OREL+6, RREL+2, RREL1+2
EQTY EQTY+4
EQTY2 EQTY2+5, EQTY2+8
HELP QTY+1
LAST OREL+3, RREL+3
OREL CS+2
QTY EQTY2+7
RREL CS+1

Naked Globals

Name Field # of Occurrence
^(0 EQTY+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SUS+8
B LAST+1*, D1+3!
C D1+3!
CMOP D1+1!
CMOP( RREL1+1, LAST+1*
CMOP(0 OREL+5
CNT D1+2!
>> DA SUS+1*, SUS+3, SUS+6, SUS+7, SUS+8
DD SUS+4!
>> DIC SUS+2*
>> DIC("DR" SUS+3*
>> DIC(0 SUS+2*
>> DIK SUS+1*
DIR EQTY+3!, EQTY+6!
DIR("A" EQTY+1*, EQTY2+2*
DIR("B" EQTY+2*, EQTY2+3*
DIR(0 EQTY+1*, EQTY2+1*
DO SUS+4!
>> DRG EQTY+1*, EQTY2+1*, EQTY2+2
>> DTOUT EQTY+5, EQTY2+6
DUZ SUS+8
>> FDA SUS+6*
FLAG D1+3!
I D1+3!
>> IR SUS+6*, SUS+7*, SUS+8
ISUF OREL+5*, RREL1+1*, CS~, CS+1!, CS+2!
NEWDT D1+3!
P1 D1+2!
P2 D1+2!
PPLSAVE D1+2!
PSOCMOP SUS+10!
>> PSOSITE SUS+3
PSX1 D1+3!
PSX2 D1+3!
PSXACT D1+1!, D1+2!
PSXCK D1+2!
PSXDA D1+1!
PSXDRUG D1+2!
PSXER D1+3!
>> PSXEXIT EQTY+5*, EQTY2+6*
PSXFDA D1+1!
PSXFDT D1+3!
PSXIEN D1+2!
PSXIR D1+1!
PSXJOB D1+3!
PSXLF D1+2!
PSXLFD D1+1!
PSXPPL D1+2!
PSXPPL1 D1+2!
>> PSXRFL EQTY2+3, EQTY2+9
PSXRX D1+3!
PSXRX0 D1+1!
PSXRXF D1+1!
PSXRXN D1+1!
PSXRXP D1+1!
PSXRXS D1+1!
PSXSD D1+3!
>> RFD SUS+3, SUS+8
RFL RREL~, RREL+2
>> RX0 SUS+1*, SUS+9
>> RXN SUS+1*, SUS+2, SUS+5
RXP OREL~, OREL+2, RREL~, RREL+2, CS~, CS+1, CS+2, LAST+1
>> RXS SUS+1
>> SD SUS+3, SUS+5, SUS+8, SUS+9
SUSPT D1+3!
X SUS+2*, EQTY2+8, EQTY2+9, QTY+1!
>> XFLAG CS+1*, CS+2*
>> XTYPE CS+1, CS+2
Y SUS+5, EQTY+4!, EQTY+5, EQTY+6!, EQTY2+5!, EQTY2+6, EQTY2+9!
YY RREL1+1, CS~, CS+1*
Z0 HELP+2!
>> ZRX EQTY+1, EQTY+2, EQTY2+1, EQTY2+3, EQTY2+9
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