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 |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSOMLLDT

Package: Outpatient Pharmacy

Routine: PSOMLLDT


Information

PSOMLLDT ;BIR/RTR - Copay date routine ;29-May-2012 14:54;PLS

Source Information

Source file <PSOMLLDT.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Registration 3 $$CVEDT^DGCV  $$GETSTAT^DGMSTAPI  ($$GETCUR,GETCUR)^DGNTAPI  
Kernel 1 $$DT^XLFDT  
Scheduling 1 ($$AO,$$EC,$$IR)^SDCO22  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Outpatient Pharmacy 9 PSOCP  PSOHLSN2  PSOMLLD2  PSONEW2  PSONEWF  PSONEWG  PSOPTPST  PSORENW1  
PSORN52  

Entry Points

Name Comments DBIA/ICR reference
RAD ;Radiation question
PAUSE ;
MESS ;
MST ;Military Sexual Trauma Question
MESSM ;
HNC ;Head or Neck Cancer question
DT() ;function for Copay date
PGW ;Persian Gulf War question
MESSV ;
CV ; Combat Veteran Question
VEH ;Vietnam-Era Herbicide Question

External References

Name Field # of Occurrence
$$CVEDT^DGCV CV+1
$$GETSTAT^DGMSTAPI MST+1
$$GETCUR^DGNTAPI HNC+1
GETCUR^DGNTAPI HNC+1
^DIR MST+10, VEH+10, RAD+10, PGW+11, HNC+10, CV+18, PAUSE+1
$$AO^SDCO22 VEH+1
$$EC^SDCO22 PGW+1
$$IR^SDCO22 RAD+1
$$DT^XLFDT DT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MST+10
Function Call: WRITE
  • Prompt: !
  • Line Location: MST+11
Function Call: WRITE
  • Prompt: !!,"This Renewal has been designated as"_$S($G(PSOUFLAG)="YES":"",1:" NOT")_" being used for treatment of Military",!,"Sexual Trauma."
  • Line Location: MST+15
Function Call: WRITE
  • Prompt: !
  • Line Location: VEH+10
Function Call: WRITE
  • Prompt: !
  • Line Location: VEH+11
Function Call: WRITE
  • Prompt: !!,"This Renewal has been designated as"_$S($G(PSOUFLAG)="YES":"",1:" NOT")_" being used for treatment of Vietnam-Era",!,"Herbicide (Agent Orange) exposure."
  • Line Location: VEH+15
Function Call: WRITE
  • Prompt: !
  • Line Location: RAD+10
Function Call: WRITE
  • Prompt: !
  • Line Location: RAD+11
Function Call: WRITE
  • Prompt: !!,"This Renewal has been designated as"_$S($G(PSOUFLAG)="YES":"",1:" NOT")_" being used for treatment of ionizing",!,"radiation exposure."
  • Line Location: RAD+15
Function Call: WRITE
  • Prompt: !
  • Line Location: PGW+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PGW+12
Function Call: WRITE
  • Prompt: !!,"This Renewal has been designated as"_$S($G(PSOUFLAG)="YES":"",1:" NOT")_" being used for treatment of",!,"Southwest Asia Conditions exposure."
  • Line Location: PGW+16
Function Call: WRITE
  • Prompt: !
  • Line Location: HNC+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HNC+11
Function Call: WRITE
  • Prompt: !!,"This Renewal has been designated as"_$S($G(PSOUFLAG)="YES":"",1:" NOT")_" being used for treatment related to",!,"Head and/or Neck Cancer."
  • Line Location: HNC+15
Function Call: WRITE
  • Prompt: !
  • Line Location: CV+18
Function Call: WRITE
  • Prompt: !
  • Line Location: CV+19
Function Call: WRITE
  • Prompt: !!,"This Renewal has been designated as"_$S($G(PSOUFLAG)="YES":"",1:" NOT")_" being used for treatment of military"
  • Line Location: CV+24
Function Call: WRITE
  • Prompt: !,"combat service."
  • Line Location: CV+25
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !,"Please use the 'Reset Copay Status/Cancel Charges' option to make corrections.",!
  • Line Location: MESS+2
Function Call: WRITE
  • Prompt: " Please use the 'Reset Copay Status/Cancel Charges' option",!,"to make corrections.",!
  • Line Location: MESSM+2
Function Call: WRITE
  • Prompt: " Please use the 'Reset Copay Status/Cancel",!,"Charges' option to make corrections.",!
  • Line Location: MESSV+2
Routine Call
  • DIR
  • Line Location:
    • MST+10
    • VEH+10
    • RAD+10
    • PGW+11
    • HNC+10
    • CV+18
    • PAUSE+1

Label References

Name Line Occurrences
MESS PGW+16
MESSM MST+15, RAD+15, CV+25
MESSV VEH+15, HNC+15
PAUSE MST+15, VEH+15, RAD+15, PGW+16, HNC+15, CV+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR MST+4!, MST+10!, VEH+4!, VEH+10!, RAD+4!, RAD+10!, PGW+4!, PGW+11!, HNC+4!, HNC+10!
, CV+4!, CV+18!, PAUSE+1!
DIR("?" MST+6*, MST+7*, VEH+6*, VEH+7*, RAD+6*, RAD+7*, PGW+6*, PGW+7*, PGW+8*, HNC+6*
, HNC+7*, CV+6*, CV+7*, CV+8*, CV+9*, CV+10*
DIR("A" MST+5*, VEH+5*, RAD+5*, PGW+5*, HNC+5*, CV+5*, PAUSE+1*
DIR("B" MST+8*!, MST+9*, VEH+8*!, VEH+9*, RAD+8*!, RAD+9*, PGW+9*!, PGW+10*, HNC+8*!, HNC+9*
, CV+11*, CV+13*, CV+14*, CV+17*
DIR(0 MST+4*, VEH+4*, RAD+4*, PGW+4*, HNC+4*, CV+4*, PAUSE+1*
DT DT+5*, DT+6
>> DTOUT MST+12, MST+15, VEH+12, VEH+15, RAD+12, RAD+15, PGW+13, PGW+16, HNC+12, HNC+15
, CV+20, CV+23
>> DUOUT MST+12, MST+15, VEH+12, VEH+15, RAD+12, RAD+15, PGW+13, PGW+16, HNC+12, HNC+15
, CV+20, CV+23
>> PSOANSQ( MST+2!, MST+16*, MST+17*, VEH+2!, VEH+16*, VEH+17*, RAD+2!, RAD+16*, RAD+17*, PGW+2!
, PGW+17*, PGW+18*, HNC+2!, HNC+16*, HNC+17*, CV+2!, CV+26*, CV+27*
>> PSOANSQ("CV" CV+2!, CV+21*, CV+28*
>> PSOANSQ("HNC" HNC+2!, HNC+13*, HNC+18*
>> PSOANSQ("MST" MST+2!, MST+13*, MST+18*
>> PSOANSQ("PGW" PGW+2!, PGW+14*, PGW+19*
>> PSOANSQ("RAD" RAD+2!, RAD+13*, RAD+18*
>> PSOANSQ("VEH" VEH+2!, VEH+13*, VEH+18*
>> PSOANSQD("CV" CV+2!, CV+16, CV+17, CV+22*
>> PSOANSQD("HNC" HNC+2!, HNC+9, HNC+14*
>> PSOANSQD("MST" MST+2!, MST+9, MST+14*
>> PSOANSQD("PGW" PGW+2!, PGW+10, PGW+15*
>> PSOANSQD("RAD" RAD+2!, RAD+9, RAD+14*
>> PSOANSQD("VEH" VEH+2!, VEH+9, VEH+14*
>> PSOCPZ("DFLG" MST+12*, VEH+12*, RAD+12*, PGW+13*, HNC+12*, CV+20*
>> PSODFN MST+1, VEH+1, RAD+1, PGW+1, HNC+1, CV+1
>> PSODRUG("DEA" MESS+1, MESSM+1, MESSV+1
>> PSOFLAG MST+8, MST+9, MST+11, VEH+8, VEH+9, VEH+11, RAD+8, RAD+9, RAD+11, PGW+9
, PGW+10, PGW+12, HNC+8, HNC+9, HNC+11, CV+12, CV+15, CV+19
PSOMILDT DT+3~, DT+4*, DT+6
PSONCP HNC+1~
PSONCP("IND" HNC+1
PSONCPX HNC+1~*
>> PSONEWFF MST+9, MST+14, VEH+9, VEH+14, RAD+9, RAD+14, PGW+10, PGW+15, HNC+9, HNC+14
, CV+15, CV+22
>> PSORENW("OIRXN" MST+8, VEH+8, RAD+8, PGW+9, HNC+8, CV+13
>> PSORX( MST+8, VEH+8, RAD+8, PGW+9, HNC+8, CV+13
>> PSOSCP MST+15, VEH+15, RAD+15, PGW+16, HNC+15, CV+25
PSOUFLAG MST+3~*, MST+8*, MST+15, MST+16, VEH+3~*, VEH+8*, VEH+15, VEH+16, RAD+3~*, RAD+8*
, RAD+15, RAD+16, PGW+3~*, PGW+9*, PGW+16, PGW+17, HNC+3~*, HNC+8*, HNC+15, HNC+16
, CV+3~*, CV+13*, CV+14*, CV+24, CV+26
>> PSOX("IRXN" MST+2, MST+16, MST+17, VEH+2, VEH+16, VEH+17, RAD+2, RAD+16, RAD+17, PGW+2
, PGW+17, PGW+18, HNC+2, HNC+16, HNC+17, CV+2, CV+26, CV+27
>> Y MST+12, MST+13, MST+14, MST+15, MST+17, MST+18, VEH+12, VEH+13, VEH+14, VEH+15
, VEH+17, VEH+18, RAD+12, RAD+13, RAD+14, RAD+15, RAD+17, RAD+18, PGW+13, PGW+14
, PGW+15, PGW+16, PGW+18, PGW+19, HNC+12, HNC+13, HNC+14, HNC+15, HNC+17, HNC+18
, CV+20, CV+21, CV+22, CV+23, CV+27, CV+28

Marked Items

Name Field # of Occurrence
$T(GETCUR^DGNTAPI HNC+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  Marked Items |  All