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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSGAL5

Package: Inpatient Medications

Routine: PSGAL5


Information

PSGAL5 ;BIR/CML3 - ACTIVITY LOGGER ;22 Jan 99 / 8:00 AM

Source Information

Source file <PSGAL5.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 NOW^%DTC  FIELD^DID  
Inpatient Medications 1 ($$DIFFOPI,$$DIFFSI)^PSJBCMA5  

Caller Graph

Caller Graph Total: 54

Package Total Caller Graph
Inpatient Medications 42 ACTIVITY LOG  DISPENSE DRUG  DISPENSE LOG  PSGOE92  PSGOEC  PSGOECS  PSGOEE  PSGOEF1  
PSGOEH0  PSGOEH1  PSGOENG  PSGOER  PSGOERI  PSGOERS  PSGOETO  PSGOEV  
PSGOTR  PSIVOPT1  PSIVORC2  PSJADT0  PSJBCMA2  PSJBCMA4  PSJCLOR2  PSJCOM  
PSJCOMR  PSJHL5  PSJHL6  PSJHL7  PSJHLV  PSJOERI  PSJOREN  PSJXR514  
PSJXR515  PSJXR517  PSJXR518  PSJXR519  PSJXR54  PSJXR55  PSJXR57  PSJXR58  
PSJXR59  UNIT DOSE  
Pharmacy Data Management 8 PSSJXR12  PSSJXR13  PSSJXR14  PSSJXR28  PSSJXR32  PSSJXR33  PSSJXR34  PSSJXR8  
Outpatient Pharmacy 4 ACTIVITY LOG  DISPENSE DRUG  DISPENSE LOG  UNIT DOSE  

Entry Points

Name Comments DBIA/ICR reference
EN ;
DONE ;
PNTR ; find pointer value
KILL ; if user merely reenters same data (tsk, tsk), kill record just written
COMPSI() ; Compare old Special Instructions (long) to new Special Instructions (long)
NEWUDAL(PSGALGP,PSGALORD,PSGALC,PSGFLD,PSGOLD,PSGOLDAR)
NEWNVAL(PSGALORD,PSGALC,PSGFLD,PSGOLD,PSGOLDAR)
KILLNV

External References

Name Field # of Occurrence
NOW^%DTC EN+8, NEWUDAL+12, NEWNVAL+13
FIELD^DID EN+5, EN+6, PNTR+1
$$DIFFOPI^PSJBCMA5 NEWNVAL+20
$$DIFFSI^PSJBCMA5 EN+11, NEWUDAL+17, NEWNVAL+19

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( EN+6, EN+9
^PS(53.1 - [#53.1] NEWNVAL+11, NEWNVAL+17*, NEWNVAL+21*, NEWNVAL+22*, KILLNV+1!
^PS(53.45 - [#53.45] EN+12, COMPSI+3, NEWUDAL+21, NEWUDAL+22, NEWUDAL+23*
^PS(55 - [#55] EN+7, EN+10*, EN+13*, EN+14*, EN+15, EN+16*, KILL+2!, COMPSI+2, COMPSI+3, NEWUDAL+10
, NEWUDAL+16*, NEWUDAL+18*, NEWUDAL+20*, NEWUDAL+22*

Label References

Name Line Occurrences
$$COMPSI KILL+1
PNTR EN+5

Naked Globals

Name Field # of Occurrence
^( EN+7, NEWUDAL+10, NEWNVAL+11
^(0 EN+7*, EN+9, NEWUDAL+10*, NEWNVAL+11*
^(1 NEWNVAL+21*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+8, EN+9, DONE+1, NEWUDAL+12, NEWUDAL+14, NEWNVAL+13, NEWNVAL+15
>> DA EN+2
>> DA( EN+1, EN+2
>> DFN NEWNVAL+19, NEWNVAL+20
DIFF COMPSI+1~, COMPSI+2*, COMPSI+3*, COMPSI+4
DUZ EN+9, COMPSI+1, COMPSI+3, NEWUDAL+14, NEWNVAL+15
FLD EN+5*, EN+6, EN+9, DONE+1!
FN EN+5*, EN+6, EN+9, DONE+1!
LN EN+15~*, EN+16, NEWUDAL+19~*, NEWUDAL+20, NEWUDAL+21~*, NEWUDAL+22, NEWNVAL+22~*
LNCNT NEWNVAL+21~*
OLD EN+5*, EN+6*, EN+9, DONE+1!, PNTR+1*
OLDS EN+6*, DONE+1!
>> PSGAL("C" EN+3*, EN+4*, EN+5, EN+6, EN+9, EN+10, KILL+2, KILLNV+1
>> PSGAL("D" DONE+1*
>> PSGAL("D0" EN+2*, EN+7, EN+10, EN+11, EN+13, EN+14, EN+15, EN+16, KILL+2, COMPSI+2
, COMPSI+3, KILLNV+1
>> PSGAL("D1" EN+2*, EN+7, EN+10, EN+11, EN+13, EN+14, EN+15, EN+16, KILL+2, COMPSI+2
, COMPSI+3
>> PSGAL("N" EN+7*, EN+10, EN+13, EN+14, EN+16, KILL+2, NEWUDAL+10*, NEWUDAL+16, NEWUDAL+18, NEWUDAL+20
, NEWUDAL+22, NEWNVAL+11*, NEWNVAL+17, NEWNVAL+21, NEWNVAL+22, KILLNV+1
PSGALC NEWUDAL~, NEWUDAL+14, NEWNVAL~, NEWNVAL+15
>> PSGALEF EN+10*, KILL+2*, KILLNV+1*
PSGALFF EN+5, DONE+1!
PSGALFN EN+5, DONE+1!
PSGALGP NEWUDAL~, NEWUDAL+9, NEWUDAL+10, NEWUDAL+16, NEWUDAL+17, NEWUDAL+18, NEWUDAL+20, NEWUDAL+22
>> PSGALO EN+3
PSGALORD NEWUDAL~, NEWUDAL+10, NEWUDAL+16, NEWUDAL+17, NEWUDAL+18, NEWUDAL+20, NEWUDAL+22, NEWNVAL~, NEWNVAL+11, NEWNVAL+17
, NEWNVAL+19, NEWNVAL+20, NEWNVAL+21, NEWNVAL+22
>> PSGALR EN+4
>> PSGDT EN+8*, NEWUDAL+12*, NEWNVAL+13*
PSGFLD NEWUDAL~, NEWUDAL+14, NEWNVAL~, NEWNVAL+15
PSGOLD NEWUDAL~, NEWUDAL+13*, NEWUDAL+14, NEWNVAL~, NEWNVAL+14*, NEWNVAL+15
PSGOLDAR NEWUDAL~, NEWUDAL+17, NEWNVAL~, NEWNVAL+18
PSGOLDAR( NEWUDAL+19, NEWUDAL+20, NEWNVAL+22
PSGOLDAR("" NEWNVAL+21
PSGOLDAR(0 NEWUDAL+18
PSJ9 EN+1~
PSJ9("SPECIFIER" EN+5, EN+6
PSJ99 EN+1~
PSJ99("POINTER" PNTR+1
PSJ99("SPECIFIER" PNTR+1
>> PSJSYSP EN+12, NEWUDAL+21, NEWUDAL+22, NEWUDAL+23
>> Q EN+1*, EN+2, EN+7*, EN+9*, EN+10, EN+11, EN+13, KILL+1, NEWUDAL+10*, NEWUDAL+14*
, NEWUDAL+16, NEWNVAL+11*, NEWNVAL+15*, NEWNVAL+17, NEWNVAL+18, NEWNVAL+19, NEWNVAL+20
Q2 COMPSI+1~, COMPSI+2*, COMPSI+3
>> QQ EN+7*, NEWUDAL+10*, NEWNVAL+11*
SS DONE+1!, PNTR+1*
>> X EN+5
XX EN+5*, DONE+1!, PNTR+1*
YY EN+5*, DONE+1!, PNTR+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All