Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSXCMOP1

Package: CMOP

Routine: PSXCMOP1


Information

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

Source Information

Source file <PSXCMOP1.m>

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

Caller Graph Total: 2

Package Total Caller Graph
CMOP 2 PSXCMOP  PSXCMOP0  

Entry Points

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

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

Label References

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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All