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 |  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: PSAAOP

Package: Drug Accountability

Routine: PSAAOP


Information

PSAAOP ;BIR/DB - Price Conversion Routine;4/3/00

Source Information

Source file <PSAAOP.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 HOME^%ZIS  ^%ZTLOAD  
MailMan 1 ^XMD  
VA Fileman 1 ^DIE  

Entry Points

Name Comments DBIA/ICR reference
QQ
EXITQ
PRICE
Q
DONESUB
PSADRG
PSANDC ;Entry point for price correction
PSASUB
NOQ

External References

Name Field # of Occurrence
HOME^%ZIS PRICE+5
^%ZTLOAD PRICE+5
^DIE DONESUB+7, DONESUB+8
^XMD QQ+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"PSA*3*21 corrects errors in the way pricing was done in the past. The new",!,"process correctly calculates the price per dispense unit by dividing"
  • Line Location: Q+1
Function Call: WRITE
  • Prompt: !,"the Price per Order Unit by the Dispense Units per Order Unit.",!!,"It loops through each entry in the DRUG file (#50) and corrects any problems"
  • Line Location: Q+2
Function Call: WRITE
  • Prompt: !,"found in the synonym data."
  • Line Location: Q+3
Function Call: WRITE
  • Prompt: !!,"Please note - Because this process checks each NDC in the DRUG file (#50),"
  • Line Location: Q+4
Function Call: WRITE
  • Prompt: !,"it is suggested that you queue the option to run during low usage times."
  • Line Location: Q+5
Function Call: READ
  • Prompt: "Fix synonym entries? YES // "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: AN
  • Line Location: PRICE+0
Function Call: WRITE
  • Prompt: !!,"Answer 'Y' for YES, or 'N' for NO."
  • Line Location: PRICE+1
Function Call: WRITE
  • Prompt: !,"Nothing corrected."
  • Line Location: NOQ+0
Routine Call
  • %ZIS
  • Line Location:
    • PRICE+5
Routine Call
  • DIE
  • Line Location:
    • DONESUB+7
    • DONESUB+8

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] PSADRG, PSADRG+1, PSASUB, DONESUB+3, DONESUB+6, DONESUB+9
^PSDRUG("B" PSADRG
^TMP("PSAAOP" DONESUB+3*, DONESUB+4*, QQ*, QQ+1*, QQ+5!

Label References

Name Line Occurrences
DONESUB PSASUB
EXITQ PRICE+5
NOQ PRICE, PRICE+2
PRICE PRICE+1
PSADRG PSADRG, PSADRG+1, PSASUB, DONESUB, DONESUB+11
PSASUB PSASUB+1
QQ PSADRG, QQ+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AN PRICE*, PRICE+1*!, PRICE+2
DA Q!, DONESUB+5*, DONESUB+7!, DONESUB+8*
DA(1 DONESUB+8*
DATA QQ!
DIE Q!, DONESUB+5*, DONESUB+7!, DONESUB+8*
DIR Q!
DR Q!, DONESUB+5*, DONESUB+7!, DONESUB+8*
DRGCNT PSANDC+2!, PSADRG*, QQ
DTIME PRICE
DUZ PRICE+3
FIXCNT PSANDC+2!, DONESUB+10*, QQ
NEWPRICE DONESUB+2*, DONESUB+4, QQ!
PSACNT PSANDC+2!, DONESUB+3*, DONESUB+4*
PSADATA PSANDC+2!, PSASUB*, DONESUB, QQ!
PSADRG PSANDC+2!, PSADRG*, PSADRG+1, PSASUB, DONESUB+3, DONESUB+5, DONESUB+6, DONESUB+8, DONESUB+9, QQ!
PSADRG1 PSANDC+2!, PSADRG*
PSADUOU DONESUB*, DONESUB+2, QQ!
>> PSADUZ PRICE+3*, QQ+3
PSALOC Q!
PSALOCN Q!
>> PSANDC PSADRG+1*, PSASUB, DONESUB+3
PSAOP Q!
PSAOSITN Q!
PSAOU DONESUB*, DONESUB+2, QQ!
PSAPDUOU DONESUB*, DONESUB+2, DONESUB+4, QQ!
PSASUB PSANDC+2!, PSADRG!, PSASUB*, DONESUB+8
>> XMDUZ QQ+2*
>> XMSUB QQ+2*
>> XMTEXT QQ+2*
>> XMY QQ+4
>> XMY( QQ+3*
>> XX DONESUB+2*
>> ZTDESC PRICE+5*
>> ZTIO PRICE+4*
>> ZTRTN PRICE+5*
>> ZTSAVE("PSADUZ" PRICE+3*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All