Routine: PSOCMOPB

Information

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

Source file <PSOCMOPB.m>

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

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

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	;

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

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*

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