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

Package: Medicine

Routine: MCARGS


Information

MCARGS ;WISC/TJK-SPECIAL CODE FOR PRINT TEMPLATES ;5/2/96 13:01

Source Information

Source file <MCARGS.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA FileMan 2 ^DIWP  ^DIWW  

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

Package Total Caller Graph
Medicine 11 MCARGIBRPR  MCAROG  MCAROG1  MCAROGA  MCAROGH  MCAROGM  MCAROP  MCAROPA  
MCAROPE  MCOBGA  MCOBGA1  

Entry Points

Name Comments DBIA/ICR reference
IND ;PRINTS OUT SPECIAL FIELDS RELATED TO INDICATION FOR PROCEDURE
WP
WP1
COL ;PRINTS OUT DIET INFORMATION FOR COLONOSCOPY
PREP
LAP ;PRINTS OUT PNEUMOPERITONEUM GAS INFO FOR LAP PROCEDURES
TECH ;PRINTS OUT SPECIAL CODE FOR TECHNIQUE FOR GI ENDOSCOPY
EXIT
SPEC
SET
X
BOWPREP ;;BISCODYL;CASTER OIL;GOLYELY;MAGNESIUM CITRATE;NEOLOID;OTHER;PHOSPHASODA

External References

Name Field # of Occurrence
^DIWP WP1
^DIWW WP1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?2,"Type of Cough: ",$P(^(0),U,1),?50,"Duration: ",$P(J,U,2)
  • Condition for execution: $D(^MCAR(695.5,+J,0))
  • Line Location: IND+2
Function Call: WRITE
  • Prompt: !,?2,"Location of Pneumonia: ",$P(^(0),U,1),?50,"Dates: ",$P(J,U,2)
  • Condition for execution: $D(^MCAR(699.83,+J,0))
  • Line Location: IND+3
Function Call: WRITE
  • Prompt: !," Pneumoperitoneum Gas: ",Z2,?50,"Pressure Control: ",Z3
  • Line Location: LAP+1
Function Call: WRITE
  • Prompt: !,?2,"Stent Type: ",I,?50,"Stent Size: ",$P(Z2,U,2),!,?50,"Stent Length (mm):",$P(Z2,U,3)
  • Line Location: TECH+2
Function Call: WRITE
  • Prompt: !,?2,"Sphincterotome Used: ",I,?50,"Incision Size: ",$P(Z2,U,5)
  • Line Location: TECH+3
Function Call: WRITE
  • Prompt: !,?2,$S(Z3=9:"GASTROTOMY",1:"JEJUNOSTOMY")_" TUBE: ",I
  • Line Location: TECH+4
Function Call: WRITE
  • Prompt: !,?10,"Duration: ",$P(I,U,4),?50,"Frequency: ",$P(I,U,5)
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !,?2
  • Condition for execution: ($X+$L(J)>79)
  • Line Location: SPEC+0
Function Call: WRITE
  • Prompt: J
  • Line Location: SPEC+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MCAR( SPEC
^MCAR(695.5 - [#695.5] IND+2
^MCAR(699 - [#699] IND+1, IND+2, IND+3, WP, WP+1, COL+1, COL+2, PREP, PREP+1, LAP+1
, TECH+1, SPEC
^MCAR(699.7 - [#699.7] TECH+2, TECH+3, TECH+4
^MCAR(699.83 - [#699.83] IND+3
^UTILITY($J X

Label References

Name Line Occurrences
BOWPREP PREP+1
EXIT IND+1, IND+2, IND+3, IND+4, IND+5, IND+6, IND+7, COL+3, COL+4, COL+5
, PREP+2, LAP+2, TECH+2, TECH+3, TECH+5, TECH+6, TECH+7, TECH+8
PREP COL+2
SET LAP+1
SPEC IND+1, IND+4
WP IND+5, IND+6
WP1 TECH+6, TECH+7, TECH+8
X IND+2, IND+3, WP1+1, COL+3, COL+4, COL+5, TECH+2, TECH+3, TECH+5, EXIT+1
, SPEC

Naked Globals

Name Field # of Occurrence
^( IND+2, IND+3, WP, PREP+1, LAP+1, SPEC
^(0 IND+2, IND+3, LAP+1, TECH+2, TECH+3, TECH+4, SPEC
^(14 COL+1
^(15 COL+2
^(4 TECH+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 TECH+1
>> D1 TECH+1
>> DIWL WP1*
>> DIWR WP1*
>> I IND+2*, IND+3*, PREP+1*, LAP+1*, TECH+2*, TECH+3*, TECH+4*, EXIT+1, SPEC*
IOSL IND+2, IND+3, WP1+1, COL+3, COL+4, COL+5, TECH+2, TECH+3, TECH+5, EXIT+1
, SPEC
>> J IND+2*, IND+3*, SPEC*
MC1 SPEC*!
>> MCARGDA IND+1, IND+2, IND+3, WP, WP+1, COL+1, COL+2, PREP, PREP+1, LAP+1
, SPEC
>> MCOUT IND+1, IND+2, IND+3, IND+4, IND+5, IND+6, COL+3, COL+4, COL+5, TECH+2
, TECH+3, TECH+5, TECH+6, TECH+7, TECH+8
U IND+2, IND+3, WP, WP+1, COL+2, COL+3, COL+4, COL+5, PREP+1, TECH+2
, TECH+3, TECH+4, TECH+6, TECH+7, TECH+8, EXIT+1, SPEC, SET
>> X WP+1*, WP1*, TECH+6*, TECH+7*, TECH+8*
Z1 IND+1*, IND+4*, IND+5*, IND+6*, WP, WP+1, COL+2*, COL+3, COL+4, COL+5
, PREP+1*, LAP+1*, TECH+2*, TECH+3*, TECH+4*, EXIT!, SPEC, SET
Z2 IND+1*, IND+4*, IND+5*, IND+6*, WP, WP+1, COL+3*, COL+4*, COL+5*, PREP+1*
, LAP+1, TECH+1*, TECH+2, TECH+3, TECH+4, TECH+6, TECH+7, TECH+8, EXIT!, SPEC
, SET*
Z3 IND+1*, IND+4*, IND+5*, IND+6*, WP1, LAP+1, TECH+4*, TECH+6*, TECH+7*, TECH+8*
, EXIT!, SPEC, SET*

Marked Items

Name Field # of Occurrence
$T(BOWPREP PREP+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