Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call