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

Package: Outpatient Pharmacy

Routine: PSOMLLD2


Information

PSOMLLD2 ;BIR/LE - Service Connection Check for SC>50% ;02/27/04

Source Information

Source file <PSOMLLD2.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Registration 2 ($$GETSHAD,GETSHAD)^DGUTL3  (ELIG,KVAR)^VADPT  
Outpatient Pharmacy 1 MESS^PSOMLLDT  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Outpatient Pharmacy 5 PSOCPB  PSONEW2  PSONEWF  PSONEWG  PSORN52  

Entry Points

Name Comments DBIA/ICR reference
SC ;This routine is used for SC>50% - OUTSIDE OF COPAY - DFN AND PSOSCP VARIABLES ARE EXPECTED TO BE PRESENT WHEN CALLED
; Requires: DFN, PSOSCP, PSOSCA
SC2
EXIT ;
PAUSE
SHAD ; PROJ 112/SHAD Question
CHKPAG ;
DISSCD ;DISPLAY SERVICE CONNECTED DISABILITIES - REPLACES CALL TO DIS^SDROUT2
DISQ

External References

Name Field # of Occurrence
$$GETSHAD^DGUTL3 SHAD+1
GETSHAD^DGUTL3 SHAD+1
^DIR SC2+18, SC2+24, PAUSE, SHAD+17, DISSCD+14
MESS^PSOMLLDT SHAD+24
ELIG^VADPT DISSCD+7
KVAR^VADPT DISQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The Pharmacy Orderable Item has changed for this order. Please review any",!,"existing SC or Environmental Indicator defaults carefully for appropriateness.",!
  • Line Location: SC2+0
Function Call: WRITE
  • Prompt: !!,"The Pharmacy Orderable Item has changed for this order. Please review any",!,"existing SC or Environmental Indicator defaults carefully for appropriateness.",!
  • Line Location: SC2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SC2+18
Function Call: WRITE
  • Prompt: !
  • Line Location: SC2+24
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SHAD+17
Function Call: WRITE
  • Prompt: !
  • Line Location: SHAD+18
Function Call: WRITE
  • Prompt: !!,"This Renewal has been designated as"_$S($G(PSOUFLAG)="YES":"",1:" NOT")_" being used for treatment of "
  • Line Location: SHAD+23
Function Call: WRITE
  • Prompt: !,"Shipboard Hazard and Defense (SHAD) exposure."
  • Line Location: SHAD+24
Function Call: WRITE
  • Prompt: "DRUG: "_$S($G(PSODRUG("TRADE NAME"))]"":PSODRUG("TRADE NAME"),1:$G(PSODRUG("NAME")))
  • Line Location: DISSCD+8
Function Call: WRITE
  • Prompt: !," Disabilities: "
  • Line Location: DISSCD+10
Function Call: WRITE
  • Prompt: "NOT A VETERAN"
  • Line Location: DISSCD+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISSCD+14
Function Call: WRITE
  • Prompt: "DRUG: "_$S($G(PSODRUG("TRADE NAME"))]"":PSODRUG("TRADE NAME"),1:$G(PSODRUG("NAME"))),!
  • Line Location: DISSCD+15
Routine Call
  • DIR
  • Line Location:
    • SC2+18
    • SC2+24
    • PAUSE
    • SHAD+17
    • DISSCD+14

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(391 - [#391] DISSCD+10
^DIC(31 - [#31] CHKPAG+4
^DPT - [#2] CHKPAG+2, CHKPAG+3, CHKPAG+6

Label References

Name Line Occurrences
CHKPAG SC2+2
DISQ DISSCD+10
DISSCD SC2+2
EXIT SC2+28
PAUSE SHAD+24

Naked Globals

Name Field # of Occurrence
^(0 CHKPAG+4, DISSCD+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN SC+2~*, CHKPAG+2, CHKPAG+3, CHKPAG+6
DGKVAR DISSCD+7*, DISQ!
DIR SC2+3!, SC2+18!, SC2+24!, EXIT+1!, PAUSE!, SHAD+4!, SHAD+17!
DIR("?" SC2+5*, SHAD+6*, SHAD+7*, SHAD+8*, SHAD+9*, SHAD+10*
DIR("A" SC2+4*, SC2+24*, PAUSE*, SHAD+5*, DISSCD+14*
DIR("B" SC2+7*!, SC2+8*!, SC2+9*!, SC2+10!, SC2+11*, SC2+12*, SC2+13*, SC2+15*, SC2+16, SC2+17!
, SHAD+12*, SHAD+13!, SHAD+16*
DIR(0 SC2+3*, SC2+24*, PAUSE*, SHAD+4*, DISSCD+14*
DIRUT EXIT+1!
DTOUT SC2+22, EXIT+1!, SHAD+19, SHAD+22
DUOUT SC2+22, EXIT+1!, SHAD+19, SHAD+22
I CHKPAG+2*, CHKPAG+3, CHKPAG+5, DISSCD+11*, DISSCD+12, DISSCD+15, DISQ!
I1 CHKPAG+3*, CHKPAG+4, CHKPAG+5, CHKPAG+8!
I2 CHKPAG+4*, CHKPAG+5, CHKPAG+8!
I3 CHKPAG+2*, CHKPAG+5*, CHKPAG+6, CHKPAG+7, CHKPAG+8!
IOF DISSCD+14
IOSL DISSCD+13
>> PSOANSQ( SC2+20*, SHAD+2!, SHAD+25*, SHAD+26*
>> PSOANSQ("SC>50" SC2+21*, SC2+27*
>> PSOANSQ("SHAD" SHAD+2!, SHAD+20*, SHAD+27*
>> PSOANSQD("SC" SC2+10, SC2+12
>> PSOANSQD("SC>50" SC2+10, SC2+11, SC2+15, SC2+19*
>> PSOANSQD("SHAD" SHAD+2!, SHAD+15, SHAD+16, SHAD+21*
PSOANSR SC2+24*, SC2+29, EXIT+1!
>> PSOCPAY SC2+24*, SC2+29*
>> PSOCPZ("DFLG" SC2+22*, SC2+28, SHAD+19*
>> PSODFN SC+2, SHAD+1
PSODISAR SC2+2~, CHKPAG+1!, CHKPAG+7*
PSODISAR( CHKPAG+5*, DISSCD+11, DISSCD+12, DISSCD+15
PSODISAR(0 DISSCD+8
PSODISAR(1 CHKPAG+6*
>> PSODRUG("NAME" DISSCD+8, DISSCD+15
>> PSODRUG("TRAD E NAME" , DISSCD+8, DISSCD+15
>> PSOFLAG SC2+6, SC2+15, SC2+19, SC2+22, SC2+24, SC2+28, SHAD+11, SHAD+14, SHAD+18
>> PSOMESFI SC2+1*
>> PSOMESOI SC2*
>> PSONEWFF SC2+15, SC2+19, SHAD+14, SHAD+21
>> PSORENW("OIRXN" SC2+7, SC2+8, SC2+9, SC2+13, SHAD+12
>> PSORX( SC2+7, SC2+8, SC2+9, SC2+13, SHAD+12
>> PSORX("SC" SC2+13
>> PSORXED SC2
PSOSCA EXIT+1!
>> PSOSCP SC2+7, SC2+8, SC2+9, SHAD+24
PSOSPACE CHKPAG+1~*, CHKPAG+5
PSOUFLAG SC2+3~*, SC2+7*, SC2+8*, SC2+9*, SC2+10*, SC2+11*, SC2+12*, SC2+16*, SC2+24, SC2+25
, SC2+27, SHAD+3~*, SHAD+12*, SHAD+13*, SHAD+23, SHAD+25
>> PSOX("IRXN" SC2+20, SHAD+2, SHAD+25, SHAD+26
>> VAEL DISSCD+7
>> VAEL(3 DISSCD+9
>> VAEL(4 DISSCD+10
>> VAEL(6 DISSCD+10
X EXIT+1!
Y SC2+19, SC2+20, SC2+21, SC2+22, SC2+23*, SC2+24, EXIT+1!, SHAD+19, SHAD+20, SHAD+21
, SHAD+22, SHAD+26, SHAD+27

Marked Items

Name Field # of Occurrence
$T(GETSHAD^DGUTL3 SHAD+1
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