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

Package: Pharmacy Data Management

Routine: PSSDOSRP


Information

PSSDOSRP ;BIR/RTR-Dosage review report ;03/24/00

Source Information

Source file <PSSDOSRP.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$DT^XLFDT  
VA Fileman 2 C^%DTC  ^DIR  
National Drug File 1 ($$PROD0,$$PSJST)^PSNAPIS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Data Management 1 PSS DOSAGE REVIEW REPORT  

Entry Points

Name Comments DBIA/ICR reference
SETD ;
EN ;
END ;
ENDX
NEWX ;new fields added with patch PSS*1*129
DEV
START ;
ZERO ;Leading zeros
ASKA
PASS ;
ASK ;
NEW ;new fields added with patch PSS*1*129
PARN ;
HD ;
OUT ;

External References

Name Field # of Occurrence
C^%DTC START+3
^%ZIS DEV+5
^%ZISC ENDX+1
^%ZTLOAD DEV+6
^DIR EN+3, ASK+4, ASKA+3, DEV+3, END+1, HD+1
$$PROD0^PSNAPIS NEWX+8
$$PSJST^PSNAPIS SETD+2
$$DT^XLFDT START+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,"To see drugs beginning with the letter 'A', enter 'A', or whichever letter you",!,"wish to see. To see drugs in a range, for example drugs starting with the",!,"letters 'G', 'H', 'I' and 'J', enter in the format 'G-J'.",!
  • Line Location: ASKA+1
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: ASKA+3
Function Call: WRITE
  • Prompt: !!,"Invalid response, enter a letter, 'A', 'B', etc., or a range, 'C-F', 'M-R', etc.",!
  • Line Location: ASKA+4
Function Call: WRITE
  • Prompt: !!,"Invalid response.",!
  • Line Location: ASKA+5
Function Call: WRITE
  • Prompt: !!,"Report will be for drugs starting with the letter "_$G(PSSBEG)_",",!,"and ending with drugs starting with the letter "_$G(PSSEND)_".",!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !!,"This report will be for drugs with leading numerics.",!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,"This report will be for all drugs.",!
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: $C(7),!!?3,"This report is designed for 132 column format!",!
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: DEV+5
Function Call: WRITE
  • Prompt: !,"Report queued to print.",!
  • Line Location: DEV+6
Function Call: WRITE
  • Prompt: ?72,"Inactive Date: "_$G(PSSINAD)
  • Line Location: PASS+14
Function Call: WRITE
  • Prompt: !?12,$G(PSSMSG)
  • Line Location: PASS+16
Function Call: WRITE
  • Prompt: ?43,"Units: "
  • Line Location: PASS+19
Function Call: WRITE
  • Prompt: $G(PSSUNIT)
  • Line Location: PASS+19
Function Call: WRITE
  • Prompt: !
  • Line Location: PASS+20
Function Call: WRITE
  • Prompt: !?4,"Possible Dosages: "
  • Line Location: PASS+23
Function Call: WRITE
  • Prompt: $S($E($G(PSSD),1)=".":"0",1:"")_$G(PSSD)_$G(PSSUNIT)
  • Line Location: PASS+27
Function Call: WRITE
  • Prompt: ?78,"Package: "_$G(PSSE)
  • Line Location: PASS+27
Function Call: WRITE
  • Prompt: $G(PSSCALC),?78,"Package: "_$G(PSSE)
  • Line Location: PASS+28
Function Call: WRITE
  • Prompt: "(None)"
  • Line Location: PASS+30
Function Call: WRITE
  • Prompt: "(None)"
  • Line Location: PASS+36
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: @IOF
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !,$S(PSSSRT="N":"Dosage report for drugs with leading numerics",PSSSRT="A":"Dosage report for all drugs",1:"Dosage report for drugs from "_PSSBEG_" through "_PSSEND)
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: ?94,"Outpatient Expansion",?119,"PAGE: "_$G(PSSCT),!,PSSLINE
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !?6,"Numeric Dose: "_$G(PSSYWNN),?46,"Dose Unit: "_$S($G(PSSYWD):$P($G(^PS(51.24,+PSSYWD,0)),"^"),1:""),?92,"Package: ",$P($G(^PSDRUG(PSSIEN,"DOS2",PSSB,0)),"^",2)
  • Line Location: NEW+5
Function Call: WRITE
  • Prompt: !,?3,"Note: Strength of "_PSSYWFSS_" does not match NDF strength of "_PSSYWNDS_"."
  • Line Location: NEWX+12
Function Call: WRITE
  • Prompt: !?3,"VA PRODUCT MATCH: "_$P(PSSYWNDN,"^")
  • Line Location: NEWX+14
Routine Call
  • DIR
  • Line Location:
    • EN+3
    • ASK+4
    • ASKA+3
    • DEV+3
    • END+1
    • HD+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] OUT+5, OUT+7
^PS(50.607 - [#50.607] PASS+12
^PS(50.7 - [#50.7] OUT+4
^PS(51.24 - [#51.24] NEW+5
^PSDRUG - [#50] PASS+5, PASS+7, PASS+9, PASS+10, PASS+17, PASS+24, PASS+31, PASS+32, PASS+34, SETD+2
, OUT+3, NEW+3, NEW+5, NEWX+3, NEWX+6
^PSDRUG("B" ASK+3, PASS+3, PASS+4

Label References

Name Line Occurrences
ASKA ASKA+4, ASKA+5
DEV EN+6, ASK+7
EN DEV+3
ENDX EN+3, ASK+4, ASKA+3, DEV+5, DEV+6
HD START+6, PASS+6, PASS+15, PASS+18, PASS+22, PASS+25, PASS+33, NEW+1, NEW+6, NEWX+1
, NEWX+13, NEWX+15
NEW PASS+34
NEWX PASS+17, PASS+37
OUT PASS+27, PASS+28
PARN OUT+9
PASS START+7
SETD PASS+28
ZERO PASS+28

Naked Globals

Name Field # of Occurrence
^( PASS+24, OUT+7
^("DOS" PASS+7
^(0 PASS+24, OUT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+5!*, DEV+6!
DIR EN+3!, ASK+1!, ASK+4!, DEV+3!, END+1!, HD+1!
DIR("?" EN+4*, EN+5*, ASK+6*, ASKA+2*
DIR("A" EN+3*, ASK+4*, ASKA+3*, DEV+3*, END+1*, HD+1*
DIR("B" EN+3*, ASK+4*, DEV+3*
DIR(0 EN+3*, ASK+4*, ASKA+3*, DEV+3*, END+1*, HD+1*
DT START+2*, START+3
DTOUT EN+1~, EN+3, ASK+4, ASKA+3
DUOUT EN+1~, EN+3, ASK+4, ASKA+3
IO START+1
IO("Q" DEV+6
IOF END+3, HD+2
IOP DEV+5!
IOSL PASS+6, PASS+15, PASS+18, PASS+22, PASS+25, PASS+33, NEW+1, NEW+6, NEWX+1, NEWX+13
, NEWX+15
IOST START+4
POP EN+1~, DEV+5!
PSSA PASS+23*, PASS+24*, PASS+30, PASS+31*, PASS+32*, PASS+36, ENDX!
PSSAPU PASS+7!, PASS+10*, PASS+21, ENDX!
PSSB PASS+24*, PASS+31*, PASS+32, PASS+34, ENDX!, NEW+3, NEW+5
PSSBEG EN+2!, EN+6*, ASK+1!, ASKA!, ASKA+5*, ASKA+6*, DEV, START+8, ENDX!, HD+2
PSSC PASS+23!, PASS+24*, PASS+26, ENDX!, SETD+4, SETD+5, OUT+9, OUT+10, PARN+6, PARN+7
PSSCALC PASS+28, ENDX!, SETD+1!, SETD+5*, ZERO+1*, ZERO+3, ZERO+5*
PSSCT START+4*, ENDX!, HD+1, HD+3*
PSSD PASS+23!, PASS+24*, PASS+27, ENDX!, SETD+5
PSSDASH SETD+1~, SETD+2*, SETD+4, SETD+5
PSSDASH2 SETD+1~, SETD+4*
PSSDASH3 SETD+1~, SETD+4*
PSSDASH4 SETD+1~, SETD+4*
PSSDASH5 SETD+1~, SETD+4*, SETD+5
PSSDF ENDX!, OUT+1!, OUT+4*, OUT+5, OUT+6, OUT+7, OUT+11!
PSSDFOI ENDX!, OUT+1!, OUT+3*, OUT+4, OUT+11!
PSSDFOIN ENDX!, OUT+1!, OUT+5*, OUT+8, OUT+11!
PSSDV START+4*, END+1, END+2, ENDX!, HD+1
PSSDZ ENDX!, OUT+7!*, OUT+8*, OUT+10, OUT+11!, PARN+2, PARN+3, PARN+4, PARN+6, PARN+7
PSSDZN OUT+10, OUT+11!, PARN+1!, PARN+6*, PARN+7*
PSSDZNX OUT+11!, PARN+1!, PARN+4*, PARN+5, PARN+7
PSSDZZ ENDX!, OUT+1!, OUT+7*, OUT+11!
PSSE PASS+23!, PASS+24*, PASS+27, PASS+28, ENDX!, OUT+2
PSSEND EN+2!, EN+6*, ASK+1!, ASKA!, ASKA+5*, ASKA+6*, DEV, PASS+1*, PASS+2*, PASS+3
, ENDX!, HD+2
PSSHOW EN+2!, EN+6*, ENDX!
PSSIEN PASS+4*, PASS+5, PASS+7, PASS+9, PASS+10, PASS+14, PASS+17, PASS+24, PASS+31, PASS+32
, PASS+34, ENDX!, SETD+2, OUT+3, NEW+3, NEW+5, NEWX+3, NEWX+6
PSSINA PASS+7!*, PASS+8, PASS+11, ENDX!
PSSINAD PASS+7!, PASS+11*, PASS+14, ENDX!
PSSLEZ ZERO+2~, ZERO+4*, ZERO+5
PSSLEZ1 ZERO+2~, ZERO+4*, ZERO+5
PSSLEZD ZERO+2~, ZERO+3*, ZERO+4
PSSLINE START+5!*, ENDX!, HD+3
PSSMSG PASS+9*, PASS+16, ENDX!
PSSNAME START+9*, PASS+1*, PASS+2*, PASS+3*, PASS+4, PASS+14, ENDX!
PSSNDFS SETD+1~, SETD+2*, SETD+4
PSSNF PASS+7!*, PASS+14, ENDX!
PSSNODE PASS+7*, PASS+12, PASS+13, ENDX!
PSSNUMB ASK+2*, ASK+3*, ASK+8!, ENDX!
PSSNUMBX ASK+1!, ASK+3*, ASK+4, ASK+7, ASK+8!, ENDX!
PSSOUT START+4*, PASS+3, PASS+4, PASS+6, PASS+15, PASS+18, PASS+22, PASS+24, PASS+25, PASS+29
, PASS+31, PASS+33, PASS+35, END+1, ENDX!, HD+1*, NEW+1, NEW+6, NEWX+1, NEWX+13
, NEWX+15
PSSSRT EN+2!, EN+6*, ASK+7*, ASKA+7*, DEV, DEV+1, DEV+2, START+7, PASS+1, PASS+2
, PASS+3, ENDX!, HD+2
PSSSTR PASS+13*, PASS+19, PASS+23, ENDX!, SETD+2, SETD+4
PSSUNIT PASS+7!, PASS+12*, PASS+19, PASS+20, PASS+23, PASS+27, ENDX!, SETD+3
PSSVA SETD+1~, SETD+3*, SETD+5
PSSVA1 SETD+1~, SETD+3*, SETD+5
PSSVB SETD+1~, SETD+3*, SETD+4, SETD+5
PSSVB1 SETD+1~, SETD+3*, SETD+4, SETD+5
PSSX START+8*, START+9, ENDX!
PSSYEAR START+3*, PASS+8, ENDX!
PSSYWD NEW+2~, NEW+3*, NEW+5
PSSYWFS NEWX+2~, NEWX+3*, NEWX+4
PSSYWFSS NEWX+2~, NEWX+4*, NEWX+5, NEWX+11, NEWX+12
PSSYWN NEW+2~, NEW+3*, NEW+4
PSSYWND1 NEWX+2~, NEWX+6*, NEWX+7, NEWX+8
PSSYWND3 NEWX+2~, NEWX+6*, NEWX+7, NEWX+8
PSSYWNDN NEWX+2~, NEWX+8*, NEWX+9, NEWX+14
PSSYWNDS NEWX+2~, NEWX+9*, NEWX+10, NEWX+11, NEWX+12
PSSYWNN NEW+2~, NEW+4*, NEW+5
X ASKA+4*, ASKA+5, ASKA+6, START+3!, ENDX!
X1 START+3*!
X2 START+3*!
Y EN+3, EN+6, ASK+4, ASK+7, ASKA+3, ASKA+4, DEV+3, ENDX!, HD+1
ZTDESC EN+1~, DEV+6*
>> ZTQUEUED ENDX+1
>> ZTREQ ENDX+1*
ZTRTN EN+1~, DEV+6*
ZTSAVE EN+1~
ZTSAVE("PSSBEG" DEV+6*
ZTSAVE("PSSEND" DEV+6*
ZTSAVE("PSSHOW" DEV+6*
ZTSAVE("PSSSRT" DEV+6*
ZTSK EN+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All