Routine: PSX41PST

Information

PSX41PST ;BIR/PDW-New indexes in PSX patch 41, MOVE 550.1 INTO 550.21 ;08/12/2002

Source file <PSX41PST.m>

Package	Total	Call Graph
CMOP	1	EN^PSX41NDX
Outpatient Pharmacy	1	$$CMPRXTYP^PSOCMOP

Name	Comments	DBIA/ICR reference
CMPNDX	; new compound index on CMOP Indicator "CMP"
EN	;
5501	; REMOVE ENTRIES FROM 550.1
PIECE(REC,DLM,VP)	; VP="Variable^Piece" : S Variable=$P(REC,DLM,Piece)
MSG	; print reminder to use Kernel tasking
TXT	;
5502
COR5502	;correct Total RXs field from PSX241 v25

Name	Field # of Occurrence
$$CMPRXTYP^PSOCMOP	CMPNDX+11
EN^PSX41NDX	EN+2

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MSG+2
Function Call: WRITE	Prompt: !,$P(X,";;",2) Line Location: MSG+3
Function Call: WRITE	Prompt: !!,"^^^ PLEASE NOTE THE ABOVE ^^^^" Line Location: MSG+4
Function Call: WRITE	Prompt: !,"Pausing 20 seconds" Line Location: MSG+5
Function Call: WRITE	Prompt: "." Line Location: MSG+5
Function Call: WRITE	Prompt: !,"Updating the RX Suspense file's new 'CMP' index." Line Location: CMPNDX+2
Function Call: WRITE	Prompt: !,"Processing the AQ, AL, AX, AP indexes into the CMP index" Line Location: CMPNDX+3
Function Call: WRITE	Prompt: !!,INDX Line Location: CMPNDX+5
Function Call: WRITE	Prompt: "." Line Location: CMPNDX+11

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.5 - [#52.5]	CMPNDX+6, CMPNDX+7, CMPNDX+8, CMPNDX+9, CMPNDX+10!, CMPNDX+14!, CMPNDX+15, CMPNDX+16*
^PSX(550.1 - [#550.1]	5501+2!*
^PSX(550.2 - [#550.2]	COR5502+1, COR5502+2, COR5502+3, COR5502+4*
^XMB("NETNAME"	EN+1, 5501+1, MSG+1

Name	Field # of Occurrence
>> BATDA	COR5502+3*, COR5502+4
>> CNT	CMPNDX+11*
>> DFN	CMPNDX+7*, CMPNDX+8, CMPNDX+10, CMPNDX+13, CMPNDX+14, CMPNDX+15, CMPNDX+16
>> DFN0	CMPNDX+13
>> DIV	CMPNDX+15, CMPNDX+16
DLM	PIECE~, PIECE+1
>> F	CMPNDX+9*, CMPNDX+10, CMPNDX+12
>> I	MSG+3, MSG+5
>> INDX	CMPNDX+5*, CMPNDX+6, CMPNDX+7, CMPNDX+8, CMPNDX+10, CMPNDX+14
>> NDX	CMPNDX+4*, CMPNDX+5, CMPNDX+13, CMPNDX+16
P	PIECE+1~*
>> PSXDT	COR5502+1*, COR5502+2
>> PSXTDA	COR5502+2*, COR5502+3
REC	CMPNDX+8*, CMPNDX+9, CMPNDX+10, CMPNDX+11, CMPNDX+14, CMPNDX+15, CMPNDX+16, PIECE~, PIECE+1
>> SDT	CMPNDX+6*, CMPNDX+7, CMPNDX+8, CMPNDX+10, CMPNDX+13, CMPNDX+14, CMPNDX+16
>> SDT0	CMPNDX+13, CMPNDX+15
>> STAT	CMPNDX+13, CMPNDX+15
>> TOTRX	COR5502+4*
>> TYP	CMPNDX+11*, CMPNDX+15, CMPNDX+16
U	CMPNDX+12
V	PIECE+1~*
VP	CMPNDX+12*, PIECE~, PIECE+1
>> X	MSG+3*
>> XX	COR5502+3*, COR5502+4

Name	Field # of Occurrence
$T(TXT+I	MSG+3