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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSSLDOSE

Package: Pharmacy Data Management

Routine: PSSLDOSE


Information

PSSLDOSE ;BIR/RTR-Local Possible Dosages Report ;06/22/07

Source Information

Source file <PSSLDOSE.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
National Drug File 1 ($$DFSU,$$OVRIDE,$$PROD0,OVRIDE)^PSNAPIS  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Data Management 1 PSS LOCAL POSSIBLE DOSAGES  

Entry Points

Name Comments DBIA/ICR reference
EN ;
END ;
MESS ;
START ;Print Local Possible Dosages Report
TEST() ;Test to see if Drug meets criteria
HD ;Report Header

External References

Name Field # of Occurrence
^%ZIS EN+18
^%ZISC END+7
^%ZTLOAD EN+19
^DIR EN+14, EN+15, EN+18, EN+20, END+3, HD+1
$$DFSU^PSNAPIS TEST+9
$$OVRIDE^PSNAPIS TEST+6
$$PROD0^PSNAPIS START+51
OVRIDE^PSNAPIS TEST+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report will print Local Possible Dosage information only for Drugs for"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"which Dosage Checks can be performed. Drugs that are inactive, marked and/or"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"classed as supply items, not matched to NDF or excluded from dosage checks (due"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"to dosage form or VA Product override) will not be included in this report."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"Users will be able to print Local Possible Dosage information for all eligible"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"drugs or only for drugs with missing data in the Numeric Dose and Dose Unit"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"fields. These two fields must be populated to perform Dosage Checks for a Local"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"Possible Dosage selected when placing a Pharmacy order."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"This report is designed for 132 column format!",!
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !!,"Report queued to print.",!
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !?12,PSSKZMSG
  • Line Location: START+26
Function Call: WRITE
  • Prompt: $G(PSSKZUNZ)
  • Line Location: START+28
Function Call: WRITE
  • Prompt: !
  • Line Location: START+29
Function Call: WRITE
  • Prompt: "(None)"
  • Line Location: START+47
Function Call: WRITE
  • Prompt: !?3,"Note: Strength of "_PSSKZSTR_" does not match NDF strength of "_PSSKZNN2_"."
  • Line Location: START+53
Function Call: WRITE
  • Prompt: !!,"No local possible dosage missing data found.",!
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"End of Report.",!
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !!,"End of Report."
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !
  • Line Location: END+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !,"Local Possible Dosages Report (All)"
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"Local Possible Dosages Report (Missing Data Only)"
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: ?118,"PAGE: "_PSSKZCT,!,PSSKZLIN,!
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: MESS+1
Routine Call
  • DIR
  • Line Location:
    • EN+14
    • EN+15
    • EN+18
    • EN+20
    • END+3
    • HD+1
Routine Call
  • %ZIS
  • Line Location:
    • EN+18

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] TEST+11, TEST+12, TEST+13
^PS(50.607 - [#50.607] START+12
^PS(50.7 - [#50.7] TEST+10
^PS(51.24 - [#51.24] START+44
^PSDRUG - [#50] START+9, START+10, START+14, START+15, START+18, START+20, START+21, START+33, START+34, TEST+3
, TEST+10
^PSDRUG("B" START+7

Label References

Name Line Occurrences
$$TEST START+16
HD START+6, START+25, START+27, START+32, START+38, START+40, START+45, START+48, START+54, START+56
MESS EN+14, EN+15, EN+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+9~, EN+18!*, EN+19!
DIR EN+9~, EN+10!, EN+14!, EN+15!, EN+18!, EN+20!, END+3!, HD+1!
DIR("?" EN+11*, EN+12*, EN+13*
DIR("A" EN+10*, EN+14*, EN+15*, EN+18*, EN+20*, END+3*, HD+1*
DIR("B" EN+10*
DIR(0 EN+10*, EN+14*, EN+15*, EN+18*, EN+20*, END+3*, HD+1*
DIROUT EN+9~
DIRUT EN+9~
DT TEST+3
DTOUT EN+9~, EN+14
DUOUT EN+9~, EN+14
IO START+1
IO("Q" EN+19
IOF END+5, HD+2
IOP EN+9~, EN+18!
IOSL START+25, START+27, START+32, START+38, START+40, START+45, START+48, START+54, START+56
IOST START+4
POP EN+9~, EN+18!
PSSKZ1 START+3~, START+8!, START+33*, START+34
PSSKZ2 START+3~, START+8!, START+34*, START+35, START+36, START+39, START+42, START+44
PSSKZ3 START+3~, START+8!, START+33*, START+37*, START+47
PSSKZAPU START+3~, START+8!, START+14*, START+31
PSSKZCT START+2~, START+4*, HD+1, HD+5*
PSSKZDAT START+2~, START+8!, START+18*, START+19
PSSKZDEV START+2~, START+4*, END+2, END+3, END+4, HD+1
PSSKZDF START+2~, START+8!, TEST+8!, TEST+9*, TEST+10*, TEST+11, TEST+12, TEST+13
PSSKZDOV TEST+4~, TEST+5*, TEST+6*, TEST+11, TEST+12, TEST+13
PSSKZDT1 START+2~, START+8!, START+20*, START+21*, START+22
PSSKZIEN START+2~, START+7*, START+9, START+10, START+14, START+15, START+18, START+20, START+21, START+24
, START+33, START+34, TEST+3, TEST+10
PSSKZLD5 START+3~, START+41!, START+42*, START+44
PSSKZLD6 START+3~, START+41!, START+42*, START+43
PSSKZLD7 START+3~, START+41!, START+43*, START+44
PSSKZLIN START+2~, START+5!*, HD+5
PSSKZLIP START+2~, START+8!, START+18*
PSSKZLP1 START+2~, START+8!, START+20*, START+21
PSSKZMSG START+3~, START+8!, START+13*, START+26
PSSKZND1 START+2~, START+8!, START+15*, START+50, START+51, TEST+2, TEST+6, TEST+9
PSSKZND3 START+2~, START+8!, START+15*, START+50, START+51, TEST+2, TEST+6, TEST+9
PSSKZNDF START+2~, START+8!, TEST+9*
PSSKZNFL START+3~, START+8!, START+13*, START+24
PSSKZNM START+2~, START+7*
PSSKZNN1 START+3~, START+49!, START+51*, START+52, START+55
PSSKZNN2 START+3~, START+49!, START+52*, START+53
PSSKZNOF START+2~, START+4*, START+23*, END+1
PSSKZOK START+2~, START+8!, START+16*, START+17
PSSKZOUT START+2~, START+4*, START+7, START+25, START+27, START+32, START+33, START+38, START+40, START+45
, START+46, START+48, START+54, START+56, END+1, END+3, HD+1*
PSSKZSTR START+3~, START+8!, START+10*, START+11*, START+28, START+53
PSSKZTPE EN+9~, EN+16*, START+20, START+22, START+36, END+1, END+6!, HD+3, HD+4
PSSKZUNT START+3~, START+8!, START+10*, START+12
PSSKZUNZ START+3~, START+8!, START+12*, START+28, START+29
PSSKZZR START+2~, START+8!, START+9*, START+13, START+24, TEST+7
X EN+9~
Y EN+9~, EN+15, EN+16, HD+1!
ZTDESC EN+9~, EN+19*
>> ZTQUEUED END+7
>> ZTREQ END+7*
ZTRTN EN+9~, EN+19*
ZTSAVE EN+9~
ZTSAVE("PSSKZTPE" EN+19*
ZTSK EN+9~

Marked Items

Name Field # of Occurrence
$T(OVRIDE^PSNAPIS TEST+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All