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 |  Marked Items |  All
Print Page as PDF
Routine: PSOPTPST

Package: Outpatient Pharmacy

Routine: PSOPTPST


Information

PSOPTPST ;BIR/DSD - Post Patient Selection Action ;27-Aug-2013 14:35;DU

Source Information

Source file <PSOPTPST.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Registration 4 $$GETSTAT^DGMSTAPI  ($$GETCUR,GETCUR)^DGNTAPI  ($$GETSHAD,GETSHAD)^DGUTL3  ADD^VADPT  
VA Fileman 3 $$GET1^DIQ  EN^DIQ1  ^DIR  
Kernel 2 ENDR^%ZISS  ^%ZTLOAD  
Outpatient Pharmacy 2 RE^PSODEM  $$DT^PSOMLLDT  
IHS Changes To Pharmacy 1 ($$GP,$$MCD,$$MCR,$$PIN)^APSQPINS  
Integrated Billing 1 XTYPE^IBARX  
Scheduling 1 ($$AO,$$EC,$$IR)^SDCO22  

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Outpatient Pharmacy 8 PSOATRF  PSOATRFC  PSOBBC  PSOREF0  PSORENW0  PSORX1  PSORXEDT  PSOTPRX1  
IHS Changes To Pharmacy 1 APSPCO  
IHS View Patient Record 1 BVPRX  

Entry Points

Name Comments DBIA/ICR reference
ELIG
END
TPB ;
GET
COPAY
CAP ; IHS/CIA/PLS - 01/06/04 - Display Safety Status for Bottles
INP ;I '$G(PSOXFLG),'$G(PSOFIN),$G(PSOPTPST(2,PSODFN,.1))]"" S PSOXFLG=1,SSN=$P(^DPT(PSODFN,0),"^",9) W !!?10,$C(7),PSORX("NAME")_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_")" K SSN
DEAD ;
START
COPAY1
EOJ
DIR
ADDRESS
REMARKS
INSUR ; IHS/CIA/PLS - 01/06/04 - Display Insurance Information
COPAYX
QST ;Ask new questions for Copay
CNH

External References

Name Field # of Occurrence
ENDR^%ZISS INSUR+2, CAP+3
^%ZTLOAD DEAD+4
$$GP^APSQPINS INSUR+4, INSUR+8
$$MCD^APSQPINS INSUR+3, INSUR+4
$$MCR^APSQPINS INSUR+6
$$PIN^APSQPINS INSUR+10, INSUR+11
$$GETSTAT^DGMSTAPI QST+11
$$GETCUR^DGNTAPI QST+12
GETCUR^DGNTAPI QST+12
$$GETSHAD^DGUTL3 QST+10
GETSHAD^DGUTL3 QST+10
$$GET1^DIQ INSUR+8, CAP+2
EN^DIQ1 GET+1
^DIR DIR+1
XTYPE^IBARX COPAY
RE^PSODEM ELIG+1
$$DT^PSOMLLDT QST+1
$$AO^SDCO22 QST+7
$$EC^SDCO22 QST+9
$$IR^SDCO22 QST+8
ADD^VADPT ADDRESS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?10,$C(7),PSORX("NAME")_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_") DIED "_PSOPTPST(2,PSODFN,.351),!
  • Line Location: DEAD+1
Function Call: WRITE
  • Prompt: !!?10,$C(7),PSORX("NAME")_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_")"
  • Line Location: INP+0
Function Call: WRITE
  • Prompt: !!?10,$C(7),PSORX("NAME")_" (XXX-XX-"_$E(SSN,6,9)_")"
  • Line Location: INP+1
Function Call: WRITE
  • Prompt: !?10,$C(7),"Patient is an Inpatient on Ward "_PSOPTPST(2,PSODFN,.1)_" !!"
  • Line Location: INP+2
Function Call: WRITE
  • Prompt: !!?10,$C(7),$P($G(^DPT(PSODFN,0)),"^")_" ("_$E(PSOTPSSN,1,3)_"-"_$E(PSOTPSSN,4,5)_"-"_$E(PSOTPSSN,6,9)_")"
  • Line Location: TPB+6
Function Call: WRITE
  • Prompt: !!?10,$C(7),$P($G(^DPT(PSODFN,0)),"^")_" ("_$E(PSOTPSSN,1,3)_"-"_$E(PSOTPSSN,4,5)_"-"_$E(PSOTPSSN,6,9)_")"
  • Line Location: TPB+7
Function Call: WRITE
  • Prompt: !
  • Line Location: TPB+8
Function Call: WRITE
  • Prompt: !!?10,$C(7),PSORX("NAME")_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_")"
  • Line Location: CNH+1
Function Call: WRITE
  • Prompt: !,"MAS Eligibility: "_PSOPTPST(2,PSODFN,.361)
  • Line Location: ELIG+0
Function Call: WRITE
  • Prompt: !,"ERROR IN COPAY ELIGIBILITY ENCOUNTERED."
  • Line Location: COPAY+4
Function Call: WRITE
  • Prompt: !!,?5
  • Line Location: REMARKS+0
Function Call: WRITE
  • Prompt: !?5
  • Condition for execution: $X+$L($P(PSOX," ",PSOI))+$L(" ")>IOM
  • Line Location: REMARKS+1
Function Call: WRITE
  • Prompt: $P(PSOX," ",PSOI)_" "
  • Line Location: REMARKS+1
Function Call: WRITE
  • Prompt: *7," "
  • Line Location: INSUR+5
Function Call: WRITE
  • Prompt: *7," "
  • Line Location: INSUR+9
Function Call: WRITE
  • Prompt: *7," "
  • Line Location: INSUR+12
Function Call: WRITE
  • Prompt: ?($X+2),"CAP STATUS: ",$S(Y=0:"SAFETY CAPS OK",Y=1:IORVON_"NON SAFETY CAPS REQUESTED"_IORVOFF,1:"UNKNOWN STATUS")
  • Line Location: CAP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DIR+0
Routine Call
  • DIR
  • Line Location:
    • DIR+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(55 - [#55] GET1^DIQ
^AUTNINS - [#9999999.18] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DEAD+1, INP+1, TPB+4, TPB+6, TPB+7, CNH+1
^IBE(350.1 - [#350.1] COPAY+1
^PS(52.91 - [#52.91] TPB+3
^PS(55 - [#55] START+12, REMARKS
^PS(59 - [#59] COPAY

Label References

Name Line Occurrences
ADDRESS START+11
CAP START+7
CNH START+8
COPAY START+10
COPAY1 COPAY1+1
COPAYX COPAY+4, COPAY1
DEAD START+3
DIR INP+2, TPB+9, CNH+2
ELIG START+9
END START+1, START+3, START+4, START+5, START+8
EOJ END
GET START+2
INP START+5
INSUR START+6
QST COPAYX+2
REMARKS START+12

Naked Globals

Name Field # of Occurrence
^(0 TPB+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACOM DEAD+3*, DEAD+4!
ACTYP COPAY+4*, COPAY1*, COPAYX!
BL COPAY+4*, COPAY1*, COPAYX!
DA GET*, GET+1!, ADDRESS*!
DFN ELIG+1*, COPAY*, ADDRESS~*!, INSUR+3, INSUR+4, INSUR+6, INSUR+10, INSUR+11
DIC GET!*, GET+1!
DIQ GET!*, GET+1!
DIR DIR!, DIR+1!
DIR("A" DIR+1*
DIR("B" DIR+1*
DIR(0 DIR+1*
DIRUT DIR+2!
DR GET!*, GET+1!, ADDRESS!
DT TPB+3, INSUR+3, INSUR+4, INSUR+6, INSUR+10, INSUR+11
DTOUT DIR+2!
DUOUT DIR+2!
DUZ DEAD+4
DUZ("AG" START+10
>> I INSUR+5*, INSUR+9*, INSUR+12*
III COPAY1*, COPAYX!
IOBOFF INSUR+1~, INSUR+4, INSUR+8, INSUR+11
IOBON INSUR+1~, INSUR+4, INSUR+8, INSUR+11
IOM REMARKS+1
IORVOFF INSUR+1~, INSUR+4, INSUR+8, INSUR+11, CAP+1~, CAP+4
IORVON INSUR+1~, INSUR+4, INSUR+8, INSUR+11, CAP+1~, CAP+4
MCR INSUR+1~, INSUR+6*, INSUR+7, INSUR+8
>> MEDP TPB+5, TPB+6, TPB+8, CNH
>> POERR DEAD+1
>> POERR("DEAD" DEAD+1*
PSOBILL COPAY!, COPAY+4*, COPAY1*, QST+3
>> PSOCLC DEAD+4*
PSOCPAY COPAY!, COPAY+4*, COPAY1*
PSODEATH DEAD+1*, DEAD+4!
>> PSODFN START+1, START+12, GET, DEAD+1, DEAD+3, INP+1, INP+2, TPB+2, TPB+3, TPB+4
, TPB+6, TPB+7, CNH, CNH+1, CNH+2, ELIG, ELIG+1, COPAY, ADDRESS, REMARKS
, INSUR+3, INSUR+4, INSUR+6, INSUR+10, INSUR+11, CAP+2, QST+3, QST+4, QST+7, QST+8
, QST+9, QST+10, QST+11, QST+12
>> PSOFIN INP+1, TPB+5, TPB+7, TPB+8
>> PSOFROM("PTLKUP" START+4
PSOI ADDRESS!, REMARKS+1*, REMARKS+2!
PSOIBQS QST+2!
PSOIBQS( QST+3*, QST+4*, QST+7*, QST+8*, QST+9*, QST+10*, QST+11*, QST+12*
PSONCP QST+12~
PSONCP("IND" QST+12
PSONCPX QST+12~*
PSOPTIB COPAY*, COPAY+1!, COPAYX!
PSOPTPST EOJ!
PSOPTPST(2 DEAD+1, DEAD+3, INP+1, INP+2, TPB+7, CNH, CNH+2, ELIG
>> PSOQFLG START*, START+3, START+5, START+8, DEAD+1*, CNH+2, COPAY+1*, DIR+2*, EOJ
>> PSORX("CNH" CNH+2!*, EOJ!
>> PSORX("NAME" DEAD+1, INP+1, CNH+1
>> PSOSITE COPAY
PSOTPSSN TPB+1~, TPB+4*, TPB+6, TPB+7
PSOX REMARKS*, REMARKS+1, REMARKS+2!
>> PSOXFLG INP+1*
SSN DEAD+1*, INP+1*!, CNH+1*!
U INSUR+8
VAPA EOJ!
X COPAY*, COPAYX!, INSUR+2*, CAP+1~, CAP+3*, DIR+2!
Y COPAY+4, COPAYX!, CAP+1~, CAP+2*, CAP+3, CAP+4, DIR+2!
Y( COPAY1
>> ZTDESC DEAD+3*
>> ZTDTH DEAD+4*
>> ZTIO DEAD+4*
>> ZTRTN DEAD+3*
>> ZTSAVE("ACOM" DEAD+3*
>> ZTSAVE("PSOCLC" DEAD+4*
>> ZTSAVE("PSODEATH" DEAD+3*
>> ZTSAVE("PSODFN" DEAD+3*
ZTSK DEAD+4!

Marked Items

Name Field # of Occurrence
$T(GETCUR^DGNTAPI QST+12
$T(GETSHAD^DGUTL3 QST+10
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 |  Marked Items |  All