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

Package: Inpatient Medications

Routine: PSGDCC


Information

PSGDCC ;BIR/CML3-CHANGE DRUG COST DATA IN 57.6 ;14 JUL 94 / 9:16 AM

Source Information

Source file <PSGDCC.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 ^%DT  (C,NOW)^%DTC  ^DIC  ^DIR  
Inpatient Medications 3 ^PSGDCCM  $$ENDTC^PSGMI  (ENCV,ENKV)^PSGSETU  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Data Management 1 PSSJU DCC  

Entry Points

Name Comments DBIA/ICR reference
DELDC ;
DTM ;
CHG ;
DELM ;
DELOUT ;
DONE ;
NCM ;
ENDEL ; delete cost data (completely!)
DT ;
C1 ;

External References

Name Field # of Occurrence
^%DT DT+1, ENDEL+2
C^%DTC CHG+2
NOW^%DTC CHG+1
^DIC PSGDCC+4
^DIR PSGDCC+6
^PSGDCCM CHG+4
$$ENDTC^PSGMI ENDEL+2
ENCV^PSGSETU PSGDCC+3
ENKV^PSGSETU DONE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No drug chosen, or change made."
  • Line Location: PSGDCC+4
Function Call: WRITE
  • Prompt: !,"No new cost entered. No changes made."
  • Line Location: PSGDCC+7
Function Call: WRITE
  • Prompt: !!," Enter the new cost (Price Per Dispense Unit) for the drug chosen. The cost",!,"entered here will be used in resetting the data in the cost stats file.",!,"The cost entered may be a decimal value with no trailing zeros."
  • Line Location: NCM+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: !!,"Enter ",M," DATE: "
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: X="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: !?2,M," DATE NOT ENTERED. CHANGE TERMINATED."
  • Line Location: DT+2
Function Call: WRITE
  • Prompt: !!," Enter the ",$S(M="STOP":"stop",1:"start")," date of the range of dates over which the cost data is to be",!,"changed. The start and stop dates may be the same day, effectively creating a one day change,"
  • Line Location: DTM+1
Function Call: WRITE
  • Prompt: " but the stop date may not come before the start date.",!," Time is not entered.",!
  • Line Location: DTM+2
Function Call: WRITE
  • Prompt: $C(7),!!,"NO COST DATA FOUND TO DELETE."
  • Line Location: ENDEL+1
Function Call: READ
  • Prompt: "Enter LIMIT DATE: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: ENDEL+2
Function Call: WRITE
  • Prompt: $C(7),$C(7),!,"No data found prior to date chosen!"
  • Condition for execution: Y'>0 !?2,"No date chosen, or data deleted." I Y>0 W !,"...a few moments, please..." D DELDC W:'H
  • Line Location: ENDEL+3
Function Call: WRITE
  • Prompt: !!?2,"ALL cost data for doses dispensed on or before the date selected will be",!,"completely deleted from the computer. The earliest date found is ",PSGOD,".",!!,"WARNING!! THIS DATA CANNOT BE REBUILT OR RECOMPILED!",!
  • Line Location: DELM+1
Routine Call
  • DIC
  • Line Location:
    • PSGDCC+4
Routine Call
  • DIR
  • Line Location:
    • PSGDCC+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(57.6 - [#57.6] CHG+1, CHG+2, CHG+3, CHG+4*, C1+2*, ENDEL+1, DELDC+1, DELDC+2
^PSDRUG - [#50] PSGDCC+5, CHG+3

Label References

Name Line Occurrences
C1 CHG+2
DELDC ENDEL+3
DELM ENDEL+2
DELOUT ENDEL+1
DONE PSGDCC+4, PSGDCC+7, PSGDCC+9
DT PSGDCC+9
DTM DT+1

Naked Globals

Name Field # of Occurrence
^( DELDC+1!, DELDC+2!
^(0 CHG+2, CHG+3
^(660 PSGDCC+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % CHG+1
%DT PSGDCC+4!, DT+1*, DT+2!, ENDEL+2!*, DELOUT+1!
%DT(0 DT+1*
CC PSGDCC+5*, DONE+1!
DIC PSGDCC+4!*
DIC("A" PSGDCC+4*
DIC(0 PSGDCC+4*
DIR PSGDCC+6!
DIR("?" PSGDCC+6*
DIR("A" PSGDCC+6*
DIR(0 PSGDCC+6*
>> DIRUT PSGDCC+7
DRG PSGDCC+5*, CHG+2, CHG+3, CHG+4, DONE+1!, C1+2
DRGN PSGDCC+5*, DONE+1!
DTIME DT+1, ENDEL+2
DUZ CHG+4
>> F DELDC+1*
FD CHG+2, CHG+4, DONE+1!
>> H ENDEL+3, DELDC+1*
M PSGDCC+9*, DONE+1!, DT+1, DT+2, DT+3, DTM+1
NC PSGDCC+8*, CHG+4, DONE+1!, C1+2
OLD CHG+2*, DONE+1!, C1+1, C1+2
OLDC DONE+1!, C1+1*, C1+2
P CHG+2*, DONE+1!, C1+2
>> PSGDT CHG+1*, CHG+3, CHG+4, C1+2
PSGID ENDEL+1*, ENDEL+2, DELOUT+1!
PSGOD ENDEL+2*, DELOUT+1!, DELM+1
Q DELOUT+1!, DELDC+2*
SD CHG+2*, DONE+1!, C1+2
SD1 CHG+2, CHG+4, DONE+1!, DT+1
W CHG+2*, DONE+1!, C1+2
X CHG+2, DT+1*, ENDEL+2*, DELOUT+1!, DELDC+1*, DELDC+2*
>> X1 CHG+2*
>> X2 CHG+2*
XCNP DONE+1!
XMZ DONE+1!
>> XQUIT PSGDCC+3
Y PSGDCC+4, PSGDCC+5, PSGDCC+8, PSGDCC+9, DT+1*, DT+2, DT+3, ENDEL+2*, ENDEL+3, DELOUT+1!
, DELDC+1, DELDC+2
Y(0 PSGDCC+5
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