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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSSTRENG

Package: Pharmacy Data Management

Routine: PSSTRENG


Information

PSSTRENG ;BIR/RTR-Mismatch Strength Report ;06/28/07

Source Information

Source file <PSSTRENG.m>

Call Graph

Call Graph

Call Graph Total: 6

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

Entry Points

Name Comments DBIA/ICR reference
EN ;
DEV ;
START ;
PASS ;
END ;
ENDX
HD ;
SETD ;
OUT ;
PARN ;
ZERO ;Leading zeros

External References

Name Field # of Occurrence
C^%DTC START+4
^%ZIS DEV+7
^%ZISC ENDX
^%ZTLOAD DEV+8
^DIR DEV+7, DEV+8, END+3, HD+1
$$PROD0^PSNAPIS PASS+10
$$PSJST^PSNAPIS SETD+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report will print Dosage information for all entries in the DRUG (#50)",!,"File that have a different Strength than what is in the VA PRODUCT (#50.68)"
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !,"File match. If these drugs have Local Possible Dosages, you need to be careful",!,"when populating the new Dose Unit and Numeric Dose fields to be used for Dosage"
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !,"checks, because the Dosage check will be based on the VA Product. This report",!,"can only identify Strength mismatches if the Drug qualifies for Possible"
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !,"Dosages, and a Strength has been defined in the DRUG (#50) File.",!
  • Line Location: DEV+5
Function Call: WRITE
  • Prompt: !?3,"This report is designed for 132 column format!",!
  • Line Location: DEV+6
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: DEV+7
Function Call: WRITE
  • Prompt: !!,"Report queued to print.",!
  • Line Location: DEV+8
Function Call: WRITE
  • Prompt: ?72,"Inactive Date: "_$G(PSSINAD)
  • Line Location: PASS+20
Function Call: WRITE
  • Prompt: !?12,$G(PSSMSG)
  • Line Location: PASS+22
Function Call: WRITE
  • Prompt: $G(PSSUNIT)
  • Line Location: PASS+25
Function Call: WRITE
  • Prompt: !
  • Line Location: PASS+26
Function Call: WRITE
  • Prompt: !?4,"Possible Dosages: "
  • Line Location: PASS+29
Function Call: WRITE
  • Prompt: $S($E($G(PSSD),1)=".":"0",1:"")_$G(PSSD)_$G(PSSUNIT)
  • Line Location: PASS+33
Function Call: WRITE
  • Prompt: ?78,"Package: "_$G(PSSE)
  • Line Location: PASS+33
Function Call: WRITE
  • Prompt: $G(PSSCALC),?78,"Package: "_$G(PSSE)
  • Line Location: PASS+34
Function Call: WRITE
  • Prompt: "(None)"
  • Line Location: PASS+36
Function Call: WRITE
  • Prompt: "(None)"
  • Line Location: PASS+47
Function Call: WRITE
  • Prompt: !,"No mismatches 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: !,"Mismatched Strength Report",?119,"PAGE: "_$G(PSSCT),!,PSSLINE
  • Line Location: HD+3
Routine Call
  • DIR
  • Line Location:
    • DEV+7
    • DEV+8
    • END+3
    • HD+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] OUT+5, OUT+7
^PS(50.607 - [#50.607] PASS+18
^PS(50.7 - [#50.7] OUT+4
^PS(51.24 - [#51.24] PASS+41
^PSDRUG - [#50] PASS+3, PASS+4, PASS+8, PASS+15, PASS+16, PASS+30, PASS+37, PASS+38, PASS+41, PASS+42
, PASS+44, PASS+45, SETD+2, OUT+3
^PSDRUG("B" PASS+1, PASS+2

Label References

Name Line Occurrences
HD START+7, PASS+21, PASS+24, PASS+28, PASS+31, PASS+39, PASS+43, PASS+46, PASS+48, PASS+50
, PASS+52
OUT PASS+33, PASS+34
PARN OUT+9
SETD PASS+34
ZERO PASS+34

Naked Globals

Name Field # of Occurrence
^( PASS+30, OUT+7
^("ND" PASS+8
^(0 PASS+30, OUT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+1~, DEV+7!*, DEV+8!
DIR DEV+1~, DEV+7!, DEV+8!, END+3!, HD+1!
DIR("A" DEV+7*, DEV+8*, END+3*, HD+1*
DIR(0 DEV+7*, DEV+8*, END+3*, HD+1*
DIROUT DEV+1~
DIRUT DEV+1~
DT START+4
DTOUT DEV+1~
DUOUT DEV+1~
IO START+1
IO("Q" DEV+8
IOF END+5, HD+2
IOP DEV+1~, DEV+7!
IOSL PASS+21, PASS+24, PASS+28, PASS+31, PASS+39, PASS+43, PASS+46, PASS+48, PASS+50, PASS+52
IOST START+5
POP DEV+1~, DEV+7!
PSSA START+2~, PASS+29*, PASS+30*, PASS+36, PASS+37*, PASS+38*, PASS+47
PSSAPU START+3~, PASS+4!, PASS+16*, PASS+27
PSSB START+2~, PASS+30*, PASS+37*, PASS+38, PASS+41, PASS+42, PASS+44, PASS+45
PSSC START+2~, PASS+29!, PASS+30*, PASS+32, SETD+4, SETD+5, OUT+9, OUT+10, PARN+6, PARN+7
PSSCALC PASS+34, ENDX!, SETD+1!, SETD+5*, ZERO+1*, ZERO+3, ZERO+5*
PSSCT START+2~, START+5*, HD+1, HD+3*
PSSD START+2~, PASS+29!, PASS+30*, PASS+33, 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+2~, START+5*, END+2, END+3, END+4, HD+1
PSSDZ 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 START+2~, PASS+29!, PASS+30*, PASS+33, PASS+34, OUT+2
PSSFOUND START+3~, START+5*, PASS+14*, END+1
PSSIEN START+2~, PASS+2*, PASS+3, PASS+4, PASS+8, PASS+15, PASS+16, PASS+20, PASS+30, PASS+37
, PASS+38, PASS+41, PASS+42, PASS+44, PASS+45, SETD+2, OUT+3
PSSINA START+2~, PASS+4!*, PASS+17
PSSINAD START+2~, PASS+4!, PASS+17*, PASS+20
PSSLEZ ZERO+2~, ZERO+4*, ZERO+5
PSSLEZ1 ZERO+2~, ZERO+4*, ZERO+5
PSSLEZD ZERO+2~, ZERO+3*, ZERO+4
PSSLINE START+2~, START+6!*, HD+3
PSSMSG START+3~, PASS+4!, PASS+15*, PASS+22
PSSMSXXX START+3~, PASS+4!, PASS+6*, PASS+7, PASS+12, PASS+25, PASS+49
PSSNAME START+2~, PASS+1*, PASS+2, PASS+20
PSSNDFS SETD+1~, SETD+2*, SETD+4
PSSNF START+3~, PASS+4!*, PASS+20
PSSNODE START+3~, PASS+4!*, PASS+6, PASS+18
PSSNWD START+3~, PASS+40!, PASS+41*
PSSNWDN START+3~, PASS+40!, PASS+41*, PASS+45
PSSNWDS START+3~, PASS+40!, PASS+44*
PSSNWDSS START+3~, PASS+40!, PASS+44*, PASS+45
PSSOUT START+2~, START+5*, PASS+1, PASS+2, PASS+21, PASS+24, PASS+28, PASS+30, PASS+31, PASS+35
, PASS+37, PASS+39, PASS+43, PASS+46, PASS+47, PASS+48, PASS+50, PASS+52, END+1, END+3
, HD+1*
PSSSTND1 START+2~, PASS+4!, PASS+8*, PASS+9, PASS+10
PSSSTND3 START+2~, PASS+4!, PASS+8*, PASS+9, PASS+10
PSSSTNDS START+2~, PASS+4!, PASS+10*, PASS+11, PASS+12, PASS+49
PSSSTNDZ START+2~, PASS+4!, PASS+10*, PASS+51
PSSSTR START+3~, PASS+4!, PASS+6*, SETD+2, SETD+4
PSSUNIT START+3~, PASS+4!, PASS+18*, PASS+25, PASS+26, PASS+33, 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
PSSYEAR START+2~, START+4*
X DEV+1~, START+2~, START+4!
X1 START+2~, START+4*!
X2 START+2~, START+4*!
Y DEV+1~, START+3~, HD+1
ZTDESC DEV+1~, DEV+8*
>> ZTQUEUED ENDX
>> ZTREQ ENDX*
ZTRTN DEV+1~, DEV+8*
ZTSK DEV+1~
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All