Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: MCARPROC

Package: Medicine

Routine: MCARPROC


Information

MCARPROC ;WISC/TJK,RCH-STORE PROCEDURES IN MEDICINE PATIENT FILE ;7/30/96 13:48

Source Information

Source file <MCARPROC.m>

Entry Points

Name Comments DBIA/ICR reference
CONT ;NEW PROCEDURE
CHGDTE ;CHANGE PROCEDURE DATE
RBLD1
CHGPAT ;TRANSFER PROCEDURE FROM ONE PATIENT TO ANOTHER
KILL
RBLD
INIT ;INITIALIZE VARIABLES
CONT1 ;STORE PROCEDURE IN "AC" CROSS REFERENCE OF MEDICINE PATIENT FILE
CHGDTE1 ;SET "AC" CROSS-REFERENCE WITH NEW DATE
MEDKILL ;THIS SECTION DELETES MEDICINE CODE WHEN MEDICATION DELETED FROM MEDICATION FILE
END
OLDAC
MEDSET ;THIS SECTION SETS MEDICINE CODE AND CROSS-REFERENCE IN DRUG FILE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MCAR( RBLD1
^MCAR(690 - [#690] OLDAC!, CONT1+1*
^PSDRUG - [#50] MEDSET+2*, MEDSET+3, MEDKILL+2, MEDKILL+3*, MEDKILL+4
^PSDRUG("AIUM" MEDSET+3*, MEDKILL+4!

Label References

Name Line Occurrences
CONT CHGPAT+1
CONT1 CHGDTE1+1, RBLD1
END CHGDTE+1, CHGDTE1+1, CHGPAT+1
INIT CHGDTE+1, CHGDTE1+1, CHGPAT+1, RBLD1
OLDAC CHGDTE+1, KILL
RBLD1 RBLD+1

Naked Globals

Name Field # of Occurrence
^(2 MEDSET+2, MEDKILL+3!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CD INIT+2*!, CHGDTE+1, CHGDTE1+1, OLDAC, CONT+1*, CONT1+1, END!, KILL*!, RBLD~, RBLD1
DA INIT+1, OLDAC, CONT1+1, KILL, MEDSET+2, MEDSET+3, MEDKILL+2, MEDKILL+3, MEDKILL+4, RBLD~
, RBLD1*
II RBLD~, RBLD+1*, RBLD+2!, RBLD1
MCARCDIE INIT+1*!, INIT+2!, CHGDTE+1, CHGDTE1+1, CHGPAT+1, OLDAC, CONT1+1, END!, KILL, RBLD1*
MCAROLDT CHGDTE+1*, OLDAC, END!, KILL*!
MCARX MEDKILL+2*, MEDKILL+3, MEDKILL+5!
MCARY MEDKILL+2*, MEDKILL+5!
U INIT+1, INIT+2, OLDAC, CONT1+1, KILL, MEDSET+2, MEDSET+3, MEDKILL+2, MEDKILL+3, MEDKILL+4
>> X CHGDTE+1, CHGDTE1+1, CONT+1, KILL
XX INIT+1!, INIT+2*!, CHGDTE1+1*, CHGPAT+1, CONT1+1, END!, RBLD~
Info |  Source |  Entry Points |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All