Routine: PSORXED

Information

PSORXED ;IHS/DSD/JCM-edit rx utility ;29-May-2012 15:11;PLS

Source Information

Source file <PSORXED.m>

Call Graph

Call Graph Total: 18

Package	Total	Call Graph
Outpatient Pharmacy	11	($$RXRLDT,$$STATUS)^PSOBPSUT (ACTLOG,RXED)^PSOCPA ^PSOEXDT $$TRIC^PSOREJP1 $$PTLBL^PSOREJP2 PRINT^PSOREJP3 $$FIND^PSOREJUT (,DIE,EX)^PSORXED1 EN^PSORXPR NEXT^PSOUTIL CHK1^PSOUTLA
VA Fileman	3	^DIE $$GET1^DIQ ^DIR
IHS Changes To Pharmacy	2	CALLPOS^APSPFUNC $$TEST^APSQBRES
CMOP	1	^PSXEDIT
Pharmacy Point of Sale	1	$$IEN59^ABSPOSRX

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSOOREDT PSORXED1

Entry Points

External References

Name	Field # of Occurrence
$$IEN59^ABSPOSRX	POS+6
CALLPOS^APSPFUNC	POS+25
$$TEST^APSQBRES	POS+2
^DIE	NEXT+1
$$GET1^DIQ	POS+8
^DIR	POS+13, POS+19, RXST+6, ASKL+3
$$RXRLDT^PSOBPSUT	LOG+13, LBLCHK+1
$$STATUS^PSOBPSUT	LBL+1
ACTLOG^PSOCPA	RXST+16
RXED^PSOCPA	CPCK1
^PSOEXDT	LOG1+3
$$TRIC^PSOREJP1	LOG+1
$$PTLBL^PSOREJP2	LBLCHK+2
PRINT^PSOREJP3	LBLCHK+2
$$FIND^PSOREJUT	LBL+4
^PSORXED1	LOGX
DIE^PSORXED1	PROCESS+13
EX^PSORXED1	EOJ+6
EN^PSORXPR	PROCESS+10
NEXT^PSOUTIL	NEXT
CHK1^PSOUTLA	CHECK+3
^PSXEDIT	PROCESS+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"Rx Number is Locked by Another User!",! Line Location: CHECK+0
Function Call: WRITE	Prompt: !,$C(7),"This drug has been inactivated. ",! Line Location: CHECK+2
Function Call: WRITE	Prompt: !!,$C(7),"Discontinued prescriptions cannot be edited.",! Line Location: CHECK+5
Function Call: WRITE	Prompt: !!,$C(7),"Non-verified prescriptions cannot be edited.",! Line Location: CHECK+6
Function Call: WRITE	Prompt: !,$C(7),"Patient Status field for this Rx has been changed from a ",$S(PSORXST=0:"COPAYMENT ELIGIBLE",PSORXST=1:"COPAYMENT EXEMPT",1:"") Line Location: RXST+1
Function Call: WRITE	Prompt: !,"patient status." Line Location: RXST+2
Function Call: WRITE	Prompt: " The copay status for this Rx will be automatically adjusted." Line Location: RXST+3
Function Call: WRITE	Prompt: !,"If action needs to be taken to adjust charges you MUST use the" Line Location: RXST+4
Function Call: WRITE	Prompt: !,"Reset Copay Status/Cancel Charges option." Line Location: RXST+5
Function Call: WRITE	Prompt: ! Line Location: RXST+6
Function Call: WRITE	Prompt: ! Line Location: ASKL+1
Routine Call	DIE Line Location: NEXT+1
Routine Call	DIR Line Location: POS+13 POS+19 RXST+6 ASKL+3

FileNo	Call Tags
^PSRX - [#52]	Classic Fileman Calls
^ABSPTL - [#9002313.57]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	PROCESS+12
^ABSPTL("B"	POS+7
^DD("DILOCKTM"	CHECK
^DD(52	LOG+2, LOG+3, LOG+5, LOG+6, LOG+7, LOG+10, LOG+11
^PS(52.4 - [#52.4]	CHECK+6
^PS(53 - [#53]	PROCESS+10, RXST, RXST+7
^PS(55 - [#55]	LOG1+5!*
^PS(59 - [#59]	CPCK1
^PSDRUG - [#50]	CHECK+1, LOG1+1, LOG1+2
^PSRX - [#52]	PROCESS, PROCESS+1, PROCESS+5, PROCESS+6, CHECK, CHECK+5, LOG, LOG+2, LOG+3, LOG+5 , LOG+6, LOG+7, LOG+10, LOG+11, LOG+17, LOG+18, LOG+19, LOG+20, LOG1+1, LOG1+2 , LOG1+3, LOG1+7, POS+24, COPAY, COPAY+1, RXST, RXST+7, RXST+8, RXST+9*, CPCK+1 , CPCK+2, CPCK+3, FILL+2, FILL+4, FILL+5, LBL+5, SETRP
^PSRX("AG"	LOG1+4!*
^TMP("APSPPOS"	POS+2, POS+26!
^VA(200 - [#200]	PROCESS+9

Label References

Name	Line Occurrences
$$POS	LOG+16
ASKL	LOG+14, LOG+17
CHECK	PROCESS+11
CHECKX	CHECK+1, CHECK+3, CHECK+5
COPAY	POST+1
COPAYX	RXST
CPCK	COPAY, COPAY+1
CPCK1	CPCK+1, CPCK+2
EOJ	END
FILL	LOG+12
FILLX	FILL+4
L1	PROCESS+12
LBL	LOG+14, LOG+17
LBLCHK	LOG+13
LOG	L1
LOG1	LOG+14
LOGX	LOG+13, LOG+14, LOG+15, LOG1+7, LOG1+8, LOG1+10
NEXT	POST+1
POST	L1
PROCESS	PARSE
PROCESSX	PROCESS, PROCESS+11
RXST	COPAY
SETRP	LOG1+7, LOG1+11, LOG1+12

Name	Field # of Occurrence
^("I"	CHECK+1
^("STA"	CHECK+5
^(0	PROCESS+8, PROCESS+9, LOG+19*
^(2	PROCESS+1, LOG1+3
^(3	PROCESS+1
^(660.1	LOG1+1, LOG1+2
^(9999999	PROCESS+2, PROCESS+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ANS	POS+1, POS+5, POS+22*, POS+27
APSARNDC	EOJ+4!
APSAZIEN	EOJ+4!
APSAZNDC	EOJ+4!
APSP	EOJ+2!
APSP1	EOJ+2!
APSP2	EOJ+2!
APSP91	EOJ+2!
APSPDZ	EOJ+2!
APSPL	EOJ+2!
APSPLTYP	EOJ+2!
APSPM0	EOJ+2!
APSPMM	EOJ+2!
APSPPDY	EOJ+2!
APSPPLOT	EOJ+2!
APSPPMF	EOJ+2!
APSPRXX	EOJ+2!
APSQCOM	LOG+8!
APSQIT	POS+3~, POS+4, POS+14, POS+20*, POS+21
APSQPOS	POS+3~, POS+6*, POS+7
APSQPOST	POS+3~, POS+7*, POS+8
APSQPST	POS+23~
APSREFD	EOJ+3!
APSREFF	EOJ+3!
>> COM	LOG+2, LOG+3, LOG+5, LOG+6, LOG+7, LOG+8, LOG+10, LOG+11, LOG+13, LOG+14 , LOG+15, LOG+16*, LOG+20, LBL+6, LBL+7, LBL+8
D	LOG1+5*, LOG1+6!
>> D1	LOG+18, LOG+19, LOG+20
DA	PROCESS+10~, LOG, LOG+2, LOG+3, LOG+5, LOG+6, LOG+7, LOG+10, LOG+11, LOG+16 , LOG+17, LOG+18, LOG+19, LOG+20, LOG1+1, LOG1+2, LOG1+3, LOG1+4, LOG1+5, COPAY* , COPAY+1, RXST, RXST+7, RXST+8, RXST+9, RXST+10, COPAYX!, CPCK+1, CPCK+2, CPCK+3 , CPCK1, NEXT!*, NEXT+1!, FILL+2, FILL+4, FILL+5, LBL+14, LBL+15
DIE	NEXT!*, NEXT+1!
DIR	CHECKX!, RXST+6!, ASKL+1!, ASKL+3!
DIR("?"	ASKL+1, ASKL+2
DIR("A"	POS+9, POS+10, POS+16, RXST+6, ASKL+3*
DIR("B"	POS+11, POS+17, ASKL+3*
DIR(0	POS+12, POS+18, RXST+6, ASKL+3
DR	NEXT!, NEXT+1*!
DT	CHECK+1, LOG+20
DTOUT	CHECKX!
DUOUT	CHECKX!
DUZ	LOG+15, LOG+20
END	EOJ!
>> I	PROCESS+5, PROCESS+6, LOG+2
>> J	LOG1+3*, LOG1+7
>> K	LOG+18*, LOG+19
NEXDT	LOG1+3*, LOG1+4, LOG1+5, LOG1+6!
OEXDT	LOG1+3*, LOG1+4, LOG1+5, LOG1+6!
>> PREA	RXST+15*
PSFROM	LOG!
>> PSI	LOG+2*
PSO	COPAYX!, CPCK1*
PSOBRIEN	EOJ+5!
PSOBXIEN	EOJ+5!
>> PSOCLC	LOG+15
PSOCOMM	RXST+12*, COPAYX!
PSODA	RXST+10, COPAYX!, CPCK1
PSODAYS	PROCESS+1, PROCESS+8, POST+1!, COPAY, COPAY+1, COPAYX!
>> PSODIV	CHECK+3
PSOECMES	LBL+1~*, LBL+3
PSOEDITF	LOG+13, LOG1+7, LOGX!, FILL+1!, FILL+3*, FILL+4, LBL+1, LBL+4, LBL+6, LBL+9 , LBL+10, LBL+11, LBL+12, LBL+13, LBLCHK+1, LBLCHK+2
PSOEDITL	LOG+14, LOG+17, LOG1+7, LOG1+8, LOGX!, LBL+1, LBL+2, LBL+3, LBL+4, LBL+5 , LBL+6, LBL+7, LBL+9, LBL+10, LBL+11, LBL+12, LBL+13, LBL+14, LBL+15, LBL+16* , ASKL+3, ASKL+4, SETRP
PSOEDITR	LOGX!, FILL+1!, FILL+4, FILL+5, LBL+6, LBL+10, LBL+11, LBL+12, LBL+13, LBL+15
PSOERF	FILL+1!, FILL+2*, FILL+3, FILLX!
PSOEZ	FILL+2*, FILLX!
PSOFLAG	COPAYX!, CPCK1*
PSOLIST	EOJ!
PSOLIST(	PARSE
>> PSONEW("PROVI	DER NAME" , PROCESS+9*
PSONW	RXST+14*, COPAYX!
PSOOLD	RXST+13*, COPAYX!
>> PSOPAR7	CPCK1*
PSOPFS	CPCK+3~, CPCK+4!, CPCK+5!, CPCK+6
PSOQFLG	LKUP+1!
PSOREF	RXST+11*, COPAYX!, EOJ+2!
>> PSORX("PSOL"	LOG1+7, LOG1+9, LOG1+10, LOG1+11, LOG1+12*
PSORXED	NEXT, EOJ!
PSORXED("DFLG"	PROCESS, PROCESS+11, CHECK, CHECK+2, CHECK+3, CHECK+5, CHECK+6
PSORXED("I"	PARSE*
PSORXED("IRXN"	PARSE*, PROCESS, PROCESS+1, PROCESS+5, PROCESS+6, PROCESS+10, CHECK, CHECK+3, CHECK+5, CHECK+6 , LOG, LOG+1, LOG+13, LOG1+7, LOG1+10, LOG1+11, LOG1+12, COPAY, NEXT, LBL+1 , LBL+4, LBL+5, LBLCHK+1, LBLCHK+2, SETRP
PSORXED("LIST"	PARSE*
PSORXED("QFLG"	INIT*, PARSE
PSORXED("RX0"	PROCESS+1*, PROCESS+10, CHECK+1, LOG
PSORXED("RX1"	PROCESS+6*
PSORXED("RX19999999"	PROCESS+7*
PSORXED("RX2"	PROCESS+1*, CHECK+3, LOG+3, LOG+5
PSORXED("RX3"	PROCESS+1*, LOG+6, NEXT+1
PSORXED("RX9999999"	PROCESS+2*, LOG+7
PSORXST	PROCESS+10*, POST+1!, RXST, RXST+1, COPAYX!
PSOSIG	PROCESS+1*, LOG+10, EOJ!
>> PSOSIGFL	LOG+17
>> PSOSITE	CHECK+3, CPCK1
PSOTRIC	LOG+1~*, LOG+13, LOG+14, LOG1+7, LOG1+8, LBL+2, LBL+7, LBL+10, ASKL+3
>> PSOTRN	LOG+11
>> PSOX1	LOG1+9*
>> PSOX2	LOG1+9*, LOG1+10, LOG1+11, LOG1+12
PSPOP	CHECK+3!, CHECKX!
>> PSPRXN	CHECK+3*
PSRX0	LOG*, LOG+2, LOG+15!, EOJ!
PSXOUT	PROCESS+12!
>> QTY	LOG*, LOG1+1
RFD	COPAY, COPAY+1, RXST+11, COPAYX!, CPCK+1, CPCK+2, CPCK+3, CPCK1
>> RFDT	PROCESS+5, PROCESS+8
>> RFED	PROCESS+5, PROCESS+6, LOGX
RFIEN	POS+6, POS+23~, POS+24*, POS+25
RIEN	POS~, POS+2, POS+6, POS+24, POS+25, POS+26
>> RX0	LOG, LOG1+2, LOG1+3, LOG1+5
>> RX2	LOG1+3*
>> RXFL(	LOG1+7*
>> RXRP(	LOG+17, LBL+14, LBL+15, SETRP*
TYPE	CPCK1~*!
>> VALMSG	SETRP*
X	PROCESS+12~!, CHECKX!, LOG+15, NEXT+1!
Y	CHECKX!, POS+14, POS+20, NEXT+1!, ASKL+3
>> Z	LOG+18*
>> ZD(	LOG!*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSORXED

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
LOG
EOJ
L1
CPCK1
RXST
LKUP	; this line of code is no longer used S PSONUM="RX",PSONUM("A")="EDIT",PSOQFLG=0 D EN1^PSONUM I PSOQFLG!($Q(PSOLIST)']"") S PSORXED("QFLG")=1
FILL	;
LBLCHK	;
LOG1	;
NEXT
INIT
ASKL	;
COPAYX
CHECK
POS(RIEN)	; EP
SETRP
END
COPAY
FILLX
LOGX
START	;this entry point is no longer used.
CPCK	;update COPAY
POST	; D NEXT D:$G(^PSRX(PSORXED("IRXN"),"IB"))]"" COPAY K PSODAYS,PSORXST
PROCESSX
PROCESS
LBL	;
PARSE
CHECKX