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 |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls