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

Package: Pharmacy Data Management

Routine: PSSCSPD


Information

PSSCSPD ;BIR/RTR-Corresponding drug functions ;03/28/00

Source Information

Source file <PSSCSPD.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 ^DIC  ^DIE  ^DIR  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
PATQ
MMM
END ;
EDIT ;
REP ;
MARK ;
MARKT ;
START ;
HDC ;
MARKQ
PAT ;

External References

Name Field # of Occurrence
^%ZIS REP+2
^%ZISC END+5
^%ZTLOAD REP+3, MARK+8
^DIC EDIT+1, PAT+1
^DIE EDIT+6, EDIT+7, PAT+4
^DIR END+1, HDC+1, EDIT+4, MARK+3
^XMD MARKT+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Since this report must check every drug in the DRUG (#50) File, we recommend",!,"that you queue this report to a printer.",!
  • Line Location: REP+1
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: REP+2
Function Call: WRITE
  • Prompt: !,"Report queued to print.",!
  • Line Location: REP+3
Function Call: WRITE
  • Prompt: !?3,"Corresponding Outpatient drug: ",?36,$P($G(^PSDRUG(+$P(PSSNODE,"^",5),0)),"^")
  • Line Location: START+17
Function Call: WRITE
  • Prompt: !?3," Corresponding Inpatient drug: ",?36,$P($G(^PSDRUG(+$P(PSSNODE,"^",6),0)),"^")
  • Line Location: START+23
Function Call: WRITE
  • Prompt: !?5,"No Corresponding Drugs were found.",!
  • Line Location: START+29
Function Call: WRITE
  • Prompt: !!?5,"There are no potential matches!",!
  • Line Location: START+32
Function Call: WRITE
  • Prompt: !," ** Potential corr. Outpatient Drug: "_$G(^(2))
  • Line Location: START+37
Function Call: WRITE
  • Prompt: !," ** Potential corr. Inpatient Drug: "_$G(^(1))
  • Line Location: START+38
Function Call: WRITE
  • Prompt: !!,"End of Report."
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !!,"This entry is marked for the following PHARMACY packages:"
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !," Outpatient"
  • Condition for execution: PSSA["O"
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !," Unit Dose"
  • Condition for execution: PSSA["U"
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !," IV"
  • Condition for execution: PSSA["I"
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !," Ward Stock"
  • Condition for execution: PSSA["W"
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !," Controlled Substances"
  • Condition for execution: PSSA["N"
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+4
Function Call: WRITE
  • Prompt: !," (none)"
  • Line Location: EDIT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PATQ+0
Function Call: WRITE
  • Prompt: !!,"This option will automatically mark all corresponding Inpatient and Outpatient",!,"drugs that are listed in the 'Potential Corresponding Inpatient/Outpatient Drug",!,"Matches' section of the 'Report of Corresponding Drugs'.",!
  • Line Location: MARK+1
Function Call: WRITE
  • Prompt: !,"Before using this option, please make sure you print a current 'Report of",!,"Corresponding Drugs' for review.",!
  • Line Location: MARK+2
Function Call: WRITE
  • Prompt: !!,"This job must be queued. You will receive a mail message upon completion.",!
  • Line Location: MARK+6
Function Call: WRITE
  • Prompt: !!,"Nothing queued.",!
  • Line Location: MARK+8
Routine Call
  • DIE
  • Line Location:
    • EDIT+6
    • EDIT+7
    • PAT+4
Routine Call
  • DIC
  • Line Location:
    • EDIT+1
    • PAT+1
Routine Call
  • DIR
  • Line Location:
    • END+1
    • HDC+1
    • EDIT+4
    • MARK+3
Routine Call
  • %ZIS
  • Line Location:
    • REP+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(59.7 - [#59.7] PAT+2
^PSDRUG - [#50] START+7, START+8, START+9, START+13, START+15, START+17, START+18, START+19, START+20, START+22
, START+23, START+24, START+25, START+26, START+28, EDIT+2, MARKT+3, MARKT+4, MARKT+5, MARKT+7
, MARKT+10, MARKT+11, MARKT+12*, MARKT+14, MARKT+15, MARKT+16*
^PSDRUG("B" START+6, MARKT+2
^TMP($J START+2!, START+20, START+22*, START+26, START+28*, START+32, START+33, START+37, START+38, END+4!

Label References

Name Line Occurrences
EDIT EDIT+4, EDIT+6, EDIT+8
END START+30, START+31, START+32
HDC START+5, START+11, START+14, START+31, START+34, START+36
MARKQ MARK+3
MMM MARKT+17
PAT PAT+5
PATQ PAT+1, PAT+4

Naked Globals

Name Field # of Occurrence
^("I" START+8, MARKT+4
^(1 START+38
^(2 START+37, EDIT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS REP+2!*, REP+3!
DA EDIT+1!, EDIT+6*, EDIT+7*, PAT+3*, PATQ!
DIC EDIT+1!*, PAT+1!*, PATQ!
DIC("A" EDIT+1*, PAT+1*
DIC(0 EDIT+1*, PAT+1*
DIE EDIT+1!, EDIT+6!*, EDIT+7!*, PAT+3!*, PATQ!
DIR END+1!, HDC+1!, EDIT+4!, MARK+3!
DIR("?" MARK+4*, MARK+5*
DIR("A" END+1*, HDC+1*, EDIT+4*, MARK+3*
DIR("B" MARK+3*
DIR(0 END+1*, HDC+1*, EDIT+4*, MARK+3*
DR EDIT+1!, EDIT+6*, EDIT+7*, PAT+3*
DT START+8, MARKT+4
>> DTOUT EDIT+1, EDIT+6, PAT+1, PAT+4
>> DUOUT EDIT+1, PAT+1
DUZ MARK+7
IO START+1
IO("Q" REP+3
IOF END+3, HDC+2
IOP REP+2!
IOSL START+11, START+14, START+34, START+36
IOST START+3
POP REP+2!
PSSA EDIT+1!, EDIT+2*, EDIT+3, EDIT+4, EDIT+5, EDIT+6, EDIT+7
PSSB END+5!
>> PSSCT START+3*, START+31*, HDC+1, HDC+2*
PSSDUZX MARK+7*, MARKQ!, MARKT+17, MARKT+18
>> PSSDV START+3*, END+1, END+2, HDC+1
PSSHV START+3*, START+31*, END+5!, HDC+2
PSSI START+16!, END+5!, EDIT+1!, EDIT+2*, EDIT+6, EDIT+7, MARKT+8!, MMM!
PSSIEN START+6*, START+7, START+8, START+9, START+13, START+15, START+22, START+28, END+5!, MARKT+1~
, MARKT+2*, MARKT+3, MARKT+4, MARKT+5, MARKT+7, MARKT+12, MARKT+16
PSSINDTE START+8*, START+21, START+27, END+5!, MARKT+1~
PSSIX START+16!, START+24*, START+25, START+26, START+28, END+5!, MARKT+8!, MARKT+14*, MARKT+15, MARKT+16
, MMM!
PSSLINE START+4!*, END+5!, HDC+2
PSSN START+6*, END+5!, EDIT+1!, EDIT+2*, MARKT+1~, MARKT+2*
PSSNM START+33*, START+35, START+37, START+38, END+5!
PSSNODE START+9*, START+10, START+17, START+18, START+23, START+24, END+5!, MARKT+1~, MARKT+5*, MARKT+6
, MARKT+9, MARKT+10, MARKT+13, MARKT+14
PSSO START+16!, END+5!, MARKT+8!, MMM!
PSSONE START+3*, START+12*, START+29, END+5!
PSSOTH PAT+1!, PAT+2*, PATQ!
PSSOUT START+3*, START+6, START+11, START+14, START+29, START+30, START+31, START+33, START+34, START+36
, END+1, END+5!, HDC+1*
PSSOX START+16!, START+18*, START+19, START+20, START+22, END+5!, MARKT+8!, MARKT+10*, MARKT+11, MARKT+12
, MMM!
PSSUSE START+15*, START+22, START+28, END+5!, MARKT+7*, MARKT+12, MARKT+16
PSSXTEXT MARKT+19!, MARKT+20!
PSSXTEXT(1 MARKT+19*
PSSXTEXT(2 MARKT+19*
XMDUZ MARKT+18*, MARKT+20!
XMSUB MARKT+18*, MARKT+20!
XMTEXT MARKT+20*!
XMY MARKT+20!
XMY( MARKT+18*
>> Y HDC+1, EDIT+1, EDIT+2, EDIT+6, PAT+1, PAT+3, PAT+4, MARK+3
>> ZTDESC REP+3*, MARK+8*
ZTDTH MARK+8!
>> ZTIO MARK+8*
>> ZTQUEUED END+5, MMM+1
>> ZTREQ END+5*, MMM+1*
>> ZTRTN REP+3*, MARK+8*
>> ZTSAVE("PSSDUZX" MARK+8*
>> ZTSK MARK+8
Info |  Source |  Call 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