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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOSDP

Package: Outpatient Pharmacy

Routine: PSOSDP


Information

PSOSDP ;BHAM ISC/SAB - poly pharmacy report attached to action/info profile ;12/13/93 8:24

Source Information

Source file <PSOSDP.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Outpatient Pharmacy 5 (,EXIT)^PSOSD  (CHECKBAI,DAYS,ELIG)^PSOSD1  CLIN1^PSOSDRAP  FSIG^PSOUTLA  EN3^PSOUTLA1  
VA FileMan 4 ^%DT  C^%DTC  ^DIC  DT^DIO2  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 2 (ADD,DEM,INP,KVA,PID)^VADPT  $$SITE^VASITE  
General Medical Record - Vitals 1 EN6^GMRVUTL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Outpatient Pharmacy 3 PSOSD  PSOSD0  PSOSD2  

Entry Points

Name Comments DBIA/ICR reference
COS
EN ;
FT
SIG
CLSG ;clinic group sort and print
EXIT
HD

External References

Name Field # of Occurrence
^%DT CLSG+5, CLSG+14
C^%DTC CLSG+6
^%ZIS CLSG+10
^%ZISC EN+4
^%ZTLOAD CLSG+16
^DIC CLSG+2
DT^DIO2 HD+3, HD+5
EN6^GMRVUTL HD+13
^PSOSD EXIT+4
EXIT^PSOSD CLSG+2, CLSG+5, EXIT+3
CHECKBAI^PSOSD1 HD+8
DAYS^PSOSD1 CLSG+6
ELIG^PSOSD1 HD+1
CLIN1^PSOSDRAP EN+3
FSIG^PSOUTLA SIG
EN3^PSOUTLA1 SIG+1
ADD^VADPT HD+1
DEM^VADPT HD+1
INP^VADPT HD+1
KVA^VADPT EXIT+3
PID^VADPT HD+1
$$SITE^VASITE HD+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?10,"* "_$E(DRG,1,40),?52
  • Line Location: PSOSDP+6
Function Call: WRITE
  • Prompt: $G(BSIG(1)),?79,"*"
  • Line Location: PSOSDP+6
Function Call: WRITE
  • Prompt: !?10,"*",?52,$G(BSIG(PSREV)),?79,"*"
  • Line Location: PSOSDP+7
Function Call: WRITE
  • Prompt: @IOF,!,"Polypharmacy Rx Profile Review",?47,"Run Date: "
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: ?71,"Page: "_PAGE
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !?1,"Clinic: ",$E(CLINICX,1,28),?45,"Date/Time: "
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !?1,"Name : ",PSNAME,?30
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: ?58,"Review Date: ________"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: ?58,"Review Date: ________"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: ?30,ADDRFL,!
  • Condition for execution: ADDRFL]""
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: ?30,"Address :"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: ?41,VAPA(1)
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !?41,VAPA(2)
  • Condition for execution: VAPA(2)]""
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !?41,VAPA(3)
  • Condition for execution: VAPA(3)]""
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !?41,VAPA(4)_", "_$P(VAPA(5),"^",2)_" "_VAPA(6),!?30,"Phone : "_VAPA(8)
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: @PSOBAR3,X2,@PSOBAR2,$C(13)
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: !?1,"WEIGHT(Kg): "
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: $P(WT,"^",9)_" ("_$P(WT,"^")_")"
  • Condition for execution: +$P(WT,"^",8)
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: ?41,"HEIGHT(cm): "
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: $P(HT,"^",9)_" ("_$P(HT,"^")_")"
  • Condition for execution: $P(HT,"^",8)
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: "*"
  • Line Location: HD+16
Function Call: WRITE
  • Prompt: !?10,"*",?35,"POLYPHARMACY REVIEW",?79,"*",!?10,"*",?79,"*",!?10,"* Patient: "_PSNAME,?50,"(ID#: "_VA("BID")_")",?79,"*"
  • Line Location: HD+17
Function Call: WRITE
  • Prompt: !?10,"* is identified as having "_PSONUM_" or more active prescriptions",?79,"*",!?10,"* for drugs (excluding supplies). To avoid unnecessary",?79,"*"
  • Line Location: HD+18
Function Call: WRITE
  • Prompt: !?10,"* medications, please review these to ensure that each one",?79,"*",!?10,"* is essential. Unnecessary medications may be discontinued on",?79,"*"
  • Line Location: HD+19
Function Call: WRITE
  • Prompt: !?10,"* the attached Action Profile.",?79,"*",!?10,"*",?79,"*",!?10,"* I have reviewed the medications below and have taken",?79,"*",!?10,"* actions to discontinue those that are no longer required.",?79,"*"
  • Line Location: HD+20
Function Call: WRITE
  • Prompt: !?10,"*",?79,"*"
  • Line Location: HD+21
Function Call: WRITE
  • Prompt: !?10,"*",?25
  • Line Location: HD+22
Function Call: WRITE
  • Prompt: "_"
  • Line Location: HD+22
Function Call: WRITE
  • Prompt: ?79,"*",!?10,"*",?25,"(Signature)",?79,"*"
  • Line Location: HD+23
Function Call: WRITE
  • Prompt: !?10,"*",?79,"*"
  • Line Location: HD+23
Function Call: WRITE
  • Prompt: !?10,"*",?25,"Drugs ("_^TMP($J,DFN)_")",?60,"SIG",?79,"*"
  • Line Location: HD+24
Function Call: WRITE
  • Prompt: !?10,"* "
  • Line Location: HD+25
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HD+25
Function Call: WRITE
  • Prompt: ?52
  • Line Location: HD+26
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HD+26
Function Call: WRITE
  • Prompt: ?79,"*"
  • Line Location: HD+27
Function Call: WRITE
  • Prompt: !?10
  • Line Location: FT+0
Function Call: WRITE
  • Prompt: "*"
  • Line Location: FT+0
Function Call: WRITE
  • Prompt: !!,$C(7),"There are no clinics defined for this Clinic Group!",!,$C(7)
  • Line Location: CLSG+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CLSG+13
Function Call: WRITE
  • Prompt: !,"Report Queued to Print !!",!!
  • Condition for execution: $D(ZTSK)
  • Line Location: CLSG+13
Function Call: WRITE
  • Prompt: !
  • Line Location: CLSG+14
Function Call: WRITE
  • Prompt: !?99,"COSIGNER: "_$P($G(^VA(200,$P(^PSRX(J,3),"^",3),0)),"^")
  • Line Location: COS+0
Routine Call
  • DIC
  • Line Location:
    • CLSG+2
Routine Call
  • %ZIS
  • Line Location:
    • CLSG+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(59.8 - [#59.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(59.8 - [#59.8] CLSG+4, EN+3
^PSRX - [#52] PSOSDP+4, PSOSDP+6, SIG, SIG+1, COS
^TMP($J PSOSDP+3, PSOSDP+4, HD+24
^VA(200 - [#200] COS

Label References

Name Line Occurrences
CLSG CLSG+2, CLSG+4, CLSG+5
EXIT CLSG+6, CLSG+10, CLSG+13
FT PSOSDP+5, PSOSDP+7, PSOSDP+9
HD PSOSDP+3, PSOSDP+5, PSOSDP+7
SIG PSOSDP+6

Naked Globals

Name Field # of Occurrence
^(2 PSOSDP+4
^(3 PSOSDP+4, COS

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT CLSG+5*, CLSG+7!, CLSG+14*
%DT("A" CLSG+5*, CLSG+14*
%DT("B" CLSG+14*
%DT(0 CLSG+14*
%ZIS CLSG+7!*
%ZIS("A" CLSG+7*
%ZIS("B" CLSG+7*
%ZIS("S" CLSG+8*
ADDRFL HD+1*, HD+7, HD+8, EXIT!
>> ALL EN+1*
APCLDT CLSG+5*, EN+3, EXIT+3!
>> APIFLDS EN+1*
APQUE EXIT+2!
APRT CLSG+11*, CLSG+16, EXIT+2!
APTM CLSG+14*, CLSG+16, EXIT+2!
BSIG PSOSDP+8!, SIG!
BSIG( PSOSDP+7, SIG*
BSIG(1 PSOSDP+6, PSOSDP+7
CAN EXIT!
CLDT HD+5, CLSG+5*, EN+3*, EXIT!
CLINICX HD+5, EXIT!
CLN EN+2*, EN+3*, EXIT+2!
CLSG CLSG+3*, CLSG+4, EN+3, EXIT!
CLSP CLSG+1*, EXIT!
CNT EXIT!
CS EXIT!
DFN PSOSDP+3, PSOSDP+4, HD, HD+24, EXIT!
>> DIC CLSG+2*
>> DIC("A" CLSG+1*
>> DIC(0 CLSG+2*
DIR CLSG+12!
DIRUT CLSG+6, CLSG+12!, CLSG+14
>> DOD( PSOSDP+3
DQTIME EXIT+2!
>> DRG PSOSDP+3*, PSOSDP+4*, PSOSDP+6
DT HD+3, CLSG+6
DTOUT CLSG+12!
F EXIT+2!
>> FN HD*
>> FR EN+3*
FSIG SIG!, SIG+1!
FSIG( SIG
G CLSG+15*, EXIT!
>> GMRVSTR HD+13*
HT HD+14*, HD+15!
>> I HD+16*, HD+21*, HD+22*, HD+23*, HD+25*, HD+26*, FT*
IO("Q" CLSG+13
IOF HD+3
IOM HD+4, HD+16
ION CLSG+7, CLSG+11
IOP CLSG+7!, CLSG+10*
IOSL PSOSDP+5, PSOSDP+7
>> J COS
>> LINE HD+4, HD+16, CLSG+5*
O EXIT+2!
>> P PSOSDP+3*, PSOSDP+4*, PSOSDP+6, SIG, SIG+1
PAGE HD+3*, EXIT!
PCLASS EXIT!
PIIX EXIT+1!
>> POP CLSG+10
PRF EXIT!
PSDATE CLSG+6*, EXIT!
PSDAY EXIT+1!
PSDAYS CLSG+6, EXIT+1!
>> PSDOB HD+2*, HD+6
PSDT EXIT+1!
PSNAME HD+2*, HD+6, HD+17, EXIT+1!
PSOBAR0 HD+10, CLSG+9~
PSOBAR1 HD+10, CLSG+9~
>> PSOBAR2 HD+10*, HD+11, HD+12
>> PSOBAR3 HD+10*, HD+11, HD+12
>> PSOBAR4 HD+11*, HD+12
PSOBARS CLSG+9~
PSOGY PSOSDP+9!
PSOION CLSG+7*, CLSG+10!, EXIT+2!
PSONUM PSOSDP+3, HD+18, EXIT+1!
>> PSOPAR HD+11
>> PSOPOLP PSOSDP+3*
PSORM HD+4, HD+12, HD+16, EXIT+2!
PSOT EN+3*, EXIT+1!
PSOUT EXIT+2!
PSREV PSOSDP+7*, PSOSDP+8!, SIG*, SIG+1!
PSSN HD+1*, HD+12, EXIT+1!
PSTYPE CLSG+6*, CLSG+7, CLSG+8, EXIT+1!
RF EXIT+1!
RFS EXIT+1!
>> RX0 PSOSDP+4*
>> RX2 PSOSDP+4*
>> RX3 PSOSDP+4*
RXNO EXIT+1!
RXNODE EXIT+2!
SGY PSOSDP+3!, PSOSDP+4!
>> SIG PSOSDP+6*
>> TO EN+3*
>> VA("BID" HD+17
>> VA("PID" HD+1
>> VADM(1 HD+2
>> VADM(3 HD+2
>> VAPA(1 HD+9
>> VAPA(2 HD+9
>> VAPA(3 HD+9
>> VAPA(4 HD+9
>> VAPA(5 HD+9
>> VAPA(6 HD+9
>> VAPA(8 HD+9
>> VAPA(9 HD+1
VM HD+13*, HD+15!
W EXIT+2!
WT HD+14*, HD+15!
>> X HD+3*, HD+4, HD+12*, HD+13, HD+14*, CLSG+2, CLSG+5, CLSG+6, CLSG+14
>> X1 HD+12*, CLSG+6*
>> X2 HD+12*, CLSG+6*
>> Y HD+3*, HD+5*, HD+14*, CLSG+2, CLSG+3, CLSG+5, CLSG+14
ZTDESC CLSG+16*, EXIT+2!
>> ZTDTH CLSG+16*
>> ZTIO CLSG+16*
ZTQUEUED CLSG+7!, EXIT+4
>> ZTRTN CLSG+16*
>> ZTSAVE( CLSG+15*
>> ZTSAVE("APCLDT" CLSG+16*
>> ZTSAVE("APRT" CLSG+16*
>> ZTSAVE("ZTREQ" CLSG+16*
ZTSK CLSG+7!, CLSG+13
Info |  Source |  Call Graph |  Caller 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