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

Package: Outpatient Pharmacy

Routine: PSOPTPST


Information

PSOPTPST ;BIR/DSD - Post Patient Selection Action ;07/25/96

Source Information

Source file <PSOPTPST.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Registration 5 $$CVEDT^DGCV  $$GETSTAT^DGMSTAPI  ($$GETCUR,GETCUR)^DGNTAPI  ($$GETSHAD,GETSHAD)^DGUTL3  ADD^VADPT  
Outpatient Pharmacy 2 RE^PSODEM  $$DT^PSOMLLDT  
VA FileMan 2 EN^DIQ1  ^DIR  
Integrated Billing 1 XTYPE^IBARX  
Kernel 1 ^%ZTLOAD  
Scheduling 1 ($$AO,$$EC,$$IR)^SDCO22  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Outpatient Pharmacy 9 PSOATRF  PSOATRFC  PSOBBC  PSOERXU6  PSOREF0  PSORENW0  PSORX1  PSORXEDT  
PSOTPRX1  

Entry Points

Name Comments DBIA/ICR reference
START
END
GET
DEAD ;
INP
TPB ;
CNH
ELIG
COPAY
COPAY1
COPAYX
ADDRESS
REMARKS
DIR
EOJ
QST ;Ask new questions for Copay

External References

Name Field # of Occurrence
^%ZTLOAD DEAD+4
$$CVEDT^DGCV QST+5
$$GETSTAT^DGMSTAPI QST+10
$$GETCUR^DGNTAPI QST+11
GETCUR^DGNTAPI QST+11
$$GETSHAD^DGUTL3 QST+9
GETSHAD^DGUTL3 QST+9
EN^DIQ1 GET+1
^DIR DIR+1
XTYPE^IBARX COPAY
RE^PSODEM ELIG+1
$$DT^PSOMLLDT QST+1
$$AO^SDCO22 QST+6
$$EC^SDCO22 QST+8
$$IR^SDCO22 QST+7
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),"Patient is an Inpatient on Ward "_PSOPTPST(2,PSODFN,.1)_" !!"
  • Line Location: INP+1
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: !
  • Line Location: DIR+0
Routine Call
  • DIR
  • Line Location:
    • DIR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DEAD+1, INP, 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+9, REMARKS
^PS(59 - [#59] COPAY

Label References

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

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~*!
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
DTOUT DIR+2!
DUOUT DIR+2!
DUZ DEAD+4
DUZ("AG" START+7
III COPAY1*, COPAYX!
IOM REMARKS+1
>> 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+9, GET, DEAD+1, DEAD+3, INP, INP+1, TPB+2, TPB+3, TPB+4, TPB+6
, TPB+7, CNH, CNH+1, CNH+2, ELIG, ELIG+1, COPAY, ADDRESS, REMARKS, QST+3
, QST+4, QST+5, QST+6, QST+7, QST+8, QST+9, QST+10, QST+11
>> PSOFIN INP, TPB+5, TPB+7, TPB+8
>> PSOFROM("PTLKUP" START+3
PSOI ADDRESS!, REMARKS+1*, REMARKS+2!
PSOIBQS QST+2!
PSOIBQS( QST+3*, QST+4*, QST+5*, QST+6*, QST+7*, QST+8*, QST+9*, QST+10*, QST+11*
PSONCP QST+11~
PSONCP("IND" QST+11
PSONCPX QST+11~*
PSOPTIB COPAY*, COPAY+1!, COPAYX!
PSOPTPST EOJ!
PSOPTPST(2 DEAD+1, DEAD+3, INP, INP+1, TPB+7, CNH, CNH+2, ELIG
>> PSOQFLG START*, START+2, START+4, START+5, DEAD+1*, CNH+2, COPAY+1*, DIR+2*, EOJ
>> PSORX("CNH" CNH+2!*, EOJ!
>> PSORX("NAME" DEAD+1, INP, CNH+1
>> PSOSITE COPAY
PSOTPSSN TPB+1~, TPB+4*, TPB+6, TPB+7
PSOX REMARKS*, REMARKS+1, REMARKS+2!
>> PSOXFLG INP*
SSN DEAD+1*, INP*!, CNH+1*!
VAPA EOJ!
X COPAY*, COPAYX!, DIR+2!
Y COPAY+4, COPAYX!, 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+11
$T(GETSHAD^DGUTL3 QST+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All