Global: ^PSX(552.1

FileMan FileNo	FileMan Filename	Package
552.1	CMOP REFERENCE	CMOP

Package	Total	Routines
CMOP	37	LABELS PRINTED PSXARC PSXARC1 PSXBKD PSXCSCMN PSXCSDA PSXCSHI PSXDODQY PSXDRPT PSXHSYS PSXJOB PSXLBL PSXLBL1 PSXLBLU PSXLIST PSXLKUP PSXMST PSXNOTE PSXPURG PSXPURG1 PSXQUE PSXRECV PSXRECV1 PSXREJ PSXRPT PSXRTN1 PSXSMRY PSXSND PSXSTAT PSXTNRPT PSXUNHLD PSXUNREL PSXVEND PSXYSND ^PSX(552.1 ^PSXARC RX NUMBER

Package	Total	Routines
CMOP	14	PSXARC PSXARC1 PSXLBLU PSXLIST PSXQUE PSXRECV PSXRECV1 PSXSND PSXSTAT PSXSTRT PSXUNHLD PSXVEND PSXYSND PSXYSTRT

Package	Total	FileMan Files
CMOP	1	CMOP MASTER DATABASE(#552.4)[.01]

Fields, Total: 22

Field #	Name	Loc	Type	Details
.01	FACILITY BATCH REFERENCE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X` LAST EDITED: `MAY 29, 1993` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `The unique number which identifies this data transmission.` TECHNICAL DESCR: `Station number - transmission number` CROSS-REFERENCE: `552.1^B` `1)= S ^PSX(552.1,"B",$E(X,1,30),DA)=""` `2)= K ^PSX(552.1,"B",$E(X,1,30),DA)` `Cross reference is used to validate vendor release data prior to filing.`
1	STATUS	0;2	SET	'1' FOR RECEIVED; '2' FOR QUEUED; '3' FOR PROCESSED; '4' FOR CLOSED; '5' FOR HOLD; '6' FOR PRINTED; '99' FOR REJECTED; '7' FOR PROCESSING; LAST EDITED: `JUL 05, 1996` DESCRIPTION: `The current status of this transmission.` `Received - Downloading to CMOP Database.` `Queued - Ready to transmit to vendor.` `Processed - Transmitted to vendor.` `Closed - All Rx's processed.` `Hold - Hold for review.` `Printed - Labels printed by DHCP.` `Rejected - Transmission rejected by vendor system.` `Processing - Transmission is either downloading to the vendor system or` `labels are being printed on the DHCP system.` TECHNICAL DESCR: `Set of codes.` CROSS-REFERENCE: `552.1^AB^MUMPS` `1)= I $G(X)="2" S ^PSX(552.1,"AB",$P(^PSX(552.1,DA,0),U,1),DA)="" K:$P(^PSX(552.1,DA,0),U,4)'="" ^PSX(552.1,"AQ",$P(^PSX(552.1,DA,0),U,4),$P(^PSX(552.1,DA,0),U,1),DA)` `2)= K ^PSX(552.1,"AB",$P(^PSX(552.1,DA,0),U,1),DA)` `This cross reference indicates that the transmission is Queued to send.` CROSS-REFERENCE: `552.1^AD^MUMPS` `1)= I $G(X)="1" S ^PSX(552.1,"AD",$P(^PSX(552.1,DA,0),U,1),DA)="" K:$P(^PSX(552.1,DA,0),"^",4)'="" ^PSX(552.1,"AQ",$P(^PSX(552.1,DA,0),"^",4),$P(^PSX(552.1,DA,0),U,1),DA)` `2)= K ^PSX(552.1,"AD",$P(^PSX(552.1,DA,0),U,1),DA)` `This cross reference indicates data is currently being downloaded.` CROSS-REFERENCE: `552.1^AE^MUMPS` `1)= I $G(X)="3" S ^PSX(552.1,"AE",$P(^PSX(552.1,DA,0),U,1),DA)="" K:$P(^PSX(552.1,DA,0),U,4)'="" ^PSX(552.1,"AQ",$P(^PSX(552.1,DA,0),U,4),$P(^PSX(552.1,DA,0),U,1),DA)` `2)= K ^PSX(552.1,"AE",$P(^PSX(552.1,DA,0),U,1),DA)` `This cross reference indicates that processing has completed.` CROSS-REFERENCE: `552.1^AH^MUMPS` `1)= I $G(X)="5" S ^PSX(552.1,"AH",$P(^PSX(552.1,DA,0),"^",1),DA)="" K:$P(^PSX(552.1,DA,0),U,4)'="" ^PSX(552.1,"AQ",$P(^PSX(552.1,DA,0),U,4),$P(^PSX(552.1,DA,0),U,1),DA)` `2)= K ^PSX(552.1,"AH",$P(^PSX(552.1,DA,0),U,1),DA)` `This cross reference indicates the transmission has been placed in 'Hold' status requiring further review before processing.`
2	DIVISION	P;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAY 29, 1993` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `The outpatient pharmacy division responsible for this transmission.` TECHNICAL DESCR: `Name field of the Outpatient Site file from the facility.`
3	SITE #	P;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAY 29, 1993` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `The site number of the outpatient pharmacy division responsible for this transmission.` TECHNICAL DESCR: `The SITE NUMBER field of the Outpatient Site file for the facility.`
4	SENDER	P;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 29, 1993` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `The individual responsible for this transmission.` TECHNICAL DESCR: `Free text name from the New Person file at the facility.`
5	TRANSMISSION DT/TM	0;3	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 29, 1993` DESCRIPTION: `The date/time the transmission was sent from the facility.` TECHNICAL DESCR: `Date/time.`
6	RECEIVED DT/TM	0;4	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 06, 1995` DESCRIPTION: `The date/time the transmission was received and downloaded into the CMOP DATABASE file.` TECHNICAL DESCR: `Date/time.` CROSS-REFERENCE: `552.1^AQ^MUMPS` `1)= S:$P(^PSX(552.1,DA,0),U,2)=2 ^PSX(552.1,"AQ",$P(^PSX(552.1,DA,0),U,4),$P(^PSX(552.1,DA,0),U,1),DA)=""` `2)= K:$P(^PSX(552.1,DA,0),U,2)'=2 ^PSX(552.1,"AQ",$P(^PSX(552.1,DA,0),U,4),$P(^PSX(552.1,DA,0),U,1),DA)` `This cross reference exists if the transmission is 'Queued to Send'.` CROSS-REFERENCE: `552.1^AR^MUMPS` `1)= S ^PSX(552.1,"AR",$P(^PSX(552.1,DA,0),U,4),$P(^PSX(552.1,DA,0),U,1),DA)=""` `2)= K ^PSX(552.1,"AR",$P(^PSX(552.1,DA,0),U,4),$P(^PSX(552.1,DA,0),U,1),DA)` `This cross reference exists for all entries in the file and is used for reporting purposes.`
7	CLOSED DT/TM	0;5	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 06, 1995` DESCRIPTION: `The date/time all processing was completed for this transmission.` TECHNICAL DESCR: `Date/time.` CROSS-REFERENCE: `552.1^AC^MUMPS` `1)= S ^PSX(552.1,"AC",$P(^PSX(552.1,DA,0),U,5),$P(^PSX(552.1,DA,0),U,1),DA)="" K ^PSX(552.1,"AP",$P(^PSX(552.1,DA,0),U,6),$P(^PSX(552.1,DA,0),U,1),DA)` `2)= K:$P(^PSX(552.1,DA,0),"^",2)=4 ^PSX(552.1,"AP",$P(^PSX(552.1,DA,0),"^",6),$P(^PSX(552.1,DA,0),"^",1),DA) K ^PSX(552.1,"AC",$P(^PSX(552.1,DA,0),U,5),$P(^PSX(552.1,DA,0),U,1),DA)` `This cross reference exists for transmissions which have been closed.`
8	START SEQ #	1;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 29, 1993` HELP-PROMPT: `Type a Number between 1 and 9999999999, 0 Decimal Digits` DESCRIPTION: `The beginning message number from the CMOP Rx Queue file.` TECHNICAL DESCR: `The internal entry number from the facility's CMOP RX QUEUE file.`
9	END SEQ #	1;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 29, 1993` HELP-PROMPT: `Type a Number between 1 and 9999999999, 0 Decimal Digits` DESCRIPTION: `The ending message number from the facility's CMOP Rx Queue file.` TECHNICAL DESCR: `The internal entry number from the facility's CMOP RX QUEUE file.`
10	TOTAL ORDERS	1;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 29, 1993` HELP-PROMPT: `Type a Number between 1 and 9999999999, 0 Decimal Digits` DESCRIPTION: `The total number of patient orders included in this transmission.` TECHNICAL DESCR: `Number.`
11	TOTAL RXS	1;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 29, 1993` HELP-PROMPT: `Type a Number between 1 and 9999999999, 0 Decimal Digits` DESCRIPTION: `The total number of individual prescriptions included in this transmission.` TECHNICAL DESCR: `Number.`
12	RETRANSMISSION	2;1	SET	'1' FOR YES; LAST EDITED: `SEP 06, 1995` DESCRIPTION: `A "1" indicates this is a retransmission of previously sent data.` TECHNICAL DESCR: `Set of codes.` CROSS-REFERENCE: `552.1^ART^MUMPS` `1)= S:$G(X)=1 ^PSX(552.1,"ART",$P($G(^PSX(552.1,DA,2)),"^",2),DA)=""` `2)= K ^PSX(552.1,"ART",$P($G(^PSX(552.1,DA,2)),"^",2),DA)` `This cross reference is set when a retransmitted batch is received.`
13	BATCH REFERENCE	2;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 29, 1993` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `The facility-batch reference number of the original transmission.` TECHNICAL DESCR: `Facility number "-" Batch number of the original transmission.`
14	SITE TEXT	S;0	Multiple #552.114	552.114 DESCRIPTION: `The site specific information required for processing this transmission.`
15	COMMENTS	3;0	WORD-PROCESSING #552.115	TECHNICAL DESCR: `Word-Processing.` LAST EDITED: `MAY 29, 1993` DESCRIPTION: `Comments or notes regarding this transmission.`
16	PROCESSED DATE/TIME	0;6	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 13, 1995` DESCRIPTION: `This is the date/time when all entries in the data transmission were marked processed.` CROSS-REFERENCE: `552.1^AP^MUMPS` `1)= S ^PSX(552.1,"AP",$P(^PSX(552.1,DA,0),U,6),$P(^PSX(552.1,DA,0),U,1),DA)="" K ^PSX(552.1,"AQ",$P(^PSX(552.1,DA,0),U,4),$P(^PSX(552.1,DA,0),U,1),DA)` `2)= K:$P(^PSX(552.1,DA,0),"^",2)=4 ^PSX(552.1,"AP",$P(^PSX(552.1,DA,0),"^",6),$P(^PSX(552.1,DA,0),"^",2),DA)` `This cross reference lists the transmissions that have been processed but not closed.`
17	LABELS PRINTED	4;0	DATE Multiple #552.117	552.117 DESCRIPTION: `The date/time labels were printed by DHCP.`
18	ACKNOWLEDGEMENT TEXT	ACK;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>245!($L(X)<1) X` LAST EDITED: `OCT 22, 1993` HELP-PROMPT: `Answer must be 1-245 characters in length.` DESCRIPTION: `The general acknowledgement message for this data transmission.`
19	PURGE STATUS	1;5	SET	'1' FOR READY TO PURGE; '2' FOR PURGE COMPLETE; LAST EDITED: `AUG 16, 1994` DESCRIPTION: `This status indicates the purge status for the transmission. If the status equals 1, the transmission data in the files is ready to be purged.` `If the status equals 2, the purge of the data has been completed.` CROSS-REFERENCE: `552.1^APRG^MUMPS` `1)= S:X=1 ^PSX(552.1,"APRG",DA)=""` `2)= K ^PSX(552.1,"APRG",DA)` `This cross reference exists only if the transmission is ready to purge.`
20	PRIORITY	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 14, 1996` HELP-PROMPT: `Type a Number between 1 and 999999, 0 Decimal Digits` DESCRIPTION: `This field is used to store the priority for download to the vendor. If no priority has been established or the transmission has been downloaded to the vendor, this field will be null.` CROSS-REFERENCE: `552.1^APQ^MUMPS` `1)= S:X>0 ^PSX(552.1,"APQ",X,$P(^PSX(552.1,DA,0),"^"),DA)=""` `2)= K ^PSX(552.1,"APQ",X,$P(^PSX(552.1,DA,0),"^"),DA)` `This cross reference will exist if a priority exists for downloading to the vendor.`
21	CONTROLLED SUBSTANCE	0;8	SET	'0' FOR Non-CS Transmission; '1' FOR CS Transmission; LAST EDITED: `MAY 21, 2002` HELP-PROMPT: `Enter a 0 or 1, 1 for Controlled Substances Transmission` DESCRIPTION: `A 1 indicates that this CMOP batch contains controlled substances.` TECHNICAL DESCR: `This field is populated by routine PSXRECV. This field should not be edited by users.` CROSS-REFERENCE: `552.1^C` `1)= S ^PSX(552.1,"C",$E(X,1,30),DA)=""` `2)= K ^PSX(552.1,"C",$E(X,1,30),DA)` `This cross reference is set when a transmission is downloaded from the medical center. A 1 indicates the transmission is a controlled substance transmission.`

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	5+1, 6+1, 7+1, 16+1
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 3S), 1(XREF 3K), 1(XREF 4S), 1(XREF 4K) , 6(XREF 1S), 6(XREF 1K), 6(XREF 2S), 6(XREF 2K), 7(XREF 1S), 7(XREF 1K), 12(XREF 1S), 12(XREF 1K), 16(XREF 1S), 16(XREF 1K) , 19(XREF 1S), 19(XREF 1K), 20(XREF 1S), 20(XREF 1K), 21(XREF 1S), 21(XREF 1K)
U	1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 3S), 1(XREF 3K), 1(XREF 4S), 1(XREF 4K), 6(XREF 1S), 6(XREF 1K) , 6(XREF 2S), 6(XREF 2K), 7(XREF 1S), 7(XREF 1K), 16(XREF 1S)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 2S), 1(XREF 3S), 1(XREF 4S), 2+1!, 3+1!, 4+1! , 5+1!, 6+1!, 7+1!, 8+1!, 9+1!, 10+1!, 11+1!, 12(XREF 1S), 13+1!, 16+1! , 18+1!, 19(XREF 1S), 20+1!, 20(XREF 1S), 20(XREF 1K), 21(XREF 1S), 21(XREF 1K)
>> Y	5+1, 6+1, 7+1, 16+1

Customize PDF page

Package: CMOP

Global: ^PSX(552.1

Information

Description

Directly Accessed By Routines, Total: 39

Accessed By FileMan Db Calls, Total: 14

Pointed To By FileMan Files, Total: 1

Fields, Total: 22

External References

Global Variables Directly Accessed

Local Variables

Legend: