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: PSSMATCH

Package: Pharmacy Data Management

Routine: PSSMATCH


Information

PSSMATCH ;BIR/RTR-Reports for Orderable Items ; 09/02/97 8:40

Source Information

Source file <PSSMATCH.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Pharmacy Data Management 4 (BEG,CANT)^PSSPOIC  (BEG,CANT)^PSSPOIM  RMES^PSSPOIM1  ^PSSSPD  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
PRI
VA
DIR
QUE
END
BEG
PASS
HEAD
ADD ;
ADHEAD
SOL ;
SOLHEAD
CANT ;
SKIP
NO
NOHEAD
ADDCANT ;
HEADA
SOLCANT ;
HEADS
CPK
CPK1

External References

Name Field # of Occurrence
^%ZIS QUE
^%ZISC END
^%ZTLOAD QUE+2
^DIR DIR+1, CPK
BEG^PSSPOIC PASS
CANT^PSSPOIC SKIP
BEG^PSSPOIM PASS
CANT^PSSPOIM SKIP
RMES^PSSPOIM1 DIR+5
^PSSSPD BEG+2, CANT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"These reports are based on creating your Orderable Item file by Primary Name,",!,"then by VA Generic Name."
  • Line Location: PRI+0
Function Call: WRITE
  • Prompt: !,"There reports are based on creating your Orderable Item File by VA Generic Name."
  • Line Location: VA+0
Function Call: WRITE
  • Prompt: $C(7),!!,"**WARNING** THIS REPORT MAY BE VERY LONG!"
  • Line Location: DIR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: $C(7),!?5,"This report must be QUEUED to a printer, enter Q at Device prompt!",!
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PASS+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,?2,"ORDERABLE ITEMS - MATCHES BY VA GENERIC NAME ONLY PAGE ",PAGE
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,?2,"ORDERABLE ITEMS - MATCHES BY PRIMARY NAME THEN VA GENERIC NAME PAGE ",PAGE,!?4,"(PRIMARY DRUG) IN PARENTHESIS"
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !!,ZZZ
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !!,ZZZ," (cont.)"
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,AAA," ",SITEADD,!?3,PSODD," ",DOSEFORM,!,LINE
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ADD+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ADHEAD+0
Function Call: WRITE
  • Prompt: !?2,"ORDERABLE ITEM (ADDITIVE) IV FLAG",?69,"PAGE ",PAGE,!," DISPENSE DRUG DOSE FORM",!,LINE
  • Line Location: ADHEAD+0
Function Call: WRITE
  • Prompt: !?2,FFF," ",$P($G(^PS(52.7,+^TMP("PSSOL",$J,FFF,ZZZ,WWW),0)),"^",3)
  • Line Location: SOL+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SOL+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SOLHEAD+0
Function Call: WRITE
  • Prompt: !?2,"ORDERABLE ITEM (SOLUTION) DOSE FORM",?69,"PAGE ",PAGE,!," SOLUTION VOLUME",!,LINE
  • Line Location: SOLHEAD+0
Function Call: WRITE
  • Prompt: !!,FFF," ",ZZZ
  • Line Location: SOLHEAD+1
Function Call: WRITE
  • Prompt: !!,FFF," ",ZZZ," (cont.)"
  • Line Location: SOLHEAD+2
Function Call: WRITE
  • Prompt: !,EEE,?43,REASON
  • Line Location: NO+1
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: NO+1
Function Call: WRITE
  • Prompt: !?3,^(TTT)
  • Line Location: NO+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NO+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NOHEAD+0
Function Call: WRITE
  • Prompt: !,?2,$S($G(VAONLY):"ORDERABLE ITEMS - VA GENERIC NAME ONLY, CAN'T MATCH",1:"ORDERABLE ITEMS - PRIMARY NAME THEN VA GENERIC NAME, CAN'T MATCH"),?69,"PAGE ",PAGE,!,LINE
  • Line Location: NOHEAD+0
Function Call: WRITE
  • Prompt: !,EEE,?43,REASON
  • Line Location: NOHEAD+1
Function Call: WRITE
  • Prompt: !,ANM,?43,$G(REASON),!,LINE
  • Line Location: ADDCANT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ADDCANT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADA+0
Function Call: WRITE
  • Prompt: !?2,"ORDERABLE ITEMS - ADDITIVES THAT CANNOT AUTO MATCH",?69,"PAGE ",PAGE,!,LINE
  • Line Location: HEADA+0
Function Call: WRITE
  • Prompt: !,ANM,?43,AVL,!?5,$G(REASON),!,LINE
  • Line Location: SOLCANT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SOLCANT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADS+0
Function Call: WRITE
  • Prompt: !?2,"ORDERABLE ITEMS - SOLUTIONS THAT CANNOT AUTO MATCH",?69,"PAGE ",PAGE,!,LINE
  • Line Location: HEADS+0
Function Call: WRITE
  • Prompt: !!,"The Orderable Item auto-create has already run to completion!",!
  • Line Location: CPK+0
Routine Call
  • %ZIS
  • Line Location:
    • QUE
Routine Call
  • DIR
  • Line Location:
    • DIR+1
    • CPK

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.6 - [#52.6] ADDCANT+3
^PS(52.7 - [#52.7] SOL+4, SOLCANT+3
^PS(59.7 - [#59.7] BEG, CPK
^PSDRUG("B" ADDCANT+2, SOLCANT+2
^TMP("PSS" END!, BEG+2!, CANT+1!
^TMP("PSSADD" END!, BEG+2!, BEG+3!, ADD+2, ADDCANT+2
^TMP("PSSD" END!, BEG+2!, BEG+3!, PASS+5, PASS+6, CANT+1!, NO+1, NO+2
^TMP("PSSOL" END!, BEG+2!, BEG+3!, SOL+2, SOL+3, SOL+4, SOLCANT+2

Label References

Name Line Occurrences
ADD PASS+2
ADDCANT SKIP+2
ADHEAD ADD+1, ADD+3
CANT BEG+1
CPK PRI, VA
CPK1 PRI, VA
DIR PRI
END DIR+2, QUE, PASS+7, NO+3
HEAD PASS+4, PASS+5, PASS+6
HEADA ADDCANT+1, ADDCANT+2
HEADS SOLCANT+1, SOLCANT+2
NOHEAD NO, NO+1, NO+2
PASS BEG+2
QUE QUE+1
SOL PASS+3
SOLCANT SKIP+3
SOLHEAD SOL+1, SOL+3, SOL+4

Naked Globals

Name Field # of Occurrence
^( PASS+6, ADD+2, NO+1, NO+2, ADDCANT+2, SOLCANT+2
^(31 BEG

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS QUE!*
%ZIS("B" QUE*
AAA END!, ADD+2*, ADD+3
ANM END!, ADDCANT+2*, ADDCANT+3*, SOLCANT+2*, SOLCANT+3*
AVL END!, SOLCANT+2, SOLCANT+3*
BBB END!, ADDCANT+2*
DIR DIR!, DIR+1!, END!, CPK!
DIR("A" DIR*, DIR+1*, CPK*
DIR(0 DIR*, CPK*
DOSEFORM END!, ADD+2*, ADD+3
>> DTOUT DIR+2
>> DUOUT DIR+2
EEE END!, NO+1*, NO+2, NOHEAD+1
>> FFF SOL+2*, SOL+3, SOL+4, SOLHEAD+1, SOLHEAD+2
GFLAG END!, PASS+1*, PASS+6*, HEAD+5, HEAD+6*, SOL+1*, SOL+4*, SOLHEAD+2, SOLHEAD+3*, SKIP+1*
GGG END!, PASS+5*, PASS+6
IO("Q" QUE+1, QUE+2!
IOF PASS+7, HEAD, ADD+4, ADHEAD, SOL+5, SOLHEAD, NO+3, NOHEAD, ADDCANT+4, HEADA
, SOLCANT+4, HEADS
IOP QUE!
IOSL PASS+5, PASS+6, ADD+3, SOL+3, SOL+4, NO+1, NO+2, ADDCANT+2, SOLCANT+2
IOST QUE+1
LINE END!, PASS+1!*, PASS+5, HEAD+3, ADD+3, ADHEAD, SOL+3, SOLHEAD, SKIP+1!*, NO+1
, NOHEAD, ADDCANT+2, HEADA, SOLCANT+2, HEADS
LLL END!, SOLCANT+2*
PAGE END!, PASS+1*, PASS+4*, HEAD+1, HEAD+2, HEAD+3*, ADHEAD*, SOL+1*, SOLHEAD*, SKIP+1*
, NO*, NOHEAD*, HEADA*, SOLCANT+1*, HEADS*
>> POP QUE
PSMATCH DIR+3*, END!, BEG+1
PSODD END!, ADD+2*, ADD+3
PSOIV END!
PSOLU END!
>> PSSITE CPK*
PSSITEQT PRI, VA, CPK*, CPK1!
REASON END!, NO+1*, NOHEAD+1, ADDCANT+2*, SOLCANT+2*
>> SITEADD BEG*, ADD+3
SSITE BEG*!
SSS END!
TTT END!, NO+2*
VAONLY PRI*, VA*, END!, BEG+2, PASS, HEAD+1, HEAD+2, CANT+1, SKIP, NOHEAD
VARONE END!
VARTWO END!, ADD+2*
>> WWW SOL+3*, SOL+4
>> Y DIR+2, DIR+3
ZFLAG END!, PASS+1*, PASS+5*, HEAD+4, SOL+1*, SOL+3*, SOLHEAD+1, SKIP+1*, NO+2*, NOHEAD+1*
>> ZTDESC QUE+2*
>> ZTQUEUED END
>> ZTREQ END*
>> ZTRTN QUE+2*
>> ZTSAVE("PSMATCH" QUE+2*
>> ZTSAVE("VAONLY" QUE+2*
ZTSK QUE!
ZZZ END!, PASS+5*, PASS+6, HEAD+4, HEAD+5, SOL+2*, SOL+3, SOL+4, SOLHEAD+1, SOLHEAD+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All