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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSONRXN

Package: Outpatient Pharmacy

Routine: PSONRXN


Information

PSONRXN ;IHS/DSD/JCM - GETS NEXT VALID RX NUMBER ;08/09/93 9:17

Source Information

Source file <PSONRXN.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^DIC  ^DIE  ^DIR  
Outpatient Pharmacy 2 DIR^PSODIR2  ^PSODSPL  
List Manager 1 PAUSE^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Outpatient Pharmacy 5 PSONEW  PSONEW1  PSOORED1  PSOORNE5  PSOORNEW  

Entry Points

Name Comments DBIA/ICR reference
MANUALX
AUTO ; Entry point for getting next rx # if autonumbering
MANUAL ; Entry Point to ask user for new rx #
LOOP2
AUTOX
FATAL ;error in autonum queue if necessary and quit
CHECK ; Entry Point to check if valid new rx number

External References

Name Field # of Occurrence
^DIC CHECK+3
^DIE LOOP2+9
^DIR CHECK+11
DIR^PSODIR2 MANUAL+6
^PSODSPL MANUAL+8
PAUSE^VALM1 FATAL+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?10,"Not a new prescription number!!!",!,"Rxn: ",Y(0,0),!,"Patient: ",$S($D(^DPT(+$P(Y(0),"^",2),0)):$P(^(0),"^"),1:"UNKNOWN"),!,"Drug: ",$S($D(^PSDRUG(+$P(Y(0),"^",6),0)):$P(^(0),"^"),1:"UNKNOWN")
  • Line Location: CHECK+5
Function Call: WRITE
  • Prompt: !,"Issued: ",$E(PSONRXN("ID"),4,5),"-",$E(PSONRXN("ID"),6,7),"-",$E(PSONRXN("ID"),2,3)
  • Line Location: CHECK+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECK+11
Function Call: WRITE
  • Prompt: $C(7),?10,"Prescription Rx# "_PSOX_" already being processed."
  • Line Location: CHECK+14
Function Call: WRITE
  • Prompt: !!,$C(7),"Fatal error in Autonumbering - No Numbers Left!",!,"See Application Package Coordinator!",!,$C(7)
  • Line Location: FATAL+1
Routine Call
  • DIE
  • Line Location:
    • LOOP2+9
Routine Call
  • DIC
  • Line Location:
    • CHECK+3
Routine Call
  • DIR
  • Line Location:
    • CHECK+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DILOCKTM" CHECK+13, AUTO+3, LOOP2+2
^DPT - [#2] CHECK+5
^PS(59 - [#59] AUTO+2, AUTO+3, AUTO+4, LOOP2+10
^PSDRUG - [#50] CHECK+5
^PSRX("B" CHECK+13, LOOP2, LOOP2+2, LOOP2+3, LOOP2+4

Label References

Name Line Occurrences
AUTOX LOOP2+1
FATAL LOOP2
LOOP2 LOOP2+2
MANUAL MANUAL+8
MANUALX MANUAL+7, MANUAL+9, MANUAL+10, MANUAL+11, CHECK+4, CHECK+13

Naked Globals

Name Field # of Occurrence
^(0 CHECK+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> COPY MANUAL+5
DA MANUAL+6!, LOOP2+5!, LOOP2+6*, LOOP2+9!
DIC MANUAL+6!, CHECK+3*!, MANUALX+1!, LOOP2+5!, LOOP2+9!
DIC(0 CHECK+3*
DIE MANUAL+6!, MANUALX+1!, LOOP2+5!, LOOP2+6*, LOOP2+9!
DIR MANUAL+3!, MANUAL+6!, CHECK+11!
DIR("A" MANUAL+4*, CHECK+11*, FATAL+2*
DIR("B" MANUAL+5*
DIR(0 MANUAL+3*, CHECK+11*
DIRUT MANUALX+1!
DR MANUALX+1!, LOOP2+7*, LOOP2+9!
DTOUT MANUALX+1!
DUOUT MANUALX+1!
DUP LOOP2+2!, LOOP2+3*, LOOP2+4*, LOOP2+5!
I LOOP2+2!, LOOP2+4*, LOOP2+5!
>> PSOAC CHECK+11
PSODIR MANUALX+1!
PSODIR("DFLG" MANUAL+10
>> PSODRUG("DEA" AUTO+2
>> PSODRUG("NAME" CHECK+9, CHECK+15
>> PSOFIN CHECK+11
>> PSOFINFL CHECK+11
PSOI AUTO+5*, AUTO+6*, LOOP2*, LOOP2+2, LOOP2+3, LOOP2+4, LOOP2+7, LOOP2+8, AUTOX!
>> PSONEW("DFLG" MANUAL+2*, MANUALX*
>> PSONEW("FIELD" MANUAL+11
>> PSONEW("OLD L AST RX#" , AUTO+5*
>> PSONEW("QFLG" MANUAL+7*, MANUAL+9*, MANUAL+10*, MANUALX*, AUTO+1*, LOOP2, LOOP2+1, FATAL+2*
>> PSONEW("RX #" , MANUAL+5, CHECK+1, CHECK+18*, LOOP2+8*
PSONRXN MANUALX+1!, AUTOX!
PSONRXN("ERR FLG" , CHECK+2*, CHECK+10*, CHECK+16*, MANUALX
PSONRXN("HI" AUTO+5*, LOOP2
PSONRXN("ID" CHECK+6*, CHECK+7, CHECK+8!
PSONRXN("LO" AUTO+4*, AUTO+6
PSONRXN("TYPE" AUTO+2*, AUTO+3, AUTO+4, AUTO+5, LOOP2+7, LOOP2+10
>> PSORX("DO REF ILL" , MANUAL+9*
>> PSORX("NAME" MANUAL+4
>> PSORX("QFLG" MANUAL+10*
>> PSOSITE AUTO+2, AUTO+3, AUTO+4, LOOP2+6, LOOP2+10
PSOX MANUAL+12*, CHECK+1*, CHECK+3, CHECK+13, CHECK+14, CHECK+18, MANUALX+1!
PSOX1 MANUALX+1!, AUTO+4*, AUTO+5, AUTOX!
X MANUAL+7, CHECK+3*, MANUALX+1!, AUTOX!
Y MANUAL+8!, MANUAL+9!, MANUAL+12, CHECK+4, CHECK+8!, MANUALX+1!, AUTOX!
Y(0 CHECK+5, CHECK+6
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 |  Naked Globals |  Local Variables |  All