Routine: PSXCMOP1

Information

PSXCMOP1 ;BIR/WRT-Complete review NDF (LOOP) matches for CMOP ;[ 10/15/98 10:55 AM ]

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA FileMan	3	NOW^%DTC ^DIE ^DIR
CMOP	1	(BLD1,OUT)^PSXCMOP
National Drug File	1	$$PROD2^PSNAPIS

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
CMOP	2	PSXCMOP PSXCMOP0

Entry Points

Name	Comments	DBIA/ICR reference
COMPLETE
BLD
BLD0
WR
WR1
NO1
NO
TRAN
PR
IDENT
OUT1
DU
DU1
QUEST
QUEST1
PRC
OLDNM
OLD
OLD1

External References

Name	Field # of Occurrence
NOW^%DTC	OLD
^DIE	PR
^DIR	NO1+1
$$PROD2^PSNAPIS	IDENT+1
BLD1^PSXCMOP	BLD0, NO
OUT^PSXCMOP	NO1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"I have to build a table before you can begin ""looping"" so let me put you on",!,"""hold"" for a moment.",! Line Location: WR+0
Function Call: WRITE	Prompt: !,"Do you wish to loop through the whole file?",!,"(If you answer ""NO"", you will loop through ONLY the ones previously marked as",!,"""Do not transmit to CMOP""). " Line Location: NO1+1
Function Call: WRITE	Prompt: !,"This drug is not marked for CMOP in the National Drug File!" Line Location: IDENT+1
Function Call: WRITE	Prompt: !!,"Your old Dispense Unit ",$P(^PSDRUG(PSXDA,660),"^",8)," does not match the new one ",PSXDU,"." Line Location: DU+0
Function Call: WRITE	Prompt: !,"You may wish to edit the Price Per Order Unit and/or the Dispense",!,"Units Per Order Unit.",! Line Location: DU1+0
Function Call: WRITE	Prompt: !,"PRICE PER ORDER UNIT: ",$P(^PSDRUG(PSXDA,660),"^",3),"// " Line Location: QUEST+0
Function Call: WRITE	Prompt: !?4,"EXIT NOT ALLOWED ??" Line Location: QUEST+1
Function Call: WRITE	Prompt: !,"Type a Dollar Amount between 0 and 9999, 2 Decimal Digits." Line Location: QUEST+3
Function Call: WRITE	Prompt: !,"DISPENSE UNITS PER ORDER UNIT: ",$P(^PSDRUG(PSXDA,660),"^",5),"// " Line Location: QUEST1+0
Function Call: WRITE	Prompt: !?4,"EXIT NOT ALLOWED ??" Line Location: QUEST1+1
Function Call: WRITE	Prompt: !,"Type a Number between 1 and 9999, 3 Decimal Digits." Line Location: QUEST1+3
Function Call: WRITE	Prompt: !?7,"Price Per Order Unit = ",$P(^TMP($J,"PSXANS",NDA),"^",6),!?7,"Dispense Units Per Order Unit = ",$P(^TMP($J,"PSXANS",NDA),"^",7) Line Location: PRC+0
Routine Call	DIE Line Location: PR
Routine Call	DIR Line Location: NO1+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	BLD, BLD0, NO, IDENT, IDENT+1, IDENT+2, DU, QUEST, QUEST+2, QUEST1 , QUEST1+2, OLD, OLD+1, OLD1
^PSDRUG("AQ1"	IDENT+2*
^PSNTRAN - [#50.612]	TRAN*
^PSNTRAN("END"	TRAN*
^PSXDRUG("AQ1"	IDENT+1!
^TMP($J	COMPLETE, PR, QUEST+4, QUEST1+4, PRC

Name	Line Occurrences
BLD	NO1+3
BLD0	BLD
DU1	DU
NO	BLD
OLD	OLDNM
OLD1	OLDNM
OLDNM	TRAN
OUT1	NO1+1
QUEST	DU1, QUEST+1, QUEST+3
QUEST1	QUEST1+1, QUEST1+3
WR	BLD
WR1	BLD

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	PR*
>> DIE	PR*
DIR	NO1+1!
DIR(0	NO1+1*
>> DR	PR*
DTIME	QUEST, QUEST1
>> DTOUT	COMPLETE
>> DUOUT	COMPLETE, OUT1
IO(0	WR1
>> NDA	PRC
>> ONCE	OLDNM, OLD, OLD1
PRICE	QUEST, QUEST+1!, QUEST+2, QUEST+3*!, QUEST+4
>> PSXB	BLD*, BLD0, WR1, NO
>> PSXBT	NO1, NO1+2, NO1+4, OUT1*
>> PSXDA	DU, QUEST, QUEST+2, QUEST+4, QUEST1, QUEST1+2, QUEST1+4
>> PSXDU	DU
PSXDUOU	QUEST1, QUEST1+1!, QUEST1+2, QUEST1+3!, QUEST1+4
>> PSXFL	COMPLETE, OUT1
>> PSXIDENT	IDENT+1, IDENT+2*
>> PSXLAST	OLD*
>> PSXLM	OLD+1, OLD1
>> PSXM	TRAN
>> PSXNDF	IDENT*, IDENT+1
>> PSXNEXT	OLD*, OLD1
>> PSXNO	BLD0, NO1, NO1+1, NO
>> PSXVAPN	IDENT*, IDENT+1
>> RTC	OLD*
>> WAS	TRAN, PR, IDENT, IDENT+1, IDENT+2, OLD, OLD+1, OLD1
>> X	NO1+1, NO1+3, NO1+4, OLD+1, OLD1
ZX	IDENT+1*, IDENT+2!

Customize PDF page

Package: CMOP