Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^PS(52.5

Package: Outpatient Pharmacy

Global: ^PS(52.5

Information

FileMan FileNo	FileMan Filename	Package
52.5	RX SUSPENSE	Outpatient Pharmacy

Description

This file simply keeps an ordered list of all the prescriptions that have been put on suspense for a certain date. It is typically used to print all prescriptions on suspense for a given date range, usually in order of entry. After an entry has been printed, a printed flag is set to keep it from being inadvertantly reprinted. The outpatient pharmacy package supplies an option to clean out printed prescriptions that have accumulated over time. This is up to the center to determine when it will routinely perform this task. APPLICATION GROUP(S): PS

Directly Accessed By Routines, Total: 130

Package	Total	Routines
Outpatient Pharmacy	101	PSO126EN PSO126IX PSO525AP PSOARCDE PSOARCS2 PSOARX PSOATRF PSOATRFC PSOATRFV PSOAUTOC PSOBAIR2 PSOBPSU2 PSOBPSU4 PSOBPSUT PSOBSET PSOBUILD PSOCAN2 PSOCAN3 PSOCAN4 PSOCMOP PSOCMOPA PSOCMOPB PSOCMOPC PSOCPTRH PSOCSRL PSODGDG2 PSODISP PSODISPS PSOEXBCH PSOEXDT PSOFIXDT PSOFIXSU PSOFIXVS PSOFUNC PSOHCSUM PSOHLDA PSOHLDC PSOHLDS PSOHLEXP PSOHLNE2 PSOHLSG PSOHLSG2 PSOHPOST PSOLBL PSOLBL4 PSOLBLN2 PSOLBLS PSOLLL5 PSOLLLI PSOMAUEX PSOORDER PSOORED1 PSOORED2 PSOORNE2 PSOORUT1 PSOORUTL PSOPOS13 PSOPOST PSOPOST3 PSOPRKA PSOREF0 PSOREJP2 PSORENW PSORENW0 PSORESK PSORREF0 PSORRPA1 PSORXDL PSORXED1 PSORXL1 PSORXPA1 PSORXRP1 PSORXRP2 PSORXRPT PSOSUBCH PSOSUCAT PSOSUCH1 PSOSUCHG PSOSUCLE PSOSUDCN PSOSUDEL PSOSUDP1 PSOSUDP2 PSOSUDPR PSOSULB1 PSOSULBL PSOSULOG PSOSUPAT PSOSUPOE PSOSUPRX PSOSURST PSOSUSRP PSOSUTL PSOSUTL1 PSOTRLBL PSOUTIL PSOUTL PSOUTLA PSOVERC SORT GROUP ^PS(52.5
CMOP	22	PSX41PST PSXBLD PSXBPSUT PSXCH PSXCPOST PSXEDIT PSXEDUTL PSXMISC1 PSXNEW PSXOPUTL PSXRCVRY PSXRHLP PSXRPPL PSXRPPL1 PSXRPPL2 PSXRSTAT PSXRSUS PSXRTRAN PSXRXU PSXSRP PSXSRST PSXSUDCN
Controlled Substances	2	PSDOPT0 PSDOPT1
My HealtheVet	1	MHVPRNA

Accessed By FileMan Db Calls, Total: 59

Package	Total	Routines
Outpatient Pharmacy	49	PSOARCDE PSOARCS2 PSOAUTOC PSOBAIR2 PSOBPSU2 PSOBPSU4 PSOBPSUT PSOCAN2 PSOCAN3 PSOCMOP PSOCMOPB PSOCMOPC PSOCPTRH PSODGDG2 PSOFIXVS PSOHLDA PSOHLDC PSOHLEXP PSOHLNE2 PSOLBL PSOLBL4 PSOLLLI PSOMAUEX PSOORED1 PSOORUT1 PSOORUTL PSOPRKA PSOREJP2 PSORENW0 PSORESK PSORXDL PSORXED1 PSORXL1 PSOSUCH1 PSOSUCHG PSOSUCLE PSOSUDEL PSOSUDP2 PSOSUDPR PSOSULB1 PSOSULBL PSOSUPAT PSOSUPOE PSOSUPRX PSOSUSRP PSOSUTL PSOUTL PSOUTLA2 PSOVERC
CMOP	10	PSXCH PSXEDIT PSXEDUTL PSXNEW PSXRPPL PSXRPPL1 PSXRPPL2 PSXRXU PSXSRP PSXSRST

Pointer To FileMan Files, Total: 4

Package	Total	FileMan Files
Outpatient Pharmacy	2	OUTPATIENT SITE(#59)[.06] PRESCRIPTION(#52)[.01]
Kernel	1	NEW PERSON(#200)[5]
Registration	1	PATIENT(#2)[.03]

Fields, Total: 16

Field #	Name	Loc	Type	Details
.01	RX #	0;1	POINTER TO PRESCRIPTION FILE (#52)	**********************REQUIRED FIELD********************** PRESCRIPTION(#52) LAST EDITED: `APR 28, 1995` DESCRIPTION: `This field is the pointer to the Prescription File (#52).` CROSS-REFERENCE: `52.5^B` `1)= S ^PS(52.5,"B",$E(X,1,30),DA)=""` `2)= K ^PS(52.5,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `52.5^AJ^MUMPS` `1)= D SET^PSOSUTL` `2)= D KILL^PSOSUTL` `This cross-reference is used to set the DEA Special Handling field. It sets piece 10 of ^PS(52.5,DA,0) to the DEA Special Handling field of the drug.`
.02	SUSPENSE DATE	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 23, 2002` DESCRIPTION: `This field is used to indicate the date the prescription will be printed from the suspense file.` CROSS-REFERENCE: `52.5^C` `1)= S ^PS(52.5,"C",$E(X,1,30),DA)=""` `2)= K ^PS(52.5,"C",$E(X,1,30),DA)` CROSS-REFERENCE: `52.5^AD^MUMPS` `1)= K:+$G(^("P"))=1 ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),X,DA) S:+$G(^PS(52.5,DA,"P"))'=1&($P($G(^PS(52.5,DA,0)),"^",3))&($P($G(^PS(52.5,DA,0)),"^",7)="") ^PS(52.5,"AC",$P(^PS(52.5,DA,0),"^",3),X,DA)=""` `2)= K ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),X,DA)` `If the suspense date is changed, the "AC" cross-reference is updated. It set the global ^PS(52.5,"AC",Patient Pointer,Suspense Date,DA)="".` RECORD INDEXES: `CMP (#248)`
.03	PATIENT	0;3	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `DEC 23, 2002` DESCRIPTION: `Refers to whom the medication is prescribed for.` TECHNICAL DESCR: `This field contains the name of the patient for whom the prescription is written.` CROSS-REFERENCE: `52.5^D^MUMPS` `1)= S:$D(^DPT(X,0)) ^PS(52.5,"D",$P(^DPT(X,0),"^"),DA)=""` `2)= K:$D(^DPT(X,0)) ^PS(52.5,"D",$P(^DPT(X,0),"^"),DA)` `This cross reference lists the patients in name order. It sets the global ^PS(52.5,"D",Patient name,DA)="".` CROSS-REFERENCE: `52.5^AE^MUMPS` `1)= K:+$G(^("P"))=1 ^PS(52.5,"AC",X,+$P($G(^PS(52.5,DA,0)),"^",2),DA) S:+$G(^PS(52.5,DA,"P"))'=1&($P($G(^PS(52.5,DA,0)),"^",2))&($P($G(^PS(52.5,DA,0)),"^",7)="") ^PS(52.5,"AC",X,+$P($G(^PS(52.5,DA,0)),"^",2),DA)=""` `2)= K ^PS(52.5,"AC",X,+$P(^PS(52.5,DA,0),"^",2),DA)` `If the patient changes, the "AC" cross-reference will be changed. It sets the global ^PS(52.5,"AC",Patient,Suspense Date,DA)="".` CROSS-REFERENCE: `52.5^AF` `1)= S ^PS(52.5,"AF",$E(X,1,30),DA)=""` `2)= K ^PS(52.5,"AF",$E(X,1,30),DA)` `This is a cross-reference on patient internal entry number.` RECORD INDEXES: `CMP (#248)`
.04	TYPE	0;4	SET	**********************REQUIRED FIELD********************** 'M' FOR MAIL; 'W' FOR WINDOW; 'I' FOR INPATIENT; DESCRIPTION: `TYPE' refers to how the prescription is to be destributed. Respond by indicating M for Mail, W for Window or I for Inpatient. TECHNICAL DESCR: `Indicate MAIL if prescription is to be mailed to patient, WINDOW if prescription is to be picked up at the site, INPATIENT for patients at the hospital.`
.05	PARTIAL	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 08, 1992` HELP-PROMPT: `Type a Number between 0 and 9, 0 Decimal Digits` DESCRIPTION: `Respond with Y for YES or N for NO depending upon whether or not this is a partial or full prescription.`
.06	DIVISION	0;6	POINTER TO OUTPATIENT SITE FILE (#59)	OUTPATIENT SITE(#59) LAST EDITED: `DEC 23, 2002` HELP-PROMPT: `Enter division where medication is suspened.` DESCRIPTION: `This field is used to enter the division where the prescription was filled.` TECHNICAL DESCR: `pointer` CROSS-REFERENCE: `52.5^AO^MUMPS` `1)= D SDIVAS^PSOSUTL1` `2)= D KDIVAS^PSOSUTL1` `This cross reference is used to maintain resetting and reprinting functionality. For non-CMOP prescriptions, it sets the global ^PS(52.5,"AS",Print Date,Printed By,Division,Sequence,DA)="". For CMOP prescriptions it sets` `the global ^PS(52.5,"APR",Print Date,Printed By,Division,Sequence,DA)="".` CROSS-REFERENCE: `52.5^ADV^MUMPS` `1)= D SDIV^PSOSUTL` `2)= Q` `This cross reference is used to keep File 52 Division updated if the Division for an Rx is changed in the Suspense File. For a partial Rx, it sets piece 9 of ^PSRX(DA(1),"P",DA,0)=Division. For an original Rx, it sets` `piece 9 of ^PSRX(DA,2)=Division. For a refill, it sets piece 9 of ^PSRX(DA(1),1,DA,0)=Division.` RECORD INDEXES: `CMP (#248)`
1	DRUG		COMPUTED	MUMPS CODE: `S Y(1,2)=$S($D(D0):D0,1:""),Y(1,1)=$S($D(^PS(52.5,D0,0)):^(0),1:""),D0=$P(Y(1,1),U,1) S:'$D(^PSRX(+D0,0)) D0=-1 S Y(1,101)=$S($D(^PSRX(D0,0)):^(0),1:"") S X=$S('$D(^PSDRUG(+$P(Y(1,101),U,6),0)):"",1:$P(^(0),U,1)) S D0=Y(1,` `2)` ALGORITHM: `RX #:DRUG` LAST EDITED: `JAN 18, 1983` DESCRIPTION: `DRUG' refers to the name of the actual drug/supplies specified by the prescription. TECHNICAL DESCR: `Respond with the name of the drug/supplies stated in the prescription.`
2	PRINTED	P;1	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JAN 10, 1996` HELP-PROMPT: `Data should not be entered directly with file manager. Please use option to enter data into this field.` DESCRIPTION: `This field is used to indicate if the prescription was printed from suspense. '1' is used to indicate 'Yes' the prescription has printed, '0' for 'No' the prescription has not printed.` TECHNICAL DESCR: `set of codes.` `UNEDITABLE` CROSS-REFERENCE: `52.5^AC^MUMPS` `1)= K:X=1 ^PS(52.5,"AC",$P(^PS(52.5,DA,0),"^",3),$P(^PS(52.5,DA,0),"^",2),DA) S:X'=1&($P($G(^PS(52.5,DA,0)),"^",7)="") ^PS(52.5,"AC",$P(^PS(52.5,DA,0),"^",3),$P(^PS(52.5,DA,0),"^",2),DA)=""` `2)= K ^PS(52.5,"AC",$P(^PS(52.5,DA,0),"^",3),$P(^(0),"^",2),DA)` `This cross reference is used to indicate which entries in the file have not yet been printed. It sets the global ^PS(52.5,"AC",Patient,Suspense Date,DA)="".` CROSS-REFERENCE: `52.5^ADL^MUMPS` `1)= D SADL^PSOSUTL1` `2)= D KADL^PSOSUTL1` `This cross-reference is used for deletion of printed Rx's. It sets the global ^PS(52.5,"ADL",Print Date,DA)="".`
3	CMOP INDICATOR	0;7	SET	'Q' FOR QUEUED FOR TRANSMISSION; 'X' FOR TRANSMISSION COMPLETED; 'L' FOR LOADING FOR TRANSMISSION; 'P' FOR PRINTED LOCALLY; LAST EDITED: `DEC 23, 2002` DESCRIPTION: `This field indicates the current status of a Consolidated Mail Outpatient Pharmacy prescription.` TECHNICAL DESCR: `Set of codes.` CROSS-REFERENCE: `52.5^AQ^MUMPS` `1)= S:X="Q" ^PS(52.5,"AQ",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)="" K:X="Q" ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),+$P(^PS(52.5,DA,0),"^",2),DA)` `2)= K ^PS(52.5,"AQ",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)` `This cross reference indicates the prescription is 'Queued' for transmission to a Consolidated Mail Outpatient Pharmacy system.` CROSS-REFERENCE: `52.5^AX^MUMPS` `1)= S:X="X" ^PS(52.5,"AX",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)="" K:X="X" ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),+$P(^PS(52.5,DA,0),"^",2),DA)` `2)= K ^PS(52.5,"AX",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)` `This cross reference indicates the data has been 'Transmitted' to a Consolidated Mail Outpatient system.` CROSS-REFERENCE: `52.5^AL^MUMPS` `1)= S:X="L" ^PS(52.5,"AL",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)="" K:X="L" ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),+$P(^PS(52.5,DA,0),"^",2),DA)` `2)= K ^PS(52.5,"AL",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)` `This cross reference indicates the data is building for transmission to a Consolidated Mail Outpatient system.` CROSS-REFERENCE: `52.5^AF^MUMPS` `1)= S:X="P" ^PS(52.5,"AP",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)="" K:X="P" ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),+$P(^PS(52.5,DA,0),"^",2),DA)` `2)= K ^PS(52.5,"AP",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)` `This cross reference indicates a label was printed locally for this entry.` CROSS-REFERENCE: `52.5^AG^MUMPS` `1)= S:$G(X)="P"!($G(X)="Q") ^PS(52.5,"AG",+$P(^PS(52.5,DA,0),"^",3),DA)="" K:$G(X)="Q"!($G(X)="P") ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),+$P(^PS(52.5,DA,0),"^",2),DA)` `2)= K ^PS(52.5,"AG",$P(^PS(52.5,DA,0),"^",3),DA)` `This cross reference is by DFN first and is set if the rx is flagged as 'Queued' or 'Printed'. It is used to quickly locate records that fit either category.` RECORD INDEXES: `CMP (#248)`
4	PRINT DATE	0;8	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 11, 1995` HELP-PROMPT: `Data should not be entered with File Manager. This data is entered by the Outpatient package when the label is printed from suspense.` DESCRIPTION: `This indicates the date/time that this entry was queued to print. It is entered by the Outpatient package at the time of label print.` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `52.5^AS^MUMPS` `1)= D SPDTAS^PSOSUTL1` `2)= D KPDTAS^PSOSUTL1` `This cross-reference is used for batching suspense prints, so different batches within a day can be reset. This cross-reference also sets the 'APR' cross-reference. The 'APR' cross-reference will list CMOP Rx's by batch` `for reseting. Only the 'AS' or the 'APR' will exist for an Rx. For non-CMOP prescriptions, it sets the global ^PS(52.5,"AS",Print Date,Printed By,Division,Sequence,DA)="". For CMOP prescriptions, it sets the global` `^PS(52.5,"APR",Print Date,Printed By,Division,Sequence,DA)="".`
5	PRINTED BY	0;9	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 11, 1995` HELP-PROMPT: `Data should not be entered through FileMan. The Outpatient package will make the entry when the label for this entry prints from suspense.` DESCRIPTION: `This indicates the user who queued this entry to print from suspense.` `UNEDITABLE` CROSS-REFERENCE: `52.5^AH^MUMPS` `1)= D SPBYAS^PSOSUTL1` `2)= D KPBYAS^PSOSUTL1` `This cross reference is used to set printed Rx's from suspense in a batch,for resetting and reprinting capabilities. It is entered by the Outpatient package at the time of label print from suspense. The 'APR'` `cross-reference is also set to list the CMOP Rx's that were printed locally. The 'APR' cross-reference is used for resetting CMOP Rx's by batch. Only the 'AS" or the 'APR' will exist for an Rx. For non-CMOP prescriptions,` `it sets the global ^PS(52.5,"AS",Print Date,Printed By,Division,Sequence,DA)="". For CMOP prescriptions, it sets the global ^PS(52.5,"APR",Print Date,Printed By,Division,Sequence,DA)="".`
6	DEA, SPECIAL HDLG	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1) X` LAST EDITED: `APR 26, 1995` HELP-PROMPT: `Answer must be 1-6 characters in length.` DESCRIPTION: `This is taken from the DRUG File(#50) and entered by the Outpatient Package when the entry goes into the suspense file.`
7	SEQUENCE	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 11, 1995` HELP-PROMPT: `This will be entered by the Outpatient Package, and is used for the Reset and Reprint functionality.` DESCRIPTION: `This field is used by Outpatient for printing labels in the proper sequence when labels are Reset for Reprinting. This field should not be edited through FileMan.` `UNEDITABLE` CROSS-REFERENCE: `52.5^AW^MUMPS` `1)= D SSEQAS^PSOSUTL1` `2)= D KSEQAS^PSOSUTL1` `This cross reference is used to batch printed Rx's from suspense for resetting and reprinting purposes. It is set by the Outpatient package at the time of label print. The 'APR' cross-reference is also set to list the CMOP` `Rx's that were printed locally. The 'APR' cross-reference is used to reset CMOP Rx's. For non-CMOP prescriptions, it sets the global ^PS(52.5,"AS",Print Date,Printed By,Division,Sequence,DA)="". For CMOP prescriptions, it` `sets the global ^PS(52.5,"APR",Print Date,Printed By,Division,Sequence,DA)="".`
8	REPRINT	0;12	SET	'1' FOR YES; LAST EDITED: `OCT 20, 1995` HELP-PROMPT: `This indicates if the Rx is a suspended Reprint.` DESCRIPTION: `If set to Yes, it means the entry is a suspended reprint, either through the Edit option or the Reprint option.` `UNEDITABLE`
9	FILL	0;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>11)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 17, 1997` HELP-PROMPT: `Type a Number between 0 and 11, 0 Decimal Digits` DESCRIPTION: `This field indicates the fill number for the Rx if the Rx is not a partial.`
10	SUSPENSE HOLD DATE	0;14	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 11, 2008` HELP-PROMPT: `Enter the date/time when 3/4 of days supply will elapse.` DESCRIPTION: `This field is populated when the Print from Suspense function is executed and for ePharmacy prescriptions only. It will contain the date when 3/4 of the Days Supply will have elapsed. ePharmacy prescriptions will be left` `on suspense until this date. Otherwise, the prescription will print on or after the date stored in this field.` `Non-ePharmacy prescriptions are not affected by this functionality.` TECHNICAL DESCR: `This field is used for ePharmacy prescriptions only. If 3/4 of the days supply has not yet elapsed this field will be populated with the date that the prescription will be allowed to be printed from suspense. Note that` `prescriptions may be pulled early from suspense without regard to this field.`

ICR, Total: 4

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #786	Mental Health Controlled Substances E Claims Management Engine	PRINTED (2). Access: Direct Global Read & w/Fileman RX# (.01). Access: Direct Global Read & w/Fileman SUSPENSE DATE (.02). Access: Direct Global Read & w/Fileman PARTIAL (.05). Access: Direct Global Read & w/Fileman
ICR #1222	CMOP	RX # (.01). Access: Direct Global Read & w/Fileman SUSPENSE DATE (.02). Access: Direct Global R/W & w/Fileman PATIENT (.03). Access: Direct Global Read & w/Fileman TYPE (.04). Access: Direct Global Read & w/Fileman PARTIAL (.05). Access: Direct Global Read & w/Fileman DIVISION (.06). Access: Direct Global Read & w/Fileman CMOP INDICATOR (3). Access: Direct Global R/W & w/Fileman PRINT DATE (4). Access: Direct Global R/W & w/Fileman PRINTED BY (5). Access: Direct Global Read & w/Fileman DEA SPECIAL HDLG (6). Access: Direct Global Read & w/Fileman SEQUENCE (7). Access: Direct Global Read & w/Fileman REPRINT (8). Access: Direct Global Read & w/Fileman FILL (9). Access: Direct Global Read & w/Fileman PRINTED (2). Access: Direct Global R/W & w/Fileman	This cross reference is used by the CMOP package tolookup prescription entries in file # 52.5. SUSDT is the suspense date of theprescription and DA is the internal entry number of the record.This cross reference is used by the CMOP package tomanage RX SUSPENSE file entries for CMOP data transmissions. This crossreference is both set and killed by the CMOP package. The kills and sets aredetermined by the screening criteria for designating a CMOP prescription. DFNis the internal entry numb of the Patient file #2, SUSDT is the suspensedate/time, and DA is the internal entry number of the record.This cross reference is used by the CMOP package tolookup prescription entries in the Rx Suspense file #52.5. RXIEN is the .01field of the entry, and DA is the internal entry number of the record.This cross reference is set by the CMOP package when theCMOP Indicator field #3 is set to LOADING FOR TRANSMISSION. SUSDT is thesuspense date/time DFN is the Patient file #2 internal entry number, and DA isthe internal entry number of the record.This cross reference is set by the CMOP package when theCMOP Indicator field is set to PRINTED LOCALLY. SUSDT is the suspensedate/time DFN is he Patient file #2 internal entry number, and DA is theinternal entry number of the record.This cross-reference is used for batching suspenseprints, so different batches within a day can be reset. This cross-referencealso sets the 'APR' cross-reference. The 'APR' cross-reference will list CMOPRx's by batch for reseting. Only the 'AS' or the 'APR' will exist for an Rx.For non-CMOP prescriptions, it sets the global ^PS(52.5,"AS",PrintDate,Printed By,Division,Sequence,DA)="". For CMOP prescriptions, it sets theglobal ^PS(52.5,"APR",Print Date,Printed By,Division,Sequence,DA)="".This cross reference is set by the CMOP package when theCMOP Indicator field #3 is set to QUEUED FOR TRANSMISSION. SUSDT is thesuspense date/time DFN is the Patient file #2 internal entry number, and DA isthe internal entry number of the record.This cross reference is set by the CMOP package when theCMOP Indicator field #3 is set to TRANSMISSION COMPLETED. SUSDT is thesuspense date/time DFN is the Patient file #2 internal entry number, and DA isthe internal entry number of the record.
ICR #1978	CMOP
ICR #4703	E Claims Management Engine	CMOP INDICATOR (3). Access: Direct Global Read & w/Fileman	This cross reference is used by the ECME package tolookup prescription entries in the Rx Suspense file #52.5.

External References

Name	Field # of Occurrence
^%DT	.02+1, 4+1, 10+1
$$CMPRXTYP^PSOCMOP	IXCMPP2CC+1
KILL^PSOSUTL	.01(XREF 2K)
SDIV^PSOSUTL	.06(XREF 2S)
SET^PSOSUTL	.01(XREF 2S)
KADL^PSOSUTL1	2(XREF 2K)
KDIVAS^PSOSUTL1	.06(XREF 1K)
KPBYAS^PSOSUTL1	5(XREF 1K)
KPDTAS^PSOSUTL1	4(XREF 1K)
KSEQAS^PSOSUTL1	7(XREF 1K)
SADL^PSOSUTL1	2(XREF 2S)
SDIVAS^PSOSUTL1	.06(XREF 1S)
SPBYAS^PSOSUTL1	5(XREF 1S)
SPDTAS^PSOSUTL1	4(XREF 1S)
SSEQAS^PSOSUTL1	7(XREF 1S)

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	ID.03+1, .03(XREF 1S), .03(XREF 1K)
^PS(52.5 - [#52.5]	ID.03+1, IXCMPSL+1*, IXCMPKL+1!, IXCMPKEIC+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K) , .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), 1+1, 2(XREF 1S), 2(XREF 1K), 3(XREF 1S) , 3(XREF 1K), 3(XREF 2S), 3(XREF 2K), 3(XREF 3S), 3(XREF 3K), 3(XREF 4S), 3(XREF 4K), 3(XREF 6S), 3(XREF 6K)
^PSDRUG - [#50]	1+1
^PSRX - [#52]	1+1

Naked Globals

Name	Field # of Occurrence
^("0"	ID.02+1, ID.03+1
^("P"	.02(XREF 2S), .03(XREF 2S)
^(0	ID.03+1, 1+1, 2(XREF 1K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.02+1, 4+1, 10+1*
>> D0	1+1*
>> DA	IXCMPSL+1, IXCMPKL+1, IXCMPP2CC+1, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S) , .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), 2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1K), 3(XREF 2S) , 3(XREF 2K), 3(XREF 3S), 3(XREF 3K), 3(XREF 4S), 3(XREF 4K), 3(XREF 6S), 3(XREF 6K)
U	ID.02+1, ID.03+1, 1+1
X	IXCMPP2CC+1, .01(XREF 1S), .01(XREF 1K), .02+1!, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K) , .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .05+1!, 1+1, 2(XREF 1S), 3(XREF 1S), 3(XREF 2S), 3(XREF 3S) , 3(XREF 4S), 3(XREF 6S), 4+1!, 6+1!, 7+1!, 9+1!, 10+1*!
X(1	IXCMPSL+1, IXCMPKL+1
X(2	IXCMPSL+1, IXCMPKL+1
X(3	IXCMPSL+1, IXCMPKL+1
X(4	IXCMPSL+1, IXCMPKL+1
X(5	IXCMPSL+1, IXCMPKL+1
>> Y	ID.03+1, .02+1, 4+1, 10+1
>> Y(1	1+1*

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All